www.pudn.com > 档案管理系统源码VB.zip > frmSplash.frm

VERSION 5.00 
Begin VB.Form frmSplash  
   BackColor       =   &H00000000& 
   BorderStyle     =   0  'None 
   ClientHeight    =   4620 
   ClientLeft      =   210 
   ClientTop       =   1365 
   ClientWidth     =   6000 
   ClipControls    =   0   'False 
   ControlBox      =   0   'False 
   Icon            =   "frmSplash.frx":0000 
   KeyPreview      =   -1  'True 
   LinkTopic       =   "Form2" 
   LockControls    =   -1  'True 
   MaxButton       =   0   'False 
   MinButton       =   0   'False 
   Picture         =   "frmSplash.frx":000C 
   ScaleHeight     =   4620 
   ScaleWidth      =   6000 
   ShowInTaskbar   =   0   'False 
   Begin VB.Timer Timer2  
      Enabled         =   0   'False 
      Interval        =   2000 
      Left            =   -915 
      Top             =   4170 
   End 
   Begin VB.Label lblLicenseTo  
      BackStyle       =   0  'Transparent 
      Caption         =   "使用权属于：" 
      ForeColor       =   &H00008000& 
      Height          =   210 
      Left            =   255 
      TabIndex        =   2 
      Top             =   1485 
      Width           =   3180 
   End 
   Begin VB.Label lblVersion  
      AutoSize        =   -1  'True 
      BackStyle       =   0  'Transparent 
      Caption         =   "Version" 
      ForeColor       =   &H000080FF& 
      Height          =   180 
      Left            =   255 
      TabIndex        =   1 
      Top             =   1695 
      Width           =   630 
   End 
   Begin VB.Label lblCopyright  
      AutoSize        =   -1  'True 
      BackColor       =   &H00000000& 
      Caption         =   " 请注意：中国和国际软件法。" 
      ForeColor       =   &H0000FFFF& 
      Height          =   180 
      Left            =   3495 
      TabIndex        =   0 
      Top             =   4365 
      Width           =   2430 
   End 
End 
Attribute VB_Name = "frmSplash" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 
Option Explicit 
 
Private Sub Form_Activate() 
Timer2.Enabled = True 
End Sub 
 
Private Sub Form_Click() 
    Unload Me 
End Sub 
 
Private Sub Form_KeyPress(KeyAscii As Integer) 
    Unload Me 
End Sub 
 
Private Sub Form_Load() 
     
  frmSplash.Left = (Screen.Width - frmSplash.Width) / 2 
  frmSplash.Top = (Screen.Height - frmSplash.Height) / 2 - 600 
  'frmSplash.Picture = LoadPicture(Browser + "PHOTO\SUB.BMP") 
  lblVersion.Caption = "版本 " & App.Major & "." & App.Minor & "." & App.Revision 
  '配置 
  Dim DB As Database, Ef As Recordset, X As Integer 
  On Error GoTo NoData 
  '阅读配置数据 
  Set DB = OpenDatabase(ConData, False, False, ConStr) 
  Set Ef = DB.OpenRecordset("Config", dbOpenDynaset) 
   ' Ef.MoveFirst 
    For X = 0 To 5 
      If Not IsNull(Ef.Fields(X).Value) Then 
          TempArray(X) = Ef.Fields(X).Value 
      End If 
    Next 
  Ef.Close 
  DB.Close 
  CompanyName = TempArray(0) 
  Load frmMain '安装主程序 
  lblLicenseTo.Caption = lblLicenseTo.Caption + CompanyName 
 
  Exit Sub 
   
NoData: 
  MsgBox "配置数据造破坏,不能配置完整的系统!", vbOKOnly + 16, "警告!" 
  frmMain.MousePointer = 0 
  Exit Sub 
   
End Sub 
 
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, y As Single) 
    
   GetStatus "按任意键继续..." 
 
End Sub 
 
Private Sub Form_Unload(Cancel As Integer) 
 
 frmMain.Show  '主程序显示 
 
End Sub 
 
Private Sub lblCopyright_Click() 
   Unload Me 
End Sub 
 
Private Sub lblLicenseTo_Click() 
   Unload Me 
End Sub 
 
Private Sub lblVersion_Click() 
   Unload Me 
End Sub 
 
Private Sub Timer2_Timer() 
   Unload Me 
End Sub