【正文】 6 WorkTime 工作時間表 列 名 數(shù) 據(jù) 類 型 可 否 為 空 說 明 StartTimeAM 日期 NOTNULL 上午上班時間 EndTimeAM 日期 NOTNULL 上午下班時間 StartTimePM 日期 NOTNULL 下午上班時間 EndTimePM 日期 NOTNULL 下午下班時間 表 47 InOut 出入情況表 列 名 數(shù) 據(jù) 類 型 可 否 為 空 說 明 Code 文本（ 1） NOTNULL 出入代碼 Description 文本（ 1） NOTNULL 出入描述 表 48 Person 員工基本信息表 列 名 數(shù) 據(jù) 類 型 可 否 為 空 說 明 ID 文本（ 6） NOTNULL 員工標號 PassWord 文本（ 50） NOTNULL 員工密碼 Name 文本（ 50） NULL 員工姓名 Gender 文本（ 1） NOTNULL 性別 Birthday NOTNULL 生日 Department 文本（ 3） NULL 部門 Job 文本（ 3） NULL 職位 Edulevel 文本（ 10） NULL 教育程度 Specialty 文本（ 50） NULL 專業(yè) Address 文本（ 50） NULL 住址 Tel 文本（ 20） NULL 電話 Email 文本（ 50） NULL Email 14 State 文本（ 1） NULL 狀態(tài) Remark 文本（ 50） NULL 備注 表 49 Department 部門信息表 列 名 數(shù) 據(jù) 類 型 可 否 為 空 說 明 ID 文本（ 3） NOTNULL 部門標號 Name 文本（ 20） NOTNULL 部門名稱 Manager 文本（ 6） NULL 部門經(jīng)理 Intro 文本（ 50） NULL 簡介 第五章 詳細設計 登錄窗體 設計 依據(jù)需求分析，啟動系統(tǒng)時，最先出現(xiàn)的就是“登 錄”窗體，如圖 所示，用戶登錄可作為獨立窗體，名稱為 ，選擇“工程” |“工程 |屬性”命令，在“啟動對象”下拉列表框中選擇“ frmLogin”選項。也可以點擊取消以取消登錄。 數(shù)據(jù)管理 ……… 員工 管理 ……… 數(shù)據(jù)庫管理 ……… 項目 管理 IC 卡管理 ………… ..發(fā)新卡 考勤機管理 ………… ..考勤機時間設置 應用 ……… 打卡數(shù)據(jù)采集 ……… .班次定義 ……… .日常 排班 ……… .手工補記 ……… .請假登記 ……… .其他缺席登記 報表中心 ……… 日動態(tài)考勤報表 ……… 打卡流水報表 ……… 考勤明細報表 ……… 考勤月報表 退出 ……… .確定 ……… .取消 17 5． 3 員工管理窗體 設計 員工管理主要是員工的信息進行添加、保存、修改、刪除、查詢，以及對員工的 IC 卡進行標記管 理。還有一重要功能就是對員工信息的查詢，這主要會在查詢窗體中體現(xiàn)。這是主要的三大請假類型，我們還可以依照實際情況對請假的項目進行添加或刪除，比如說員工家里有人故去，可以添加一個喪假類型，在此就不進行演示了，點擊“添加”按鈕即可實現(xiàn)此功能。其中獲取考勤機時間即獲取計算機的當前時間，免去了輸入時間的繁瑣。單擊“執(zhí)行查詢”按鈕，下面的黃色區(qū)域就會自行根 據(jù)我們選擇的條件顯示出符合條件的信息。主要是提示用戶是不是真的要退出，以防止用戶不小心點了退出其余并不是想現(xiàn)在退出。 測試的項目： ? 數(shù)據(jù)管理 ? IC 卡管理 ? 考勤機管理 ? 應用 ? 報表中心 ? 退出 測試 方法： 整個系統(tǒng)測試方法包括功能測試、回歸測試、負載測試、文檔測試。在系統(tǒng)交付前作一次完成的系統(tǒng)回歸測試。主 要采用走查的方式進行。 27 結(jié)論 經(jīng)過 幾個月來 的設計，“考勤管理 信息 系統(tǒng)” 已經(jīng)基本設計完成。 在整個設計過程中，主要 的工作有： 模塊的頁面設計及功能的設計實現(xiàn)。 力求對數(shù)據(jù)庫操作的安全與穩(wěn)定，盡量避免數(shù)據(jù)庫操作異常，并要保證查詢的 快速無誤。對于這樣的軟件開發(fā)，由于沒有相應的切合實際的需求分析，所以在開發(fā)過程中遇到了許多棘手的問題。 28 參考文獻 [1] 劉韜． Visual Basic 數(shù)據(jù)庫系統(tǒng)開發(fā)實例導航 ［ M］ ． 北京 ：人民郵電出版社． 20xx [2] 羅超理 ,李萬紅．管理信息系統(tǒng)原理與應用 ［ M］ ． 北京 ：清華大學出版社． 20xx [3] 艾德才 .計算機信息管理基礎(chǔ) ［ M］ ． 北京 ： 中國水利水電出版社 ． 20xx [4] Tim F Lee． Implement MIS［ M］ ． 北京 ：北京出版社． 20xx [5] 薩師煊，王珊．數(shù)據(jù)庫系統(tǒng)概論 ［ M］ ． 北京 ：高等教育出版社． 20xx [6] Efrem ． Decision Support and Data Warehouse Systems［ M］ ．北京 ：電子工業(yè)出版社． 20xx [7] 陳利平． 數(shù)據(jù)庫原理 ［ M］ ． 北京 ：中國鐵道出版社． 20xx [8] 孫家廣． 軟件工程 ［ M］ ． 北京 ：高等教育出版社． 20xx [12] 李禹生 ,賈瑜 ． Access 20xx 應用技術(shù) ［ M］ ． 北京 ： 中國水利水電出版社 ． 20xx 附 錄 主程序 Option Explicit Const MDIMsg1 = 您確定要退出本系統(tǒng)嗎 ? Const mStrCollection = 打卡數(shù)據(jù)采集 Const mStrLeave = 請假登記 Const mstrAbsent = 其他缺席登記 29 Const mMsg2 = 抱歉 ,您的權(quán)限不夠操作該模塊 !!! 39。 Mid(strATR, 2, 1) amp。 amp。 _ Mid(strATR, 7, 1) amp。 Next j = amp。 = isEnable = isEnable = isEnable = isEnable = isEnable = isEnable SetstbMain mstbOperator, gLoginName Dim strTmp As String If isEnable Then strTmp = 管理員 34 Else strTmp = 客戶級 End If SetstbMain mstbLevel, strTmp SetstbMain mstbDate, Format(Date, yyyymmdd) SetstbMain mstbMsg, gOwnName End Sub Private Sub SetstbMain(Index As Integer, strText As String) (Index).Text = strText End Sub Private Sub Toolbar1_ButtonClick(ByVal Button As ) On Error Resume Next If mClose Then If gLoginGrade = 0 Then MsgBox mMsg2, vbInformation, gTitle Exit Sub End If End If Select Case Case tbCollection mnuAppCollection_Click Case tbLeave mnuAppLeave_Click End Select End Sub Private Sub mnuYes_Click() If MsgBox(真的要退出系統(tǒng)嗎 ?, 32 + 4 + vbDefaultButton2, 退出系統(tǒng)) = vbNo Then Exit Sub Else Unload Me End If End Sub Private Sub mnuNo_Click() 35 Exit Sub End Sub