【正文】 _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。 amp。判斷輸入的“密碼”與從“系統(tǒng)用戶”數(shù)據(jù)表中搜索出的值是否相等 If CStr(Me![密碼 ]) = sTemp Then UserID = Me![用戶編號 ] , , acSaveNo Else MsgBox 您輸入的密碼不正確！ , vbCritical, 密碼錯誤 Me![密碼 ].SetFocus End If End If End If Exit_用戶 登錄 _Click: Exit Sub 31 Err_用戶登錄 _Click: MsgBox Resume Exit_用戶登錄 _Click End Sub Private Sub 取消登錄 _Click() On Error GoTo Err_取消登錄 _Click 39。判斷記錄集中的“用戶編號”字段值是否與子窗體中“用戶編號”文本框內的值 If Rs(用戶編號 ) = Me![用戶編號 ] Then 1 i = + 1 Else End If Next i 39。使用 DLookup 函數(shù)在“系統(tǒng)用戶”數(shù)據(jù)表中搜索“用戶名” Me![用戶名 ] = DLookup(用戶名 , 系統(tǒng)用戶 , _ [用戶編號 ]= 39。) 39。 39。用戶登錄的“用戶名” 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。刷新“系統(tǒng)權限管理 子窗體”子窗體 Me![系統(tǒng)權限管理 子窗體 ].Requery Exit_用戶編號 _AfterUpdate: Exit Sub Err_用戶編號 _AfterUpdate: MsgBox Resume Exit_用戶編號 _AfterUpdate End Sub 33 Private Sub 退出窗體 _Click() On Error GoTo Err_退出窗體 _Click Exit_退出窗體 _Click: Exit Sub Err_退出窗體 _Click: MsgBox Resume Exit_退出窗體 _Click End Sub 附錄 D 通用代碼 Option Compare Database Option Explicit 39。 amp。 Me![用戶編號 ] amp。打開“系統(tǒng)權限”數(shù)據(jù)表 sTemp = Select * From 系統(tǒng)權限 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)權限管理 子窗體 ].Requery Me![用戶編號 ].Requery Me![用戶名 ] = Set Rs = Nothing Exit_刪除用戶 _Click: Exit Sub Err_刪除用戶 _Click: MsgBox Resume Exit_刪除用戶 _Click End Sub Private Sub 修改權限 _Click() On Error GoTo Err_修改權限 _Click 39。打開“系統(tǒng)用戶”數(shù)據(jù)表 sTemp, , adOpenKeyset, adLockOptimistic 39。 39。) 39。找出系統(tǒng)用戶的“密碼” sTemp = DLookup(密碼 , 系統(tǒng)用戶 , 用戶編號 = 39。 39。) 39。 Mid(gdt, gdi, 1) End If gdi = gdi + 1 End Sub Private Sub 用戶編號 _AfterUpdate() On Error GoTo Err_用戶編號 _AfterUpdate Dim sTemp As String If IsNull(Me![用戶編號 ]) Then UserID = Null Else sTemp = DLookup(用戶編號 , 系統(tǒng)用戶 , [用戶編號 ]= 39。 沒有 他 們 的幫助， 我的 設計 進展一定 會 十分緩慢，而且有可能會寸步難行。 如果沒有 陳 老師的指導， 我的設計是不會那么順利完成的。正是在這些朋友的幫助下，我才及時糾正了自己的語法錯誤、邏輯錯誤、攻克了不少難點。 以上是我 在 本系統(tǒng) 設計過程中取得的成績 ， 遇到的問題及不足之處 。 24 通過這 次畢業(yè)設計，我系統(tǒng) 地 學習了 VBA 語言， Access 數(shù)據(jù)庫，并獨立 完成了本 系統(tǒng) 的構思、設計、 調試及測試成功， 本 系統(tǒng) 可以對 學生宿舍 管理完成一定的添加、修改、刪除、查詢等功能的處理，但是 本 設計中也存在 一些 不足 ， 比如 在系統(tǒng)權限管理窗體上功能不 夠 全面，有待提高 。系統(tǒng)投入運行后，將有力地推動校園的網(wǎng)絡化和信息化建設。如圖 所 示； （ 5） 取消“顯示數(shù)據(jù)庫窗口”選項，取消“允許內置工具欄”選項，取消“允許全部菜單”選項，如圖 所示。 圖 新建菜單欄 New Menu Bar 設置基本啟動選項 基本啟動選項 ，主要包括“應用程序標題”、系統(tǒng)啟動后自動打開的窗體，以及數(shù)據(jù)庫窗口、菜單欄、工具欄是否顯示等選項內容。其運行結果如圖 所示。在“ 修改 密碼 窗體”添加的代碼見附錄 E。在本窗體的界面設計如圖 所示。 19 圖 報表顯示按系別分類 Report Shows another Classification by the Department 點擊相對應系別的報表顯示按鈕，將會出現(xiàn)報表顯示，運行的結果如圖 所示。即報表只用于輸出數(shù)據(jù)，而沒有修改、刪除或添加數(shù)據(jù)的功能 ]9[ 。報表常常用于顯示概覽信息，以便突出顯示主要信息和趨勢。 窗體的運行結果如圖 、圖 所示。如圖 所示。 15 圖 “選擇查詢字段” Select Query Field （ 8）通過輸入條件，可以進一步定義查詢。如果沒有聯(lián)接，請自行創(chuàng)建聯(lián)接。 圖 “新建查詢”對話框 New Query Dialog Box （ 3）選擇“設計視圖”選項，然后單擊“確定”按鈕，系統(tǒng)將出現(xiàn)“顯示表”對話框，如圖 所示。參數(shù)查詢是在選擇查詢中添加了可變化的條件，即“參數(shù)”。既可以對單個數(shù)據(jù)表進行查詢，也可以對多個數(shù)據(jù)表進行查詢，甚至可以對查詢的結果集進行查詢，即查詢嵌套 ]8[ 。最終的運行結果如圖 、圖 、圖 所示 。 學生宿舍基本信息窗體是通過 “打開窗體”命令按鈕來創(chuàng)建的。 在主窗體的上方調用了一個系統(tǒng)時間， 同時添加了跑馬燈的 效果 。在“命令按鈕”對話框的“其他”選項中，將控件的名稱設置為“ 取消登錄 ”，打開“代碼” 窗口，輸入 代碼 。 為窗體添加一個“確定” 按鈕， 該命令按鈕用于確認用戶輸入的用戶編號 和密碼是否正確。 用戶在“用戶編號”文本框中輸入用戶登錄的“用戶編號”值，當“用戶編號”文本框的數(shù)據(jù)被更改之前，系統(tǒng)將從“系統(tǒng)用戶”表中搜索該“用戶編號”對應的“用戶名”并 顯示于窗體的“用戶名”文本框內，如果沒有找到用戶，系統(tǒng)將彈出“您用戶編號 輸入錯誤，或者還沒有注冊，請檢查！ ”的提示信息。 5 系統(tǒng)功能 模塊的設計 登錄 窗體的設計 在進入 本 系統(tǒng)之前首先會出現(xiàn)一個登錄 窗體 ，用戶只有在輸入正確的用戶 編號 和正確的密碼之后，才能進入系統(tǒng)進行數(shù)據(jù)處理。 本設計采用的是一對一和一對多的關系，關系視圖如圖 所示 圖 關系視圖 Relation View 窗體 的 基本認識 窗體是數(shù)據(jù)庫的基本對象之一，它既是管理數(shù)據(jù)庫的窗口，又是用戶和數(shù)據(jù)庫之間的橋梁。 通常，關系是通過連接表之間的關鍵字而建立的，即將一個表 中的主鍵與另外一個表中的外鍵連接起來。 數(shù)據(jù)表之間的關系 字段的創(chuàng)建和數(shù)據(jù)的輸入，只是最基本的表的操作，要使數(shù)據(jù)庫成為一個完整的數(shù)據(jù)庫，還需要創(chuàng)建數(shù)據(jù)表之間的關系。建立了空的數(shù)據(jù)庫后，下一步首先要做的就是創(chuàng)建數(shù)據(jù)表。 ● 宿舍管理員基本信息的輸入、修改、查詢和刪除，包括用戶編號、用戶名、用戶性別、密碼、所管樓號、個人電話。 ● 宿舍物品維修登記的輸入、修改、查詢、刪除，包括宿舍號、報修時間、報修人姓名、維修原因、維修人員、維修時間、備注。 系統(tǒng)功能 分析是在系統(tǒng)開發(fā)的總體任務的基礎上完成。 本 學生 宿舍 管理 系統(tǒng) 軟件，是以 我院 的 學生宿舍 管理方式為背景 而設計的一種實用型管理軟件。要保持數(shù)據(jù)庫持續(xù)穩(wěn)定地運行，需要數(shù)據(jù)庫管理員具備較高的技能，同時也需要付出更多的勞動。 針對不同的數(shù)據(jù)庫管理系統(tǒng)，要根據(jù)其特點和處理的需求，進行物理存儲的安排，建立索引，形成數(shù)據(jù)庫 的內模式。通俗地說，就是設計一種邏輯結構，通過該邏輯結構能夠導出與用戶需求一致的結果。 鑒于在開發(fā)初期所作的設計方案往往會對最終結果產(chǎn)生很大的影響，為了能更好地實現(xiàn)數(shù)據(jù)庫設計的最終目標，必須認真細致地進行研究和規(guī)劃。 數(shù)據(jù)庫設計一般分為 6 個步驟，它們是需求分析、概念結構設計、邏輯結構設計、 5 物理結構設計、數(shù)據(jù)庫實施和數(shù)據(jù)庫的運行與維護，如圖 所示。而 VBA 提供了面向對象的程序設計方法，提供了相當完整的程序設計語言。 VBA 語言簡介 Microsoft Office Access 是開發(fā)單機小型數(shù)據(jù)庫應用系統(tǒng)的理想工具 ,可以獨立開發(fā)數(shù)據(jù)庫應用系統(tǒng) ,也可以作為后臺 數(shù)據(jù)庫與 Visual Basic 等高級語言結合使用，本系統(tǒng)使用的是 VBA 語言 (內置于 Access 中 )。同時，多種應用、 多種語言互相覆蓋地共享數(shù)據(jù)集合的要求越來越強烈。 文件系統(tǒng)仍然是一個不具有彈性的無結構的數(shù)據(jù)集合，即文件之間是孤立的。人 工管理數(shù)據(jù)的特點如下： 數(shù)據(jù)不保存 ； 應用程序管理數(shù)據(jù) ； 數(shù)據(jù)不共享 ； 數(shù)據(jù)不具有獨立性 。 數(shù)據(jù)庫技術是應數(shù)據(jù)管理任務的需要而產(chǎn)生的。 開發(fā) 工具： Microsoft Access 2020。 課題研究的意義 學生 宿舍管理系統(tǒng)是目前各所高校后勤管理之中的重要部分，如何能科學有效的開展好 學生 宿舍管理部分的工作，是當前高校領導人和后勤管理人員關心的問題 。s dormitory management. Key words: Dormitory management, Access database, VBA language 目錄 1 前言 .................................................................................................................................... 1 系統(tǒng)開發(fā)應用背景 ..................................................................................................... 1 課題研究的意義 ......................................................................................................... 1 系統(tǒng)開發(fā)環(huán)境的選擇 ........