【正文】 as the manpower, the physical resource and so on. The traditional way is not able to get the task or solve the loopholes. However, with the development of the puter technology and information technology, the widespread application of puter, the information management system has bee as the information interactive platform ultimately. The puter informationization management has provided the possibility for these question solution. The current situation of logistics management in our hospital, through consultation with the needs of user departments. This design uses the VBA（ Visual Basic for Application） language and the Access database as the development tool, designs the management system with a prehensive function. In the paper, the author introduced the method and the process of the design, and proves merits of the Access database and the VBA language tool. The system is designed to achieve the existing dormitory management system of information encountered in quarters and a large amount of data stored in the database based on the design and pletion of the classification of information to their quarters, query, add, delete, and modify. This system existence some merits such as operation simple, nimble practical and contact surface artistic and so on, which has certain model significance to university39。將計(jì)算機(jī)中的數(shù)據(jù)庫(kù)管理系統(tǒng)應(yīng)用于后勤公寓管理，這樣不僅可以根本改變目前純?nèi)斯?、紙張書面管理的模式，提高辦公效率；還可以大大 減輕管理人員的工作量，實(shí)施對(duì)房間的標(biāo)準(zhǔn)化管理，更有利于學(xué)院相關(guān)部門的工作開展。 軟件環(huán)境 操作系統(tǒng)： Windows 2020/ XP，建議采用 Windows XP。 DBMS 需要有如下功能： 數(shù)據(jù)定義功能 ； 數(shù)據(jù)操作功能 ； 數(shù)據(jù)庫(kù)的運(yùn)行管理功能 ； 數(shù)據(jù)定的建立和維護(hù)功能 。當(dāng)時(shí)的硬件狀況是：外存只有紙帶、卡片、磁帶，沒有磁盤等直接存取的存儲(chǔ)設(shè)備；軟件的狀況是：沒有操作系統(tǒng)，沒有管理數(shù)據(jù)的軟件；數(shù)據(jù)處理方式是批處理。 用文件系統(tǒng)管理數(shù)據(jù)具有如下特點(diǎn)： 數(shù)據(jù)可以長(zhǎng)期保存 ； 由文件系統(tǒng)管理數(shù)據(jù) ； 數(shù)據(jù)共享性差，冗余度大 ； 數(shù)據(jù)獨(dú)立性差 。 圖 文件系統(tǒng)階段應(yīng)用程序與數(shù)據(jù)之間的對(duì)應(yīng)關(guān)系 Stage Application Between File System and Data Relationship 應(yīng)用程序 1 應(yīng)用程序 2 數(shù)集 1 數(shù)集 2 應(yīng)用程序 n 數(shù)集 n …… …… 應(yīng)用程序 1 應(yīng)用程序 2 應(yīng)用程序 n 文件系統(tǒng) 存取方法 文件 1 文件 2 文件 n …… …… 4 數(shù)據(jù)庫(kù)系統(tǒng)階段 20 世紀(jì) 60 年代以來(lái)，計(jì)算機(jī)用于管理 的規(guī)模越來(lái)越大，應(yīng)用越來(lái)越廣泛，數(shù)據(jù)量急劇增長(zhǎng)。用數(shù)據(jù)庫(kù)系統(tǒng)來(lái)管理數(shù)據(jù)比用文件系統(tǒng)具有明顯的優(yōu)點(diǎn)，從文件系統(tǒng)到數(shù)據(jù)庫(kù)系統(tǒng)，標(biāo)志著數(shù)據(jù)管理技術(shù)的飛躍。 VBA 是新一代標(biāo)準(zhǔn)宏語(yǔ)言，與傳統(tǒng)的宏語(yǔ)言不同，傳統(tǒng)的宏語(yǔ)言不具有高級(jí)語(yǔ)言的特征，沒有面向?qū)ο蟮某绦蛟O(shè)計(jì)概念和方法。 數(shù)據(jù)庫(kù)設(shè)計(jì)的一般步驟 數(shù)據(jù)庫(kù) 設(shè)計(jì)是指對(duì)于一個(gè)給定的應(yīng)用環(huán)境，構(gòu)造最優(yōu)的數(shù)據(jù)庫(kù)模式，建立數(shù)據(jù)庫(kù)及其應(yīng)用系統(tǒng)，使之能夠有效地存儲(chǔ)數(shù)據(jù)并滿足各種用戶的應(yīng)用需求。該階段應(yīng)與系統(tǒng)用戶進(jìn)行交流，了解他們對(duì)數(shù)據(jù)庫(kù)的要求及有的業(yè)務(wù)流程，并把這些信息用數(shù)據(jù)庫(kù)流程圖或文字等形式記錄下來(lái)，以便最終獲得處理需求。 ● 確定表間的關(guān)系。對(duì)于 Access 來(lái)說(shuō)，物理結(jié)構(gòu)的設(shè)計(jì)過(guò)程通常包括以下步驟： ● 創(chuàng)建數(shù)據(jù)庫(kù) ； ● 創(chuàng)建表 ； ● 創(chuàng)建表之間的關(guān)系。 數(shù)據(jù)庫(kù)的運(yùn)行與維護(hù) 完成了部署數(shù)據(jù)庫(kù)系統(tǒng)，用戶可以開始使用系統(tǒng)，但這并不標(biāo)志著數(shù)據(jù)庫(kù)開發(fā)周期的結(jié)束。 3 系統(tǒng)分析與總體設(shè)計(jì) 系統(tǒng)需求分析 隨著科學(xué)技術(shù)的不斷提高，計(jì)算機(jī)科學(xué)日漸成熟，其強(qiáng)大的功能已為人們深刻認(rèn)識(shí)，它已進(jìn)入人類社會(huì)的各個(gè)領(lǐng)域并發(fā)揮越來(lái)越重要的作用。 7 系統(tǒng)功能描述 系統(tǒng)開發(fā)的總體任務(wù)是實(shí)現(xiàn)宿舍管理信息的系統(tǒng)化、規(guī)范化和自動(dòng)化。 包括宿舍號(hào)、宿舍對(duì)應(yīng)的狀態(tài)（如該宿舍狀態(tài)為：自用、宿舍管理員、空一張床、空兩張床、空三張床 、住滿） ● 學(xué)生 基本 信息的輸入 、 修改 、 查詢 、刪除 ，包括宿舍號(hào)、 姓名、學(xué)號(hào)、系別、班別、籍貫、宿舍 類型、入住 時(shí)間 、 宿舍電話、 備注。 ● 各個(gè) 宿舍 衛(wèi)生情況的輸入、修改和刪除，包括宿舍號(hào)、系 別、班別、門窗得分、床鋪得分、地板得分、桌面得分、陽(yáng)臺(tái)得分、宿舍等級(jí)、記錄時(shí)間。 8 圖 系統(tǒng)功能 模塊 框圖 System Block Diagram of Functional Modules 4 數(shù)據(jù) 庫(kù) 的基礎(chǔ)認(rèn)識(shí) 數(shù)據(jù) 表的 創(chuàng)建 數(shù)據(jù)表是 存放數(shù)據(jù)的地方，是數(shù)據(jù)庫(kù)最基本的組成部分，也是其他對(duì)象的數(shù)據(jù)源。 本設(shè)計(jì)中創(chuàng)建的主要數(shù)據(jù)表，見附錄 A。最重要的一點(diǎn)學(xué)生宿舍管理系統(tǒng) 1 棟 學(xué)生信息 2 棟學(xué)生信息 3 棟學(xué)生信息 4 棟學(xué)生信息 5 棟 學(xué) 生 信 息 學(xué)生基本信息管理 6 棟學(xué)生信息 7 棟學(xué)生信息 全院宿舍信息 宿舍基本管理 物品維修登記 宿舍衛(wèi)生情況 來(lái)訪登記 入住信息 系統(tǒng)資料查詢 按學(xué)號(hào)查詢 按姓名查詢 按宿舍號(hào)查詢 按系別查詢 系統(tǒng)維護(hù) 管理員信息 修改權(quán)限 密碼維護(hù) 9 是，為了使連接起作用，這兩個(gè)字段中的重要信息在兩個(gè)表中必須相同。在實(shí)際工作中，【一對(duì)一】關(guān)系和【一對(duì)多】關(guān)系在數(shù)據(jù)庫(kù)中的應(yīng)用較為常見。窗體作為輸入界面時(shí)，它可以接受數(shù)據(jù)的輸入并檢查輸入的數(shù)據(jù)是否有效；作為輸出界面時(shí)，它可以根據(jù)需要輸出各種形式的信息 (包括多媒體信息 )，還可以把記錄組織成為方便瀏覽的各種形式 ]6[ 。 本系統(tǒng)的用戶 編號(hào) 和密碼保存在 “ 系統(tǒng)用戶” 表中。 這是通過(guò)一個(gè) “ 標(biāo)簽 ”控件和 VBA 代碼實(shí)現(xiàn)的，所需要顯示的文字輸入在 “ lab 標(biāo)簽 ” 中的標(biāo)題欄中 ]7[ 。 再向窗體添加一個(gè)“取消”按鈕，該命令按鈕用于退出當(dāng)前的應(yīng)用程序。 圖 用戶 登陸 Login Window 11 主 窗體的設(shè)計(jì) 主窗體是采用命令按鈕的方法完成的，系統(tǒng)用戶通過(guò)點(diǎn)擊相應(yīng)的圖標(biāo)就能進(jìn)入下一個(gè)界面， 可以方便地調(diào)用“ 主窗體 ”的各項(xiàng)功能。 1— 7 棟學(xué) 生宿舍信息包含了該宿舍的某個(gè)學(xué)生晚歸登記子窗體，主窗體與子窗體之間是通過(guò)學(xué)號(hào)來(lái)對(duì)應(yīng)的。每一個(gè)窗體中的報(bào)表顯示，顯示的都是與該窗體一一對(duì)應(yīng)的報(bào)表。 Access 的查詢是通過(guò)各種查詢工具來(lái)進(jìn)行的。 本系統(tǒng) 創(chuàng)建的查詢，應(yīng)用的是參數(shù)查詢。 （ 2）在 Access“數(shù)據(jù)庫(kù)”窗口中選擇“查詢”對(duì)象，然后單 擊“新建”按鈕，系統(tǒng)將彈出“新建查詢”對(duì)話框，如圖 所示 。 （ 6）如果在查詢中 有 多個(gè)數(shù)據(jù)表或查詢，應(yīng)確保它們使用聯(lián)接線來(lái)彼此聯(lián)接。如圖 所示 。 要查看查詢的結(jié)果，雙擊該查詢出現(xiàn)一個(gè)對(duì)話框，在對(duì)話框中輸入查詢的條件，就可以進(jìn)入查詢的視圖。系統(tǒng)用戶可以點(diǎn)擊進(jìn)入相應(yīng)的窗體進(jìn)行查看、修改、添加、刪除等操作。 報(bào)表能夠利用漂亮和豐富的布局，來(lái)為打印或屏幕顯示效果設(shè)置數(shù)據(jù)的格式。 盡管報(bào)表能夠?yàn)閿?shù)據(jù)穿上各種“華麗的外衣”，從而以不同的方式分組和 顯示 數(shù)據(jù)，但報(bào)表并沒有改變數(shù)據(jù)庫(kù)表中的基礎(chǔ)數(shù)據(jù)。 圖 報(bào)表顯示 Report Shows 點(diǎn)擊上圖中的報(bào)表顯示按系別分類將會(huì)出現(xiàn)一個(gè)按系別分類的窗體，運(yùn)行結(jié)果如圖 所示。 在“系統(tǒng)權(quán)限管理”窗體添加的代碼見附錄 C，還有在“用戶登錄模塊”中新建的“通用”模塊中自定義一個(gè) OpenForm 函數(shù)，該函數(shù)的具體代碼見附 錄 D。如果密碼修改成功就會(huì)出現(xiàn)“ 恭喜你！密碼修改成功 ！”字樣，當(dāng)修改不成功時(shí)會(huì)出現(xiàn)“操作有誤，請(qǐng)重新輸入！”提示信息。系統(tǒng)用戶在 各個(gè)管理模塊只要點(diǎn)擊“幫助”命令按鈕就可以打開 該 窗體 。最終的結(jié)果顯示如圖 所示。這樣系統(tǒng)啟動(dòng)時(shí)，自動(dòng)打開“登陸窗體”。使學(xué)生宿舍管理工作更具科學(xué)性、高效性；有利于學(xué)生宿舍工作 實(shí)現(xiàn) 制度化、規(guī)范化、合理化的管理，使學(xué)生宿舍工作的管理水平跨上新臺(tái)階，為高校學(xué)生宿舍管理工作持續(xù)、健康、穩(wěn)定的發(fā)展打下基礎(chǔ)。正所謂付出了辛勞 ， 收獲 不少知識(shí)與能力。但無(wú)論怎樣辛苦 ， 最終還是獨(dú)立 完 成 了 本設(shè)計(jì) 。幸好，有許多老師、同學(xué)的幫助，我才得以調(diào)試成功，一次次的改進(jìn)自己的程序，實(shí)現(xiàn)各種功能。尤其是在實(shí)際設(shè)計(jì)階段， 陳 老師多次解答了我的問題和疑惑， 給予 我最大的幫助 。 他們?cè)诔绦蛘{(diào)試中幫 助我改正錯(cuò)誤，提出合理化的建議， 使 程序的功能 得以增強(qiáng)。 gdl = Len(gdt) gdi = 1 = 400 End Sub Private Sub Form_Timer() If gdi gdl Then gdi = 0 標(biāo)簽 .Caption = Else 標(biāo)簽 .Caption = 標(biāo)簽 .Caption amp。 39。 Me![用戶編號(hào) ] amp。判斷“用戶編號(hào)”和“密碼”文本框是否為空 If IsNull(Me![用戶編號(hào) ]) Then MsgBox 請(qǐng)輸入“用戶編號(hào)”！ , vbInformation, 輸入用戶編號(hào) Me![用戶編號(hào) ].SetFocus ElseIf IsNull(Me![密碼 ]) Then MsgBox 請(qǐng)輸入登錄密碼！ , vbInformation, 輸入密碼 Me![密碼 ].SetFocus Else 39。 39。 Me![用戶編號(hào) ] amp。使用 DoCmd 對(duì)象的 Quit 方法退出當(dāng)前數(shù)據(jù)庫(kù)系統(tǒng) acQuitSaveNone Exit_取消登錄 _Click: Exit Sub Err_取消登錄 _Click: MsgBox Resume Exit_取消登錄 _Click End Sub 附錄 C 權(quán)限管理代碼 Option Compare Database Private Sub 刪除用戶 _Click() On Error GoTo Err_刪除用戶 _Click Dim sTemp As String Dim i As Integer Dim Rs As Set Rs = New sTemp = Select * From 系統(tǒng)用戶 39。關(guān)閉記錄集 39。 amp。使用 DLookup 函數(shù)在“系統(tǒng)用戶”數(shù)據(jù)表中搜索“所管樓號(hào) ” Me![所管樓號(hào) ] = DLookup(所管樓號(hào) , 系統(tǒng)用戶 , _ [用戶編號(hào) ]=39。 )