【導讀】課程設計小組各成員所承擔的課程設計的任務.錯誤!當今社會，計算機已經十分普及，性能也日趨完善。它已經被應用于許多領。比如說，小到圖書館的圖書管理，超市或網吧的收費管理，KTV的點歌系統(tǒng)，大到航空、鐵路的售票，全國人口戶籍的管理等等。在過去我們的考勤工作都是人工完成的，不僅浪費了很多的人力。跟物力，而且無法保證其準確性和透明度，給企業(yè)的管理帶來了許多的不便。作效率，使原本復雜和枯燥無味的工作變得簡單而輕松了，而且也實用、安全。思想起著不可估量的作用。實踐證明信息技術已在企業(yè)的管理層面扮演越來越重。通過考勤系統(tǒng)我們能很容易地對公司員工的信息有一個基本的了解，業(yè)的信息化建設已成為現(xiàn)代各個企業(yè)發(fā)展的需要。所以說，考勤管理系統(tǒng)的開發(fā)。具有非常重要的意義。理，文書編輯，信息查詢，綜合分析。查詢統(tǒng)計作為考勤管理的一個重要組成部

　　

【正文】 psw = InputBox(請輸入員工密碼： , 輸入密碼) If yanzhengPWD(labwele, psw, workerPsw) = False Then Exit Sub = False Else Call getTime If DateDiff(s, nowtime, astart) = 0 Then worktype = 6 Else worktype = 4 End If If yanzheng(departId, workerId, today) Then If asrecord(departId, workerId, today) Then strSql = update TShangBan set workasType = amp。 worktype amp。 , astartTime =39。 amp。 nowtime amp。 39。 where departmentId = amp。 departId amp。 and workerId = amp。 workerId amp。 and workday= amp。 today amp。 TransactSQL (strSql) = False = True = amp。 amp。 optastart(0).Caption amp。 ,祝你今天下午工作愉快！ MsgBox 登記成功！ Else MsgBox 你已經上班，不必再登記！ End If Else strSql = insert into TShangBan (departmentId,workerId,workday,astartTime,workasType) amp。 _ values( amp。 departId amp。 , amp。 workerId amp。 ,39。 amp。 today amp。 39。,39。 amp。 nowtime amp。 39。, amp。 worktype amp。 ) TransactSQL (strSql) = False = True = 歡迎 amp。 amp。 optastart(0).Caption amp。 ,祝你今天下午工作愉快！ MsgBox 登記成功！ End If End If Else MsgBox 不登記 End If Else If MsgBox(確定要 amp。 optaleave(1).Caption amp。 么？ , vbOKCancel) = vbOK Then psw = InputBox(請輸入員工密碼： , 輸入密碼) If yanzhengPWD(labwele, psw, workerPsw) = False Then Exit Sub = False Else Call getTime If DateDiff(s, nowtime, aleave) = 0 Then worktype = 6 Else worktype = 3 End If If yanzheng(departId, workerId, today) Then If alrecord(departId, workerId, today) Then strSql = update TShangBan set workalType = amp。 worktype amp。 , aleaveTime =39。 amp。 nowtime amp。 39。 where departmentId = amp。 departId amp。 and workerId = amp。 workerId amp。 and workday= amp。 today amp。 TransactSQL (strSql) = False = True = amp。 amp。 optaleave(1).Caption amp。 ,祝你生活幸福！ MsgBox 登 記成功！ Else MsgBox 你已經下班，不必再登記！ End If Else MsgBox 對不起 ，你還沒有上班，請先上班！ , vbOKOnly + vbExclamation, 請遵守公司上下班秩序 End If End If Else MsgBox 不登記 End If End If End If End Sub Private Sub cmdOKCC_Click() Dim departId As Integer Dim workerId As Integer departId = () workerId = () If = Or = Or = Or = Then MsgBox 登記項目不能有空值 Exit Sub ElseIf IsDate() = False Then MsgBox 時間格式不對！ = True = 時間格式： amp。 Now() Exit Sub Else = = False ccArea = Trim() ccContent = Trim() strSql = insert into TChuChai (departmentId,workerId,ccTime,ccArea,ccLength,dcTime,ccContent) values( _ amp。 departId amp。 , amp。 workerId amp。 ,39。 amp。 ccTime amp。 39。,39。 amp。 ccArea amp。 39。, amp。 ccLength amp。 ,39。 amp。 dcTime amp。 39。,39。 amp。 ccContent amp。 39。) TransactSQL (strSql) MsgBox 登記成功 End If End Sub Private Sub cmdOKQJ_Click() Dim departId As Integer Dim workerId As Integer departId = () workerId = () If = Or = Or = Then MsgBox 登記項目不能有空值 Exit Sub ElseIf IsDate(txtqjTime) = False Then MsgBox 時間格式不對！ = True = 時間格式： amp。 Now() Exit Sub Else = False qjReason = Trim() strSql = insert into TQingJia (departmentId,workerId,qjTime,qjLength,djTime,qjReason) values( _ amp。 departId amp。 , amp。 workerId amp。 ,39。 amp。 qjTime amp。 39。, amp。 qjLength amp。 ,39。 amp。 djTime amp。 39。,39。 amp。 qjReason amp。 39。) TransactSQL (strSql) MsgBox 登記成功 End If End Sub Private Sub cmdokUserLogin_Click() Dim m_clsUser As clsUser Dim p_enumUserLogin As USERLOGIN Set m_clsUser = New clsUser p_enumUserLogin = (Trim(), Trim(), frmUserLogin) If p_enumUserLogin = LOGERROR Then Exit Sub Els