form7.frm

一个vb工资管理系统

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "Mscomctl.ocx"
Begin VB.Form Form7 
   Caption         =   "工资管理系统工资汇总表"
   ClientHeight    =   5610
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   10335
   LinkTopic       =   "Form7"
   MDIChild        =   -1  'True
   ScaleHeight     =   5610
   ScaleWidth      =   10335
   Begin VB.Frame Frame1 
      Caption         =   "正在数据汇总，请稍候..."
      ForeColor       =   &H000000FF&
      Height          =   615
      Left            =   1560
      TabIndex        =   2
      Top             =   3600
      Visible         =   0   'False
      Width           =   7695
      Begin MSComctlLib.ProgressBar Pb1 
         Height          =   255
         Left            =   120
         TabIndex        =   3
         Top             =   240
         Width           =   7455
         _ExtentX        =   13150
         _ExtentY        =   450
         _Version        =   393216
         Appearance      =   1
         Max             =   300
      End
   End
   Begin VB.Data Data3 
      Caption         =   "Data3"
      Connect         =   "Access"
      DatabaseName    =   ""
      DefaultCursorType=   0  '缺省游标
      DefaultType     =   2  '使用 ODBC
      Exclusive       =   0   'False
      Height          =   735
      Left            =   960
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   ""
      Top             =   2520
      Visible         =   0   'False
      Width           =   2295
   End
   Begin VB.Data Data2 
      Caption         =   "Data2"
      Connect         =   "Access"
      DatabaseName    =   ""
      DefaultCursorType=   0  '缺省游标
      DefaultType     =   2  '使用 ODBC
      Exclusive       =   0   'False
      Height          =   735
      Left            =   960
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   ""
      Top             =   1440
      Visible         =   0   'False
      Width           =   2295
   End
   Begin VB.Data Data1 
      Caption         =   "Data1"
      Connect         =   "Access"
      DatabaseName    =   ""
      DefaultCursorType=   0  '缺省游标
      DefaultType     =   2  '使用 ODBC
      Exclusive       =   0   'False
      Height          =   615
      Left            =   1080
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   ""
      Top             =   480
      Visible         =   0   'False
      Width           =   2175
   End
   Begin VB.CommandButton Command2 
      Caption         =   "打印汇总表"
      Enabled         =   0   'False
      Height          =   495
      Left            =   3960
      TabIndex        =   1
      Top             =   2760
      Width           =   3375
   End
   Begin VB.CommandButton Command1 
      Caption         =   "数据汇总"
      Height          =   495
      Left            =   3960
      TabIndex        =   0
      Top             =   1560
      Width           =   3375
   End
End
Attribute VB_Name = "Form7"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
   Command2.Enabled = True
   Frame1.Visible = True
   Dim js(20)
   Data3.Refresh
   While Data3.Recordset.EOF = False
     Data3.Recordset.Delete
     Data3.Recordset.MoveNext
   Wend
   Data2.Refresh
   While Data2.Recordset.EOF = False
      bh = Data2.Recordset.Fields(0)
      mc = Data2.Recordset.Fields(1)
      Data1.Refresh
      While Data1.Recordset.EOF = False
         If Mid(Data1.Recordset.Fields(0), 1, 2) = bh Then
            For i = 2 To 15
               js(i) = js(i) + Data1.Recordset.Fields(i)
            Next i
         End If
         Data1.Recordset.MoveNext
      Wend
      Data3.Refresh
      Data3.Recordset.AddNew
      Data3.Recordset.Fields(0) = mc
      For i = 2 To 15
         Data3.Recordset.Fields(i - 1) = js(i)
      Next i
      Data3.Recordset.Update
      Data2.Recordset.MoveNext
      For i = 2 To 15
         js(i) = 0
      Next i
   Wend
   i = 0
   While i < 299
      Pb1.Value = i
      i = i + 0.35
   Wend
   MsgBox "数据汇总完毕，请打印汇总表"
   Frame1.Visible = False
End Sub

Private Sub Command2_Click()
  Dr4.Show
  Command2.Enabled = False
End Sub

Private Sub Form_Load()
  Me.Top = 0
  Me.Left = 0
  Me.Height = gzglxt.Height - gzglxt.sb1.Height - 750 - gzglxt.Toolbar1.Height
  Me.Width = gzglxt.Width - 180
  Data1.DatabaseName = App.Path + "\gzglxt.mdb"
  Data1.RecordSource = "gzb"
  Data1.Refresh
  Data2.DatabaseName = App.Path + "\gzglxt.mdb"
  Data2.RecordSource = "bmk"
  Data2.Refresh
  Data3.DatabaseName = App.Path + "\gzglxt.mdb"
  Data3.RecordSource = "hzb"
  Data3.Refresh
End Sub