【正文】 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) 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 GetStatus 查詢修改戶信息 End Sub Private Sub mfy_Click() 39。刪除用戶 = False = False = False = False = False 7 第 40頁(yè) = False = False GetStatus 刪除用戶 End Sub Private Sub exit_Click() 39。激活主窗口系統(tǒng)菜單 Else = False End If 39。and + _ 用戶表 .密碼 = + 39。 + _ username + 39。Persist Security Info=False。 他無論在理論上還是在實(shí)踐中，都 給予 我很大的幫7 第 32頁(yè) 助，使我得到不少的提高 和認(rèn)識(shí) .這對(duì)于我以后的工作和學(xué)習(xí)都 是 一種 極 大的幫助， 我在此真誠(chéng)地 感謝他耐心的輔導(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ù)庫(kù)系統(tǒng)設(shè)計(jì)與開發(fā) 作者： 李春葆 張植民 編著 出版社 :清華大學(xué) 出版社 Visual Basic 課程設(shè)計(jì)與系統(tǒng)開發(fā)案例 作者： 伍俊良 主編 出版社 :清華大學(xué)出版社 Visual Basic 程序設(shè)計(jì) 作者： 杭國(guó)英 主編 出版社 :機(jī)械工業(yè)出版社 Access 2020 項(xiàng)目案例導(dǎo)航 作者： 鄭小玲 王學(xué)軍 編著 出版社： 科學(xué) 出版社 出版日期 :2020年 7月 第 七 章 附 錄 7 第 33頁(yè) 用戶登錄主界面及代碼： Option Explicit Private Sub Commcancel_Click() 數(shù)據(jù)庫(kù) 登錄信息 戶籍管理 查詢修改 報(bào)表統(tǒng)計(jì) 登錄處理 合法用戶 信息反饋 主界面信息 7 第 34頁(yè) End End Sub Private Sub Commok_Click() 39。 十分感謝系領(lǐng)導(dǎo)以及曾教導(dǎo)過我們的每一位老師一直以來對(duì)我們的學(xué)習(xí)和生活上的悉心培育和關(guān)心！特別感謝 張斌 老師在本系統(tǒng)的設(shè)計(jì)和 論文的編寫上給予的幫助和指導(dǎo)！ 在本次畢業(yè)設(shè)計(jì)中， ，指導(dǎo)老師老師 給予我了極大的幫助， 我從老師身上學(xué)到了很多東西。并提供部分系統(tǒng) 管理 功能 ,使用戶方便進(jìn)行 新用戶的添加 、 舊用戶的修改和 刪除 .對(duì)于數(shù)據(jù)的一致性的問題也通過程序進(jìn)行了有效的解決。 表 51 測(cè)試方案表 生成可執(zhí)行文件 應(yīng)用程序經(jīng)過設(shè)計(jì)、開發(fā)、調(diào)試和試運(yùn)行；排除了明顯的錯(cuò)誤；達(dá)到預(yù)期功能后 ,就可以向用戶交付了。 能正確驗(yàn)證用戶的身份及密碼一致才可決定是否增刪用戶。 測(cè)試方案 使用 Visual Basic ，使用數(shù)據(jù)庫(kù)調(diào)試功能可以查出數(shù)據(jù)訪問方面可能存在的瓶頸問題。白盒測(cè)試又稱為結(jié)構(gòu)測(cè)試。也就是說， 黑盒測(cè)試是在程序接口進(jìn)行的測(cè)試，它只檢查程序功能是否能按照規(guī)格說明書的規(guī)定正常使用，程序是否能適當(dāng)?shù)亟邮蛰斎霐?shù)據(jù)產(chǎn)生正確的輸出信息，并且保持外部信息（如，數(shù)據(jù)庫(kù)或文件）的完整性。修改用戶 = False = False = False = False = False = False = False GetStatus 修改密碼 End 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”。退出系統(tǒng) End Sub Private Sub czhuzhi_Click() = False = False = False = False = False = False = False GetStatus 查詢住址 End Sub Private Sub del_Click() 39。判斷登陸用戶是否為 admin If username = admin Then = True 39。 + _ username + 39。檢查用戶名是否正確 local_db = select 用戶名 from 用戶表 + _ where 用戶表 .用戶名 = + 39。 \data\ + 。如果是合法用戶，釋放該窗體并調(diào)出 Frmver 窗體；否則信息提示無此用戶。使用應(yīng)用程序具有可通用性、可擴(kuò)展性和強(qiáng)有力的功能。聲明公用變量的方法如下： Public conn Public rs 上面就是聲明為公用變量，上面的聲明一定要放在模塊的最上面。打開數(shù)據(jù)庫(kù)連接 Set rs = CreateObject() 39。 39。 第 14頁(yè) Sub ConnStr() 39。 第 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ù)表。如下所示： 第 11頁(yè) 打開 ACCESS2020之后，會(huì)開啟一個(gè)窗