【正文】 二是管理功能。前者在網(wǎng)絡(luò)中僅有一臺(tái)數(shù)據(jù)庫服務(wù)器，而客戶機(jī)是多臺(tái)。開發(fā)工具應(yīng)該能夠使多個(gè)開發(fā)人員同時(shí)對一個(gè)項(xiàng)目進(jìn)行開發(fā)，它應(yīng)該平衡需求以確保一個(gè)開發(fā)人員對程序的修 改不會(huì)被另一個(gè)人員所重寫，同時(shí)又不會(huì)因?yàn)椴捎昧艘恍┎槐匾目刂剖归_發(fā)效率受到影響。 Access2020在數(shù)據(jù)庫管理方面的杰出表現(xiàn)，使 Access2020得到了非常廣泛的應(yīng)用，也是許多軟件開發(fā)商的首選工具，所以我在開發(fā)工具選擇方面，選擇了 Access2020 作為后臺(tái)數(shù)據(jù)庫。 故而，實(shí)現(xiàn)本系統(tǒng)VB是一個(gè)相對較好的選擇 。另外， Access 允許創(chuàng)建自定義報(bào)表用于打印或輸出數(shù)據(jù)庫中的信息。 關(guān)系數(shù)據(jù)庫的連接 : 微軟的 JET數(shù)據(jù)庫引擎提供了與數(shù)據(jù)庫打交道的途徑，我們是通過它以及 Visual Basic 來訪問數(shù)據(jù)庫并對其進(jìn)行各種操作。缺省情況下， DATA控件根據(jù)數(shù)據(jù)庫中的一個(gè)或多個(gè)數(shù)據(jù)表建立一個(gè) dynasettype（動(dòng)態(tài)集合）類型的記錄集合。 ADO Data控件（簡稱 ADO）是 ActiveX控件，與 VB固有的 Data控件相似，使用 ADO Data控件，可以利用利用 Microsoft ActiveX Data Objects(ADO)快速建立數(shù)據(jù)綁定的控件和數(shù)據(jù)提供者之間的連接。因此，必須用行之有效的方法對軟件需求進(jìn)行嚴(yán)格的審查驗(yàn)證。這種分層次的描繪方法便于閱讀者按從抽象到具體的過程逐步深入地了解一個(gè)復(fù)雜的系統(tǒng)。因此，用現(xiàn)代化手段進(jìn)行管理已成為一種趨勢。 戶籍管理 模塊的功能：對 戶口 表、 人口 表等作為構(gòu)成 戶籍檔案管理 最基本項(xiàng)的表進(jìn)行增加、查詢、修改、刪除等操作。 圖 34 系統(tǒng)功能模塊圖 、 設(shè)計(jì)技巧 : 本系統(tǒng)設(shè)計(jì)中的一些技巧如下： (1) 公共模塊的設(shè)計(jì) (2) Access數(shù)據(jù)庫設(shè)計(jì)方法 (3) VB菜單設(shè)計(jì)方法（對于“普通用戶”，有若干菜單項(xiàng)不可選）。例如，當(dāng)前表中沒有有效記錄時(shí)，執(zhí)行保存和刪除功能的按鈕不可選。同時(shí)， Inter技術(shù)提供了一種向用戶發(fā)布數(shù)據(jù)庫內(nèi)容的標(biāo)準(zhǔn)化的訪問方法。理解用戶的需求，然后，把它們轉(zhuǎn)變?yōu)橛行У臄?shù)據(jù)庫設(shè)計(jì)是一個(gè)藝術(shù)過程。最近，由于數(shù)據(jù)庫的普及，數(shù)據(jù)庫技術(shù)已經(jīng)被應(yīng)用到了新的領(lǐng)域，諸如用于 Inter的數(shù)據(jù)庫或用于公司內(nèi)聯(lián)網(wǎng)的數(shù)據(jù)庫。從 1956 年生產(chǎn)出第一臺(tái)計(jì)算機(jī)到現(xiàn)在，存儲(chǔ)器的發(fā)展，為數(shù)據(jù)庫技術(shù)提供了良好的物質(zhì)基礎(chǔ)。數(shù)據(jù)管理技術(shù)的優(yōu)劣，將直接影響數(shù)據(jù)處理的效率。 設(shè)計(jì)數(shù)據(jù)庫系統(tǒng)時(shí)，應(yīng)該首先了解用戶 的各個(gè)方面的需求，包括現(xiàn)有的以及將來可能增加的。 最后一步就是要選擇一個(gè)要保存數(shù)據(jù)庫文件的名字和位置。 第 13頁 出現(xiàn)設(shè)計(jì)的界面后，就可以開始設(shè)計(jì)數(shù)據(jù)表了！ （ 4） VB連接 ACCESS2020數(shù)據(jù)庫 用 vb編寫一個(gè)管理軟件，如果不能連接數(shù)據(jù)庫，那也沒有什么用處。建立數(shù)據(jù)庫連接對像 DBpath = amp。Data Source= amp。上用到了三個(gè)變量 conn,Dbpath,rs。 在系統(tǒng)中設(shè)計(jì)一個(gè)數(shù)據(jù)庫 ，其中包含如下數(shù)據(jù)表 : 人口表 : 第 15頁 戶口表 : 用戶表 : 第 16頁 第四章 系統(tǒng)的具體設(shè)計(jì) 、 Windows 下的 Visual Basic 編程環(huán)境簡介 Visual Basic 應(yīng)用程序基本的構(gòu)建塊是用戶所創(chuàng)建的對象，每一個(gè)對象都具有一些特性和行為（屬性、事件和方法）。 本節(jié)介紹管理系統(tǒng)各組成部分的實(shí)現(xiàn)方法 ,對于窗體，給出執(zhí)行功能、設(shè)計(jì)界面、主要對象的屬性和方法。聲 明 變 量 Dim username As String Dim password As String Dim local_db As String Dim n As New Dim rst As New If = Then 第 18頁 MsgBox 請輸入用戶名 , , 警告 Else If = Then MsgBox 請輸入密碼 , , 警告 End If End If If And Then Set n = New Set rst = New Provider=。 39。 local_db, n If Not ( And ) Then 39。 + password + 39。顯示版本窗口 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 、 mainfrm 窗體 : mainfrm 窗體 是一個(gè)多文檔窗體，窗體中包含的主要對象及其屬性 ,在該窗體有一個(gè)菜單，該菜單的結(jié)構(gòu)如下： Private Sub adduser_Click() 39。退出 Beep = False GetStatus 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)試。與黑盒測試法相反，白盒測試法的前提是可以把程序看成裝在一個(gè)透明的白盒子里，也就是完全了解程序的結(jié)構(gòu)和處理過程。 因?yàn)檐浖?較小 ,而且時(shí)間較短 ,我們采用自上而下的漸增式測試方法 .因?yàn)槲覀儾捎媚K開發(fā) ,而此模塊是直接 EXE 可執(zhí)行文件的 ,所以單元測試比較簡單 。同時(shí)，調(diào)試也是費(fèi)時(shí)、費(fèi)力的創(chuàng)造性工作。 能夠正確返回用戶要查詢的信息 ,然后退出程序。 致 詞 經(jīng)過 一 個(gè)多月的設(shè)計(jì)和開發(fā)， 我完成了戶籍 管理 的分析、設(shè)計(jì)與編程工作， 系統(tǒng)基本開發(fā)完畢。 但是由于 系統(tǒng) 設(shè)計(jì)時(shí)間較短，所以該系統(tǒng)還有許多不盡如人意的地方，比如 功能 比較少，用戶界面不夠美觀，出錯(cuò)處理不夠等多方面問題。 在他的幫助下 使得系統(tǒng)能及時(shí)開發(fā)完成， 非常 感謝 他 耐心的輔導(dǎo)。Data Source= + amp。連接數(shù)據(jù)庫 username = Trim() password = 39。檢查密碼是否正確 local_db = select 密碼 from 用戶表 + _ where 用戶表 .用戶名 = + 39。 local_db, n If Not ( And ) Then userid = Unload frmdl 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 查詢戶號(hào) 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頁