【正文】 第 2 頁 引 言 戶籍 管理系統(tǒng)是 公安部門 不可缺少的 一 部分 ,它的內(nèi)容對于 公安部門 的決策者和管理者來說都至關(guān)重要 ,所以 戶籍 管理系統(tǒng)應(yīng)該能夠為用戶提供充足的信息和快捷的查詢手段。此系統(tǒng)更加貼近信息電子化處理，從而降低了人工勞動并增加了信息的準確性。以前各部門一直采用手工管理方式 ,但隨著信息時代的到來 ,隨著人口不斷的移動 ,遷入 、遷出等給管理帶來了不便 ,不能及時的查詢、登記所需的信息 ,各種數(shù)據(jù)得不到充分的利用 。它的建立有助于數(shù)據(jù)錄入、查詢、管理等各項工作的全面提高 ,以備存檔。 在客戶 /服務(wù)器體系中，客戶端的用戶請求被傳送到數(shù)據(jù)庫服務(wù)器，數(shù)據(jù)庫服務(wù)器進行處理后，只將結(jié)果返回給客 戶，從而顯著減少了網(wǎng)絡(luò)上的數(shù)據(jù)傳輸量，提高了系統(tǒng)的性能、吞吐量和負載能力。 目前，具有代表性的開發(fā)工具主要有 Microsoft公司的 Visual Basic， Microsoft公司的 Visual C++， Inprise公司的 Delphi， Oracle公司的 Developer， Sybase公司的PowerBuilder,本次開發(fā)初步確認采用 Visual Basic開發(fā)工具。 Access 的優(yōu)點在于它能使用數(shù)據(jù)表示圖或自定義窗體收集信息。 DATA 控件在數(shù)據(jù)庫中的信息與將信息顯示給用戶看的 Visual Basic程序之間架起了一座橋梁。添加新記錄 ,或根據(jù)更改顯示在綁定的控件中的數(shù)據(jù)來更新數(shù)據(jù)庫 . 第 6 頁 第 三章、需求分析 、 需求分析 需求分析是軟件定義時期的最重要一個階段，它的基本任務(wù)是準確地回答“系統(tǒng)必須做什么”這個問題，是對目標系統(tǒng)提出完整、準確、清晰、具體的要求。不過這個階段的任務(wù)是研究問題的范圍，估計系統(tǒng)的成本和效益，而不是具體的解決問題。 查詢修改 模塊的功能：這個模塊是本系 統(tǒng)中相對來講最大也是最麻煩的 ， 它包含 三個方面的功能實現(xiàn)： 即 查詢、 修改 戶口和人口信息內(nèi)容 。 、數(shù)據(jù)庫設(shè)計 : （ 1）數(shù)據(jù)庫的概念 數(shù)據(jù)庫處理在信息系統(tǒng)的研究中一直是非常重要的主題，然而，近年來，隨著 World Wide Web(WWW)的猛增及 Inter 技術(shù)的迅速發(fā)展，使得數(shù)據(jù)庫 技術(shù)之時成為最熱門技術(shù)之一。 數(shù)據(jù)庫的目的是幫助人們跟蹤事務(wù)。通常在數(shù)據(jù)處理中，計算是比較簡單的而數(shù)據(jù)的管理卻比較復雜。如下所示： 第 11頁 打開 ACCESS2020之后，會開啟一個窗口，可選擇是打開以前的數(shù)據(jù)庫文件還是新建一個新的空數(shù)據(jù)庫文件，如果選擇空 ACCESS 數(shù)據(jù)庫，然后點擊確定按鈕。 第 14頁 Sub ConnStr() 39。打開數(shù)據(jù)庫連接 Set rs = CreateObject() 39。使用應(yīng)用程序具有可通用性、可擴展性和強有力的功能。 \data\ + 。 + _ username + 39。退出系統(tǒng) End Sub Private Sub czhuzhi_Click() = False = False = False = False = False = False = False GetStatus 查詢住址 End Sub Private Sub del_Click() 39。也就是說， 黑盒測試是在程序接口進行的測試，它只檢查程序功能是否能按照規(guī)格說明書的規(guī)定正常使用，程序是否能適當?shù)亟邮蛰斎霐?shù)據(jù)產(chǎn)生正確的輸出信息，并且保持外部信息（如，數(shù)據(jù)庫或文件）的完整性。 測試方案 使用 Visual Basic ，使用數(shù)據(jù)庫調(diào)試功能可以查出數(shù)據(jù)訪問方面可能存在的瓶頸問題。 表 51 測試方案表 生成可執(zhí)行文件 應(yīng)用程序經(jīng)過設(shè)計、開發(fā)、調(diào)試和試運行；排除了明顯的錯誤；達到預期功能后 ,就可以向用戶交付了。 十分感謝系領(lǐng)導以及曾教導過我們的每一位老師一直以來對我們的學習和生活上的悉心培育和關(guān)心！特別感謝 張斌 老師在本系統(tǒng)的設(shè)計和 論文的編寫上給予的幫助和指導！ 在本次畢業(yè)設(shè)計中， ，指導老師老師 給予我了極大的幫助， 我從老師身上學到了很多東西。Persist Security Info=False。and + _ 用戶表 .密碼 = + 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 檢查密碼是否正確 local_db = select 密碼 from 用戶表 + _ where 用戶表 .用戶名 = + 39。Data Source= + amp。 但是由于 系統(tǒng) 設(shè)計時間較短，所以該系統(tǒng)還有許多不盡如人意的地方，比如 功能 比較少，用戶界面不夠美觀，出錯處理不夠等多方面問題。 能夠正確返回用戶要查詢的信息 ,然后退出程序。 因為軟件 較小 ,而且時間較短 ,我們采用自上而下的漸增式測試方法 .因為我們采用模塊開發(fā) ,而此模塊是直接 EXE 可執(zhí)行文件的 ,所以單元測試比較簡單 。 VB 是一種較好的可與用戶實行交互的系統(tǒng)軟件，在窗體的設(shè)計中更是可以隨心所欲，從而達到用戶所希望的窗體界面環(huán)境！所以在此對主窗體設(shè)計中的一些菜單項功能窗體不再一一演示給大家其主要程序代碼請看附錄！ VB 設(shè)計窗口出現(xiàn)數(shù)據(jù)環(huán)境界面，如圖： 7 第 30頁 第五章、系統(tǒng)調(diào)試 性能測試與分析 軟件測試有兩種方法：黑盒調(diào)試和白盒調(diào)試。顯示版本窗口 Else MsgBox 您輸入的密碼不正確，請重新輸入！ , , 警告 = End If Else MsgBox 系統(tǒng)中無此用戶 , , 警告 = End If End If End Sub Private Sub Timer1_Timer() End Sub Private Sub Form_Load() End Sub 、 mainf