【正文】 不能顯示有模式 ,因當中有顯示非模式的窗體 End With End Sub Private Sub SetMenu(isEnable As Boolean) 39。 Chr(13) amp。 Mid(strMain, 32 * i + 2 * j + 2, 1) amp。 Mid(strATR, 8, 1) 1 End Sub Private Sub mnuCardNew_Click() 1 End Sub Private Sub mnuReadWrite_Click() 1 End Sub Private Sub mnuFileExit_Click() If MsgBox(MDIMsg1, _ vbQuestion + vbYesNo + vbDefaultButton2, _ gTitle) = vbNo Then Exit Sub EndSystem End Sub Private Sub mnuFileReg_Click() 1 SetMenu gLoginGrade = 1 End Sub 32 Private Sub mnuGuardBase_Click() 1 End Sub Private Sub mnuGuardEmployee_Click() vbModal End Sub Private Sub mnuGuardLib_Click() 1 End Sub Private Sub mnuPosSetDate_Click() 1 End Sub Private Sub mnuPowerOff_Click() Dim nRet As Integer nRet = OpenComm(0) nRet = PowerOff End Sub Private Sub mnuPowerOn_Click() Dim nRet As Integer nRet = OpenComm(0) nRet = PowerOn End Sub Private Sub mnuReadMain_Click() Dim strMain As String * 512 Dim i As Integer, j As Integer, nRet As Integer nRet = OpenComm(0) nRet = IC_ReadMain(0, 256, strMain) If nRet 0 Then MsgBox Error Read Main Memory Exit Sub End If = For i = 0 To 15 For j = 0 To 15 33 = amp。 amp。 _ Mid(strATR, 5, 1) amp。 Mid(strATR, 4, 1) amp。 amp。Unload MyfrmMain End Sub Private Sub mnuAppDefine_Click() vbModal End Sub Private Sub mnuAppLeave_Click() IntofrmMain gMAINLEAVE End Sub Private Sub mnuAppPlan_Click() vbModal End Sub Private Sub mnuATR_Click() Dim strATR As String * 8 Dim nRet As Integer 31 nRet = OpenComm(0) nRet = CardExist If nRet = 0 Then MsgBox No Card Exit Sub End If nRet = IC_ATR(strATR) If nRet 0 Then MsgBox Error Read ATR Exit Sub End If = Mid(strATR, 1, 1) amp。tlbMain Const mClose = 5 39。 在設(shè)計時，由于時間和能力有限 ，還有部分的功能沒有實現(xiàn)，希望 以后 能夠慢慢地發(fā)現(xiàn)問題，改正問題，力求將系統(tǒng)做得越來越完美，實用?，F(xiàn)在開發(fā)出來的軟件對數(shù)據(jù)庫的操作還不夠穩(wěn)定常會出現(xiàn)非法操作，異常處理做的還很欠缺。 當然在設(shè)計中還有很多不足的地方。 設(shè)計中力求界面友好、簡潔，易于操作。員工信息、出勤信息、部門信息、 相關(guān)查詢、密碼修改、 幫助 說明和退出系統(tǒng) 。系統(tǒng)的權(quán)限及安全設(shè)計，包括用戶權(quán)限的個人設(shè)定，密碼保護與修改?；谠撓到y(tǒng)的一些設(shè)計，下面對系統(tǒng)做一個總結(jié)。在這幾個月的開發(fā)過程中，學到了許多有關(guān)數(shù)據(jù)庫管理軟件設(shè)計的東西 ，也對管理信息系統(tǒng)有了更加全面而深刻的認識 。 實際測試 IC卡的寫卡測 試 26 員工的添加測試 經(jīng)過測試，發(fā)現(xiàn)系統(tǒng)能正常使用，實現(xiàn)所需功能。 測試環(huán)境需求： （ 1） 硬件環(huán)境 ? 內(nèi)存：需要至少 512MHZ； ? 配備光驅(qū)； ? 配備條碼槍，打印機 。 （ 4） 文檔測試 文檔測試主要包括需求文檔、設(shè)計文檔、用戶文檔測試，測試重點在文檔內(nèi)容的正確性、準確性。 （ 3） 負載測試 負載測試主要測試系統(tǒng)存在大量圖書檢索情況下，系統(tǒng)的運行情況。 （ 2） 回歸測試 在測試的過程中發(fā)現(xiàn)系統(tǒng)缺陷，應(yīng)及時修正，每天對系統(tǒng)進行一次回歸測試，在修正的程序中對發(fā)現(xiàn)的缺陷進行驗證，以確保其得以改正。 （ 1） 功能測試 在需求規(guī)格說明書中描述的所有功能，都將在選定的客戶端 /服務(wù)器配置組合上進行測試。 24 第六章 系統(tǒng)測試 主要測試內(nèi)容： 本次測試主要針對 本次開發(fā)的 考勤 管理 信息 系統(tǒng)進行系統(tǒng)測試，主要包括功能測試、界面測試、負載測試、文檔測試 等 。如圖 。 23 圖 月統(tǒng)計報表窗體 退出窗體 設(shè)計 退出窗體相對來說就比較簡單了。這些信息主要包括工號、姓名 、部門、日期、類型和備注。 圖 打卡數(shù)據(jù)采集窗體 月統(tǒng)計報表窗體 設(shè)計 如圖 ，我們可以通過一些條件的選擇，如進行正?？记诨蚍钦？记诘倪x擇；月份、部門或員工的選擇，或者進行全部選擇來實現(xiàn)月統(tǒng)計報表的功能。而設(shè)置考勤機時間是由考勤人員手工設(shè)置，然后生成的。如圖 . 21 圖 發(fā)新卡 考勤機管理窗體 設(shè)計 現(xiàn)在考勤管理系統(tǒng)都是由考勤機對員工的考勤進行登記管理，所以考勤機的時間設(shè)置是非常重要的，我們可以通過獲取考勤機時間和設(shè)置考勤機時間兩大途徑對考勤機的時間進行設(shè)置。 圖 請假項目 IC 卡管理窗體 設(shè)計 IC 卡的管理我們主要實現(xiàn)發(fā)放新的 IC 卡的功能。主要包括事假、病假和婚假。 18 圖 員工管理窗體 圖 員工的添加 19 圖 員工的查詢 數(shù)據(jù)庫管理窗體 設(shè)計 數(shù)據(jù)庫窗體設(shè)計主要與后臺數(shù)據(jù)庫相連，主要實現(xiàn)數(shù)據(jù)庫的備份，數(shù)據(jù)庫的初始化，刪除過期信息，清空憑單傳真壓縮數(shù)據(jù)庫以及 返回數(shù)據(jù)庫等。 單擊員工管理窗體中的添加可進入員工信息的添加，如圖 錯誤，會彈出提示信息，指導操作人員的添加操作。員工的信息主要包含工號、姓名、性別、年齡、部門、職位、備注。系統(tǒng)主菜單在該窗體中設(shè)計，通過菜單編輯器將菜單設(shè)計好后，編寫程序代碼，對應(yīng)的每一個菜單都有一個窗體的調(diào)用。 15 圖 用戶登錄界面 系統(tǒng)主菜單窗體設(shè)計 輸入用戶名和密碼后，單擊“確定”按鈕，進入系統(tǒng)主菜單，如圖 所示。也可以修改口令，新密碼需要確認一次，以保安全。設(shè)計該窗體時應(yīng)注意密碼輸入時應(yīng)顯示為“ *”，“確定”按鈕取名為“ cmdOK“ 。這 9 個表的結(jié)構(gòu)表如 141~表 149 所示。 部門設(shè)置：部門編號、名稱等。 月度考核統(tǒng)計：記錄號、員工、年月、累計正常工作時間、累計請假時間、累計加班時間、累計出差時間、遲到次數(shù)、早 退次數(shù)、曠工次數(shù)。 加班記錄：記錄號、員工、加班時間長度、日期。同時考勤系統(tǒng)也需要其他系統(tǒng)提供的員工、部門信息。 10 第三章 總體設(shè)計 系統(tǒng)目標設(shè)計 本系統(tǒng) 是 實現(xiàn)對 員工上下班時間的設(shè)定，員工出入單位情況的記錄，請假、加班、出差情況的記錄， 還有每個月底進行整個月出勤情況的統(tǒng)計。 ： （ 1） 人員信息： 員工號、密碼、權(quán)限、姓名、部門、當前狀態(tài)等。 （ 4） 出差記錄： 記錄號、員工、出差起始時間、出差結(jié)束時間、具體描述。 數(shù)據(jù)庫需求 ： （ 1） 出勤記錄 ： 記錄號、員工、出入情況、出入時間； （ 2） 請假記錄：