?? 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 = "射頻卡考勤系統(tǒng) 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 = "獲得相關(guān)信息"
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 = "結(jié)束考勤"
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 = "準(zhǔn)備好后，請開始考勤。。。"
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("如果您沒有結(jié)束考勤請選擇“取消”。請結(jié)束考勤后“確定”退出。", 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 = "考勤已經(jīng)結(jié)束。"
asPopup7.Enabled = False
asPopup6.Enabled = True
'**********關(guān)閉串口
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 = "沒有該用戶!請仔細(xì)核對."
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 = "恭喜 您準(zhǔn)時(shí)上班！" & "" & Date & "日, " & Text1.Text & "上班時(shí)間" & Time & ""
MyStr = "OK"
Label1.Caption = MyStr
Else
' MyStr = "對不起 您遲到了！ " & "" & Date & "日, " & Text1.Text & "上班時(shí)間" & Time & ""
MyStr = "LATE"
Label1.Caption = MyStr
End If
'**********判斷是否遲到over
Data2.Recordset.FindFirst "姓名 ='" & Text1.Text & "'"
If Data2.Recordset.NoMatch = True Then
'********第一次考勤處理
Label1.Caption = "第一次使用."
'********數(shù)據(jù)操作
Data2.Recordset.AddNew
Data2.Recordset("員工_ID") = Data1.Recordset("ID")
Data2.Recordset("姓名") = Data1.Recordset("姓名")
Data2.Recordset("日期") = Date
Data2.Recordset("備注") = MyStr
Data2.Recordset("考勤時(shí)間") = 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 & "今天已經(jīng)刷過卡"
Beep
Beep
Exit Sub
End If
'********數(shù)據(jù)操作
Data2.Recordset.AddNew
Data2.Recordset("員工_ID") = Data1.Recordset("ID")
Data2.Recordset("姓名") = Data1.Recordset("姓名")
Data2.Recordset("日期") = Date
Data2.Recordset("備注") = MyStr
Data2.Recordset("考勤時(shí)間") = 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()
'***************獲得員工信息表記錄條數(shù)
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 = "第一次使用."
'********數(shù)據(jù)操作
Data2.Recordset.AddNew
Data2.Recordset("員工_ID") = Data1.Recordset("ID")
Data2.Recordset("姓名") = Data1.Recordset("姓名")
Data2.Recordset("日期") = Date
Data2.Recordset("備注") = "NO"
Data2.Recordset("考勤時(shí)間") = 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 & "今天已經(jīng)處理過考勤！"
Else
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -