Visual basic 数据库编程技术与实例源码 源码

				VERSION 5.00
				Begin VB.Form frmSplash 
				   BorderStyle     =   1  'Fixed Single
				   ClientHeight    =   4485
				   ClientLeft      =   15
				   ClientTop       =   15
				   ClientWidth     =   6375
				   ControlBox      =   0   'False
				   LinkTopic       =   "Form1"
				   LockControls    =   -1  'True
				   MaxButton       =   0   'False
				   MinButton       =   0   'False
				   Picture         =   "frmSplash.frx":0000
				   ScaleHeight     =   4485
				   ScaleWidth      =   6375
				   StartUpPosition =   2  'CenterScreen
				   Visible         =   0   'False
				   Begin VB.Label lblTitleColor 
				      Alignment       =   2  'Center
				      BackStyle       =   0  'Transparent
				      Caption         =   "机动车驾驶员考试系统"
				      BeginProperty Font 
				         Name            =   "宋体"
				         Size            =   24
				         Charset         =   134
				         Weight          =   700
				         Underline       =   0   'False
				         Italic          =   -1  'True
				         Strikethrough   =   0   'False
				      EndProperty
				      ForeColor       =   &H00C0C0FF&
				      Height          =   555
				      Left            =   135
				      TabIndex        =   5
				      Top             =   1650
				      Width           =   6105
				   End
				   Begin VB.Label lblTitleGray 
				      Alignment       =   2  'Center
				      BackStyle       =   0  'Transparent
				      Caption         =   "机动车驾驶员考试系统"
				      BeginProperty Font 
				         Name            =   "宋体"
				         Size            =   24
				         Charset         =   134
				         Weight          =   700
				         Underline       =   0   'False
				         Italic          =   -1  'True
				         Strikethrough   =   0   'False
				      EndProperty
				      Height          =   555
				      Left            =   120
				      TabIndex        =   4
				      Top             =   1635
				      Width           =   6105
				   End
				   Begin VB.Label Label3 
				      AutoSize        =   -1  'True
				      BackStyle       =   0  'Transparent
				      Caption         =   "正在连接数据库，请稍候..."
				      Height          =   180
				      Left            =   2445
				      TabIndex        =   2
				      Top             =   4080
				      Width           =   2250
				   End
				   Begin VB.Label Label2 
				      AutoSize        =   -1  'True
				      BackStyle       =   0  'Transparent
				      Caption         =   "版权所有 侵权必究"
				      ForeColor       =   &H00FF0000&
				      Height          =   180
				      Left            =   195
				      TabIndex        =   1
				      Top             =   4185
				      Width           =   1530
				   End
				   Begin VB.Label Label1 
				      AutoSize        =   -1  'True
				      BackStyle       =   0  'Transparent
				      Caption         =   "Copyright(C) 2002"
				      ForeColor       =   &H00FF0000&
				      Height          =   180
				      Left            =   195
				      TabIndex        =   0
				      Top             =   3930
				      Width           =   1530
				   End
				   Begin VB.Label Label4 
				      AutoSize        =   -1  'True
				      BackStyle       =   0  'Transparent
				      Caption         =   "正在连接数据库，请稍候..."
				      ForeColor       =   &H00C0C0C0&
				      Height          =   180
				      Left            =   2460
				      TabIndex        =   3
				      Top             =   4095
				      Width           =   2250
				   End
				End
				Attribute VB_Name = "frmSplash"
				Attribute VB_GlobalNameSpace = False
				Attribute VB_Creatable = False
				Attribute VB_PredeclaredId = True
				Attribute VB_Exposed = False
				Private Sub Form_Load()
				    lblTitleColor.Caption = GS_SYSTEMTITLE
				    lblTitleGray.Caption = GS_SYSTEMTITLE
				    
				    'set the TOPMOST
				    SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
				End Sub