📄 frmmaim.frm
字号:
MouseIcon = "FrmMaim.frx":9640
ScaleWidth = 145
ScaleMode = 0
BackStyle = 0
End
Begin as97Popup.asPopup aspopup1
Height = 615
Left = 120
Top = 840
Width = 2415
_ExtentX = 4260
_ExtentY = 1085
CustomPicture = "FrmMaim.frx":A03A
MouseOverPicture= "FrmMaim.frx":AA34
MouseDownPicture= "FrmMaim.frx":B70E
Caption = "员工信息管理"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "楷体_GB2312"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = 16711680
UseFrame = 0 'False
MouseOverColor = 255
MouseDownColor = 16711680
MouseIcon = "FrmMaim.frx":C108
ScaleWidth = 161
ScaleMode = 0
BackStyle = 0
End
Begin FlatCom.MoveBar MoveBar1
Align = 1 'Align Top
Height = 270
Left = 0
Top = 0
Width = 8220
_ExtentX = 14499
_ExtentY = 476
BackColor = 16711680
ForeColor = 8438015
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Caption = "射频卡考勤系统 V 1.0"
End
Begin as97Popup.asPopup asPopup5
Height = 615
Left = 240
Top = 2640
Width = 2175
_ExtentX = 3836
_ExtentY = 1085
CustomPicture = "FrmMaim.frx":CB02
MouseOverPicture= "FrmMaim.frx":D4FC
MouseDownPicture= "FrmMaim.frx":E1D6
Caption = "获得相关信息"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "楷体_GB2312"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = 16711680
UseFrame = 0 'False
MouseOverColor = 255
MouseDownColor = 16711680
HyperLink = "www.sohu.com"
MouseIcon = "FrmMaim.frx":EB78
ScaleWidth = 145
ScaleMode = 0
BackStyle = 0
End
Begin as97Popup.asPopup asPopup6
Height = 615
Left = 480
Top = 3840
Width = 1815
_ExtentX = 3201
_ExtentY = 1085
CustomPicture = "FrmMaim.frx":F572
MouseOverPicture= "FrmMaim.frx":FF6C
MouseDownPicture= "FrmMaim.frx":10C46
Caption = "开始考勤"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "楷体_GB2312"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = 16711680
UseFrame = 0 'False
MouseOverColor = 255
MouseDownColor = 16711680
MouseIcon = "FrmMaim.frx":115E8
ScaleWidth = 121
ScaleMode = 0
BackStyle = 0
End
Begin as97Popup.asPopup asPopup7
Height = 615
Left = 480
Top = 4440
Width = 1815
_ExtentX = 3201
_ExtentY = 1085
CustomPicture = "FrmMaim.frx":11FE2
MouseOverPicture= "FrmMaim.frx":129DC
MouseDownPicture= "FrmMaim.frx":136B6
Caption = "结束考勤"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "楷体_GB2312"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = 16711680
UseFrame = 0 'False
MouseOverColor = 255
MouseDownColor = 16711680
ScaleWidth = 121
ScaleMode = 0
BackStyle = 0
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "准备好后，请开始考勤。。。"
ForeColor = &H00FF0000&
Height = 375
Left = 3120
TabIndex = 7
Top = 3240
Width = 3495
End
Begin VB.Shape Shape1
Height = 495
Left = 240
Top = 360
Width = 615
End
End
Attribute VB_Name = "FrmMaim"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub asPopup1_Click(Cancel As Boolean)
FrmUser.Show
FrmUser.Button5.Enabled = False
End Sub
Private Sub asPopup2_Click(Cancel As Boolean)
FrmSet.Show
End Sub
Private Sub asPopup3_Click(Cancel As Boolean)
Dim a As Integer
a = MsgBox("如果您没有结束考勤请选择“取消”。请结束考勤后“确定”退出。", vbExclamation + vbOKCancel + vbApplicationModal, "退出")
If a = 1 Then
Unload Me
Unload FrmSet
Unload FrmUser
Unload FrmMaim
End If
If a = 2 Then
Exit Sub
End If
End Sub
Private Sub asPopup4_Click(Cancel As Boolean)
FrmPrint.Show
End Sub
Private Sub asPopup6_Click(Cancel As Boolean)
Timer2.Interval = 1000
Timer2.Enabled = True
asPopup6.Enabled = False
asPopup7.Enabled = True
End Sub
Private Sub asPopup7_Click(Cancel As Boolean)
Timer2.Enabled = False
Timer3.Enabled = False
Label1.Caption = "考勤已经结束。"
asPopup7.Enabled = False
asPopup6.Enabled = True
'**********关闭串口
err = MCS_Buzzer(0)
If err <> 0 Then
MsgBox "buzzer_err"
End If
err = MCS_LED(1)
err = MCS_ExitComm()
If err <> 0 Then
MsgBox "exitcomm_err"
End If
'********处理未考勤员工
Button2_Click
End Sub
Private Sub Button1_Click()
Data1.Recordset.FindFirst "姓名 ='" & Text1.Text & "'"
If Data1.Recordset.NoMatch = True Then
Label1.Caption = "没有该用户!请仔细核对."
Beep
Exit Sub
End If
'********判断是否迟到
Dim MyTime
Dim MyStr As String
'MyTime = TimeValue("10:00:00 AM")
If Time < TimeValue("1:00:00 PM") Then
MyTime = Data3.Recordset("早上班")
Else
MyTime = Data3.Recordset("午上班")
End If
If Time < MyTime Then
' MyStr = "恭喜 您准时上班！" & "" & Date & "日, " & Text1.Text & "上班时间" & Time & ""
MyStr = "OK"
Label1.Caption = MyStr
Else
' MyStr = "对不起 您迟到了！ " & "" & Date & "日, " & Text1.Text & "上班时间" & Time & ""
MyStr = "LATE"
Label1.Caption = MyStr
End If
'**********判断是否迟到over
Data2.Recordset.FindFirst "姓名 ='" & Text1.Text & "'"
If Data2.Recordset.NoMatch = True Then
'********第一次考勤处理
Label1.Caption = "第一次使用."
'********数据操作
Data2.Recordset.AddNew
Data2.Recordset("员工_ID") = Data1.Recordset("ID")
Data2.Recordset("姓名") = Data1.Recordset("姓名")
Data2.Recordset("日期") = Date
Data2.Recordset("备注") = MyStr
Data2.Recordset("考勤时间") = Time
Data2.Recordset.Update
Label1.Caption = Text1.Text & "刷卡成功"
List1.AddItem CStr(Text1.Text) & CStr(Time) & " " & MyStr
Else
'*******第二次以后处理
Data2.Recordset.FindLast "姓名 ='" & Text1.Text & "'"
If Data2.Recordset("日期") = Date Then
Label1.Caption = Text1.Text & "今天已经刷过卡"
Beep
Beep
Exit Sub
End If
'********数据操作
Data2.Recordset.AddNew
Data2.Recordset("员工_ID") = Data1.Recordset("ID")
Data2.Recordset("姓名") = Data1.Recordset("姓名")
Data2.Recordset("日期") = Date
Data2.Recordset("备注") = MyStr
Data2.Recordset("考勤时间") = Time
Data2.Recordset.Update
Label1.Caption = Text1.Text & "刷卡成功"
Beep
Beep
Beep
List1.AddItem CStr(Text1.Text) & CStr(Time) & " " & MyStr
End If
End Sub
Private Sub Command1_Click()
End Sub
Private Sub Button2_Click()
'***************获得员工信息表记录条数
Data1.Recordset.MoveLast
Dim i, MyCount As Integer
MyCount = Data1.Recordset.RecordCount
Data1.Recordset.MoveFirst
For i = 1 To MyCount
'Dim MyName As String
'MyName = Data1.Recordset("姓名")
Text1.Text = Data1.Recordset("姓名")
Data2.Recordset.FindFirst "姓名 ='" & Text1.Text & "'"
If Data2.Recordset.NoMatch = True Then
'********第一次未考勤处理
Label1.Caption = "第一次使用."
'********数据操作
Data2.Recordset.AddNew
Data2.Recordset("员工_ID") = Data1.Recordset("ID")
Data2.Recordset("姓名") = Data1.Recordset("姓名")
Data2.Recordset("日期") = Date
Data2.Recordset("备注") = "NO"
Data2.Recordset("考勤时间") = TimeValue("00:00:00 AM")
Data2.Recordset.Update
Label1.Caption = Text1.Text & " 未考勤！"
List1.AddItem CStr(Text1.Text) & " 未考勤！"
Else
'*******第二次以后处理
Data2.Recordset.FindLast "姓名 ='" & Text1.Text & "'"
If Data2.Recordset("日期") = Date Then
Label1.Caption = Text1.Text & "今天已经处理过考勤！"
Else
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -