form8.frm

一个vb工资管理系统

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "Mscomctl.ocx"
Begin VB.Form Form8 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "工资管理系统系统初始化"
   ClientHeight    =   4560
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   7335
   LinkTopic       =   "Form8"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   4560
   ScaleWidth      =   7335
   ShowInTaskbar   =   0   'False
   Begin VB.Timer Timer1 
      Enabled         =   0   'False
      Interval        =   50
      Left            =   240
      Top             =   3120
   End
   Begin VB.Data Data1 
      Caption         =   "Data1"
      Connect         =   "Access"
      DatabaseName    =   ""
      DefaultCursorType=   0  '缺省游标
      DefaultType     =   2  '使用 ODBC
      Exclusive       =   0   'False
      Height          =   495
      Left            =   360
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   ""
      Top             =   120
      Visible         =   0   'False
      Width           =   2535
   End
   Begin MSComctlLib.ProgressBar Pb1 
      Height          =   200
      Left            =   0
      TabIndex        =   4
      Top             =   4320
      Width           =   7335
      _ExtentX        =   12938
      _ExtentY        =   344
      _Version        =   393216
      Appearance      =   1
      Min             =   1
      Max             =   300
   End
   Begin VB.CommandButton Command2 
      Caption         =   "取消初始化"
      Height          =   495
      Left            =   3960
      TabIndex        =   3
      Top             =   3240
      Width           =   1455
   End
   Begin VB.CommandButton Command1 
      Caption         =   "确认初始化"
      Height          =   495
      Left            =   1560
      TabIndex        =   2
      Top             =   3240
      Width           =   1455
   End
   Begin VB.Frame Frame1 
      Caption         =   "系统初始说明！"
      ForeColor       =   &H000000FF&
      Height          =   2415
      Left            =   1080
      TabIndex        =   0
      Top             =   480
      Width           =   5175
      Begin VB.Label Label1 
         Height          =   1575
         Left            =   240
         TabIndex        =   1
         Top             =   480
         Width           =   4575
      End
   End
   Begin VB.Label Label2 
      Caption         =   "系统正在初始化..."
      ForeColor       =   &H000000FF&
      Height          =   255
      Left            =   240
      TabIndex        =   5
      Top             =   3960
      Visible         =   0   'False
      Width           =   1695
   End
End
Attribute VB_Name = "Form8"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Timer1.Enabled = True
Label2.Visible = True
Data1.DatabaseName = App.Path + "\gzglxt.mdb"
Data1.RecordSource = "mmk"
Data1.Refresh
'Data1.Recordset.MoveNext
'While Data1.Recordset.EOF = False
'   Data1.Recordset.Delete
'   Data1.Recordset.MoveNext
'Wend
'Data1.RecordSource = "bmk"
'Data1.Refresh
'While Data1.Recordset.EOF = False
'  Data1.Recordset.Delete
'  Data1.Recordset.MoveNext
'Wend
'Data1.RecordSource = "gzb"
'Data1.Refresh
'While Data1.Recordset.EOF = False
'   Data1.Recordset.Delete
'   Data1.Recordset.MoveNext
'Wend
'Data1.RecordSource = "hzb"
'Data1.Refresh
'While Data1.Recordset.EOF = False
'   Data1.Recordset.Delete
'   Data1.Recordset.MoveNext
'Wend
'Timer1.Enabled = False
End Sub

Private Sub Command2_Click()
   Unload Me
End Sub

Private Sub Form_Initialize()
Label1.Caption = "用户注意：" & Chr(13) & Chr(10) & "系统初始化将清除掉当前系统" & Chr(13) & Chr(10) & "中所有的数据,请慎重此操作！" & Chr(13) & Chr(10) & "初始化是将系统恢复到初始状态！"

End Sub

Private Sub Form_Load()
Me.Top = 1000
Me.Left = 2200
End Sub

Private Sub Timer1_Timer()
  If Pb1.Value <= 297 Then
     Pb1.Value = Pb1.Value + 2
  Else
     Pb1.Value = 1
  End If
End Sub