【正文】 As String aa = Input Box(輸入員工編號 ) If aa = Then Exit Sub Else If Not Then End If Do While Not If ! 員工編號 = aa Then Exit Do Else End If Loop If Then MsgBox 沒有這個員工 , 48, 公司考勤系統(tǒng) Exit Sub Else If Not Then End If Do While Not If !員工編號 = aa Then MsgBox 此人已經(jīng)簽到 , 48, 公司考勤系統(tǒng) Exit Sub Else End If Loop End If 27 !員工編號 = aa !簽到日期 = Date = 1000 End If End Sub Private Sub Command3_Click() End Sub Private Sub Command4_Click() If Then Unload ziliao If Not Then End If Do While Not If !員工編號 = Trim() Then transdata = Exit Do Else End If Loop If Then MsgBox 沒有這個管理員 , 48, 公司考勤系統(tǒng) End If Else MsgBox 請先輸入員工編號 , 48, 公司考勤系統(tǒng) End If End Sub Private Sub Command5_Click() If Not Then End If If Then Do While Not If !部門 = Then amp。 amp。 28 ! 員工姓名 amp。 amp。 !員工 編號 amp。 amp。 !性別 amp。 amp。 !年齡 End If Loop = 500 Else Do While Not If ! 員工姓名 = Trim() Then amp。 amp。 ! 員工姓名 amp。 amp。 !員工編號 amp。 amp。 !性別 amp。 amp。 !年齡 End If Loop = 500 End If If = 0 Then MsgBox 找不到符合條件的員工！ , 48, 公司考勤系統(tǒng) End If End Sub Private Sub Command6_Click() = 500 End Sub Private Sub Command7_Click() If = Then = Year (Now) End If If And Then If Not Then End If Do While Not If ! 員工編號 = Trim() Then = ! 員工姓名 = ! 性別 = ! 年齡 Exit Do Else End If 29 Loop If Then MsgBox 沒有這個員工 , 48, 公司考勤系統(tǒng) Exit Sub End If If Not Then End If Do While Not If = Month(!簽到日期 ) And = Year(!簽到日期 ) And !員工編號 = Trim() Then !簽到日期 = Str$() = Str$( * 10) End If Loop Else MsgBox 請輸入員工編號或月份 , 48, 公司考勤系統(tǒng) End If End Sub Private Sub Command8_Click() = = = = = End Sub Private Sub Command9_Click() If Then If Not Then End If !部門 = = 1000 30 = End If End Sub Private Sub Form_Load() = False Call Label1_Click(0) = True = False = True End Sub Private Sub hide_Click() End Sub Private Sub hidee_Click() = 7785 = False For i = 0 To 8 Picture1(i).Left = 1440 Next i = True End Sub Private Sub Label1_Click(Index As Integer) Label1(0).BorderStyle = 0 Label1(1).BorderStyle = 0 Label1(2).BorderStyle = 0 Label1(3).BorderStyle = 0 Label1(4).BorderStyle = 0 Label1(5).BorderStyle = 0 Label1(6) .BorderStyle = 0 Label1(7).BorderStyle = 0 Label1(8).BorderStyle = 0 Select Case Index Case 0 Label1(0).BorderStyle = 1 Call hidall Picture1(Index).Visible = True Case 1 Label1(1).BorderStyle = 1 Call hidall Picture1(Index).Visible = True Case 2 31 Label1(2).BorderStyle = 1 Call hidall Picture1(Index).Visible = True = True = False = True Case 3 Label1(3).BorderStyle = 1 Call hidall Picture1(Index).Visible = True Case 4 Label1(4).BorderStyle = 1 Call hidall Picture1(Index).Visible = True Case 5 Label1(5).BorderStyle = 1 Call hidall Picture1(Index).Visible = True Case 6 Label1(6) .BorderStyle = 1 Call hidall Picture1(Index).Visible = True Case 7 Label1(7).BorderStyle = 1 Call hidall Picture1(Index).Visible = True Case 8 Label1(10).BorderStyle = 1 Call hidall End End Select End Sub Private Sub Label1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single) Label1(0).ForeColor = amp。H80000002 Label1(1).ForeColor = amp。H80000002 Label1(2).ForeColor = amp。H80000002 Label1(3).ForeColor = amp。H80000002 Label1(4).ForeColor = amp。H80000002 Label1(5).ForeColor = amp。H80000002 Label1(6) .ForeColor = amp。H80000002 Label1(7).ForeColor = amp。H80000002 Label1(8).ForeColor = amp。H80000002 32 Label1(Index).ForeColor = amp。H80000009 End Sub Private Sub List1_DblClick() transdata = Val(Trim(Left(, 5))) End Sub Private Sub Option1_Click() = False = True = False End Sub Private Sub Option2_Click() = False = False = True End Sub Private Sub Text7_Change() If Len() 6 Then = End If End Sub Private Sub Text8_Change() If Len() 10 Then = End If End Sub Private Sub Text9_Change() If Len() 10 Then = End If End Sub Private Sub Timer1_Timer() 33 = 0 End Sub Private Sub hidall() Picture1(0).Visible = False Picture1(1).Visible = False Picture1(2).Visible = False Picture1(3).Visible = False Picture1(4).Visible = False Picture1(5).Visible = False Picture1(6) .Visible = False Picture1(7).Visible = False Picture1(8).Visible = False End Sub