【正文】 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。 today amp。 departId amp。 amp。 optaleave(1).Caption amp。 ) TransactSQL (strSql) = False = True = 歡迎 amp。 nowtime amp。 today amp。 , amp。 optastart(0).Caption amp。 and workday= amp。 where departmentId = amp。 , astartTime =39。 ,祝你生活幸福！ MsgBox 登記成功！ Else MsgBox 你已經(jīng)下班，不必再登記！ End If Else MsgBox 對不起，你還沒有上班，請先上班！ , vbOKOnly + vbExclamation, 請遵守公司上下班秩序 End If End If Else MsgBox 不登記 End If End If Else If optastart(0).Value = True Then If MsgBox(確定要 amp。 today amp。 departId amp。 amp。 amp。 ) TransactSQL (strSql) = False = True = 歡迎 amp。 , amp。 , amp。 amp。 order by workerId Set rs = TransactSQL(strSql) Do While Not ((2).Value) () = (1).Value Loop = 0 . . End Sub Private Sub cmdOk_Click() Dim psw As String Dim worktype As Integer Dim workerPsw As String Dim pwdCount As Integer pwdCount = 0 Dim departId As Integer Dim workerId As Integer departId = () workerId = () strSql = select workerPsw from TWorker where departmentId= amp。 order by workerId Set rs = TransactSQL(strSql) Do While Not ((2).Value) () = (1).Value Loop = 0 End Sub Private Sub cboYourDepCC_Click() strSql = Select * from TWorker where departmentId= amp。 where departmentId= amp。 End If RefreshData adodcDepManage, dgDepManage, strSql End Sub Private Sub dgDepManage_Click() On Error GoTo ShowErr: If IsNull() Then RowNumber = 1 Exit Sub Else RowNumber = (0).CellValue() End If RowNumber ShowErr: Exit Sub End Sub . . Private Sub dgDepManage_DblClick() On Error GoTo ShowErr: If IsNull() Then RowNumber = 1 Exit Sub Else RowNumber = (0).CellValue() End If RowNumber vbModal ShowErr: Exit Sub End Sub Private Sub Form_Load() RowNumber = 1 End Sub 更新部門 Option Explicit Dim strSql As String Dim rsDep As New Dim m_irownumber As Integer Dim m_iDepartId As Integer Dim m_strDepartName As String Private Sub cmdOk_Click() If = Then MsgBox 登記項目不能有空值 Exit Sub Else m_iDepartId = CInt() m_strDepartName = Trim() strSql = update TDepartment set departmentName=39。 from TDepartment where departmentName like 39。 m_txtdepartName amp。 from TDepartment where departmentId = amp。 departName amp。 . . ConnectToDB RefushDataGrid adodcChuChai, dgChuChai, strSql DisConnect End Sub Private Sub Form_Load() strSql = Select * from TDepartment order by departmentId Set rs = TransactSQL(strSql) Do While Not ((1).Value) () = (0).Value Loop = 0 End Sub 添加部門 Dim departId As Integer Dim departName As String If = Then MsgBox 部門名稱不能有空值 Exit Sub Else departId = Trim() departName = Trim() strSql = insert into TDepartment (departmentId,departmentName) values( _ amp。 and = and = and = and between amp。 order by workerId Set rs = TransactSQL(strSql) Do While Not ((2).Value) () = (1).Value Loop = 0 End Sub Private 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 = 出差地點 (2).Controls(5).Caption = 出差天數(shù) (2).Controls(6).Caption = 登記時間 (2).Controls(7).Caption = 銷差時間 (2).Controls(8).Caption = 出差備注 (3).Controls(1).DataField = 部門名稱 (3).Controls(2).DataField = 員工名稱 (3).Controls(3).DataField = 出差時間 (3).Controls(4).DataField = 出差地點 (3).Controls(5).DataField = 出差天數(shù) (3).Controls(6).DataField = 登記時間 (3).Controls(7).DataField = 銷差時間 (3).Controls(8).DataField = 出差備注 End Sub Private Sub cmdQuery_Click() strSql = select as 部門名稱 , as 員工名稱 , as 出差時間 , as 出差地點 , as 出差天數(shù) , as 登記時間 , as 銷差時間 , as 出差備注 from TDepartment a, TWorker b,TChuChai c where = amp。例如：婁京兆是 2020 年生產(chǎn)部招收的第一位員工，那么他的 ID 就是 071301。 該數(shù)據(jù)庫 由 5 個表組成，部門表、超級用戶表、用戶表、考勤表、考勤歷史表。 。 。 信息 。 通過對職工出勤管理系統(tǒng)的內容和數(shù)據(jù)流程分析及 ER 圖，設計如下數(shù)據(jù)項和數(shù)據(jù)結構： 信息 。對數(shù)據(jù)庫的關鍵數(shù)據(jù)應要求保密。 系統(tǒng)在進行相關操作如刪除員工信息時使用了存儲過程?；拘畔⒐芾戆ü?jié)假日日期設置、部門信息管理和員工信息管理。對 于企業(yè)管理人員的要求提高，使企業(yè)在一定的可能下進行機構精簡，迫使工作人員繼續(xù)學習新知識，拓寬企業(yè)在市場競爭環(huán)境下的生存空間。 (3) 投資回收周期 根據(jù)經(jīng)驗算法 ，收益的累計數(shù)開始超過支出的累計數(shù)的時間為 1 年。 考勤管理系統(tǒng)是工作主要是在職工和管理都有之間架起一座橋梁，能相互溝通信 息和處理信息。實現(xiàn) 考勤 管理現(xiàn)代化是一個復雜的系統(tǒng)工程，需要采取科學的管理方法和先進的科技手段。 查詢 統(tǒng)計作為 考勤 管理的一個重要組成部分，是通過對 考勤 情況的調查，整理和分析，了解 考勤情況 的發(fā)展趨勢，為各級領導機關制定 考出勤 的方針，政策，加強干部管理，改革干部制度提供準確數(shù)字的依據(jù)。通過考勤系統(tǒng)我們能很容易地