【正文】 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。 ,39。 ccTime amp。 optaleave(1).Caption amp。 where departmentId = amp。 ,祝你今天下午工作愉快！ MsgBox 登記成功！ End If End If Else MsgBox 不登記 End If Else If MsgBox(確定要 amp。 amp。 departId amp。 workerId amp。 worktype amp。 and workday= amp。 , mleaveTime =39。 worktype amp。 departId amp。 () amp。 39。 m_txtdepartID ElseIf m_txtdepartName Then strSql = select departmentId as 部門編號 , departmentName as 部門名稱 _ amp。 RowNumber TransactSQL (strSql) DisConnect MsgBox 刪除成功 , vbInformation, strSql = select departmentId as 部門編號 , departmentName as 部門名稱 from TDepartment RefreshData adodcDepManage, dgDepManage, strSql Exit Sub End If End Sub Private Sub cmdUpdate_Click() If RowNumber = 1 Then MsgBox 請先選擇要修改的數(shù)據(jù) ! Exit Sub End If vbModal End Sub Private Sub Comselect_Click() Dim m_txtdepartID As String Dim m_txtdepartName As String m_txtdepartID = Trim() m_txtdepartName = Trim() If (m_txtdepartID = And m_txtdepartName = ) Then strSql = select departmentId as 部門編號 , departmentName as 部門名稱 from TDepartment ElseIf (m_txtdepartID And m_txtdepartName ) Then strSql = select departmentId as 部門編號 , departmentName as 部門名稱 _ amp。 dtpEndDate amp。 () amp。 在上面的實體和實體之間的 ER 圖設計基礎上，將 ER 圖轉(zhuǎn)化為關系模型，形成數(shù)據(jù)庫中的表格及表格之間的關系。 包括序列號、編號、簽到時間、簽離時間等信息。 在這里我們將要設計的是數(shù)據(jù)庫的概念模式。 程序使用三層架構思想，采用完全面向?qū)ο蟮乃枷敕椒ㄔO計。 對傳統(tǒng)管理理念的沖擊，可能引起管理層的變動和人員調(diào)整。同時由于邏輯不是太復雜，估計可以按時完成此項目。 第二章 信息系統(tǒng)分析 可行性分析 目前，計算機在我國的 考勤 管理工作中，主要可用來進 行報表處理，檔案管理，文書編輯，信息查詢，綜合分析。 隨著現(xiàn)代科技的進步，用計算機來進行考勤的管理也成為現(xiàn)代化企業(yè)運作必不可少的一部分。目錄 第一章 信息系統(tǒng)概況 ...................................... 3 選題介紹 .................................................... 3 課程設計小組基本情況介紹 ................... 錯誤 !未定義書簽。在過去我們的考勤工作都是人工完成的，不僅浪費了很多的人力跟物力，而且無法保證其準確性和透明度，給企業(yè)的管理帶來了許多的不便。 查詢 統(tǒng)計作為 考勤 管理的一個重要組成部分，是通過對 考勤 情況的調(diào)查，整理和分析，了解 考勤情況 的發(fā)展趨勢，為各級領導機關制定 考出勤 的方針，政策，加強干部管理，改革干部制度提供準確數(shù)字的依據(jù)。 考勤管理系統(tǒng)是工作主要是在職工和管理都有之間架起一座橋梁，能相互溝通信 息和處理信息。對 于企業(yè)管理人員的要求提高，使企業(yè)在一定的可能下進行機構精簡，迫使工作人員繼續(xù)學習新知識，拓寬企業(yè)在市場競爭環(huán)境下的生存空間。 系統(tǒng)在進行相關操作如刪除員工信息時使用了存儲過程。 通過對職工出勤管理系統(tǒng)的內(nèi)容和數(shù)據(jù)流程分析及 ER 圖，設計如下數(shù)據(jù)項和數(shù)據(jù)結(jié)構： 信息 。 。 該數(shù)據(jù)庫 由 5 個表組成，部門表、超級用戶表、用戶表、考勤表、考勤歷史表。 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。 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。 from TDepartment where departmentId = amp。 from TDepartment where departmentName like 39。 where departmentId= 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。 , amp。 ) TransactSQL (strSql) = False = True = 歡迎 amp。 amp。 today amp。 , astartTime =39。 and workday= amp。 , amp。 nowtime amp。 optaleave(1).Caption amp。 departId amp。 ,祝你生活幸福！ MsgBox 登 記成功！ Else MsgBox 你已經(jīng)下班，不必再登記！ End If Else MsgBox 對不起 ，你還沒有上班，請先上班！ , vbOKOnly + vbExclamation, 請遵守公司上下班秩序 End If End If Else MsgBox 不登記