【正文】 d Sub Private Sub pbaobiao_Click() GetStatus 人口報(bào)表 End Sub 、 DataReport 報(bào)表設(shè)計(jì) : 這里我們?cè)O(shè)計(jì)了兩個(gè)報(bào)表分別打印戶口和人口基本信息，先建立數(shù)據(jù)環(huán)境DataEnvionment1，其步驟如下： （ 1） 擇“工程”菜單的“更多 ActiveX 設(shè)計(jì)器”選項(xiàng)，在出現(xiàn)的下拉菜單中選擇“ DataEnvionment1”選項(xiàng)，出現(xiàn)如圖所示的界面 : （ 2） “ Connection1”上單擊鼠標(biāo)右鍵，在出現(xiàn)的快捷菜單中選擇“屬性”選項(xiàng)， 出現(xiàn)“ Data Link Properties”對(duì)話框 : 第 26頁(yè) （ 3） 該對(duì)話框中選擇“ Provider”選項(xiàng)卡，從列表中選擇“ Microsoft OLE DB Provider for SQL Server”選項(xiàng) ，如圖所示： 第 27頁(yè) （ 4） 在“ Connection1 上單擊鼠標(biāo)右鍵，出現(xiàn)的快捷菜單中選擇”添加命令“選項(xiàng)，出現(xiàn)“ Connection1屬性”對(duì)話框，按下圖所示的內(nèi)容進(jìn)行設(shè)置 : 這樣就建好了 DataEnvionment1，其結(jié)果如圖所示： 第 28頁(yè) DataReport1 報(bào)表 : 在建立數(shù)據(jù)環(huán)境后，選擇“工程”菜單中的“添加 Data Report”選項(xiàng)，啟動(dòng) VB報(bào)表設(shè)計(jì)器，設(shè)計(jì) DataReport1報(bào)表如圖所示： 7 第 29頁(yè) 將 DataReport1 報(bào)表的 DataSource 屬性設(shè)置為“ DataEnvionment1”， DataMember 屬性設(shè)置為“ Command1”。退出 Beep = False GetStatus 退出系統(tǒng) End Sub Private Sub czhuzhi_Click() = False = False = False = False = False = False = False GetStatus 查詢住址 End Sub Private Sub del_Click() 39。顯示版本窗口 Else MsgBox 您輸入的密碼不正確，請(qǐng)重新輸入！ , , 警告 = 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è)多文檔窗體，窗體中包含的主要對(duì)象及其屬性 ,在該窗體有一個(gè)菜單，該菜單的結(jié)構(gòu)如下： Private Sub adduser_Click() 39。判斷登陸用戶是否為 admin If username = admin Then = True 39。 + password + 39。 + _ username + 39。 local_db, n If Not ( And ) Then 39。檢查用戶名是否正確 local_db = select 用戶名 from 用戶表 + _ where 用戶表 .用戶名 = + 39。 39。 \data\ + 。聲 明 變 量 Dim username As String Dim password As String Dim local_db As String Dim n As New Dim rst As New If = Then 第 18頁(yè) MsgBox 請(qǐng)輸入用戶名 , , 警告 Else If = Then MsgBox 請(qǐng)輸入密碼 , , 警告 End If End If If And Then Set n = New Set rst = New Provider=。如果是合法用戶，釋放該窗體并調(diào)出 Frmver 窗體；否則信息提示無此用戶。 本節(jié)介紹管理系統(tǒng)各組成部分的實(shí)現(xiàn)方法 ,對(duì)于窗體，給出執(zhí)行功能、設(shè)計(jì)界面、主要對(duì)象的屬性和方法。使用應(yīng)用程序具有可通用性、可擴(kuò)展性和強(qiáng)有力的功能。 在系統(tǒng)中設(shè)計(jì)一個(gè)數(shù)據(jù)庫(kù) ，其中包含如下數(shù)據(jù)表 : 人口表 : 第 15頁(yè) 戶口表 : 用戶表 : 第 16頁(yè) 第四章 系統(tǒng)的具體設(shè)計(jì) 、 Windows 下的 Visual Basic 編程環(huán)境簡(jiǎn)介 Visual Basic 應(yīng)用程序基本的構(gòu)建塊是用戶所創(chuàng)建的對(duì)象，每一個(gè)對(duì)象都具有一些特性和行為（屬性、事件和方法）。聲明公用變量的方法如下： Public conn Public rs 上面就是聲明為公用變量，上面的聲明一定要放在模塊的最上面。上用到了三個(gè)變量 conn,Dbpath,rs。打開數(shù)據(jù)庫(kù)連接 Set rs = CreateObject() 39。Data Source= amp。 39。建立數(shù)據(jù)庫(kù)連接對(duì)像 DBpath = amp。 第 14頁(yè) Sub ConnStr() 39。 第 13頁(yè) 出現(xiàn)設(shè)計(jì)的界面后，就可以開始設(shè)計(jì)數(shù)據(jù)表了！ （ 4） VB連接 ACCESS2020數(shù)據(jù)庫(kù) 用 vb編寫一個(gè)管理軟件，如果不能連接數(shù)據(jù)庫(kù)，那也沒有什么用處。 第 12頁(yè) （ 3） 怎樣創(chuàng)建一個(gè)數(shù)據(jù)表 上面已經(jīng)講了如何創(chuàng)建一個(gè)數(shù)據(jù)庫(kù)文件， 按照上面的步驟建立一個(gè)數(shù)據(jù)庫(kù)文件后，需要在數(shù)據(jù)庫(kù)文件中建立一個(gè)數(shù)據(jù)表。 最后一步就是要選擇一個(gè)要保存數(shù)據(jù)庫(kù)文件的名字和位置。如下所示： 第 11頁(yè) 打開 ACCESS2020之后，會(huì)開啟一個(gè)窗口，可選擇是打開以前的數(shù)據(jù)庫(kù)文件還是新建一個(gè)新的空數(shù)據(jù)庫(kù)文件，如果選擇空 ACCESS 數(shù)據(jù)庫(kù)，然后點(diǎn)擊確定按鈕。 設(shè)計(jì)數(shù)據(jù)庫(kù)系統(tǒng)時(shí)，應(yīng)該首先了解用戶 的各個(gè)方面的需求，包括現(xiàn)有的以及將來可能增加的。合理的數(shù)據(jù)庫(kù)設(shè)計(jì)可以提高數(shù)據(jù)庫(kù)存儲(chǔ)效率，保證數(shù)據(jù)的完整和一致。數(shù)據(jù)管理技術(shù)的優(yōu)劣，將直接影響數(shù)據(jù)處理的效率。通常在數(shù)據(jù)處理中，計(jì)算是比較簡(jiǎn)單的而數(shù)據(jù)的管理卻比較復(fù)雜。從 1956 年生產(chǎn)出第一臺(tái)計(jì)算機(jī)到現(xiàn)在，存儲(chǔ)器的發(fā)展，為數(shù)據(jù)庫(kù)技術(shù)提供了良好的物質(zhì)基礎(chǔ)。 計(jì)算機(jī)的數(shù)據(jù)處理應(yīng)用，首先要把大量的信息以數(shù)據(jù)形式存放在存儲(chǔ)器中。最近，由于數(shù)據(jù)庫(kù)的普及，數(shù)據(jù)庫(kù)技術(shù)已經(jīng)被應(yīng)用到了新的領(lǐng)域，諸如用于 Inter的數(shù)據(jù)庫(kù)或用于公司內(nèi)聯(lián)網(wǎng)的數(shù)據(jù)庫(kù)。 數(shù)據(jù)庫(kù)的目的是幫助人們跟蹤事務(wù)。理解用戶的需求，然后，把它們轉(zhuǎn)變?yōu)橛行У臄?shù)據(jù)庫(kù)設(shè)計(jì)是一個(gè)藝術(shù)過程。它們只是加重了數(shù)據(jù)庫(kù)技術(shù)的重要性。同時(shí)， Inter技術(shù)提供了一種向用戶發(fā)布數(shù)據(jù)庫(kù)內(nèi)容的標(biāo)準(zhǔn)化的訪問方法。 、數(shù)據(jù)庫(kù)設(shè)計(jì) : （ 1）數(shù)據(jù)庫(kù)的概念 數(shù)據(jù)庫(kù)處理在信息系統(tǒng)的研究中一直是非常重要的主題，然而，近年來，隨著 World Wide Web(WWW)的猛增及 Inter 技術(shù)的迅速發(fā)展，使得數(shù)據(jù)庫(kù) 技術(shù)之時(shí)成為最熱門技術(shù)之一。例如，當(dāng)前表中沒有有效記錄時(shí)，執(zhí)行保存和刪除功能的按鈕不可選。用戶可以先通過“設(shè)置條件”框找到相應(yīng)的戶籍檔案記錄，然后單擊“添加”或“刪除”按鈕對(duì)戶籍檔案記錄進(jìn)行添加或刪除，而后單擊“保存”按鈕保存戶籍檔案記錄。 圖 34 系統(tǒng)功能模塊圖 、 設(shè)計(jì)技巧 : 本系統(tǒng)設(shè)計(jì)中的一些技巧如下： (1) 公共模塊的設(shè)計(jì) (2) Access數(shù)據(jù)庫(kù)設(shè)計(jì)方法 (3) VB菜單設(shè)計(jì)方法（對(duì)于“普通用戶”，有若干菜單項(xiàng)不可選）。 查詢修改 模塊的功能：這個(gè)模塊是本系 統(tǒng)中相對(duì)來講最大也是最麻煩的 ， 它包含 三個(gè)方面的功能實(shí)現(xiàn)： 即 查詢、 修改 戶口和人口信息內(nèi)容 。 戶籍管理 模塊的功能：對(duì) 戶口 表、 人口 表等作為構(gòu)成 戶籍檔案管理 最基本項(xiàng)的表進(jìn)行增加、查詢、修改、刪除等操作?，F(xiàn)在的數(shù)據(jù)庫(kù)開發(fā)工具操作越來越簡(jiǎn)單、方便，界面越來越美觀、友好，使程序員的工作量大大減少，另外軟件技術(shù)的發(fā)展，也為管理軟件的開發(fā) 提供了技術(shù)保證 ,從技術(shù)和管理兩方面來看 ,開發(fā)這個(gè)系統(tǒng)是必要的 .由于以前數(shù)據(jù)記錄只是記錄在紙上 ,各種 數(shù)據(jù)的統(tǒng)計(jì)都是通過手工管理，這樣即費(fèi)時(shí)、費(fèi)力又容易出現(xiàn)錯(cuò)誤，而利用計(jì)算機(jī)輔助管理可以發(fā)揮計(jì)算機(jī)自身處理速度快、準(zhǔn)確和信息共享的優(yōu)勢(shì)，來解決手工管理