【正文】 退出系統(tǒng) End Sub Private Sub guanli_Click() GetStatus 對戶籍進(jìn)行管理 End Sub Private Sub hbaobiao_Click() GetStatus 戶口報(bào)表 End Sub Private Sub hxinxi_Click() = False = False = False = False = False = False = False GetStatus 查詢修改戶信息 End Sub Private Sub mfy_Click() 39。刪除用戶 = False = False = False = False = False 7 第 40頁 = False = False GetStatus 刪除用戶 End Sub Private Sub exit_Click() 39。增加用戶 = False = False = False = False = False = False = False GetStatus 添加用戶 End Sub Private Sub allh_Click() = False = False = False = False = False = False = False 7 第 37頁 GetStatus 戶口列表 End Sub Private Sub allp_Click() = False = False = False = False = False = False = False GetStatus 人口列表 End Sub Private Sub chaxun_Click() GetStatus 查詢修改信息 End Sub Private Sub chuhao_Click() = False = False = False = False = False = False = False GetStatus 查詢戶號 End Sub Private Sub chuhome_Click() = False = False = False = False = False = False = False 7 第 38頁 GetStatus 遷出戶口 End Sub Private Sub chupeople_Click() = False = False = False = False = False = False = False 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 7 第 39頁 Private Sub Command3_Click() = False = False = False = False = False = False = False GetStatus 查詢住址 End Sub Private Sub Command4_Click() End Sub Private Sub Command5_Click() Beep = False GetStatus 激活主窗口系統(tǒng)菜單 Else = False End If 39。 local_db, n If Not ( And ) Then userid = Unload frmdl 39。and + _ 用戶表 .密碼 = + 39。檢查密碼是否正確 local_db = select 密碼 from 用戶表 + _ where 用戶表 .用戶名 = + 39。 + _ username + 39。連接數(shù)據(jù)庫 username = Trim() password = 39。Persist Security Info=False。Data Source= + amp。 他無論在理論上還是在實(shí)踐中，都 給予 我很大的幫7 第 32頁 助，使我得到不少的提高 和認(rèn)識 .這對于我以后的工作和學(xué)習(xí)都 是 一種 極 大的幫助， 我在此真誠地 感謝他耐心的輔導(dǎo) 和幫助 ! 最后要感謝在這四年的學(xué)習(xí)和生活中我們所遇到的每一位可 敬的老師們，感謝你們的無私奉獻(xiàn)！感謝你們的悉心教導(dǎo)！感謝你們的點(diǎn)點(diǎn)滴滴！ 第 六 章 主要參考文獻(xiàn) Visual Basic 程序設(shè)計(jì) 作者： 譚浩強(qiáng) 薛淑斌 袁 玫 編著 出版社： 清華大學(xué) 出版社 Visual Basic 數(shù)據(jù)庫系統(tǒng)設(shè)計(jì)與開發(fā) 作者： 李春葆 張植民 編著 出版社 :清華大學(xué) 出版社 Visual Basic 課程設(shè)計(jì)與系統(tǒng)開發(fā)案例 作者： 伍俊良 主編 出版社 :清華大學(xué)出版社 Visual Basic 程序設(shè)計(jì) 作者： 杭國英 主編 出版社 :機(jī)械工業(yè)出版社 Access 2020 項(xiàng)目案例導(dǎo)航 作者： 鄭小玲 王學(xué)軍 編著 出版社： 科學(xué) 出版社 出版日期 :2020年 7月 第 七 章 附 錄 7 第 33頁 用戶登錄主界面及代碼： Option Explicit Private Sub Commcancel_Click() 數(shù)據(jù)庫 登錄信息 戶籍管理 查詢修改 報(bào)表統(tǒng)計(jì) 登錄處理 合法用戶 信息反饋 主界面信息 7 第 34頁 End End Sub Private Sub Commok_Click() 39。 在他的幫助下 使得系統(tǒng)能及時(shí)開發(fā)完成， 非常 感謝 他 耐心的輔導(dǎo)。 十分感謝系領(lǐng)導(dǎo)以及曾教導(dǎo)過我們的每一位老師一直以來對我們的學(xué)習(xí)和生活上的悉心培育和關(guān)心！特別感謝 張斌 老師在本系統(tǒng)的設(shè)計(jì)和 論文的編寫上給予的幫助和指導(dǎo)！ 在本次畢業(yè)設(shè)計(jì)中， ，指導(dǎo)老師老師 給予我了極大的幫助， 我從老師身上學(xué)到了很多東西。 但是由于 系統(tǒng) 設(shè)計(jì)時(shí)間較短，所以該系統(tǒng)還有許多不盡如人意的地方，比如 功能 比較少，用戶界面不夠美觀，出錯(cuò)處理不夠等多方面問題。并提供部分系統(tǒng) 管理 功能 ,使用戶方便進(jìn)行 新用戶的添加 、 舊用戶的修改和 刪除 .對于數(shù)據(jù)的一致性的問題也通過程序進(jìn)行了有效的解決。 致 詞 經(jīng)過 一 個(gè)多月的設(shè)計(jì)和開發(fā)， 我完成了戶籍 管理 的分析、設(shè)計(jì)與編程工作， 系統(tǒng)基本開發(fā)完畢。 表 51 測試方案表 生成可執(zhí)行文件 應(yīng)用程序經(jīng)過設(shè)計(jì)、開發(fā)、調(diào)試和試運(yùn)行；排除了明顯的錯(cuò)誤；達(dá)到預(yù)期功能后 ,就可以向用戶交付了。 能夠正確返回用戶要查詢的信息 ,然后退出程序。 能正確驗(yàn)證用戶的身份及密碼一致才可決定是否增刪用戶。同時(shí)，調(diào)試也是費(fèi)時(shí)、費(fèi)力的創(chuàng)造性工作。 測試方案 使用 Visual Basic ，使用數(shù)據(jù)庫調(diào)試功能可以查出數(shù)據(jù)訪問方面可能存在的瓶頸問題。 因?yàn)檐浖?較小 ,而且時(shí)間較短 ,我們采用自上而下的漸增式測試方法 .因?yàn)槲覀儾捎媚K開發(fā) ,而此模塊是直接 EXE 可執(zhí)行文件的 ,所以單元測試比較簡單 。白盒測試又稱為結(jié)構(gòu)測試。與黑盒測試法相反，白盒測試法的前提是可以把程序看成裝在一個(gè)透明的白盒子里，也就是完全了解程序的結(jié)構(gòu)和處理過程。也就是說， 黑盒測試是在程序接口進(jìn)行的測試，它只檢查程序功能是否能按照規(guī)格說明書的規(guī)定正常使用，程序是否能適當(dāng)?shù)亟邮蛰斎霐?shù)據(jù)產(chǎn)生正確的輸出信息，并且保持外部信息（如，數(shù)據(jù)庫或文件）的完整性。 VB 是一種較好的可與用戶實(shí)行交互的系統(tǒng)軟件，在窗體的設(shè)計(jì)中更是可以隨心所欲，從而達(dá)到用戶所希望的窗體界面環(huán)境！所以在此對主窗體設(shè)計(jì)中的一些菜單項(xiàng)功能窗體不再一一演示給大家其主要程序代碼請看附錄！ VB 設(shè)計(jì)窗口出現(xiàn)數(shù)據(jù)環(huán)境界面，如圖： 7 第 30頁 第五章、系統(tǒng)調(diào)試 性能測試與分析 軟件測試有兩種方法：黑盒調(diào)試和白盒調(diào)試。修改用戶 = False = False = False = False = False = False = False GetStatus 修改密碼 En