【正文】 order by workerId Set rs = TransactSQL(strSql) Do While Not ((2).Value) () = (1).Value Loop = 0 End SubPrivate Sub cmdPrint_Click() Set = (1).Controls(1).Caption = 請假情況統(tǒng)計表 (2).Controls(1).Caption = 部門名稱 (2).Controls(2).Caption = 員工名稱 (2).Controls(3).Caption = 請假時間 (2).Controls(4).Caption = 請假天數(shù) (2).Controls(5).Caption = 登記時間 (2).Controls(6).Caption = 請假原因 (2).Controls(7).Caption = 銷假時間 (3).Controls(1).DataField = 部門名稱 (3).Controls(2).DataField = 員工名稱 (3).Controls(3).DataField = 請假時間 (3).Cont。 Now()txtqjLength = Exit SubElse = = FalsedjTime = DateAdd(h, qjLength, qjTime)End If = djTimeEnd Sub 請假情況Dim strSql As StringDim rs As New RecordsetPrivate Sub cboDept_Click() strSql = Select * from TWorker where departmentId= amp。 Set rs = TransactSQL(strSql) If = False Then yanzheng = True Else yanzheng = False End If End FunctionPublic Function yanzhengPWD(ByVal labwele As Label, ByVal psw As String, workerPsw As String) As BooleanDo While psw workerPsw = True = 你的身份被懷疑啦，請?jiān)俅屋斎肽愕膯T工密碼！ pwdCount = pwdCount + 1 If pwdCount = 3 Then MsgBox 你已經(jīng)是三次輸錯，系統(tǒng)將關(guān)閉啦！, vbOKOnly + vbExclamation, 通知 yanzhengPWD = False Exit Function End If psw = InputBox(請輸入員工密碼：, 輸入密碼)LoopyanzhengPWD = TrueEnd FunctionPrivate Sub tabDJ_Click(PreviousTab As Integer) = TrueEnd SubPrivate Sub txtccLength_Change() = ccTime = If = ThenMsgBox 請輸入請假時長！ElseIf Asc() 48 Or Asc() 57 ThenMsgBox 請輸入數(shù)字！ = Exit SubElseccLength = End IfIf IsDate(ccTime) = False ThenMsgBox 時間格式不對！ = True = 時間格式： amp。 and workday= amp。 and workerId = amp。 Set rs = TransactSQL(strSql) If (0).Value = 0 Then alrecord = True Else alrecord = False End If End Function Public Sub getTime()strSql = Select * from TWorkTimeSet rs = TransactSQL(strSql)If Not Then mstart = (0) mleave = (1) astart = (2) aleave = (3)End Ifnowtime = Time()today = DateEnd SubPublic Function yanzheng(cdepartId As Integer, cworkerId As Integer, ctoday As String) As BooleanstrSql = select * from TShangBan where departmentId = amp。 and workday= amp。 and workerId = amp。 Set rs = TransactSQL(strSql) If (0).Value = 0 Then asrecord = True Else asrecord = False End If End FunctionPublic Function alrecord(cdepartId As Integer, cworkerId As Integer, ctoday As String) As BooleanstrSql = select workalType from TShangBan where departmentId = amp。 and workday= amp。 and workerId = amp。 Set rs = TransactSQL(strSql) If (0).Value = 0 Then mlrecord = True Else mlrecord = False End If End FunctionPublic Function asrecord(cdepartId As Integer, cworkerId As Integer, ctoday As String) As BooleanstrSql = select workasType from TShangBan where departmentId = amp。 and workday= amp。 and workerId = amp。) TransactSQL (strSql)MsgBox 登記成功End If End SubPrivate Sub cmdokUserLogin_Click()Dim m_clsUser As clsUserDim p_enumUserLogin As USERLOGIN Set m_clsUser = New clsUser p_enumUserLogin = (Trim(), Trim(), frmUserLogin) If p_enumUserLogin = LOGERROR Then Exit Sub ElseIf p_enumUserLogin = LOGSUPER Then Unload frmNormalUserMain ElseIf p_enumUserLogin = LOGNORMAL Then Unload MDIfrmAdminMain End IfEnd SubPrivate Sub Form_Load()Dim nowtime As String = Falsenowtime = Time()If Hour(nowtime) 13 Then = True = FalseElse = False = TrueEnd IfstrSql = Select * from TDepartment order by departmentId Set rs = TransactSQL(strSql) Do While Not ((1).Value) () = (0).Value ((1).Value) () = (0).Value ((1).Value) () = (0).Value Loop = 0 = 0 = 0 = Now() = = False = Now() = = = FalseEnd SubPrivate Sub Form_Unload(Cancel As Integer) Unload frmUserLoginEnd SubPublic Function mlrecord(cdepartId As Integer, cworkerId As Integer, ctoday As String) As BooleanstrSql = select workmlType from TShangBan where departmentId = amp。 qjReason amp。,39。 djTime amp。 ,39。, amp。 qjTime amp。 ,39。 , amp。 Now() Exit SubElse = FalseqjReason = Trim()strSql = insert into TQingJia (departmentId,workerId,qjTime,qjLength,djTime,qjReason) values( _ amp。 39。 amp。 39。 amp。 ccLength amp。 39。 amp。 39。 amp。 workerId amp。 departId amp。 ,祝你生活幸福！ MsgBox 登記成功！ Else MsgBox 你已經(jīng)下班，不必再登記！ End If Else MsgBox 對不起，你還沒有上班，請先上班！, vbOKOnly + vbExclamation, 請遵守公司上下班秩序 End If End If Else MsgBox 不登記 End If End IfEnd IfEnd SubPrivate Sub cmdOKCC_Click()Dim departId As IntegerDim workerId As IntegerdepartId = ()workerId = ()If = Or = Or = Or = Then MsgBox 登記項(xiàng)目不能有空值 Exit SubElseIf IsDate() = False ThenMsgBox 時間格式不對！ = True = 時間格式： amp。 amp。 today amp。 workerId amp。 departId amp。 39。 amp。 worktype amp。 optaleave(1).Caption amp。 optastart(0).Caption amp。 ) TransactSQL (strSql) = False = True