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