qidong.frm

员工管理系统 vb+sql 文档全 管理员admin 密码 123

VERSION 5.00
Begin VB.Form QiDong 
   BorderStyle     =   0  'None
   Caption         =   "Form1"
   ClientHeight    =   3105
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   5295
   LinkTopic       =   "Form1"
   ScaleHeight     =   3105
   ScaleWidth      =   5295
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.Timer Timer2 
      Interval        =   3000
      Left            =   120
      Top             =   2160
   End
   Begin VB.Timer Timer1 
      Interval        =   400
      Left            =   840
      Top             =   2160
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "."
      Height          =   180
      Left            =   1440
      TabIndex        =   1
      Top             =   2880
      Width           =   90
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "正在连接服务器"
      Height          =   180
      Left            =   120
      TabIndex        =   0
      Top             =   2880
      Width           =   1260
   End
   Begin VB.Image Image1 
      Height          =   3135
      Left            =   0
      Picture         =   "QiDong.frx":0000
      Stretch         =   -1  'True
      Top             =   0
      Width           =   5295
   End
End
Attribute VB_Name = "QiDong"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Timer1_Timer()
  If Label2.Caption = "." Then
     Label2.Caption = ".."
     Exit Sub
  End If
  If Label2.Caption = ".." Then
     Label2.Caption = "..."
     Exit Sub
  End If
  If Label2.Caption = "..." Then
     Label2.Caption = "...."
     Exit Sub
  End If
  If Label2.Caption = "...." Then
     Label2.Caption = "....."
     Exit Sub
  End If
  If Label2.Caption = "....." Then
     Label2.Caption = "."
     Exit Sub
  End If
End Sub

Private Sub Timer2_Timer()
  If MySQL.State = adStateClosed Then LianJie
End Sub