【正文】 ........................................... 14 ..................................................... 15 湖北師范學院 2020屆教育信息與技術學院學士學位論文（設計） 1 基于 VB的高校學生宿舍信息管理系統 徐 蜜 （指導教師， 陳 琦 ） （ 湖北師范學院 教育信息與技術學院 湖北 黃石 435002） 概述 課題研究的目的意義 學生宿舍管理歷來是學校管理工作中不可或缺的一部分。由此 可見傳統的靠宿舍管理人員手工記錄的宿舍管理方式已經不能適應目前正在高速發(fā)展的信息化時代了，我們需要一種具備檢索迅速、查找方便、可靠性高、存儲量大等特性的新的方式來取代舊的人工方式，計算機化管理正是這樣一種理想的選擇。這無疑是為信息存儲量比較大的學校提供了一個方便、快捷的操作方式，使得人們從繁重的海量數據處理維護中解脫出來，換而代之的是界面友好，設計極具人性化的前臺應用程序，使用者會感到操作非常方便。隨著高等教育的發(fā)展、高校規(guī)模的擴大、學生人數增加、學生宿舍各種信息的匯總、統計和分析等管理工作面臨著諸多困難，管理工作也越來越繁重和瑣碎。近年來國內出現了很多與宿舍相關的管理系統，有些學校開始建立并使用管理信息系統管理學生宿舍，但是或多或少都有不足之處。 課題開發(fā)目標與思路 經過對我 校學生宿舍的調查，開發(fā)一個能為宿舍管理人員提供充足的信息和快捷的查詢手段的學生宿舍管理系統，要求具有程序界面友好、功能完備等特點的高校宿舍管理系統。本系統為管理員用戶系統， 設置不同級別的用戶以區(qū)別他們對系統的操作權限。系統主窗體創(chuàng)建可以展現我們進入系統之后的界面，是管理員用戶與計算機進行交流的渠道；數據庫的設計將學生的信息進行了集中管理，是宿舍學生信息的集中反映，是個簡易的交流平臺。數據庫的設計要將 Visual Basic 和 Access 有機結合起來，弄清楚數據源、數據訪問對象和數據顯示對象三者之間的關系， VB 可以直接連接到 Access 表，兩者的聯系即數據信息的管理是研究的重點，VB 的這種功能也簡化了數據庫的設計。學生宿舍管理中心作為學生住宿及其他基本信息的主要管理者 ,對信息管理系統的快捷、高效與便利化的需求不斷提高。相湖北師范學院 2020屆教育信息與技術學院學士學位論文（設計） 3 對而言 ,作為軟件方面的管理工作 ,改革的速度就遠遠較滯后于硬件設施的建設速度。筆者根據多年的學生宿舍管理工作經驗的總結 ,發(fā)現當前學生宿舍管理工作與以往相比 ,具有以下明顯的特點 : （ 1） 配合學生宿舍區(qū)思想政治教育工作的需求 學生宿舍是 大學生學習、休息、娛樂、社會交往及進行其他活動的重要場所 ,是學生的第二課堂 ， 同時也是對學生進行思想政治教育工作的重要陣地。針對學生宿舍住宿的具體情況而言 ,各個院系的學生往往分散或混合住宿在不同的宿舍樓內。 （ 2） 后勤管理體制變革的需求 由于市場經濟體制的運行 ,高校后勤管 理也逐漸推入市場經濟的浪潮之中。現在宿舍管理工作逐步實行了有償服務。如何營造一個有利于大學生身心健康發(fā)展的良好環(huán)境 ,讓他們住有所值 ,自己舒心 ,家長放心 ,學校滿意 ,力求經濟效益和社會效益的統一 ,成為后勤集團服務的任務與目標。 （ 3） 提高管理者素質的需求 由于高校后勤社會 化的改革 ,對宿舍管理人員的要求也越來越高 ,特別是對管理者運用現代信息化手段的能力與知識素質與自身修養(yǎng)的要求。如果后勤隊伍是一支政治素質不高 ,文化水平低 ,缺乏教育管理經驗和優(yōu)質服務理念的管理隊伍。舊有的人工管理模式已經不能滿足其需求 ,特別是在一年一度的新生住宿安排和畢業(yè)生離校的時候 ,需要 根據學生姓名、 學號迅速查明其所住寢室 ,或者根據所住寢室人員姓名迅速查詢其所在院系、專業(yè)及班級等等。另一方面 ,現在的學生對宿舍管理的要求也不斷提高。學生宿舍管理水 平的高低直接影響學校人才培養(yǎng)的質量。 系統功能分析 本階段需要通過用戶走訪、查閱資料等手段了解用戶進行 的工作流程。最后完成系統概念結構設計及數據分析。該功能模塊主要包括：查詢學生信息；添加學生信息；修改學生信息；宿舍分配 ；學生宿 舍退宿 。 該功能模塊主要包括：宿舍基本信息（實現對公寓數、宿舍數、現住人數及可住人數的統計）；宿 舍管理員信息；宿舍信息修改 。 該功能模塊主要包括：衛(wèi)生檢查管理（包括對宿舍衛(wèi)生檢查信息的添加和修改）；來訪登記和學生晚歸登記。 該功能模塊包括：用戶管理（包括添加 /刪除用戶，管理員密碼修改）；界面設置。 系統的功能如圖 說明： 圖 系統功能整體構架圖 visual Basic(VB)是微軟公司推出的功能強大的 Windows 應用程序開發(fā)工具。與普通的數據庫系統相比，用 VB 作為數據庫開發(fā)平臺有簡單性、靈活性等優(yōu)點，特別是其可擴充性，在 VB 中，可以使用 Active X 控件 (以前版本中稱 VBX 或 OLE控件 )，很容易在 VB 中增加新功能，擴充 VB 數據存取控制的指令系統。 Access 數據庫功能比較齊全，數據的備份、拷貝都很方便，且程序發(fā)布時不需要額外安裝其他的數據 庫管理軟件。 湖北師范學院 2020屆教育信息與技術學院學士學位論文（設計） 6 用戶界面的設計 系統的整體構架圖 在設計之前，要對系統的結構進行整體的建構，圖 顯示了系統的整體構架圖。 湖北師范學院 2020屆教育信息與技術學院學士學位論文（設計） 7 圖 系統登錄時界面圖 系統進入 后 界面 如圖 顯示了用戶登錄系統后系統的操作界面，左邊依次是八個模塊，各 自發(fā)揮作用，右邊的窗體顯示操作 項 。 圖 系統“添加宿舍”界面圖 湖北師范學院 2020屆教育信息與技術學院學士學位論文（設計） 8 如圖 顯示了用戶登錄系統后“ 宿舍管理 ” 模塊 界面圖。 圖 系統“宿舍管理”界面圖 如圖 顯示了用戶登錄系統后“ 添加學生 ” 模塊 界面圖。 圖 系 統“添加學生”界面圖 湖北師范學院 2020屆教育信息與技術學院學士學位論文（設計） 9 如圖 顯示了用戶登錄系統后“ 學生管理 ” 模塊 界面圖。 圖 系統“學生管理”界面圖 如圖 顯示了用戶登錄系統后“ 用戶列表 ” 模塊 界面圖。 圖 系統“用戶列表”界面圖 湖北師范學院 2020屆教育信息與技術學院學士學位論文（設計） 10 如圖 顯示了用戶登 錄系統后“ 退出系統 ” 模塊 界面圖。 圖 系統“退出系統”界面圖 系統實現了系統維護、宿舍管理、信息查詢等必需的功能，其操作簡單，界面友好，運行比較穩(wěn)定，適用于大學院校大學生宿舍管理 ,實現高效管理。 數據庫的連接 處理流程和數據流程 圖 顯示了數據庫中最初錄入信息的數據流圖，系統設計有了數據流圖作為前提，能夠提高操作的效率。 圖 0 層數據流圖 湖北師范學院 2020屆教育信息與技術學院學士學位論文（設計） 11 圖 顯示了數據庫錄入信息的 過程中 對信息的處理方式和管理要求 ， 這個數據流圖提綱同樣能夠提高效率，便于信息的錄入。本系統數據量較小，采用Access 數據庫就可滿足要求。 圖 數據庫表單示意圖 湖北師范學院 2020屆教育信息與技術學院學士學位論文（設計） 12 如圖 是數據庫“數據表”示意圖，是錄入信息完畢之后，直接查閱信息表的截圖。如圖 是“修改用戶”界面圖。本系統的安全措施在數據庫的訪問過程中雖然起到了一定的防護作用，然而，盡管人們想到了種種辦法維護自己的數據安全，但也總是有漏洞被發(fā)現，因此，備份數據是簡單有效的方法。這樣做的好處是 可將本機數據與其他計算機的數據進行交換。 圖 系統“添加用戶”界面圖 學生宿舍信息管理系統是高校后勤管理工作的一個重要部分 ，利用計算機進行學生住宿信息管理、 新生住宿 分配、 學生交費查詢和其它查詢服務等 ，可以使宿舍管理員從繁重的手工勞動中解脫出來 ， 大大提高了工作效率。 隨著我國高等教育事業(yè)的迅 速發(fā)展，高等教育由原來的精英教育逐漸走向大眾化，高校辦學規(guī)模不斷擴大，學生人數也急湖北師范學院 2020屆教育信息與技術學院學士學位論文（設計） 14 劇上升，后勤服務機構開始轉制。為了提高后勤管理的效率，更好地發(fā)揮其在高等教育與教學中的輔助作用與服務功能，高校學生宿舍管理引入信息與網絡手段顯得尤其重要。 但是我們也要看到，本系統還是存在一些問題值得大家思考，譬如如何進一步完善系統，使得宿舍信息系統能夠和學生學習系統聯結起來，充分發(fā)揮系統的高效性，實現有效地信息管理；再者，在宿舍生活方面存在的一些細節(jié)我們也要密切關注，如新生報到、衛(wèi)生檢查、借用工具等，將本系統補充完整，發(fā)揮更強大的功能來為學生的宿舍生活服務 ； 另外，可嘗試將用戶分為兩類“管理員”和“學生”： 管理員具有對系統的一切操作權限，而學生只可進行個人信息的修改和查詢信息的操作 ；最后，進一步設計網頁版的信息系統，方便管理員隨時隨地地上網查閱 ，使設計更人性化 。我想對自己說自己長大了不少，這是值得欣慰的，依然清晰地記得自己每一時期的轉變，新奇、迷茫、 輕松 、忙碌、寂寞、快樂、 淡定、忐忑，八個學期，四個學年，心境都不一樣。在學習的壓力下我磨礪了自己堅強的意志， 培養(yǎng)了吃苦的精神。也感謝各位老師的悉心教導和諄諄教誨，使得我在學習方面受益匪淺，在生活方面如坐春風。感謝我可愛的朋友們，和你們在一起的時光是我今生最美麗的篇章。提示錯誤信息 If = Then MsgBox 對不起，請輸入用戶名?。?！ , vbApplicationModal, 友情提示 ElseIf = Then MsgBox 對不起，請輸入用戶密碼?。?！ , vbApplicationModal, 友情提示 ElseIf And Then 39。 amp。 39。清空用戶密碼框 = = End Sub Private Sub Form_Load() 39。Data Source= amp。 /db/ End Sub 湖北師范學院 2020屆教育信息與技術學院學士學位論文（設計） 17 Private Sub Form_Unload(Cancel As Integer) Set conn = Nothing End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Call Command1_Click End If End Sub 附錄二 ： index 程序 Private Sub add_Click() = False = True = False = False = False = False = False = False End Sub Private Sub Command1_Click() Dim rs As New 39。判斷用戶密碼是否正確 sql = select * from admin where username=39。 Trim() amp。 sql, conn, 1, 3 湖北師范學院 2020屆教育信息與技術學院學士學位論文（設計） 18 If Trim() rs(password) Then MsgBox 請輸入正確舊密碼?。?！ , vbApplicationModal, 友情提示 Else Dim rs1 As New sql1 = select * from admin where username=39。 Trim() amp。 sql1, conn, 1, 3 rs1(password) = MsgBox 修改成功?。。?, vbApplicationModal, 友情提示 = = End If End If End Sub Private Sub Command10_Click() = True = False = False = False = False = False = False = False End Sub Private Sub Command11_Click() i = 0 Do While i If (i) Then sql1 = Delete from admin where username=39。 (i) amp。 sql1 i Else i = i + 1 End If Loop End Sub 湖北師范學院 2020屆教育信息與技術學院學士學位論文（設計） 19 Private Sub Comman