考勤管理系統(tǒng)畢業(yè)論文設(shè)計(jì)計(jì)算機(jī)-預(yù)覽頁(yè)
【正文】 6 WorkTime 工作時(shí)間表 列 名 數(shù) 據(jù) 類 型 可 否 為 空 說(shuō) 明 StartTimeAM 日期 NOTNULL 上午上班時(shí)間 EndTimeAM 日期 NOTNULL 上午下班時(shí)間 StartTimePM 日期 NOTNULL 下午上班時(shí)間 EndTimePM 日期 NOTNULL 下午下班時(shí)間 表 47 InOut 出入情況表 列 名 數(shù) 據(jù) 類 型 可 否 為 空 說(shuō) 明 Code 文本（ 1） NOTNULL 出入代碼 Description 文本（ 1） NOTNULL 出入描述 表 48 Person 員工基本信息表 列 名 數(shù) 據(jù) 類 型 可 否 為 空 說(shuō) 明 ID 文本（ 6） NOTNULL 員工標(biāo)號(hào) 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ù) 類 型 可 否 為 空 說(shuō) 明 ID 文本（ 3） NOTNULL 部門標(biāo)號(hào) Name 文本（ 20） NOTNULL 部門名稱 Manager 文本（ 6） NULL 部門經(jīng)理 Intro 文本（ 50） NULL 簡(jiǎn)介 第五章 詳細(xì)設(shè)計(jì) 登錄窗體 設(shè)計(jì) 依據(jù)需求分析，啟動(dòng)系統(tǒng)時(shí)，最先出現(xiàn)的就是“登 錄”窗體，如圖 所示，用戶登錄可作為獨(dú)立窗體，名稱為 ，選擇“工程” |“工程 |屬性”命令，在“啟動(dòng)對(duì)象”下拉列表框中選擇“ frmLogin”選項(xiàng)。也可以點(diǎn)擊取消以取消登錄。 數(shù)據(jù)管理 ……… 員工 管理 ……… 數(shù)據(jù)庫(kù)管理 ……… 項(xiàng)目 管理 IC 卡管理 ………… ..發(fā)新卡 考勤機(jī)管理 ………… ..考勤機(jī)時(shí)間設(shè)置 應(yīng)用 ……… 打卡數(shù)據(jù)采集 ……… .班次定義 ……… .日常 排班 ……… .手工補(bǔ)記 ……… .請(qǐng)假登記 ……… .其他缺席登記 報(bào)表中心 ……… 日動(dòng)態(tài)考勤報(bào)表 ……… 打卡流水報(bào)表 ……… 考勤明細(xì)報(bào)表 ……… 考勤月報(bào)表 退出 ……… .確定 ……… .取消 17 5． 3 員工管理窗體 設(shè)計(jì) 員工管理主要是員工的信息進(jìn)行添加、保存、修改、刪除、查詢，以及對(duì)員工的 IC 卡進(jìn)行標(biāo)記管 理。還有一重要功能就是對(duì)員工信息的查詢，這主要會(huì)在查詢窗體中體現(xiàn)。這是主要的三大請(qǐng)假類型，我們還可以依照實(shí)際情況對(duì)請(qǐng)假的項(xiàng)目進(jìn)行添加或刪除，比如說(shuō)員工家里有人故去，可以添加一個(gè)喪假類型，在此就不進(jìn)行演示了，點(diǎn)擊“添加”按鈕即可實(shí)現(xiàn)此功能。其中獲取考勤機(jī)時(shí)間即獲取計(jì)算機(jī)的當(dāng)前時(shí)間，免去了輸入時(shí)間的繁瑣。單擊“執(zhí)行查詢”按鈕，下面的黃色區(qū)域就會(huì)自行根 據(jù)我們選擇的條件顯示出符合條件的信息。主要是提示用戶是不是真的要退出，以防止用戶不小心點(diǎn)了退出其余并不是想現(xiàn)在退出。 測(cè)試的項(xiàng)目： ? 數(shù)據(jù)管理 ? IC 卡管理 ? 考勤機(jī)管理 ? 應(yīng)用 ? 報(bào)表中心 ? 退出 測(cè)試 方法： 整個(gè)系統(tǒng)測(cè)試方法包括功能測(cè)試、回歸測(cè)試、負(fù)載測(cè)試、文檔測(cè)試。在系統(tǒng)交付前作一次完成的系統(tǒng)回歸測(cè)試。主 要采用走查的方式進(jìn)行。 27 結(jié)論 經(jīng)過(guò) 幾個(gè)月來(lái) 的設(shè)計(jì)，“考勤管理 信息 系統(tǒng)” 已經(jīng)基本設(shè)計(jì)完成。 在整個(gè)設(shè)計(jì)過(guò)程中，主要 的工作有： 模塊的頁(yè)面設(shè)計(jì)及功能的設(shè)計(jì)實(shí)現(xiàn)。 力求對(duì)數(shù)據(jù)庫(kù)操作的安全與穩(wěn)定，盡量避免數(shù)據(jù)庫(kù)操作異常，并要保證查詢的 快速無(wú)誤。對(duì)于這樣的軟件開(kāi)發(fā)，由于沒(méi)有相應(yīng)的切合實(shí)際的需求分析，所以在開(kāi)發(fā)過(guò)程中遇到了許多棘手的問(wèn)題。 28 參考文獻(xiàn) [1] 劉韜． Visual Basic 數(shù)據(jù)庫(kù)系統(tǒng)開(kāi)發(fā)實(shí)例導(dǎo)航 ［ M］ ． 北京 ：人民郵電出版社． 20xx [2] 羅超理 ,李萬(wàn)紅．管理信息系統(tǒng)原理與應(yīng)用 ［ M］ ． 北京 ：清華大學(xué)出版社． 20xx [3] 艾德才 .計(jì)算機(jī)信息管理基礎(chǔ) ［ M］ ． 北京 ： 中國(guó)水利水電出版社 ． 20xx [4] Tim F Lee． Implement MIS［ M］ ． 北京 ：北京出版社． 20xx [5] 薩師煊，王珊．?dāng)?shù)據(jù)庫(kù)系統(tǒng)概論 ［ M］ ． 北京 ：高等教育出版社． 20xx [6] Efrem ． Decision Support and Data Warehouse Systems［ M］ ．北京 ：電子工業(yè)出版社． 20xx [7] 陳利平． 數(shù)據(jù)庫(kù)原理 ［ M］ ． 北京 ：中國(guó)鐵道出版社． 20xx [8] 孫家廣． 軟件工程 ［ M］ ． 北京 ：高等教育出版社． 20xx [12] 李禹生 ,賈瑜 ． Access 20xx 應(yīng)用技術(shù) ［ M］ ． 北京 ： 中國(guó)水利水電出版社 ． 20xx 附 錄 主程序 Option Explicit Const MDIMsg1 = 您確定要退出本系統(tǒng)嗎 ? Const mStrCollection = 打卡數(shù)據(jù)采集 Const mStrLeave = 請(qǐng)假登記 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 = 客戶級(jí) 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
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1