【正文】 “用戶名”文本框內(nèi)，如果沒有找到用戶，系統(tǒng)將彈出“您用戶編號 輸入錯誤，或者還沒有注冊，請檢查！ ”的提示信息。在“命令按鈕”對話框的“其他”選項中，將控件的名稱設(shè)置為“ 取消登錄 ”，打開“代碼” 窗口，輸入 代碼 。 學(xué)生宿舍基本信息窗體是通過 “打開窗體”命令按鈕來創(chuàng)建的。既可以對單個數(shù)據(jù)表進行查詢，也可以對多個數(shù)據(jù)表進行查詢，甚至可以對查詢的結(jié)果集進行查詢，即查詢嵌套 ]8[ 。 圖 “新建查詢”對話框 New Query Dialog Box （ 3）選擇“設(shè)計視圖”選項，然后單擊“確定”按鈕，系統(tǒng)將出現(xiàn)“顯示表”對話框，如圖 所示。 15 圖 “選擇查詢字段” Select Query Field （ 8）通過輸入條件，可以進一步定義查詢。 窗體的運行結(jié)果如圖 、圖 所示。即報表只用于輸出數(shù)據(jù)，而沒有修改、刪除或添加數(shù)據(jù)的功能 ]9[ 。在本窗體的界面設(shè)計如圖 所示。其運行結(jié)果如圖 所示。如圖 所 示； （ 5） 取消“顯示數(shù)據(jù)庫窗口”選項，取消“允許內(nèi)置工具欄”選項，取消“允許全部菜單”選項，如圖 所示。 24 通過這 次畢業(yè)設(shè)計，我系統(tǒng) 地 學(xué)習(xí)了 VBA 語言， Access 數(shù)據(jù)庫，并獨立 完成了本 系統(tǒng) 的構(gòu)思、設(shè)計、 調(diào)試及測試成功， 本 系統(tǒng) 可以對 學(xué)生宿舍 管理完成一定的添加、修改、刪除、查詢等功能的處理，但是 本 設(shè)計中也存在 一些 不足 ， 比如 在系統(tǒng)權(quán)限管理窗體上功能不 夠 全面，有待提高 。正是在這些朋友的幫助下，我才及時糾正了自己的語法錯誤、邏輯錯誤、攻克了不少難點。 沒有 他 們 的幫助， 我的 設(shè)計 進展一定 會 十分緩慢，而且有可能會寸步難行。) 39。找出系統(tǒng)用戶的“密碼” sTemp = DLookup(密碼 , 系統(tǒng)用戶 , 用戶編號 = 39。 39。打開“系統(tǒng)權(quán)限”數(shù)據(jù)表 sTemp = Select * From 系統(tǒng)權(quán)限 sTemp, , adOpenKeyset, adLockOptimistic For i = 1 To If Rs(用戶編號 ) = Me![用戶編號 ] Then 1 32 i = + 1 Else End If Next i MsgBox 用 戶資料已經(jīng)刪除完成！ , vbOKOnly, 刪除完成 Me![系統(tǒng)權(quán)限管理 子窗體 ].Requery Me![用戶編號 ].Requery Me![用戶名 ] = Set Rs = Nothing Exit_刪除用戶 _Click: Exit Sub Err_刪除用戶 _Click: MsgBox Resume Exit_刪除用戶 _Click End Sub Private Sub 修改權(quán)限 _Click() On Error GoTo Err_修改權(quán)限 _Click 39。 amp。用戶登錄的“用戶名” Public username As String Public varTemp(5) As Variant Function OpenForm(FormID As Integer) On Error GoTo Err_OpenForm Dim i As Integer Dim sTem。) 39。判斷記錄集中的“用戶編號”字段值是否與子窗體中“用戶編號”文本框內(nèi)的值 If Rs(用戶編號 ) = Me![用戶編號 ] Then 1 i = + 1 Else End If Next i 39。 amp。使用 Len 函數(shù)判斷在“用戶編號”文本框內(nèi)輸入的值是否為 4 個字符 If Len(Me![用戶編號 ]) 4 Then MsgBox “用戶編號”是由四位數(shù)字組成！ , vbInformation, 用戶編號錯誤 Cancel = True End If Exit_用戶編號 _BeforeUpdate: Exit Sub Err_用戶編號 _BeforeUpdate: MsgBox Resume Exit_用戶編號 _BeforeUpdate End Sub Private Sub 用戶登錄 _Click() On Error GoTo Err_用戶登錄 _Click Dim sTemp As String 39。 Me![用戶編號 ] amp。 此外，我也要感謝那些給予我 關(guān)心 、幫助的同學(xué) 和 朋友 。 致 謝 畢業(yè)設(shè)計與論文即將完成之際，回想起開始 工作的不知所措，以及調(diào)研、調(diào)試過程中的多次遇阻 。 7 結(jié)束語 轉(zhuǎn)眼間畢業(yè)設(shè)計將要結(jié)束，回想這幾個月的經(jīng)歷， 雖然很疲勞 ， 但是我覺得很充實，很有意義。如圖 所示 ； （ 4） 在“顯示窗體 /頁”文本框中，選擇“登錄窗體”。 21 圖 修 改密碼 Change Password 幫助窗體的設(shè)計 為 系統(tǒng)設(shè)計一 個 簡單、實用的幫助窗體。如果要修改某用戶的“權(quán)限”，單擊“修改權(quán)限”按鈕，然 20 后直接在“系統(tǒng)權(quán)限管理”窗體右側(cè)的“系統(tǒng)權(quán)限管理 子窗體”中修改用戶的“權(quán)限”即可。通過報表， 用戶 能很快地獲取主要信息。 圖 查詢運行結(jié)果 Query Results 宿舍基本 管理模塊的設(shè)計 宿舍基本管理 包括來訪登記和宿舍物品維修登記。 （ 7）從字段列表拖動字段名或雙擊字段名，將字段添加到查詢設(shè)計的網(wǎng)絡(luò)。 14 創(chuàng)建選擇查詢 建立選擇查詢的操作步驟如下（以創(chuàng)建系別查詢?yōu)槔? （ 1）在 Access 中打開一個數(shù)據(jù)庫（這里為學(xué)生宿舍管理系統(tǒng)）。建立一個查詢后，可以將查詢的數(shù)據(jù)顯示在報表、窗體或圖表上。 圖 主窗體 Main Window 學(xué)生基本信息窗體的設(shè)計 學(xué)生基本信息窗體包括了全院學(xué)生宿舍信息、 1— 7 棟學(xué)生宿舍信息以及晚歸登記，而在全院學(xué)生宿舍信息窗體中又包含了各個宿舍的衛(wèi)生情況記錄子窗體，主窗體與子窗體之間是通過宿舍號來對應(yīng)的。切換到 “事件”選項卡，找到“單擊”項，在其下拉列表框中選擇“ [事件過程 ]”選項，然后單擊其右側(cè)的 [生成器 ]按鈕，打開代碼窗口， 代碼窗口添加代碼。 如果“用戶編號”少于或多于 4 個數(shù)字，系統(tǒng)將彈出“用戶編號是由 四位數(shù)字組成！”。 Access 是關(guān)系型數(shù)據(jù)庫，它可以創(chuàng)建 3 中不同的表關(guān)系，分別是【一對一】、【一對 多】和【多對多】。 在 Access 中，表有兩種視圖，一是設(shè) 計視圖，它用于創(chuàng)建和修改表的結(jié)構(gòu) ； 二是數(shù)據(jù)表視圖，它用于瀏覽和修改表的內(nèi)容。 ● 各棟宿舍 樓的人員 晚歸 登記情況的輸入、修改和刪除，包括姓名、學(xué)號、晚歸日期、晚歸時間、記錄人。隨著學(xué)院學(xué)生入學(xué)的增多，宿舍管理人員的負擔(dān)越來越重，為了讓所有宿舍 管理人員能從繁重 的工作中解脫出來，實現(xiàn)無紙化辦公，使工作更有條理、更方便、更有效率，而開發(fā)出這套公寓管理 系統(tǒng) 。完成以上工作后，即刻投入試運行，即把數(shù)據(jù)庫兩種 有關(guān)的應(yīng)用程序一起裝入計算機，從而考察他們在各種應(yīng)用中能否達到預(yù)定的功能和性能要求。以 Microsoft Office Access 為例，邏輯結(jié)構(gòu)設(shè)計主要完成兩個任務(wù)： ● 按照一 定的原則將數(shù)據(jù)組成一個或多個數(shù)據(jù)庫，指明每個數(shù)據(jù)庫中包含哪幾個表，并指出每一個表包含的字段。這樣用戶可以容易地將日常工作轉(zhuǎn)換為 VBA 程序代碼，使工作自動化 ， 因此對于程序設(shè)計人員的程序設(shè)計和開發(fā)更加方便快捷。 在這種背景下，以文件系統(tǒng)作為數(shù)據(jù)管理手段已經(jīng)不能滿足應(yīng)用的需求，于是為解決多用戶、多應(yīng)用共享數(shù)據(jù)的需求，使數(shù)據(jù)為盡可能多的應(yīng)用服務(wù)，數(shù)據(jù)庫技術(shù)便應(yīng)運而生，出現(xiàn)了統(tǒng)一管理數(shù)據(jù)的專門軟件系統(tǒng) —— 數(shù)據(jù)庫管理系統(tǒng) DBMS。在人工管理數(shù)據(jù)階段，程序與數(shù)據(jù)之間的一一對應(yīng)關(guān)系可用圖 表示 3 圖 人工管理階段應(yīng)用程序與數(shù)據(jù)之間的對應(yīng)關(guān)系 Managed Applications and Data Phase of the Correlation Between Language 文件系統(tǒng)階段 20 世紀 50 年代后期到 60 年代中期，這時 硬件方面已有了磁盤、磁鼓等直接存取存儲設(shè)備；軟件方面，操作系統(tǒng)中已經(jīng)有了專門的數(shù)據(jù)管理軟件，一般稱為文件系統(tǒng)；處理方式上，不僅有了批處理，而且能夠聯(lián)機實時處理。 數(shù)據(jù)庫是指由DBMS(DBMSDate Base Management System 數(shù)據(jù)庫管理系統(tǒng) 軟件 )管理的數(shù) 據(jù)的集合。 結(jié)合目前我院后勤管理情況，通過咨詢各用戶部門的需求， 采用 Visual Basic 結(jié)合 Access，開發(fā)一套操作簡單實用的學(xué)生宿舍 管理系統(tǒng)。計算機的信息化管理為這些問題的解決提供了可能。但是，隨著計算機技術(shù)、信息技術(shù) 的發(fā)展和廣泛應(yīng)用，信息管理系統(tǒng)作為信息的交互的平臺已成為大勢所趨。 管理信息系統(tǒng)研究 的是 企業(yè)中信息管理活動 的 全過程 ， 以便有效的管理信息 ， 提供各類管理決策信息 ， 輔助企業(yè)進行現(xiàn)代化管理 ]1[ 。 2 數(shù)據(jù)庫系統(tǒng)的介紹 數(shù)據(jù)庫的 概念、 發(fā)展及其優(yōu)點 數(shù)據(jù)庫的概念 2 數(shù)據(jù)庫是什么 ？ 從本質(zhì)上講 ， 數(shù)據(jù)庫就是信息的集合 。 數(shù)據(jù)的邏輯結(jié)構(gòu)或物理結(jié)構(gòu)發(fā)生變化后，必須對應(yīng)用程序做相應(yīng)的修改，這會進一步加重程序員的負擔(dān)。 這時 硬件已有大容量磁盤，硬件價格下降，軟件價格則上升， 編制和維護系統(tǒng)軟件及應(yīng)用程序所需的成本相對增加；在處理方式上，用戶對聯(lián)機實時 處理的要求更多，并開始提出和考慮分布處理。 VBA 易于學(xué)習(xí)掌握，可以使用宏記錄器記錄用戶的各種操作并將其轉(zhuǎn)換為 VBA 程序代碼。 邏輯設(shè)計結(jié)構(gòu) 由于邏輯設(shè)計與具體的數(shù)據(jù)庫系統(tǒng)關(guān)系有關(guān)。 數(shù)據(jù)庫的實施 該階段是建立數(shù)據(jù)庫的實質(zhì)性階段，需要完成裝入數(shù)據(jù)、完成編 碼以及測試等工作。 本系統(tǒng)最大的特點是通用性、簡單操作性。 ● 宿舍 來訪人員登記情況的輸入、修改、查詢、刪除，包括訪客證件類型、訪客證件號碼、訪客姓名、訪客性別、訪客單位、訪客登記時間、拜訪宿舍、離去時間。在 Access2020 中共有 3種方法創(chuàng)建表，分別為使用向?qū)?、使用設(shè)計器和通過輸入數(shù)據(jù)創(chuàng)建表 ]5[ 。只有在建立了這種關(guān)系之后，才可以協(xié)助數(shù)據(jù)的輸入，并且還可以有效地對數(shù)據(jù)庫進行查詢、窗體操作和報表的生成等 ]5[ 。 登錄系統(tǒng)時，首先判斷 用戶輸入的“用 10 戶編號”是否合法，因為本系統(tǒng)的“系統(tǒng)用戶”表規(guī)定 “用戶編號”是由 4 個數(shù)字組成的字符串。添加完畢后，選中該按鈕，打開“命令按鈕”對 話框，在“ 其他”選項卡中，將控件的名稱設(shè)置 為“ 用戶登錄 ”。 系統(tǒng)“主窗體”界面的運行結(jié)果如圖 所示。 12 圖 學(xué)生宿舍基本信息 Dormitory Student’s Basic Information 圖 窗體視圖 1 View Form 1 13 圖 窗體視圖 2 View Form 2 查詢模塊的設(shè)計 查詢的概念 查詢 (Query)是按照一定的條件或要求對數(shù)據(jù)庫中的數(shù)據(jù)進行檢索或操作。參數(shù)查詢增加了該系統(tǒng)按姓名、學(xué)號、宿舍號、系別的查詢功能，它們在執(zhí)行時顯示自己的對話框以提示用戶輸入信息。如果表或查詢是相關(guān)聯(lián)的，可以更改連接類型來改變查詢所選擇的記錄。 圖 對話框 Dialog Box 16 上述建立的查詢的運行結(jié)果如圖 所示。報表的好處主要是分組 18 數(shù)據(jù)和排序數(shù)據(jù)，以使數(shù)據(jù)具有更好的可視效果。 圖 報表視圖 View Report 系統(tǒng)權(quán)限窗體的設(shè)計 當在“ 用戶編號”組合框內(nèi)輸入或選擇“用戶編號”以后，系統(tǒng)將在“系統(tǒng)權(quán)限管理”子窗體中顯示該用戶的系統(tǒng)功能權(quán)限詳細信息，并自動搜索出該“用戶編號”所對應(yīng)的“用戶名” 和“所管樓號” ，并把搜索的結(jié)果 分別 顯示于窗體中“用戶名” 、“所管樓號” 文本框內(nèi)。本界面如圖 所示。 設(shè)置基本啟動選項的操作步驟如下： （ 1） 打開本數(shù)據(jù)庫系統(tǒng) ； （ 2） 在菜單欄上單擊“工具” “啟動”命令，打開“啟動”對話框； （ 3） 在“應(yīng)用程序 標題”文本框中輸入“ 學(xué)生宿舍管理系統(tǒng)的設(shè)計 ”。 本設(shè)計到此，已經(jīng)設(shè)計完畢。 希望我的設(shè)計能為 今 后 的 研究分析起到一定的作用。所以， 再一次感謝 陳 老師的指導(dǎo)。 amp。) End If End If Exit_用戶編號 _AfterUpdate: Exit Sub Err_用戶編號