【正文】 Chr(10) Next i 1 End Sub Private Sub mnuRepDyn_Click() 1 End Sub Private Sub mnuRepFlow_Click() 1 End Sub Private Sub mnuRepKQ_Click() 1 End Sub Private Sub mnuRepMonth_Click() With frmMonth .Show 39。 Mid(strMain, 32 * i + 2 * j + 1, 1) amp。 Mid(strATR, 6, 1) amp。 _ Mid(strATR, 3, 1) amp。stbMain Const mstbDate = 1 Const mstbTime = 2 Const mstbOperator = 3 Const mstbLevel = 4 Const mstbMsg = 5 Dim misStart As Boolean Private Sub MDIForm_Activate() If misStart Then SetMenu gLoginGrade = 1 misStart = False End If End Sub Private Sub MDIForm_Load() = 2 misStart = True End Sub Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer) If UnloadMode = vbFormControlMenu Then If MsgBox(MDIMsg1, _ vbQuestion + vbYesNo + vbDefaultButton2, _ gTitle) = vbNo Then Cancel = True End If End Sub Private Sub MDIForm_Unload(Cancel As Integer) EndSystem End Sub Private Sub mnuAppAbsent_Click() IntofrmMain gMAINABSENT End Sub 30 Private Sub mnuAppCollection_Click() IntofrmMain gMAINCOLLECT End Sub Private Sub IntofrmMain(intMainType As Integer) Dim MyfrmMain As frmMain Set MyfrmMain = New frmMain Dim Str As String With MyfrmMain .mMenuIndex = intMainType Select Case intMainType Case gMAINCOLLECT Str = mStrCollection Case gMAINLEAVE Str = mStrLeave Case gMAINABSENT Str = mstrAbsent End Select .Caption = Str .Show 0, Me End With 39。程序代碼中還存在不少的 問題 ，這些在最后的測試過程中還有必要做較多的修改和完善。保證程序的邏輯結(jié)構(gòu)，編程時(shí)注意多使用通用方法（函數(shù)和過程）， 嘗試用通用窗體函數(shù)。代碼部分盡量避免邏輯錯(cuò)誤，算法設(shè)計(jì)簡單合理，盡量使程序具有較好的可讀性，有利于其他的設(shè)計(jì)者對(duì)程序的閱讀。 另外，通過對(duì) VB 的使用， 使我對(duì)該軟件更加熟悉 ，學(xué)到了很多關(guān)于該軟件可視化編程的東西 ， 也深深體會(huì)到了 VB 的功能強(qiáng)大，使用和操作簡單。 25 （ 2） 軟件環(huán)境 服務(wù)器 ? 操作系統(tǒng) :Windows 20xx 以上的服務(wù)器版本 ? 必裝軟件 :Visual Basic SQL Server 20xx 客戶端 ? 操作系統(tǒng) Windows 95/98/XP ? 屏幕分辨率 800x600 在此，我們不可能將每一個(gè)功能的測試都表現(xiàn)出來，下面是 IC 卡的寫卡和員工的添加進(jìn)行測試。負(fù)載測試?yán)米詣?dòng)測試工具開展，選自 Mercury 公司的 LoadRunner 實(shí)施負(fù)載測試。測試中需要考 慮正常的功能實(shí)現(xiàn)和惡意測試，即使用設(shè)計(jì)者不期望的數(shù)據(jù)進(jìn)行操作。 圖 退出窗體 其中，應(yīng)用菜單中的班次定義窗體、日常排班窗體、手工補(bǔ)記窗體、請(qǐng)假登記窗體及其他缺席窗體，還有報(bào)表中心菜單中的日動(dòng)態(tài)考 勤報(bào)表窗體、打卡流水報(bào)表窗體、考勤明細(xì)報(bào)表窗體及考勤月報(bào)表窗體就不一一列出，詳加敘述了。我們也可以單擊“打印”按鈕對(duì)所顯示出來的信息進(jìn)行打印，以存成紙質(zhì)檔案，以備隨時(shí)查看之用?？梢妶D . 圖 設(shè) 置考勤機(jī)時(shí)間 22 打卡數(shù)據(jù)采集窗體 設(shè)計(jì) 打卡數(shù)據(jù)采集主要是員工上、下班時(shí)考勤機(jī)對(duì)員工的打卡的數(shù)據(jù)進(jìn)行采集，如圖 ，我們可以單擊“采集”按鈕對(duì)員工的打卡進(jìn)行數(shù)據(jù)采集，也可以單擊“添加”進(jìn)行手工添加員工的考勤記錄，這主要是特殊情況之下用。 IC 卡主要包含 IC卡的代碼（默認(rèn)代碼為“ liun“），個(gè)人代碼，狀態(tài)代碼，交易數(shù)據(jù)，姓名， IC卡校驗(yàn)密碼（默認(rèn)密碼為” liunaa” ,可自行進(jìn)行修改，方便記憶）。 圖 數(shù)據(jù)庫管理窗體 20 項(xiàng)目管理窗體 設(shè)計(jì) 所謂項(xiàng)目管理，主要是對(duì)員工的請(qǐng)假的類型進(jìn)行管理，如圖 。如圖 。 16 圖 系統(tǒng)主菜單 該窗體是一個(gè) MDI 窗體在“工程”窗口選中“登錄”窗體右擊在彈出的快捷菜單中選擇“添加” |“添加 MDI 窗體”命令而產(chǎn)生，該項(xiàng)目的大部分都是該 MDI窗體的子窗體。用戶單擊“確定”按鈕進(jìn)行用戶驗(yàn)證。 數(shù)據(jù)庫結(jié)構(gòu)設(shè)計(jì) 根據(jù)上面的需求分析，總共需要 9 個(gè)工作表的數(shù)據(jù)支持：出勤記錄表、請(qǐng)假記錄表、加班記錄表、出差記錄表、月度考勤統(tǒng)計(jì)記錄表、工作時(shí)間表、出入情況表、員工基本信息表和部門信息表。 出差記錄：記錄號(hào)、員工、出差起始時(shí)間、出差結(jié)束時(shí)間、具體描述。 考勤系統(tǒng)記錄了員工上下班的情況，為工資管理直接提供每個(gè)月工作時(shí)間的統(tǒng)計(jì)結(jié)果，用以計(jì)算工資。 （ 5） 月度考核統(tǒng)計(jì) ： 記錄號(hào)、員工、年月、累計(jì)正常工作時(shí)間、累計(jì)請(qǐng)假時(shí)間、累計(jì)加班時(shí)間、累計(jì)出差時(shí)間、遲到次數(shù)、早退次數(shù)、曠工次數(shù)。 系統(tǒng)模塊主要完成管理員工添加、修改、刪除和系統(tǒng)退出。 （ 2） 異常出勤 ： 異常出勤是對(duì)員工的請(qǐng)假進(jìn)行管理，即對(duì)病假和事假進(jìn)行管理。 9 員工考勤管理系統(tǒng)模塊主要包括正常出勤、異常出勤和加班處理 3 個(gè)功能模塊。 員工信息管理功能模塊包括新增員工的信息，修改員工信息，查詢員工信息。 運(yùn)行可行性 對(duì)新系統(tǒng)運(yùn)行后給現(xiàn)行系統(tǒng)帶來的影響（包括組織機(jī)構(gòu)、管理方式、工作環(huán)境等）和后果進(jìn)行估計(jì)和評(píng)價(jià)。 開發(fā)、運(yùn)行和維護(hù)費(fèi)用：主要包括購買和安裝設(shè)備的費(fèi)用：計(jì)算機(jī)硬件、系統(tǒng)軟件、機(jī)房、電源、空調(diào)等； 軟件開發(fā)費(fèi)用：若由本單位的技術(shù)人員開發(fā)，則該項(xiàng)費(fèi)用可以計(jì)入下面的人員費(fèi)用一項(xiàng)； （ 1） 人員費(fèi)用： 系統(tǒng)開發(fā)人員、操作人員和維護(hù)人員的工資、培訓(xùn)費(fèi)用等；由于本項(xiàng)目的特殊性該部分費(fèi)用可節(jié)省。在打開一個(gè)窗體時(shí)， Microsoft Access 20xx 將從一個(gè)或多個(gè)表中檢索數(shù)據(jù)，并使用用戶在“ 窗體向?qū)?” 選擇的版面布局或所創(chuàng)建的版面布局，將窗體顯示在屏幕上。 定義 好 各個(gè)表之間的關(guān)系 ，就可以實(shí)現(xiàn)將 查詢、窗體或報(bào)表中的多個(gè)表中 數(shù)據(jù)合并在一起。 — 數(shù)據(jù)庫中的數(shù)據(jù)主要存儲(chǔ)在“表”中； — “查詢”幫助用戶檢索基于某些條件的特定數(shù)據(jù)； — “窗體”幫助用戶創(chuàng)建用于輸入、修改和操縱數(shù)據(jù)的用戶界面； — “報(bào)表”以某種格式顯示一個(gè)或多個(gè)表中的數(shù)據(jù)，數(shù)據(jù)可以直接從表中提取，也可以是字段經(jīng)過某些計(jì)算的結(jié)果，報(bào)表還提供良好的打印效果； — “宏”和“模塊”有用來計(jì)算、在應(yīng)用程序中導(dǎo)航以及打印報(bào)表等操作； — “頁”有提供給瀏覽器忠訵 eb 頁的形式查看數(shù)據(jù)庫中的數(shù)據(jù)。 Access數(shù)據(jù)庫是 Microsoft Office 20xx 套件的 Professional 版和 Developer 版的一個(gè)組件，不需要單獨(dú)安裝。它集抽象性、封裝性、繼承性和多態(tài)性于一體，可以幫助用戶開發(fā)出模塊化、數(shù)據(jù)抽象程序高、體現(xiàn)信息隱蔽、可復(fù)用、易修改、易擴(kuò)充的程序。在眾多的開發(fā)工具中，我們?yōu)槭裁匆x擇 Visual 呢？因?yàn)?VB 具有眾多其它開發(fā)工具所沒有的優(yōu)點(diǎn)。目前廣泛使用的是 Visual ，因?yàn)樗峭耆苫木幊汰h(huán)境，集程序設(shè)計(jì)、調(diào)試和查錯(cuò)等功能于一體，而且加強(qiáng)了對(duì) AxtiveX 控件的支持，使用 V