frmsplash.frm

本程序源码是由vb编写的

VERSION 5.00
Object = "{0BA686C6-F7D3-101A-993E-0000C0EF6F5E}#1.0#0"; "THREED32.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frmSplash 
   BackColor       =   &H8000000B&
   ClientHeight    =   3825
   ClientLeft      =   270
   ClientTop       =   1425
   ClientWidth     =   5460
   ClipControls    =   0   'False
   ControlBox      =   0   'False
   Icon            =   "frmSplash.frx":0000
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form2"
   LockControls    =   -1  'True
   ScaleHeight     =   3825
   ScaleWidth      =   5460
   StartUpPosition =   2  '屏幕中心
   Begin VB.Timer Timer1 
      Interval        =   2000
      Left            =   720
      Top             =   2235
   End
   Begin MSComctlLib.ProgressBar pBar 
      Height          =   135
      Left            =   0
      TabIndex        =   0
      Top             =   3360
      Width           =   5460
      _ExtentX        =   9631
      _ExtentY        =   238
      _Version        =   393216
      Appearance      =   0
   End
   Begin Threed.SSPanel SSPanel1 
      Height          =   300
      Left            =   15
      TabIndex        =   3
      Top             =   3495
      Width           =   5415
      _Version        =   65536
      _ExtentX        =   9551
      _ExtentY        =   529
      _StockProps     =   15
      Caption         =   "警告:版权所有：温州东化计算机科技有限公司 [ VB中国 ]"
      BackColor       =   12632256
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      BevelOuter      =   1
      Font3D          =   3
   End
   Begin VB.Label lblPlatform 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "平台：Win95/98/2000/NT"
      ForeColor       =   &H00C0C0C0&
      Height          =   180
      Left            =   3315
      TabIndex        =   2
      Top             =   2790
      Width           =   1980
   End
   Begin VB.Label lblVersion 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "版本"
      ForeColor       =   &H00C0C0C0&
      Height          =   180
      Left            =   4965
      TabIndex        =   1
      Top             =   3060
      Width           =   360
   End
End
Attribute VB_Name = "frmSplash"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Option Explicit
Dim LoadOk As Boolean

Private Sub Form_Click()

If LoadOk = True Then Unload Me
  
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
    
    If LoadOk = True Then Unload Me
    
End Sub

Private Sub Form_Load()
    
    On Error Resume Next
    Dim sPath As String
    sPath = App.Path
    If left(sPath, 1) = ":" Then
       sPath = sPath & "setup.bmp"
     Else
       sPath = sPath & "\Setup.Bmp"
    End If
    lblVersion.Caption = "版本 " & App.Major & "." & App.Minor & "." & App.Revision
    Me.Picture = LoadPicture(sPath)
    Me.Show
    pBar.Value = 3
    Me.Refresh
   '给出配置参数
    checkPath ("")
    pBar.Value = 5
    SaveSet "Get"
    pBar.Value = 8
    Load frmSet
    pBar.Value = 20
    Load frmAbout
    pBar.Value = 30
    Load frmMain
    pBar.Value = 70
    Load frmLogin
    pBar.Value = 80
    Load frmAcount
    '安装其它表单
     pBar.Value = 100
    '成功安装
    LoadOk = True

End Sub

Private Sub Form_Unload(Cancel As Integer)

    frmLogin.Show
    
End Sub

Private Sub Frame1_Click()

  If LoadOk = True Then Unload Me
    
End Sub

Private Sub imgLogo_Click()
  If LoadOk = True Then Unload Me

End Sub

Private Sub lblLicenseTo_Click()
    If LoadOk = True Then Unload Me

End Sub

Private Sub lblPlatform_Click()
    If LoadOk = True Then Unload Me

End Sub

Private Sub lblProductName_Click()
    If LoadOk = True Then Unload Me

End Sub

Private Sub lblVersion_Click()
    If LoadOk = True Then Unload Me

End Sub

Private Sub SSPanel1_Click()
    If LoadOk = True Then Unload Me

End Sub

Private Sub SSPanel2_Click()
    If LoadOk = True Then Unload Me

End Sub

Private Sub Timer1_Timer()

  If LoadOk = True Then Unload Me
  
End Sub
Private Sub SaveSet(sType As String)

 '检测数据库是否完整
  On Error Resume Next
  Dim Con As Database
  Dim rRecord As Recordset
  Dim sSQL As String
  Set Con = OpenDatabase(ConData, 0, 0, ConStr)
  sSQL = "Select * From Code"
  Set rRecord = Con.OpenRecordset(sSQL, dbOpenDynaset)
 If sType = "Get" Then 'Get Data
    CodeQua = rRecord.Fields("CodeQua")
    CodeName(1) = rRecord.Fields("CODE1")
    CodeName(2) = rRecord.Fields("CODE2")
    CodeName(3) = rRecord.Fields("CODE3")
    CodeName(4) = rRecord.Fields("CODE4")
    CodeName(5) = rRecord.Fields("CODE5")
    CodeName(6) = rRecord.Fields("CODE6")
    CodeName(7) = rRecord.Fields("CODE7")
    CodeName(8) = rRecord.Fields("CODE8")
    CodeName(9) = rRecord.Fields("CODE9")
    If rRecord.Fields("IsEffect") = 0 Then
       IsEffect = False
       Else
       IsEffect = True
    End If
    BackColor1 = rRecord.Fields("BackColor1")
    BackColor2 = rRecord.Fields("BackColor2")
    SelectForeColor = rRecord.Fields("SelectFore")
    SelectBackColor = rRecord.Fields("SelectBack")
 End If
   rRecord.Close
   Con.Close
   Set rRecord = Nothing
   Set Con = Nothing
   
End Sub