📄 sum.frm
字号:
Caption = "工资总额 (元)"
BeginProperty Font
Name = "楷体_GB2312"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 375
Left = 8760
TabIndex = 3
Top = 1080
Width = 1695
End
Begin VB.Label Label3
BackColor = &H00FFFFFF&
Caption = "部门人数 (人)"
BeginProperty Font
Name = "楷体_GB2312"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 375
Left = 5160
TabIndex = 2
Top = 1080
Width = 1815
End
Begin VB.Label Label2
BackColor = &H80000005&
Caption = "部门名称"
BeginProperty Font
Name = "楷体_GB2312"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 375
Left = 2160
TabIndex = 1
Top = 1080
Width = 1215
End
Begin VB.Label Label1
BackColor = &H00FFFFFF&
Caption = " 工 资 统 计 表"
BeginProperty Font
Name = "楷体_GB2312"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 375
Left = 5760
TabIndex = 0
Top = 480
Width = 2775
End
Begin VB.Menu mnuprint
Caption = "打印(&P)"
End
Begin VB.Menu mnuquit
Caption = "退出(&Q)"
End
End
Attribute VB_Name = "Form11"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Activate()
On Error GoTo a0
Dim a, b, c
a = 0
If Data1.Recordset.RecordCount = 0 Then
Exit Sub
End If
Data1.Recordset.MoveFirst
Do Until Data1.Recordset.EOF
b = Data1.Recordset("实发工资")
a = a + b
Data1.Recordset.MoveNext
Loop
Label35.Caption = a
Label25.Caption = Data1.Recordset.RecordCount
a = 0
b = 0
c = 0
Data1.Recordset.MoveFirst
Data1.Recordset.FindFirst "职工编号 like 'GDCW*' "
Do Until Data1.Recordset.NoMatch
a = a + 1
b = Data1.Recordset("实发工资")
c = b + c
Data1.Recordset.FindNext "职工编号 like 'GDCW*' "
Loop
Label16.Caption = a
Label26.Caption = c
a = 0
b = 0
c = 0
Data1.Recordset.MoveFirst
Data1.Recordset.FindFirst "职工编号 like 'GDYY*' "
Do Until Data1.Recordset.NoMatch
a = a + 1
b = Data1.Recordset("实发工资")
c = b + c
Data1.Recordset.FindNext "职工编号 like 'GDYY*' "
Loop
Label17.Caption = a
Label27.Caption = c
a = 0
b = 0
c = 0
Data1.Recordset.MoveFirst
Data1.Recordset.FindFirst "职工编号 like 'GDGC*' "
Do Until Data1.Recordset.NoMatch
a = a + 1
b = Data1.Recordset("实发工资")
c = b + c
Data1.Recordset.FindNext "职工编号 like 'GDGC*' "
Loop
Label18.Caption = a
Label28.Caption = c
a = 0
b = 0
c = 0
Data1.Recordset.MoveFirst
Data1.Recordset.FindFirst "职工编号 like 'GDSC*' "
Do Until Data1.Recordset.NoMatch
a = a + 1
b = Data1.Recordset("实发工资")
c = b + c
Data1.Recordset.FindNext "职工编号 like 'GDSC*' "
Loop
Label19.Caption = a
Label29.Caption = c
a = 0
b = 0
c = 0
Data1.Recordset.MoveFirst
Data1.Recordset.FindFirst "职工编号 like 'GDRS*' "
Do Until Data1.Recordset.NoMatch
a = a + 1
b = Data1.Recordset("实发工资")
c = b + c
Data1.Recordset.FindNext "职工编号 like 'GDRS*' "
Loop
Label20.Caption = a
Label30.Caption = c
a = 0
b = 0
c = 0
Data1.Recordset.MoveFirst
Data1.Recordset.FindFirst "职工编号 like 'GDBA*' "
Do Until Data1.Recordset.NoMatch
a = a + 1
b = Data1.Recordset("实发工资")
c = b + c
Data1.Recordset.FindNext "职工编号 like 'GDBA*' "
Loop
Label21.Caption = a
Label31.Caption = c
a = 0
b = 0
c = 0
Data1.Recordset.MoveFirst
Data1.Recordset.FindFirst "职工编号 like 'GDZW*' "
Do Until Data1.Recordset.NoMatch
a = a + 1
b = Data1.Recordset("实发工资")
c = b + c
Data1.Recordset.FindNext "职工编号 like 'GDZW*' "
Loop
Label22.Caption = a
Label32.Caption = c
a = 0
b = 0
c = 0
Data1.Recordset.MoveFirst
Data1.Recordset.FindFirst "职工编号 like 'GDGH*' "
Do Until Data1.Recordset.NoMatch
a = a + 1
b = Data1.Recordset("实发工资")
c = b + c
Data1.Recordset.FindNext "职工编号 like 'GDGH*' "
Loop
Label23.Caption = a
Label33.Caption = c
a = 0
b = 0
c = 0
Data1.Recordset.MoveFirst
Data1.Recordset.FindFirst "职工编号 like 'GDJL*' "
Do Until Data1.Recordset.NoMatch
a = a + 1
b = Data1.Recordset("实发工资")
c = b + c
Data1.Recordset.FindNext "职工编号 like 'GDJL*' "
Loop
Label24.Caption = a
Label34.Caption = c
a0:
End Sub
Private Sub Form_Load()
Dim a As Integer, b As Integer
a = Year(Date)
b = Month(Date)
Label36.Caption = " " & a & " 年 " & b & " 月"
End Sub
Private Sub Label10_Click()
On Error GoTo a0
Data2.Recordset.Edit
Data2.Recordset("bm") = "生产部"
Data2.Recordset.Update
a0:
Form12.Show
End Sub
Private Sub Label11_Click()
On Error GoTo a0
Data2.Recordset.Edit
Data2.Recordset("bm") = "工程部"
Data2.Recordset.Update
a0:
Form12.Show
End Sub
Private Sub Label12_Click()
On Error GoTo a0
Data2.Recordset.Edit
Data2.Recordset("bm") = "总经理室"
Data2.Recordset.Update
a0:
Form12.Show
End Sub
Private Sub Label13_Click()
On Error GoTo a0
Data2.Recordset.Edit
Data2.Recordset("bm") = "工会"
Data2.Recordset.Update
a0:
Form12.Show
End Sub
Private Sub Label5_Click()
On Error GoTo a0
Data2.Recordset.Edit
Data2.Recordset("bm") = "财务部"
Data2.Recordset.Update
a0:
Form12.Show
End Sub
Private Sub Label6_Click()
On Error GoTo a0
Data2.Recordset.Edit
Data2.Recordset("bm") = "营业部"
Data2.Recordset.Update
a0:
Form12.Show
End Sub
Private Sub Label7_Click()
On Error GoTo a0
Data2.Recordset.Edit
Data2.Recordset("bm") = "总务部"
Data2.Recordset.Update
a0:
Form12.Show
End Sub
Private Sub Label8_Click()
On Error GoTo a0
Data2.Recordset.Edit
Data2.Recordset("bm") = "保安部"
Data2.Recordset.Update
a0:
Form12.Show
End Sub
Private Sub Label9_Click()
On Error GoTo a0
Data2.Recordset.Edit
Data2.Recordset("bm") = "人事部"
Data2.Recordset.Update
a0:
Form12.Show
End Sub
Private Sub mnuprint_Click()
On Error GoTo a0
Me.PrintForm
a0:
End Sub
Private Sub mnuquit_Click()
Unload Me
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -