frmsplash.frm

企业ERP系统 采用VB+SQL2000实现。 有客户合约

VERSION 5.00
Begin VB.Form frmSplash 
   BorderStyle     =   1  'Fixed Single
   ClientHeight    =   4095
   ClientLeft      =   225
   ClientTop       =   1380
   ClientWidth     =   7215
   ClipControls    =   0   'False
   ControlBox      =   0   'False
   Icon            =   "frmSplash.frx":0000
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Picture         =   "frmSplash.frx":0CFA
   ScaleHeight     =   4095
   ScaleWidth      =   7215
   StartUpPosition =   2  'CenterScreen
   Begin VB.Timer Timer1 
      Interval        =   500
      Left            =   5970
      Top             =   2280
   End
   Begin VB.Label Label2 
      BackStyle       =   0  'Transparent
      Caption         =   "Support [e-mail]"
      Height          =   255
      Left            =   210
      TabIndex        =   5
      Top             =   3270
      Width           =   6735
   End
   Begin VB.Label lblCompany 
      BackStyle       =   0  'Transparent
      Caption         =   " 深圳市奧拓思自动化控制有限公司"
      Height          =   255
      Left            =   210
      TabIndex        =   4
      Top             =   2910
      Width           =   6735
   End
   Begin VB.Label Label1 
      Caption         =   "Label1"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   5610
      TabIndex        =   3
      Top             =   1650
      Visible         =   0   'False
      Width           =   1155
   End
   Begin VB.Label lblWarning 
      BackStyle       =   0  'Transparent
      Caption         =   "系统正在启动......"
      Height          =   195
      Left            =   210
      TabIndex        =   2
      Top             =   3660
      Width           =   6855
   End
   Begin VB.Label lblVersion 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "Version"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   240
      Left            =   4620
      TabIndex        =   1
      Top             =   2310
      Width           =   795
   End
   Begin VB.Label lblLicenseTo 
      Alignment       =   1  'Right Justify
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   210
      TabIndex        =   0
      Top             =   150
      Width           =   6855
   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 bUpdata As Boolean
Dim iTimer As Integer
Private Sub Form_KeyPress(KeyAscii As Integer)
    'Unload Me
End Sub

Private Sub Form_Load()
    On Error GoTo errHandle
    'XP风格
    'classXP 0, 1
    
   If objDatabase.OpenIni(False) = True Then

            If objDatabase.OpenData = False Then
                frmSystemDatabase.exitSystem = True
                frmSystemDatabase.Show vbModal
            End If
            frmMain.Show
            Unload Me
    End If
    ''
    objDispalyIni.SetProductColor &HFFFF80
    objDispalyIni.SetProductSpaceColor &HFFFFFF
    objDispalyIni.SetItemColor &H80000018
    objDispalyIni.SetItemSpaceColor &HF1F1F1
    objDispalyIni.SetOtherColor &HFFFFFF
    objDispalyIni.SetPagination False
  
Exit Sub
errHandle:
MsgBox Err.Description
End Sub

Private Sub Frame1_Click()
    Unload Me
End Sub