📄 frmzgkq.frm
字号:
Width = 375
End
Begin VB.Label Label7
Caption = "病假"
Height = 255
Left = 7440
TabIndex = 58
Top = 360
Width = 375
End
Begin VB.Label Label6
Caption = "事假"
Height = 255
Left = 6480
TabIndex = 57
Top = 360
Width = 375
End
Begin VB.Label Label5
Caption = "旷工"
Height = 255
Left = 3960
TabIndex = 32
Top = 360
Width = 375
End
Begin VB.Label Label4
Caption = "旷课"
Height = 255
Left = 3120
TabIndex = 31
Top = 360
Width = 375
End
Begin VB.Label Label3
Caption = "病假"
Height = 255
Left = 2160
TabIndex = 30
Top = 360
Width = 375
End
Begin VB.Label Label2
Caption = "事假"
Height = 255
Left = 1200
TabIndex = 29
Top = 360
Width = 375
End
Begin VB.Label lblLabels
Caption = "一月"
Height = 255
Index = 4
Left = 240
TabIndex = 27
Top = 840
Width = 495
End
Begin VB.Label lblLabels
Caption = "二月"
Height = 255
Index = 5
Left = 240
TabIndex = 26
Top = 1320
Width = 375
End
Begin VB.Label lblLabels
Caption = "三月"
Height = 255
Index = 6
Left = 240
TabIndex = 25
Top = 1800
Width = 375
End
Begin VB.Label lblLabels
Caption = "四月"
Height = 255
Index = 7
Left = 240
TabIndex = 24
Top = 2280
Width = 375
End
Begin VB.Label lblLabels
Caption = "五月"
Height = 255
Index = 8
Left = 240
TabIndex = 23
Top = 2760
Width = 375
End
Begin VB.Label lblLabels
Caption = "六月"
Height = 255
Index = 9
Left = 240
TabIndex = 22
Top = 3240
Width = 375
End
Begin VB.Label lblLabels
Caption = "七月"
Height = 255
Index = 10
Left = 5400
TabIndex = 21
Top = 840
Width = 495
End
Begin VB.Label lblLabels
Caption = "八月"
Height = 255
Index = 11
Left = 5400
TabIndex = 20
Top = 1320
Width = 375
End
Begin VB.Label lblLabels
Caption = "九月"
Height = 255
Index = 12
Left = 5400
TabIndex = 19
Top = 1800
Width = 375
End
Begin VB.Label lblLabels
Caption = "十月"
Height = 255
Index = 13
Left = 5400
TabIndex = 18
Top = 2280
Width = 375
End
Begin VB.Label lblLabels
Caption = "十一月"
Height = 255
Index = 14
Left = 5400
TabIndex = 17
Top = 2760
Width = 615
End
Begin VB.Label lblLabels
Caption = "十二月"
Height = 255
Index = 15
Left = 5400
TabIndex = 16
Top = 3240
Width = 615
End
End
Begin VB.CommandButton cmdQuery
Caption = "查询"
Height = 300
Left = 1320
TabIndex = 4
Top = 9720
Width = 825
End
Begin VB.Data Data1
Caption = " "
Connect = "Access"
DatabaseName = "D:\千万不要删，求求大家了\吕昕\毕业设计\教师管理系统.mdb"
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 345
Left = 0
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "教师考勤表"
Top = 10200
Width = 10575
End
Begin VB.CommandButton cmdClose
Caption = "关闭(&C)"
Height = 300
Left = 8520
TabIndex = 9
Top = 9720
Width = 825
End
Begin VB.CommandButton cmdUpdate
Caption = "更新(&U)"
Height = 300
Left = 6120
TabIndex = 8
Top = 9720
Width = 825
End
Begin VB.CommandButton cmdRefresh
Caption = "刷新(&R)"
Height = 300
Left = 4920
TabIndex = 7
Top = 9720
Width = 825
End
Begin VB.CommandButton cmdDelete
Caption = "删除(&D)"
Height = 300
Left = 3720
TabIndex = 6
Top = 9720
Width = 825
End
Begin VB.CommandButton cmdAdd
Caption = "添加(&A)"
Height = 300
Left = 2520
TabIndex = 5
Top = 9720
Width = 825
End
Begin VB.TextBox txtFields
DataField = "学院"
DataSource = "Data1"
Height = 285
Index = 3
Left = 5160
MousePointer = 99 'Custom
TabIndex = 3
Top = 480
Width = 1455
End
Begin VB.TextBox txtFields
DataField = "日期"
DataSource = "Data1"
Height = 285
Index = 2
Left = 7800
MousePointer = 99 'Custom
TabIndex = 1
Top = 480
Width = 1455
End
Begin VB.TextBox txtFields
DataField = "编号"
DataSource = "Data1"
Height = 285
Index = 1
Left = 2880
MaxLength = 10
MousePointer = 99 'Custom
TabIndex = 2
Top = 480
Width = 1215
End
Begin VB.TextBox txtFields
DataField = "姓名"
DataSource = "Data1"
Height = 285
Index = 0
Left = 840
MaxLength = 10
MousePointer = 99 'Custom
TabIndex = 0
Top = 480
Width = 975
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "Label1"
ForeColor = &H000000FF&
Height = 255
Left = 120
TabIndex = 28
Top = 120
Width = 6375
End
Begin VB.Label lblLabels
BackStyle = 0 'Transparent
Caption = "学院:"
Height = 255
Index = 3
Left = 4560
TabIndex = 14
Top = 480
Width = 375
End
Begin VB.Label lblLabels
BackStyle = 0 'Transparent
Caption = "日期:"
Height = 255
Index = 2
Left = 7080
TabIndex = 13
Top = 480
Width = 495
End
Begin VB.Label lblLabels
BackStyle = 0 'Transparent
Caption = "编号:"
Height = 255
Index = 1
Left = 2280
TabIndex = 12
Top = 480
Width = 375
End
Begin VB.Label lblLabels
BackStyle = 0 'Transparent
Caption = "姓名:"
Height = 255
Index = 0
Left = 240
TabIndex = 11
Top = 480
Width = 375
End
End
Attribute VB_Name = "frmZgkq"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdAdd_Click()
For i = 0 To 60
txtFields(i).Locked = False
Next
'For j = 0 To 11
'chkFields(j).Enabled = True
'Next
'txtFields(2).Locked = True
'txtFields(2).Text = Date
cmdQuery.Enabled = False
cmdDelete.Enabled = False
cmdRefresh.Enabled = False
cmdUpdate.Enabled = False
cmdAdd.Caption = "确认"
If cmdAdd.Caption = "确认" Then
Data1.Recordset.AddNew
End If
End Sub
Private Sub cmdDataReport_Click()
DataReport5.Show
End Sub
Private Sub cmdDelete_Click()
'如果删除记录集的最后一条记录
If Data1.Recordset.EOF Then Data1.Recordset.MoveLast
If Data1.Recordset.BOF Then Data1.Recordset.MoveFirst
'记录或记录集中唯一的记录
Data1.Recordset.Delete
Data1.Recordset.MoveNext
If Data1.Recordset.EOF Then
cmdDelete.Enabled = False
End If
End Sub
Private Sub cmdQuery_Click()
frmQuery.Show
frmQuery.Label1.Caption = "您现在进行的是教师考勤查询，请选择查询方式！"
frmQuery.Frame1.Visible = False
frmQuery.Option3.Value = True
End Sub
Private Sub cmdRefresh_Click()
'这仅对多用户应用程序才是需要的
Data1.Refresh
End Sub
Private Sub cmdUpdate_Click()
Data1.UpdateRecord
Data1.Recordset.Bookmark = Data1.Recordset.LastModified
End Sub
Private Sub cmdClose_Click()
Unload Me
End Sub
Private Sub Command1_Click()
txtFields(61).Text = Val(txtFields(52)) + Val(txtFields(53)) + Val(txtFields(54)) + Val(txtFields(55)) - Val(txtFields(56)) + Val(txtFields(58)) + Val(txtFields(59)) + Val(txtFields(57)) + Val(txtFields(60))
End Sub
Private Sub Data1_Error(DataErr As Integer, Response As Integer)
'这就是放置错误处理代码的地方
'如果想忽略错误，注释掉下一行代码
'如果想捕捉错误，在这里添加错误处理代码
MsgBox "数据错误事件命中错误：" & Error$(DataErr)
Response = 0 '忽略错误
End Sub
Private Sub Data1_Reposition()
Screen.MousePointer = vbDefault
On Error Resume Next
'这将显示当前记录位置
'为动态集和快照
Data1.Caption = "记录：" & (Data1.Recordset.AbsolutePosition + 1)
'对于 Table 对象，当记录集创建后并使用下面的行时，
'必须设置 Index 属性
'Data1.Caption = "记录：" & (Data1.Recordset.RecordCount * (Data1.Recordset.PercentPosition * 0.01)) + 1
End Sub
Private Sub Data1_Validate(Action As Integer, Save As Integer)
'这是放置验证代码的地方
'当下面的动作发生时，调用这个事件
Select Case Action
Case vbDataActionMoveFirst
Case vbDataActionMovePrevious
Case vbDataActionMoveNext
Case vbDataActionMoveLast
Case vbDataActionAddNew
Case vbDataActionUpdate
Case vbDataActionDelete
Case vbDataActionFind
Case vbDataActionBookmark
Case vbDataActionClose
End Select
'Screen.MousePointer = vbHourglass
End Sub
Private Sub Form_Load()
'frmZgkq.Picture = LoadPicture(App.Path + "\picture\中国娃娃1.bmp")
Data1.DatabaseName = App.Path + "\教师管理系统.mdb"
For i = 0 To 60
txtFields(i).Enabled = True
txtFields(i).MouseIcon = LoadPicture(App.Path + "\picture\checkmrk.ico")
'Next
'For j = 0 To 5
'txtFields(j).Locked = True
'txtFields(j).MouseIcon = LoadPicture(App.Path + "\picture\pencil05.ico")
Next
Label1.Caption = "请注意输入日期格式为：YY年第X学期！"
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -