【正文】 Else = False End If 39。增加用戶 = False 第 20頁 = False = False = False = False = False = False GetStatus 添加用戶 End Sub Private Sub allh_Click() = False = False = False = False = False = False = False GetStatus 戶口列表 End Sub Private Sub allp_Click() = False = False = False = False = False = False = False GetStatus 人口列表 End Sub Private Sub chaxun_Click() GetStatus 查詢修改信息 第 21頁 End Sub Private Sub chuhao_Click() = False = False = False = False = False = False = False GetStatus 查詢戶號(hào) End Sub Private Sub chuhome_Click() = False = False = False = False = False = False = False GetStatus 遷出戶口 End Sub Private Sub chupeople_Click() = False = False = False = False = False = False = False 第 22頁 GetStatus 遷出人口 End Sub Private Sub Command1_Click() = False = False = False = False = False = False = False = False = False = False = False = False = GetStatus 添加、遷入戶口 End Sub Private Sub Command2_Click() = False = False = False = False = False = False = False GetStatus 添加、遷入人口 End Sub Private Sub Command3_Click() 第 23頁 = False = False = False = False = False = False = False GetStatus 查詢住址 End Sub Private Sub Command4_Click() End Sub Private Sub Command5_Click() Beep = False GetStatus 刪除用戶 第 24頁 = False = False = False = False = False = False = False GetStatus 刪除用戶 End Sub Private Sub exit_Click() 39。退出系統(tǒng) End Sub Private Sub guanli_Click() GetStatus 對(duì)戶籍進(jìn)行管理 End Sub Private Sub hbaobiao_Click() GetStatus 戶口報(bào)表 End Sub Private Sub hxinxi_Click() = False = False = False = False = False = False = False 第 25頁 GetStatus 查詢修改戶信息 End Sub Private Sub mfy_Click() 39。 DataReport2 報(bào)表 : 打印人口信息，如圖所示： 將 DataReport2報(bào)表的 DataSource屬性設(shè)置為“ DataEnvionment1”， DataMember屬性設(shè)置為“ Command2”。黑盒調(diào)試是把程序看成一個(gè)黑盒子，完全不考慮程序的內(nèi)部結(jié)構(gòu)和處理過程。黑盒測試又稱為功能測試。這種方法按照程序內(nèi)部的邏輯測試程序，檢驗(yàn)程序中的每條通路是否都能按預(yù)定要求正確工作。在系統(tǒng)開發(fā)過程中，白盒測試與黑盒測試的概念分別應(yīng)用于系統(tǒng)的調(diào)試與測試的實(shí)踐中。 測試環(huán)境 系 統(tǒng) : Windows 98/XP 在 MIS 開發(fā)過程中采用了多種措施保證軟件質(zhì)量 ,但是實(shí)際開發(fā)過程中還是不可避免地出現(xiàn)錯(cuò)誤 ,有待進(jìn)一步分析和研究。開發(fā)人員應(yīng)該清晰地認(rèn)識(shí)到，調(diào)試應(yīng)用程序不是為 了證明程序不存在錯(cuò)誤，而是為了盡可能多地找到所存在的問題，沒有找到任何錯(cuò)誤的調(diào)試是7 第 31頁 不成功的調(diào)試。 功 能 登 錄 增、刪用戶 修改密碼 查詢信息 導(dǎo)入、導(dǎo)出文件 預(yù) 期 效 果 能正確檢驗(yàn)用戶身份及密碼的一致性；若不匹配，能返回錯(cuò)誤提示信息。 能正確驗(yàn)證用戶身份，及新密碼和確認(rèn)密碼的匹配。 能正確將所需表的數(shù)據(jù)導(dǎo) 入、導(dǎo)出，并通過重啟系統(tǒng)將導(dǎo)入數(shù)據(jù)寫入到數(shù)據(jù)庫中的明細(xì)表中。在交付之前，還有一項(xiàng)重要的任務(wù)，就是把應(yīng)用程序編譯成可執(zhí)行文件，這樣用戶就可以不需要 Visual Basic 環(huán)境了。其功能基本符合用戶需求，能夠完成 戶籍檔案信 息 的存儲(chǔ)和查詢 及 以及各類相關(guān)報(bào)表的 瀏覽 。 避免了由于人為方式固有的不嚴(yán)密性所帶來的各種工作中的疏漏，實(shí)現(xiàn)了管理的科學(xué)化和嚴(yán)謹(jǐn)化。這些都有待進(jìn)一步改善。 張 老師認(rèn)真負(fù)責(zé)的工作態(tài)度，嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神和深厚的理論水平 和實(shí)際操作能力 都使我收益匪淺。另外，同學(xué)同樣給與我不少幫助，這里一并表示感謝 。聲明變量 Dim username As String Dim password As String Dim local_db As String Dim n As New Dim rst As New If = Then MsgBox 請(qǐng)輸入用戶名 , , 警告 Else If = Then MsgBox 請(qǐng)輸入密碼 , , 警告 End If End If If And Then Set n = New Set rst = New Provider=。 \data\ + 。 39。檢查用戶名是否正確 local_db = select 用戶名 from 用戶表 + _ where 用戶表 .用戶名 = + 39。 local_db, n If Not ( And ) Then 39。 + _ username + 39。 + password + 39。判斷登陸用戶是否為 admin If username = admin Then 7 第 35頁 = True 39。顯示版本窗口 Else MsgBox 您輸入的密碼不正確，請(qǐng)重新輸入！ , , 警告 = End If Else MsgBox 系統(tǒng)中無此用戶 , , 警告 = End If End If End Sub Private Sub Form_Load() End Sub Private Sub Timer1_Timer() End Sub 系統(tǒng)主界面及代碼： 7 第 36頁 Private Sub adduser_Click() 39。退出系統(tǒng) End Sub Private Sub czhuzhi_Click() = False = False = False = False = False = False = False GetStatus 查詢住址 End Sub Private Sub del_Click() 39。退出 Beep = False GetStatus 修改用戶 = False = False = False = False = False 7 第 41頁 = False = False