【正文】 e 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。VBA 是基于Visual Basic 發(fā)展而來的，它們具有相似的語言結(jié)構(gòu)，是Visual Basic的子語言。如果不能達到用戶的需求，就要反復(fù)修正或重新設(shè)計。本學(xué)生宿舍管理系統(tǒng)需完成的功能主要有：●宿舍基本信息的輸入、查詢、修改、刪除，包括宿舍號、宿舍編號、宿舍類型、入住狀態(tài)。要設(shè)置數(shù)據(jù)表之間的關(guān)系，必須先建立包含默寫通用信息的字段(稱之為主鍵字段)之間的連接。當(dāng)用戶輸入了正確的用戶編號和密碼后就可以進入本系統(tǒng)進行相應(yīng)的操作。在全院學(xué)生宿舍信息、1—7棟學(xué)生宿舍信息及晚歸登記的窗體中包含的命令按鈕基本相同。 “顯示表”對話框 Show Table Dialog Box（4）在“顯示表”對話框中列出了可以添加到查詢中的表等，雙擊要添加到查詢中的表的名稱，添加表（這里添加“全院學(xué)生宿舍信息”表）。報表能夠利用漂亮和豐富的布局，來為打印或屏幕顯示效果設(shè)置數(shù)據(jù)的格式。在“修改密碼窗體”添加的代碼見附錄E。正所謂付出了辛勞，收獲不少知識與能力。他們在程序調(diào)試中幫助我改正錯誤，提出合理化的建議，使程序的功能得以增強。判斷“用戶編號”和“密碼”文本框是否為空 If IsNull(Me![用戶編號]) Then MsgBox 請輸入“用戶編號”！, vbInformation, 輸入用戶編號 Me![用戶編號].SetFocus ElseIf IsNull(Me![密碼]) Then MsgBox 請輸入登錄密碼！, vbInformation, 輸入密碼 Me![密碼].SetFocus Else 39。關(guān)閉記錄集 39。打開“系統(tǒng)權(quán)限”數(shù)據(jù)表sTemp = Select * From 系統(tǒng)權(quán)限 sTemp, , adOpenKeyset, adLockOptimistic39。 39。) Then False 39。 ) 39。使用DoCmd對象的Quit方法退出當(dāng)前數(shù)據(jù)庫系統(tǒng) acQuitSaveNoneExit_取消登錄_Click: Exit SubErr_取消登錄_Click: MsgBox Resume Exit_取消登錄_ClickEnd Sub附錄C權(quán)限管理代碼Option Compare DatabasePrivate Sub 刪除用戶_Click()On Error GoTo Err_刪除用戶_ClickDim sTemp As StringDim i As IntegerDim Rs As Set Rs = New sTemp = Select * From 系統(tǒng)用戶39。 Me![用戶編號] amp。尤其是在實際設(shè)計階段，陳老師多次解答了我的問題和疑惑，給予我最大的幫助。使學(xué)生宿舍管理工作更具科學(xué)性、高效性；有利于學(xué)生宿舍工作實現(xiàn)制度化、規(guī)范化、合理化的管理，使學(xué)生宿舍工作的管理水平跨上新臺階，為高校學(xué)生宿舍管理工作持續(xù)、健康、穩(wěn)定的發(fā)展打下基礎(chǔ)。在“系統(tǒng)權(quán)限管理”窗體添加的代碼見附錄C，還有在“用戶登錄模塊”中新建的“通用”模塊中自定義一個OpenForm函數(shù)，該函數(shù)的具體代碼見附錄D。系統(tǒng)用戶可以點擊進入相應(yīng)的窗體進行查看、修改、添加、刪除等操作。參數(shù)查詢增加了該系統(tǒng)按姓名、學(xué)號、宿舍號、系別的查詢功能，它們在執(zhí)行時顯示自己的對話框以提示用戶輸入信息。系統(tǒng)“主窗體”。登錄系統(tǒng)時，首先判斷用戶輸入的“用戶編號”是否合法，因為本系統(tǒng)的“系統(tǒng)用戶”表規(guī)定“用戶編號”是由4個數(shù)字組成的字符串。在Access2003中共有3種方法創(chuàng)建表，分別為使用向?qū)?、使用設(shè)計器和通過輸入數(shù)據(jù)創(chuàng)建表。本系統(tǒng)最大的特點是通用性、簡單操作性。由于邏輯設(shè)計與具體的數(shù)據(jù)庫系統(tǒng)關(guān)系有關(guān)。這時硬件已有大容量磁盤，硬件價格下降，軟件價格則上升，編制和維護系統(tǒng)軟件及應(yīng)用程序所需的成本相對增加；在處理方式上，用戶對聯(lián)機實時處理的要求更多，并開始提出和考慮分布處理。數(shù)據(jù)庫是指由DBMS(DBMSDate Base Management System數(shù)據(jù)庫管理系統(tǒng)軟件)管理的數(shù)據(jù)的集合。結(jié)合目前我院后勤管理情況，通過咨詢各用戶部門的需求，本設(shè)計使用Access數(shù)據(jù)庫和其內(nèi)置的VBA（Visual Basic for Application）語言作為開發(fā)工具，設(shè)計出功能全面的管理系統(tǒng)。s dormitory management.Key words: Dormitory management, Access database, VBA language目錄1前言 1 1 1 12數(shù)據(jù)庫系統(tǒng)的介紹 發(fā)展及其優(yōu)點 1 1數(shù)據(jù)庫的發(fā)展人工管理階段20世紀50年代中期以前，計算機主要用于科學(xué)計算。VBA的概念：Visual Basic具有功能相當(dāng)強的系統(tǒng)結(jié)構(gòu)，因此微軟公司將其引用到其他常用的應(yīng)用程序上（例如：Access、Excel、Word、PowerPoint等等），這種夾在應(yīng)用程序中的Visual Basic版本稱之為VBA（Visual Basic for Application）。物理設(shè)計結(jié)構(gòu)設(shè)計同樣依賴與具體的數(shù)據(jù)庫管理系統(tǒng)。 ●宿舍狀態(tài)的輸入、查詢、修改、刪除。但是被連接的字段必須具有相同的數(shù)據(jù)類型和長度。為了使界面更加美觀，在窗體中還添加了跑馬燈的效果。窗體中的“統(tǒng)計人數(shù)”，統(tǒng)計的是當(dāng)前窗體的記錄數(shù)。（5）添加完需要的表后，單擊“關(guān)閉”按鈕。報表常常用于顯示概覽信息，以便突出顯示主要信息和趨勢。 Change Password為系統(tǒng)設(shè)計一個簡單、實用的幫助窗體。通過這次畢業(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è)計進展一定會十分緩慢，而且有可能會寸步難行。找出系統(tǒng)用戶的“密碼” sTemp = DLookup(密碼, 系統(tǒng)用戶, 用戶編號 = 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 i = + 1 Else End If Next i MsgBox 用戶資料已經(jīng)刪除完成！, vbOKOnly, 刪除完成 Me![系統(tǒng)權(quán)限管理 子窗體].Requery Me![用戶編號].Requery Me![用戶名] = Set Rs = NothingExit_刪除用戶_Click: Exit SubErr_刪除用戶_Click: MsgBox Resume Exit_刪除用戶_ClickEnd SubPrivate Sub 修改權(quán)限_Click()On Error GoTo Err_修改權(quán)限_Click 39。打開“系統(tǒng)窗體”數(shù)據(jù)表sTemp = Select * From 系統(tǒng)窗體 sTemp, , adOpenK