【正文】 不能顯示有模式,因當中有顯示非模式的窗體 End WithEnd SubPrivate Sub SetMenu(isEnable As Boolean) 39。 Chr(13) amp。 Mid(strMain, 32 * i + 2 * j + 2, 1) amp。 Mid(strATR, 8, 1) 1End SubPrivate Sub mnuCardNew_Click() 1End SubPrivate Sub mnuReadWrite_Click() 1End SubPrivate Sub mnuFileExit_Click() If MsgBox(MDIMsg1, _ vbQuestion + vbYesNo + vbDefaultButton2, _ gTitle) = vbNo Then Exit Sub EndSystemEnd SubPrivate Sub mnuFileReg_Click() 1 SetMenu gLoginGrade = 1End SubPrivate Sub mnuGuardBase_Click() 1End SubPrivate Sub mnuGuardEmployee_Click() vbModalEnd SubPrivate Sub mnuGuardLib_Click() 1End SubPrivate Sub mnuPosSetDate_Click() 1End SubPrivate Sub mnuPowerOff_Click() Dim nRet As Integer nRet = OpenComm(0) nRet = PowerOffEnd SubPrivate Sub mnuPowerOn_Click() Dim nRet As Integer nRet = OpenComm(0) nRet = PowerOnEnd SubPrivate 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 = amp。 amp。 _ Mid(strATR, 5, 1) amp。 Mid(strATR, 4, 1) amp。 amp。Unload MyfrmMainEnd SubPrivate Sub mnuAppDefine_Click() vbModalEnd SubPrivate Sub mnuAppLeave_Click() IntofrmMain gMAINLEAVEEnd SubPrivate Sub mnuAppPlan_Click() vbModalEnd SubPrivate Sub mnuATR_Click() Dim strATR As String * 8 Dim nRet As Integer 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。tlbMainConst mClose = 539。千言成語匯集成動力，我只能用我的實際行動，認真完成設(shè)計任務(wù)，不辜負領(lǐng)導(dǎo)對我的關(guān)心，也為自己在大學(xué)的最后時刻畫上一個圓滿的句號。在這里也非常感謝軟件學(xué)院領(lǐng)導(dǎo)，對我們畢業(yè)生的關(guān)心。在這兩年來給我提供幫助的所有老師和同學(xué),正是由于你們的幫助,我才能順利完成學(xué)業(yè),完成畢業(yè)設(shè)計。無論做什么事情，都要身體力行，親自完成。我即將畢業(yè)，走上工作崗位，在這段時間的經(jīng)歷，將是我日后在學(xué)習(xí)、工作、生活中的財富。在整個過程中無不傾注著老師的心血，在這里我真的要感謝老師的指導(dǎo)，這期間給我的幫助和關(guān)心，對我的整個設(shè)計過程都認認真真，從不馬虎，對格式要求小到一個標點符號，要求得非常嚴格，我心里想，在這樣一個老師的指導(dǎo)下，我的設(shè)計和論文一定能完成得很好的。但在這段時間里我學(xué)到了很多的東西，無論是在技術(shù)上還是理論上都滿載收獲。在設(shè)計時，由于時間和能力有限，還有部分的功能沒有實現(xiàn)，希望以后能夠慢慢地發(fā)現(xiàn)問題，改正問題，力求將系統(tǒng)做得越來越完美，實用。現(xiàn)在開發(fā)出來的軟件對數(shù)據(jù)庫的操作還不夠穩(wěn)定常會出現(xiàn)非法操作，異常處理做的還很欠缺。 當然在設(shè)計中還有很多不足的地方。設(shè)計中力求界面友好、簡潔，易于操作。員工信息、出勤信息、部門信息、相關(guān)查詢、密碼修改、幫助說明和退出系統(tǒng)。系統(tǒng)的權(quán)限及安全設(shè)計，包括用戶權(quán)限的個人設(shè)定，密碼保護與修改。基于該系統(tǒng)的一些設(shè)計，下面對系統(tǒng)做一個總結(jié)。在這幾個月的開發(fā)過程中，學(xué)到了許多有關(guān)數(shù)據(jù)庫管理軟件設(shè)計的東西，也對管理信息系統(tǒng)有了更加全面而深刻的認識。 實際測試 IC卡的寫卡測試 員工的添加測試經(jīng)過測試，發(fā)現(xiàn)系統(tǒng)能正常使用，實現(xiàn)所需功能。 測試環(huán)境需求：（1）硬件環(huán)境l 內(nèi)存：需要至少512MHZ； l 配備光驅(qū)； l 配備條碼槍，打印機。（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ù)器配置組合上進行測試。第六章 系統(tǒng)測試：本次測試主要針對本次開發(fā)的考勤管理信息系統(tǒng)進行系統(tǒng)測試，主要包括功能測試、界面測試、負載測試、文檔測試等。主要是提示用戶是不是真的要退出，以防止用戶不小心點了退出其余并不是想現(xiàn)在退出。我們也可以單擊“打印”按鈕對所顯示出來的信息進行打印，以存成紙質(zhì)檔案，以備隨時查看之用。單擊“執(zhí)行查詢”按鈕，下面的黃色區(qū)域就會自行根據(jù)我們選擇的條件顯示出符合條件的信息?？梢妶D . 設(shè)置考勤機時間 打卡數(shù)據(jù)采集窗體設(shè)計 打卡數(shù)據(jù)采集主要是員工上、下班時考勤機對員工的打卡的數(shù)據(jù)進行采集，如圖 ，我們可以單擊“采集”按鈕對員工的打卡進行數(shù)據(jù)采集，也可以單擊“添加”進行手工添加員工的考勤記錄，這主要是特殊情況之下用。其中獲取考勤機時間即獲取計算機的當前時間，免去了輸入時間的繁瑣。IC卡主要包含IC卡的代碼（默認代碼為“l(fā)iun“），個人代碼，狀態(tài)代碼，交易數(shù)據(jù)，姓名，IC卡校驗密碼（默認密碼為”liunaa”,可自行進行修改，方便記憶）。這是主要的三大請假類型，我們還可以依照實際情況對請假的項目進行添加或刪除，比如說員工家里有人故去，可以添加一個喪假類型，在此就不進行演示了，點擊“添加”按鈕即可實現(xiàn)此功能。 所謂項目管理，主要是對員工的請假的類型進行管理。還有一重要功能就是對員工信息的查詢，這主要會在查詢窗體中體現(xiàn)。員工的信息主要包含工號、姓名、性別、年齡、部門、職位、備注。系統(tǒng)主菜單在該窗體中設(shè)計，通過菜單編輯器將菜單設(shè)計好后，編寫程序代碼，對應(yīng)的每一個菜單都有一個窗體的調(diào)用。圖 用戶登錄界面 系統(tǒng)主菜單窗體設(shè)計輸入用戶名和密碼后，單擊“確定”按鈕，進入系統(tǒng)主菜單。也可以修改口令，新密碼需要確認一次，以保安全。設(shè)計該窗體時應(yīng)注意密碼輸入時應(yīng)顯示為“*”，“確定”按鈕取名為“cmdOK“。這9個表的結(jié)構(gòu)表如141~表149所示。部門設(shè)置：部門編號、名稱等。月度考核統(tǒng)計：記錄號、員工、