【正文】
), pws(i), state(i), Emplo(i) If state(i) = A Then user(i) End If i = i + 1 Loop Close 1 = 1 39。Load FrmMain Else MsgBox Invalid Password, try again!, , Login SendKeys {Home}+{End} End If End Sub圖11 員工信息設(shè)置窗體點(diǎn)擊假條信息按鈕,在主窗體上就會(huì)顯示假條信息表,假條信息是員工的離職情況的記錄,包括離職日期和中止日期,請(qǐng)假天數(shù),和原由等情況,是員工出勤情況的側(cè)面反映,是核算工資的重要依據(jù),必須詳細(xì),準(zhǔn)確記錄,用戶可以通過(guò)下面的一組按鈕可以對(duì)假條信息進(jìn)行編輯,刪除,查詢和設(shè)置。工資信息編輯窗體運(yùn)行結(jié)果見(jiàn)圖17所示:圖17 工資信息編輯窗體(2)工資信息的查詢是用戶可以通過(guò)工資信息表中的相關(guān)信息進(jìn)行模糊查詢和邏輯(3)工資信息設(shè)置是對(duì)工資信息中的相關(guān)信息的顯示與隱藏的設(shè)置,本系統(tǒng)可以對(duì)工資信息進(jìn)行顯示條目和隱藏條目的設(shè)置。用戶信息管理模塊只有系統(tǒng)管理者才能進(jìn)入。 pws(i)。 Emplo(i) Next i Close fil = = = If = Frmmain Then = True Else Call End If End If End Sub五、系統(tǒng)測(cè)試為了確保本系統(tǒng)能夠正常運(yùn)行,需要在發(fā)布之后做一次較全面的測(cè)試。再運(yùn)行程序,會(huì)有提示頁(yè)面出現(xiàn):程序已經(jīng)運(yùn)行,不能再次裝載! (2)測(cè)試其他用戶是否能夠登錄打開(kāi)人事管理系統(tǒng)登錄頁(yè)面,輸入任意密碼,點(diǎn)擊“登錄”按鈕。最后保存。(6)測(cè)試密碼更改在以超級(jí)用戶登錄的情況下,在程序中打密碼設(shè)置,彈出文本框,顯示用戶列表。她在我整個(gè)系統(tǒng)開(kāi)發(fā)和論文撰寫的整個(gè)過(guò)程中給了我很多建議和及時(shí)的幫助。真誠(chéng)的感謝所有幫助與支持過(guò)我的人!向你們說(shuō)聲:謝謝了! 11 。在我今后的學(xué)習(xí)、工作,甚至生活的方方面面,都要把孫老師的這種精神貫徹始終,從而不辜負(fù)孫老師對(duì)我的悉數(shù)關(guān)懷和耐心指導(dǎo)!此外,我還要感謝與我一起在機(jī)房學(xué)習(xí)Visual Basic ,在他們的幫助與共同探討下,我解決了許多難題,也使我的論文能夠順利完成。在以普通用戶登陸情況下,打開(kāi)密碼設(shè)置選項(xiàng),系統(tǒng)會(huì)提示該用戶為普通用戶,只可以修改自己的密碼。(5)用戶登出系統(tǒng)的測(cè)試在管理操作已全部完成,需要退出程序的時(shí)候,在系統(tǒng)頁(yè)面“系統(tǒng)設(shè)置”下拉菜單的有一個(gè)“退出”的選項(xiàng),點(diǎn)擊之后便可退出。然后點(diǎn)“確定”返回人事管理系統(tǒng)登錄頁(yè)面。(二)測(cè)試舉例(1)測(cè)試用戶登陸是否成功打開(kāi)人事管理系統(tǒng),在“用戶名”里填入root,“密碼”框里我們填入root作為用戶登錄密碼。 state(i)。其程序如下:Private Sub cmdOK_Click() Dim fil, i, Usercount As Integer If Then MsgBox two times no yizhi = SendKeys {Home}+{End} Exit Sub ElseIf Then MsgBox old password wrong = = SendKeys {Home}+{End} Exit Sub Else fil = FreeFile() Open + \ For Input As fil i = 0 Do While Not EOF(fil) Input fil, user(i),