📄 员工信息.frm
字号:
AutoSize = -1 'True
Caption = "应发工资"
Height = 180
Left = 2760
TabIndex = 35
Top = 1920
Width = 720
End
Begin VB.Label Label17
AutoSize = -1 'True
Caption = "应扣工资"
Height = 180
Left = 5040
TabIndex = 34
Top = 1920
Width = 720
End
End
Begin VB.CommandButton Command2
Caption = "关闭"
Height = 375
Index = 6
Left = 6960
TabIndex = 23
Top = 4920
Width = 975
End
Begin VB.CommandButton Command2
Caption = "更新"
Height = 375
Index = 4
Left = 5040
TabIndex = 22
Top = 4920
Width = 975
End
Begin VB.CommandButton Command2
Caption = "第一个"
Height = 375
Index = 0
Left = 240
TabIndex = 21
Top = 4920
Width = 975
End
Begin VB.CommandButton Command2
Caption = "前一个"
Height = 375
Index = 1
Left = 1200
TabIndex = 20
Top = 4920
Width = 975
End
Begin VB.CommandButton Command2
Caption = "后一个"
Height = 375
Index = 2
Left = 2160
TabIndex = 19
Top = 4920
Width = 975
End
Begin VB.CommandButton Command2
Caption = "添加"
Height = 375
Index = 5
Left = 4080
TabIndex = 18
Top = 4920
Width = 975
End
Begin VB.CommandButton Command2
Caption = "最后一个"
Height = 375
Index = 3
Left = 3120
TabIndex = 17
Top = 4920
Width = 975
End
Begin VB.Frame Frame1
Caption = "员工信息"
Height = 1215
Left = 240
TabIndex = 0
Top = 120
Width = 7935
Begin VB.TextBox Text1
DataField = "缺勤天数"
DataSource = "Adodc1"
Height = 270
Index = 7
Left = 6840
TabIndex = 16
Top = 795
Width = 855
End
Begin VB.TextBox Text1
DataField = "出勤天数"
DataSource = "Adodc1"
Height = 270
Index = 6
Left = 5040
TabIndex = 15
Top = 795
Width = 855
End
Begin VB.TextBox Text1
DataField = "军烈属"
DataSource = "Adodc1"
Height = 270
Index = 5
Left = 3240
TabIndex = 14
Top = 795
Width = 855
End
Begin VB.TextBox Text1
DataField = "生日"
DataSource = "Adodc1"
Height = 270
Index = 4
Left = 1320
TabIndex = 13
Top = 795
Width = 855
End
Begin VB.TextBox Text1
DataField = "职务"
DataSource = "Adodc1"
Height = 270
Index = 3
Left = 6840
TabIndex = 12
Top = 360
Width = 855
End
Begin VB.TextBox Text1
DataField = "科室"
DataSource = "Adodc1"
Height = 270
Index = 2
Left = 5040
TabIndex = 11
Top = 360
Width = 855
End
Begin VB.TextBox Text1
DataField = "政治面貌"
DataSource = "Adodc1"
Height = 270
Index = 1
Left = 3240
TabIndex = 10
Top = 360
Width = 855
End
Begin VB.TextBox Text1
DataField = "姓名"
DataSource = "Adodc1"
Height = 270
Index = 0
Left = 1320
TabIndex = 5
Top = 360
Width = 855
End
Begin VB.Label Label8
AutoSize = -1 'True
Caption = "缺勤天数"
Height = 180
Left = 6000
TabIndex = 9
Top = 840
Width = 720
End
Begin VB.Label Label7
AutoSize = -1 'True
Caption = "出勤天数"
Height = 180
Left = 4200
TabIndex = 8
Top = 840
Width = 720
End
Begin VB.Label Label6
AutoSize = -1 'True
Caption = "军 烈 属"
Height = 180
Left = 2400
TabIndex = 7
Top = 840
Width = 720
End
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "生 日"
Height = 180
Left = 360
TabIndex = 6
Top = 840
Width = 720
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "科 室"
Height = 180
Left = 4200
TabIndex = 4
Top = 405
Width = 720
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "职 务"
Height = 180
Left = 6000
TabIndex = 3
Top = 405
Width = 720
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "政治面貌"
Height = 180
Left = 2400
TabIndex = 2
Top = 405
Width = 720
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "姓 名"
Height = 180
Left = 360
TabIndex = 1
Top = 405
Width = 720
End
End
End
Attribute VB_Name = "Form10"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command2_Click(Index As Integer)
Select Case Index
Case 0
Adodc1.Recordset.MoveFirst
Adodc2.Recordset.MoveFirst
Case 1
Adodc1.Recordset.MovePrevious
If Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveFirst
Adodc2.Recordset.MovePrevious
If Adodc2.Recordset.BOF Then Adodc2.Recordset.MoveFirst
Case 2
Adodc1.Recordset.MoveNext
If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast
Adodc2.Recordset.MoveNext
If Adodc2.Recordset.EOF Then Adodc2.Recordset.MoveLast
Case 3
Adodc1.Recordset.MoveLast
Adodc2.Recordset.MoveLast
Case 4
Adodc1.Recordset.Update
Adodc2.Recordset.Update
Adodc1.Refresh
Adodc2.Refresh
Case 5
Form9.Show
Case 6
Unload Me
Case 7
Dim mag
mag = MsgBox("要删除吗？", vbYesNo, "删除记录")
If mag = vbYes Then
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveLast
Adodc2.Recordset.Delete
Adodc2.Recordset.MoveLast
End If
End Select
End Sub
Private Sub Text1_Change(Index As Integer)
Text1(15).Text = Val(Text1(8).Text) + Val(Text1(9).Text) + Val(Text1(10).Text) + Val(Text1(11).Text) + Val(Text1(12).Text) + Val(Text1(13).Text)
Text1(16).Text = Text1(14).Text
Text1(17).Text = Val(Text1(15).Text) - Val(Text1(16).Text)
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -