基于VisualBasic平臺的學(xué)生宿舍管理系統(tǒng)的開發(fā)與設(shè)計(jì)說明

1、 PAGE46 / NUMPAGES46航天職業(yè)技術(shù)學(xué)院畢業(yè)設(shè)計(jì)（論文）畢業(yè)設(shè)計(jì)題目： 基于Visual Basic平臺的學(xué)生 宿舍管理系統(tǒng)的開發(fā)與設(shè)計(jì) 畢業(yè)設(shè)計(jì)（論文）原創(chuàng)性聲明和使用授權(quán)說明原創(chuàng)性聲明本人重承諾：所呈交的畢業(yè)設(shè)計(jì)（論文），是我個人在指導(dǎo)教師的指導(dǎo)下進(jìn)行的研究工作與取得的成果。盡我所知，除文中特別加以標(biāo)注和致的地方外，不包含其他人或組織已經(jīng)發(fā)表或公布過的研究成果，也不包含我為獲得與其它教育機(jī)構(gòu)的學(xué)位或?qū)W歷而使用過的材料。對本研究提供過幫助和做出過貢獻(xiàn)的個人或集體，均已在文中作了明確的說明并表示了意。作 者 簽 名：日 期：指導(dǎo)教師簽名： 日期：使用授權(quán)說明本人完全了解大學(xué)關(guān)于

2、收集、保存、使用畢業(yè)設(shè)計(jì)（論文）的規(guī)定，即：按照學(xué)校要求提交畢業(yè)設(shè)計(jì)（論文）的印刷本和電子版本；學(xué)校有權(quán)保存畢業(yè)設(shè)計(jì)（論文）的印刷本和電子版，并提供目錄檢索與閱覽服務(wù)；學(xué)?？梢圆捎糜坝　⒖s印、數(shù)字化或其它復(fù)制手段保存論文；在不以贏利為目的前提下，學(xué)?？梢怨颊撐牡牟糠只蛉咳?。作者簽名： 日 期：學(xué)位論文原創(chuàng)性聲明本人重聲明：所呈交的論文是本人在導(dǎo)師的指導(dǎo)下獨(dú)立進(jìn)行研究所取得的研究成果。除了文中特別加以標(biāo)注引用的容外，本論文不包含任何其他個人或集體已經(jīng)發(fā)表或撰寫的成果作品。對本文的研究做出重要貢獻(xiàn)的個人和集體，均已在文中以明確方式標(biāo)明。本人完全意識到本聲明的法律后果由本人承擔(dān)。作者簽名： 日期

3、： 年 月 日學(xué)位論文使用授權(quán)書本學(xué)位論文作者完全了解學(xué)校有關(guān)保留、使用學(xué)位論文的規(guī)定，同意學(xué)校保留并向國家有關(guān)部門或機(jī)構(gòu)送交論文的復(fù)印件和電子版，允許論文被查閱和借閱。本人授權(quán)大學(xué)可以將本學(xué)位論文的全部或部分容編入有關(guān)數(shù)據(jù)庫進(jìn)行檢索，可以采用影印、縮印或掃描等復(fù)制手段保存和匯編本學(xué)位論文。涉密論文按學(xué)校規(guī)定處理。作者簽名：日期： 年 月 日導(dǎo)師簽名： 日期： 年 月 日航天職業(yè)技術(shù)學(xué)院畢業(yè)設(shè)計(jì)（論文）任務(wù)書班 級07姓 名指導(dǎo)教師設(shè)計(jì)（論文）題目學(xué)生宿舍管理系統(tǒng)設(shè)計(jì)（論文）工作研究現(xiàn)狀、擬解決的問題、方法研究現(xiàn)狀：為了方便學(xué)校對學(xué)生宿舍的管理。針對當(dāng)前學(xué)生量的與日俱增，對學(xué)生宿舍管理的記錄，

4、因此需開發(fā)一個學(xué)生成績管理系統(tǒng)；擬解決的問題：對學(xué)生的信息以與寢室的進(jìn)行添加、刪除、修改等操作和可對學(xué)生之間進(jìn)行尋找同學(xué)；技術(shù)與方法：采用Visual Basic + Microsoft Access MDB的方式進(jìn)行開發(fā)。設(shè)計(jì)（論文）工作主要容按照開發(fā)軟件的基本步驟完成：可對學(xué)生信息、寢室以與權(quán)限進(jìn)行管理；用戶根據(jù)不同的權(quán)限可對學(xué)生信息與寢室信息進(jìn)行添加、刪除、修改等操作；可對學(xué)生的信息與寢室進(jìn)行查詢；具有良好的幫助環(huán)境。設(shè)計(jì)（論文）工作基本要求設(shè)計(jì)（論文）工作進(jìn)度安排2010年3月3日2010年3月31日完成畢業(yè)設(shè)計(jì)C級；2010年4月1日2009年4月30日完成畢業(yè)設(shè)計(jì)B或A級；（由指導(dǎo)

5、老師指定50%的同學(xué)參加）2010年5月4日2009年5月31日完成畢業(yè)答辯。主要參考資料與文獻(xiàn)Visual Basic 6.0程序設(shè)計(jì)（第二版）譚浩強(qiáng) 清華大學(xué)開始執(zhí)行任務(wù)書日期2010年 3 月指導(dǎo)教師（簽名）鐘文龍畢業(yè)論文完成日期2010年 5 月指導(dǎo)教師（簽名）鐘文龍摘 要 學(xué)生宿舍管理系統(tǒng)主要功能包括兩大部分：管理員部分和一般用戶部分。其中管理員可對一般用戶的基本信息進(jìn)行管理（包括個人信息管理，學(xué)生寢室管理，更新通知等），個人信息管理又包括個人信息的輸入、輸出、添加、修改、刪除。寢室管理包括寢室人員，室長，衛(wèi)生檢查結(jié)果，公務(wù)損壞后的賠償，水電費(fèi)通知等。更新通知即宿管員與時將通知更新，

6、供學(xué)生查看。一般用戶則可以通過相應(yīng)的用戶名和密碼查詢自己的個人信息，查看通知，查看水電費(fèi)，衛(wèi)生檢查結(jié)果，公務(wù)賠償以與尋找同學(xué)（即通過學(xué)生可查找到該生寢室號，寢室等）。本系統(tǒng)采用Visual Basic以與部數(shù)據(jù)庫Microsoft Access MDB進(jìn)行開發(fā)。關(guān)鍵字： 管理員，一般用戶，Visual Basic，Microsoft Access MDB目 錄前言6第1章 系統(tǒng)分析1.1 系統(tǒng)運(yùn)行環(huán)境與工具71.2系統(tǒng)開發(fā)條件 8第2章 學(xué)生宿舍管理系統(tǒng)的開發(fā)與設(shè)計(jì)2.1 管理員窗口的設(shè)計(jì)2.1.1 登陸102.1.2 過渡132.1.3 管理員主窗口132.1.4 更新通知162.1.5 人

7、員管理172.1.6 水電費(fèi)管理182.1.7 維修情況202.1.8 衛(wèi)生檢查222.1.9 來訪人員232.1.10 學(xué)生信息242.2 普通用戶界面的設(shè)計(jì)2.2.1 普通用戶主窗口252.2.2 最新通知272.2.3歷史通知282.2.4水電費(fèi)282.2.5公務(wù)賠償302.2.6密碼修改322.2.7個人信息332.2.8尋找同學(xué)34總結(jié)37致38參考文獻(xiàn)39前 言Visual Basic 6.0是一種面向?qū)ο蟮母呒壵Z言開發(fā)工具。自從面世以來，它簡單易學(xué)、功能強(qiáng)大的特點(diǎn)一直受到廣大程序員和編程愛好者的青睞。使用Visual Basic 6.0可以直接設(shè)計(jì)功能的強(qiáng)大的可視化界面，是程序員

8、編寫應(yīng)用程序變得很簡單。另外，使用Visual Basic 6.0 不但可以開發(fā)數(shù)據(jù)庫應(yīng)用程序，還可以開發(fā)文件、圖形圖像、多媒體，系統(tǒng)應(yīng)用程序和網(wǎng)絡(luò)等相關(guān)的應(yīng)用程序。因此，Visual Basic 6.0 是當(dāng)今使用最廣泛的高級語言之一。隨著學(xué)生量的與日俱增，學(xué)生宿舍的管理也變的越來越復(fù)雜，因此，針對學(xué)生宿舍的管理，開發(fā)了一個學(xué)生宿舍管理系統(tǒng)?？蓪Υ罅克奚徇M(jìn)行有效的管理。其中包括學(xué)生個人信息管理、學(xué)生寢室管理、學(xué)生尋找同學(xué)。學(xué)生寢室管理中包括，宿管員發(fā)出新的通知，衛(wèi)生檢查結(jié)果，人員管理，水電費(fèi)管理，維修情況，來訪人員，學(xué)生信息管理等。學(xué)生可以查詢自己的個人信息，尋找同學(xué)，查看通知，水電費(fèi)查詢，

9、公務(wù)賠償查詢以與密碼修改等。系統(tǒng)簡介1.1 系統(tǒng)運(yùn)行環(huán)境與開發(fā)工具Visual Basic（簡稱VB）是一種新型的現(xiàn)代語言。與傳統(tǒng)的語言相比，它在許多方面又重要的改革和突破。Visual Basic的特點(diǎn)（1）、提供可視化的編程工具Visual Basic為程序設(shè)計(jì)人員提供圖形對象（窗體、空間、菜單等），以進(jìn)行應(yīng)用程序的界面設(shè)計(jì)。Visual Basic 提供一個“工具箱”，向放油若干個“空間”。程序設(shè)計(jì)者可以自由地從工具箱中取出所需空間，放到窗體中的指定位置，而不必為此編寫程序。也就是說，屏幕上的用戶界面是用Visual Basic提供的可視化設(shè)計(jì)工具直接“畫”出來的，而不是用程序“寫”出來

10、的。其實(shí)，這些編程工作只是不由用戶來做，而由Visual Basic系統(tǒng)完成而已。（2）、采取“事件驅(qū)動”的方式編程 在設(shè)計(jì)好用戶界面后，才開始編寫程序。Visual Basic中程序執(zhí)行的基本方法是由“事件”來驅(qū)動子程序（在Visual Basic中將“子程序”稱為“過程”）的運(yùn)行。 Visual Basic是面向?qū)ο蟮?、結(jié)構(gòu)化的計(jì)算機(jī)語言。Visual Basic的界面由對象（窗體和控件）組成，每個對象有若干個醒，程序人員的任務(wù)是設(shè)計(jì)這些對象的事件過程。Visual Basic的語法與QBASIC和QBASIC的人，無須任何訓(xùn)練便可很熟練的進(jìn)行Visual Basic編寫代碼的工作。程序設(shè)

11、計(jì)的有關(guān)概念計(jì)算機(jī)程序設(shè)計(jì)語言是人與計(jì)算機(jī)進(jìn)行信息交換的工具。隨著計(jì)算機(jī)技術(shù)的發(fā)展，計(jì)算機(jī)程序設(shè)計(jì)語言也在不斷地發(fā)展，出現(xiàn)了功能、特點(diǎn)個不一樣的多種程序設(shè)計(jì)語言。程序設(shè)計(jì)方法和技術(shù)也在不斷發(fā)展。（1）、結(jié)構(gòu)化程序設(shè)計(jì)結(jié)構(gòu)化程序設(shè)計(jì)強(qiáng)盜程序設(shè)計(jì)的風(fēng)格和程序設(shè)計(jì)的規(guī)化，提倡清晰的結(jié)構(gòu)。結(jié)構(gòu)或程序設(shè)計(jì)方法的基本思路是，把一個復(fù)雜問題的求解過程分為若干個階段進(jìn)行，每個階段處理的問題都控制在人們?nèi)菀桌斫夂吞幚淼膰＞唧w地說，采取如下方法來保證得到結(jié)構(gòu)化算法自頂向下逐步細(xì)化模塊化這是結(jié)構(gòu)化程序設(shè)計(jì)的3個要素，其中最核心的是“逐步細(xì)化”。這種方法是“方法論”只是中重要的一部分。這種從抽象到具體、從總體到細(xì)目

12、的分解過程，以與最后實(shí)現(xiàn)這些細(xì)化的過程都具有嚴(yán)密的邏輯性。逐步細(xì)化方法是由“程序設(shè)計(jì)目標(biāo)”到寫出源程序的正確途徑。（2）、面向?qū)ο蟪绦蛟O(shè)計(jì)盡管結(jié)構(gòu)化程序設(shè)計(jì)方法已得到廣泛的使用，但是仍有一些問題沒有得到很好的解決。其中主要的問題是，這種設(shè)計(jì)方法重點(diǎn)在與用結(jié)構(gòu)化的方法描述系統(tǒng)的操作過程。結(jié)構(gòu)化程序設(shè)計(jì)語言又稱為“面向過程的語言”將被處理的數(shù)據(jù)與相關(guān)操作分離，因此程序模塊和數(shù)據(jù)機(jī)構(gòu)的關(guān)系是松散的。面向?qū)ο蟮某绦蛟O(shè)計(jì)方式針對這個問題提出的一種新的程序設(shè)計(jì)技術(shù)。面向?qū)ο蟮某绦蛟O(shè)計(jì)最基本的概念是將數(shù)據(jù)與處理數(shù)據(jù)的函數(shù)合并成一個單元，每個單元稱為一個對象。使用面向?qū)ο蟮脑O(shè)計(jì)原則編寫程序時，重要的是如何將一

13、個復(fù)雜的問題分解為一組對象。這種設(shè)計(jì)方法符合人們的思維習(xí)慣，便于分析復(fù)雜的問題，有利于軟件的維護(hù)。使用面向?qū)ο蟮某绦蛟O(shè)計(jì)，并不是放棄結(jié)構(gòu)化程序設(shè)計(jì)方法。在對象的實(shí)現(xiàn)中，仍需要使用結(jié)構(gòu)化程序設(shè)計(jì)技術(shù)。Visual Basic是在BASIC和Quick Basic語言的基礎(chǔ)上發(fā)展起來的，具有結(jié)構(gòu)化的高級語言的語句結(jié)構(gòu)，同時支持面向?qū)ο蟮某绦蛟O(shè)計(jì)技術(shù)，具有強(qiáng)大的功能。1.2 系統(tǒng)開發(fā)條件信息資源已成為各個部門的重要財(cái)富和資源，建立一個滿足各級部門信息處理需要的信息系統(tǒng)，也一個企業(yè)或組織生存越來越重要的信息資源。長期以來，使用傳統(tǒng)人工的方法管理高校公寓，這種管理方式存在著許多缺點(diǎn)，如：效率低。而且時間

14、一長，將產(chǎn)生大量的文件和數(shù)據(jù)，這對于查找、更新、維護(hù)都帶來了不少的困難。隨著科學(xué)技術(shù)的不斷提高，計(jì)算機(jī)科學(xué)日漸成熟，其強(qiáng)大的功能已為人們深刻認(rèn)識，它已進(jìn)入人類社會的各個領(lǐng)域并發(fā)揮越來越重要的作用。學(xué)生公寓管理軟件，是以高校的管理方式為實(shí)例而設(shè)計(jì)的一種實(shí)用型管理軟件。本系統(tǒng)最大的特點(diǎn)是通用性、簡單操作性。隨著學(xué)校寄宿人員的增多，公寓管理人員的負(fù)擔(dān)越來越重，為了讓所有公寓管理人員能從繁重的工作中解脫出來，實(shí)現(xiàn)無紙化辦公，使工作更有條理、更方便、更有效率，而開發(fā)出這套公寓管理軟件。學(xué)生宿舍管理系統(tǒng)的開發(fā)與設(shè)計(jì)我們正走進(jìn)一個信息時代，信息技術(shù)將從根本上改變?nèi)祟惿鐣纳a(chǎn)方式和生活方式，各行各業(yè)的業(yè)務(wù)管

15、理現(xiàn)在都已經(jīng)相繼使用計(jì)算機(jī)來處理，可以說用計(jì)算機(jī)進(jìn)行信息管理是一個總趨勢。學(xué)生公寓管理軟件主要是對公寓、寢室的配置、住宿人員登記、衛(wèi)生檢查、公寓資產(chǎn)、學(xué)生違紀(jì)、值班老師記錄以與對學(xué)生住宿情況查詢，修改，更新等?？梢愿斓亓私獾矫總€學(xué)生的住宿情況。開發(fā)一個學(xué)生公寓管理系統(tǒng)可以達(dá)到事半功倍的效果。隨著數(shù)據(jù)庫管理系統(tǒng)的普與以與可視化編程軟件的出現(xiàn)，使數(shù)據(jù)庫管理信息系統(tǒng)的開發(fā)變得更為簡單，因此開發(fā)一個學(xué)生公寓管理系統(tǒng)是完全可行的。系統(tǒng)流程圖： 通知： 更新通知 人員管理管理員 水電費(fèi)管理 寢室管理 維修情況 衛(wèi)生檢查 來訪人員學(xué)生宿舍 學(xué)生管理：學(xué)生信息管理系統(tǒng) 最新通知通知 歷史通知 水電費(fèi) 普通用

16、戶 繳費(fèi)管理 公務(wù)賠償 密碼修改 信息查詢 個人信息 尋找同學(xué)2.1管理員窗口的設(shè)計(jì)2.1.1登陸窗口的設(shè)計(jì)在這個界面中，主要處理的是判斷當(dāng)前用戶輸入的信息是否正確。如果正確，那么它屬于哪種類型用戶。因?yàn)榇斯芾碥浖诘卿浐蟛煌愋偷挠脩麸@示的窗體與實(shí)現(xiàn)的功能都不是一樣的，它們會有所差別！1、登陸窗口截圖 登陸窗口登陸后，分為兩類：一、管理員窗口；二、普通用戶窗口；登陸窗口截圖：圖2.1.1.1“學(xué)號”、“密碼”分別為標(biāo)簽框Label1和Label2；“確定”、“取消”、“退出”為命令按鈕command1，command2，command3；“20071111”與“*”為文本框text1，tex

17、t2；將text2的“passwordchar”屬性設(shè)置為“*”即顯示的密碼為“*”表示。登陸窗口添加data1，連接數(shù)據(jù)庫“l(fā)oading”。登陸窗口代碼（1）、“確定”按鈕代碼Private Sub Command1_Click()If Text1.Text = Or Text2.Text = ThenMsgBox 請輸入學(xué)號或密碼loading.ShowElseDo While Text1.Text Trim(Data1.Recordset.Fields(學(xué)號) Data1.Recordset.MoveNextLoopIf Trim(Text1.Text) = Trim(Data1.Re

18、cordset.Fields(學(xué)號) And Trim(Text2.Text) = Trim(Data1.Recordset.Fields(密碼) ThenIf Trim(Data1.Recordset.Fields(權(quán)限) = Trim(1) Then tadm.Show ElseIf Trim(Data1.Recordset.Fields(權(quán)限) = Trim(2) Then stu.Show End If ElseIf Trim(Text1.Text) Trim(Data1.Recordset.Fields(學(xué)號) Or Trim(Text2.Text) Trim(Data1.Recor

19、dset.Fields(密碼) And Text1.Text And Text2.Text Then MsgBox 學(xué)號或密碼錯誤，請重試!, , 登錄 Text1.SetFocus Data1.Recordset.MoveFirstEnd IfEnd Ifsgerenxinxi.Label1.Caption=Trim(Data1.Recordset.Fields(學(xué)號)sgerenxinxi.Label2.Caption=Trim(Data1.Recordset.Fields()sgerenxinxi.Label3.Caption=Trim(Data1.Recordset.Fields(寢室

20、號)sgerenxinxi.Label4.Caption=Trim(Data1.Recordset.Fields(班級)sgerenxinxi.Label5.Caption=Trim(Data1.Recordset.Fields(家庭住址)sgerenxinxi.Label6.Caption=Trim(Data1.Recordset.Fields(個人)sgerenxinxi.Label7.Caption=Trim(Data1.Recordset.Fields(寢室)End Sub(2)、“取消”按鈕代碼Private Sub Command2_Click()Text1.Text = Text

21、2.Text = （3）、“退出”按鈕代碼Private Sub Command3_Click()EndEnd Sub(4)、窗體的加載事件代碼Private Sub Form_Load()Data1.Visible = FalseEnd Sub2.1.2管理員過渡窗口提示用戶當(dāng)前日期，是否真的進(jìn)入系統(tǒng)。“確定”即進(jìn)入系統(tǒng)，“取消”即退出當(dāng)前系統(tǒng)。過渡窗口截圖圖2.1.2.1“你好！歡迎您在”、“2010-02-28”、“登錄學(xué)生宿舍管理系統(tǒng)”分別為Label1、Label2、Label3；“確定”、“取消”分別為command1、command2。如上圖顯示的是每次登陸系統(tǒng)的當(dāng)前日期。過渡窗

22、口代碼（1）、“確定”按鈕代碼Private Sub Command1_Click()tadmguanli.ShowEnd Sub（2）、“取消”按鈕代碼Private Sub Command2_Click()EndEnd Sub（3）、窗體的加載代碼Private Sub Form_Load()d$ = Date$Label3.Caption = d$2.1.3管理員主窗口程序主界面為本軟件的顯示的核心部分。一切主要操作與顯示都通過這里完成。管理員主窗口截圖圖2.1.3.1“通知”包括“更新通知”（mnugengxin）；“寢室管理”包括“人員管理”（mnurenyuan）、“水電費(fèi)管理”（

23、mnushuidian）、“衛(wèi)生檢查”（mnuweisheng）、“維修情況”(mnuweixiu)、“來訪人員”(mnulaifang)；“學(xué)生管理”包括“學(xué)生信息”(mnuxueshengxinxi)；“返回”包括“退出”(mnutuichu)、“返回”(mnufanhui)。最后，為了使窗體看上去不單調(diào)，選擇了設(shè)置窗體的picture屬性，加載了一幅圖片?！案峦ㄖ奔垂芾韱T在學(xué)校發(fā)出通知的時候可以即使登陸系統(tǒng)，更改當(dāng)前通知；“人員管理”即管理宿舍的寢室以與部人員的詳細(xì)管理；“水電費(fèi)管理”即在學(xué)校財(cái)務(wù)部將各個寢室的水電費(fèi)通知到各個寢室，其中包括水電費(fèi)的度數(shù)，單價(jià)，總價(jià)等；“衛(wèi)生檢查”即學(xué)

24、校定期檢查衛(wèi)生或系部定期檢查衛(wèi)生，并對各個寢室打出相應(yīng)的分?jǐn)?shù)；“維修情況”即宿舍設(shè)備非人為損害并且已經(jīng)維修好的，做出相應(yīng)的記錄；“來訪人員”即校外人員因事要進(jìn)入宿舍登記或?qū)W生的到訪人員登記記錄；“學(xué)生信息”即對學(xué)生的詳細(xì)信息作記錄；“返回”即回到登陸界面；“退出”即管理員退出學(xué)生宿舍管理系統(tǒng)。管理員窗體代碼（1）、“更新通知”代碼Private Sub mnuzuixin_Click()tgengxintongzhi.Showtgengxintongzhi.Text1.Text = slishitongzhi.Label1.Captiontgengxintongzhi.Text1.Text =

25、 End Sub（2）、“人員管理”代碼Private Sub mnurenyuan_Click()trenyuanguanli.ShowEnd Sub（3）、“水電費(fèi)管理”代碼Private Sub mnushuidian_Click()tshuidianfeiguanli.ShowEnd Sub（4）、“衛(wèi)生檢查”代碼Private Sub mnuweisheng_Click()tweishengjiancha.ShowEnd Sub（5）、“維修情況”代碼Private Sub mnuweixiu_Click()tweixiuqingkuang.ShowEnd Sub（6）、“來訪人員”

26、代碼Private Sub mnulaifang_Click()tlaifangrenyuan.ShowEnd Sub（7）、“學(xué)生信息”代碼Private Sub mnuxueshengxinxi_Click()txueshengxinxi.ShowEnd Sub（8）、“返回”代碼Private Sub mnufanhui_Click()loading.ShowEnd Sub（9）、“退出”代碼Private Sub mnutuichu_Click()EndEnd Sub以上代碼均是根據(jù)不同的菜單進(jìn)入不同的界面，進(jìn)入界面后再根據(jù)情況做出相應(yīng)的操作即可。2.1.4更新通知管理員在學(xué)校發(fā)出通知

27、的時候可以與時登陸系統(tǒng)，更改當(dāng)前通知，以便與時通知到各個寢室。更新通知窗口截圖圖2.1.4.1“確定”、“更改”、“返回”、“退出”、“首頁”分別為命令按鈕command1，command3，command2，command4，command5，以與一個text文本框。并設(shè)置其scrollbar屬性為2（vertical）只加垂直滾動條。單擊“確定”按鈕后，通知生效，此時不同用戶登陸的窗口“查看通知”與時顯示更新后的容。點(diǎn)擊“更改”后text文本框自動清空，此時管理員可以在文本框中輸入通知容。點(diǎn)擊“返回”按鈕后，則返回到管理員中窗口，可以進(jìn)入其他操作。點(diǎn)擊“退出”按鈕后則退出該學(xué)生宿舍管理系統(tǒng)

28、?！笆醉摗眲t是返回到登陸界面。更新通知窗口代碼（1）、“確定”按鈕的代碼Private Sub Command1_Click()Text1.Enabled = Falseszuixintongzhi.Label1.Caption=tgengxintongzhi.Text1.Text（2）、“更改“按鈕的代碼Private Sub Command3_Click()Text1.Enabled = TrueText1.SetFocusEnd Sub（3）、“返回”按鈕的代碼Private Sub Command2_Click()tadmguanli.ShowEnd Sub（4）、“退出”按鈕的代碼P

29、rivate Sub Command4_Click()EndEnd Sub（5）、“首頁”按鈕的代碼Private Sub Command5_Click()loading.ShowEnd Sub2.1.5人員管理該功能是對各個獨(dú)立的寢室進(jìn)行管理，包括寢室號，室長，寢室人員等?？蓪嬍遗c寢室人員進(jìn)行添加，刪除，修改等操作。1、管理窗口截圖圖2.1.5.1“寢室號”、“室長”、“寢室成員”分別為標(biāo)簽框Label1，Label2，Label3；添加3個文本框，分別為text1，text2，text3；“添加”、“刪除”、“修改”、“刷新”、“返回”分別為command1，command2，comma

30、nd3，command4，command5.添加一個data1，連接數(shù)據(jù)庫“寢室人員”。 該功能是設(shè)置寢室號，授權(quán)室長以與寢室成員等，同時也可對寢室添加，寢室人員添加，添加后授權(quán)一個室長。如果該寢室人員已經(jīng)撤銷則可以刪除該寢室的所有信息。修改寢室寢室，包括室長，寢室人員。刷新功能是修改寢室信息后可以對寢室進(jìn)行刷新操作。返回則是返回到管理員主窗口界面。2、管理窗口（1）、“添加”按鈕的代碼Private Sub Command1_Click()If Text1.Text = Or Text2.Text = Or Text3.Text = ThenMsgBox 請輸入完整信息ElseData1.R

31、ecordset.AddNewEnd IfEnd Sub（2）、“刪除”按鈕的代碼Private Sub Command2_Click()Data1.Recordset.DeleteEnd Sub（3）、“修改”按鈕的代碼Private Sub Command5_Click()Data1.Recordset.EditText1.SetFocusEnd Sub（4）、“刷新”按鈕的代碼Private Sub Command4_Click()Data1.RefreshEnd Su（5）、“返回”按鈕的代碼Private Sub Command3_Click()tadmguanli.ShowEnd

32、Sub2.1.6水電費(fèi)水電費(fèi)費(fèi)管理窗口實(shí)現(xiàn)的功能是管理員在每次水電費(fèi)通知出來后，準(zhǔn)確地講水單價(jià)，電單價(jià)，水量，電量，總的水費(fèi)，總的電費(fèi)，以與總費(fèi)用通知各個寢室。水電費(fèi)管理窗口截圖圖2.1.6.1“水噸”，“電度”，“水?dāng)?shù)量”，“水費(fèi)”，“電數(shù)量”，“電費(fèi)”，“總費(fèi)”，“寢室號”均為標(biāo)簽框LabelLabel；添加個文本框分別text1text8；“添加”，“刪除”，“修改”，“確定”，“返回”，“退出”分別為command1command6；添加data1和data2分別連接水電單價(jià)與水電費(fèi)，連接數(shù)據(jù)庫“水電費(fèi)”與“水電單價(jià)”?！疤砑印奔刺砑有碌挠涗洠酝臍v史記錄則記錄入數(shù)據(jù)庫并存儲。刪除則

33、可以刪除以往想要刪除的記錄，修改則可以修改所有存在數(shù)據(jù)庫中的所以數(shù)據(jù)，當(dāng)單擊確定按鈕后，當(dāng)前輸入的所有信息則進(jìn)入數(shù)據(jù)庫系統(tǒng)，一杯存儲。返回則是返回到管理員主窗口，此時可以訪問系統(tǒng)的其他功能，退出則是退出整個學(xué)生宿舍管理系統(tǒng)。水電費(fèi)管理窗口代碼（1）、“添加”按鈕代碼Private Sub Command1_Click()Data1.Recordset.AddNewEnd Sub（2）、“刪除”按鈕代碼Private Sub Command2_Click()Data1.Recordset.DeleteEnd Sub（3）、“修改”按鈕代碼Private Sub Command3_Click()T

34、ext1.SetFocusEnd Sub（4）、“確定”按鈕代碼Private Sub Command4_Click()tadmguanli.ShowEnd Sub（5）、“返回”按鈕代碼Private Sub Command6_Click()tadmguanli.ShowEnd Sub（6）、“退出”按鈕代碼Private Sub Command5_Click()EndEnd Sub2.1.7維修情況此功能則是在寢室設(shè)備損壞后，請工作人員維修好后的記錄，如果是人為損害的情況則需要記錄賠償情況，如果是非人為的情況則不需記錄入數(shù)據(jù)庫。同時也可以查詢所有寢室的維修情況。維修情況窗口截圖圖2.1.7

35、.1“請輸入寢室號查找”，“寢室號”、“維修情況”、“賠償情況”、“時間”為標(biāo)簽框Label1Label5；添加5個文本框text1text5與之對應(yīng)；“添加”、“更改”、“更新”、“返回”、“查找”分別為command1command5.添加data1，連接數(shù)據(jù)庫“維修情況”?！疤砑印卑粹o則是在每次新的維修情況出現(xiàn)后添加新的記錄入數(shù)據(jù)庫，更改則是在記錄出錯的情況下可以進(jìn)行信息的修改，更新則是在每次新的記錄后或是修改記錄后可以點(diǎn)擊更新按鈕則重新。維修情況窗口的代碼（1）、“添加”按鈕的代碼Private Sub Command1_Click()Data1.Recordset.AddNewEnd

36、 Sub（2）、“更改”按鈕的代碼Private Sub Command2_Click()Text1.SetFocusEnd Sub（3）、“更新”按鈕的代碼Private Sub Command3_Click()Data1.RefreshEnd Sub（4）、“返回”按鈕的代碼Private Sub Command4_Click()tadmguanli.ShowEnd Sub（5）、“查找”按鈕的代碼Private Sub Command5_Click()If Text5.Text = Or Text5.Text Trim(Data1.Recordset.Fields(寢室號) Then M

37、sgBox 沒有該寢室ElseDo While Text5.Text Trim(Data1.Recordset.Fields(寢室號) Data1.Recordset.MoveNextLoop If Trim(Text5.Text) = Trim(Data1.Recordset.Fields(寢室號) Then Text1.Text = Data1.Recordset.Fields(寢室號) Text2.Text = Data1.Recordset.Fields(維修情況) Text3.Text = Data1.Recordset.Fields(賠償情況) Text4.Text = Data1

38、.Recordset.Fields(時間)End If End IfEnd Sub2.1.8衛(wèi)生檢查 該功能是在每次學(xué)?；蚴窍挡窟M(jìn)行衛(wèi)生檢查后就進(jìn)行評分，然后記錄分?jǐn)?shù)，并保存入數(shù)據(jù)庫。在一學(xué)年后可調(diào)出記錄進(jìn)行總結(jié)，評優(yōu)秀寢室等。衛(wèi)生檢查窗口截圖圖2.1.8.1“寢室號”、“分?jǐn)?shù)”、“時間”為標(biāo)簽框Label1Label3；對應(yīng)添加3個文本框text1text3;“添加”、“修改”、“返回”、“退出”分別為command1command4；添加data1，連接數(shù)據(jù)庫“衛(wèi)生檢查”。單擊“添加”按鈕則添加記錄入數(shù)據(jù)庫，以便以后隨時查詢，“修改”則是修改當(dāng)前已有信息，“返回”則是返回管理員主窗口界面，

39、“退出”則是退出整個學(xué)生宿舍管理系統(tǒng)。2、衛(wèi)生檢查窗口的代碼（1）、“添加”按鈕代碼Private Sub Command1_Click()Data1.Recordset.AddNewEnd Sub（2）、“修改”按鈕代碼Private Sub Command2_Click()Text1.SetFocusEnd Sub（3）、“返回”按鈕代碼Private Sub Command4_Click()tadmguanli.ShowEnd Sub（4）、“退出”按鈕代碼Private Sub Command3_Click()EndEnd Sub2.1.9來訪人員 來訪人員登記則是在宿舍以外的人進(jìn)入宿

40、舍進(jìn)行登記，然后記錄入數(shù)據(jù)庫。來訪人員窗口截圖圖2.1.9.1“寢室號”、“訪問者”、“學(xué)生”、“時間”、“事件”分別是由標(biāo)簽框Label1Label5組成；對應(yīng)添加5個文本框text1text2；“添加”、“確定”、“返回”為3個命令按鈕command1command3；添加data1，連接數(shù)據(jù)庫“來訪人員”。 單擊“添加”按鈕是可以添加新的來訪人員記錄，并存入數(shù)據(jù)庫?！按_定”按鈕則是在輸入新的記錄后確定保存入數(shù)據(jù)庫?！胺祷亍眲t是返回到管理員主窗口界面，課進(jìn)行其他操作。2、來訪人員窗口代碼（1）、“添加”窗口代碼Private Sub Command1_Click()Data1.Record

41、set.AddNew（2）、“確定”窗口代碼Private Sub Command2_Click()Data1.RefreshEnd Sub（3）、“返回”窗口代碼Private Sub Command3_Click()tadmguanli.ShowEnd Sub2.1.10 學(xué)生信息可以對學(xué)生的信息進(jìn)行管理，包括學(xué)好、班級、寢室號、寢室、家庭住址、權(quán)限、個人等。以與對這些信息的添加、刪除、修改等。一、學(xué)生信息窗口截圖圖2.1.10.1“學(xué)號”、“寢室號”、“”、“寢室”、“班級”、“家庭住址”、“權(quán)限”、“個人”“（權(quán)限為學(xué)生）”分別為Label1Label9；對應(yīng)有text1text8；“

42、添加”、“修改”、“刪除”、“確定”、“返回”分別為command1command5；添加data1，連接數(shù)據(jù)庫“l(fā)oading”。 單擊“添加”按鈕的時候則可以添加學(xué)生信息，修改則是可以對已有的學(xué)生的信息進(jìn)行修改，刪除則是在已有的信息上進(jìn)行刪除操作，確定則是確定講信息存入數(shù)據(jù)庫，返回則是回到管理員主窗口。學(xué)生信息窗口代碼（1）、“添加”按鈕的代碼Private Sub Command1_Click()If Text1.Text = Or Text2.Text = Or Text3.Text = Or Text4.Text = Or Text5.Text = Or Text6.Text = O

43、r Text7.Text = Or Text8.Text = ThenMsgBox 請輸入完整信息！ElseData1.Recordset.AddNewEnd IfEnd Sub（2）、“修改”按鈕的代碼Private Sub Command2_Click()Text1.SetFocusEnd Sub（3）、“刪除”按鈕的代碼Private Sub Command3_Click()Data1.Recordset.DeleteEnd Sub（4）、“確定”按鈕的代碼Private Sub Command5_Click()Data1.RefreshEnd Sub（5）、“返回”按鈕的代碼Priva

44、te Sub Command4_Click()tadmguanli.ShowEnd Sub2.2 普通用戶界面的設(shè)計(jì)2.2.1普通用戶主窗口該窗口的設(shè)計(jì)跟管理員過度窗口的設(shè)計(jì)是一樣的，目的是提醒用戶當(dāng)前日期以與用戶歡迎詞。學(xué)生主窗口截圖圖2.2.1.1“通知”包括“最新通知”和歷史通知；“收費(fèi)管理”包括“水電費(fèi)”和“公務(wù)賠償”；“查詢信息”“密碼修改”包括“個人信息”和“尋找同學(xué)”；“返回”包括“返回”和“退出”；“歡迎你在”“2010-02-28”“登陸學(xué)生宿舍管理系統(tǒng)”分別為Label1Label3； 作為普通用戶，沒有對信息的編輯權(quán)限，所以沒必要設(shè)計(jì)可以編輯的菜單。學(xué)生主窗口代碼（1）、

45、“最新通知”菜單代碼Private Sub mnuzuixin_Click()szuixintongzhi.ShowEnd Sub（2）、“歷史通知”菜單代碼Private Sub mnulishitongzhi_Click()slishitongzhi.ShowEnd Sub（3）、“公務(wù)賠償”菜單代碼Private Sub mnugongwupeichang_Click()sgongwupeichang.ShowEnd Sub（4）、“水電費(fèi)”菜單代碼Private Sub mnushuidianfei_Click()sshuidianfei.ShowEnd Sub（5）、“個人信息”菜單

46、代碼Private Sub mnugerenxinxi_Click()sgerenxinxi.ShowEnd Sub（6）、“尋找同學(xué) ”菜單代碼Private Sub mnuxunzhaotongxue_Click()sxunzhaotongxue.ShowEnd Sub（7）、“密碼修改”菜單代碼Private Sub mnumimaxiugai_Click()smimaxiugai.ShowEnd Sub（8）、“返回”菜單代碼Private Sub mnufanhui_Click()loading.ShowEnd Sub（9）、“退出”菜單代碼Private Sub mnutuichu

47、_Click()EndEnd Sub（10）、窗體加載代碼Private Sub Form_Load()d$ = Date$Label2.Caption = d$End Sub2.2.2最新通知該功能是當(dāng)用戶登錄到該系統(tǒng)后，在管理員修改通知后，普通用戶就可以查看新的通知。最新通知窗口截圖圖2.2.2.1通知是由一個文本框text1將其enabled屬性設(shè)置為false；“返回”，“退出”分別由command1和command2組成。 由于是普通用戶，所以沒有權(quán)限編輯，只能查看，所以只需設(shè)置兩個按鈕即可“返回”、“退出”?！胺祷亍奔捶祷仄胀ㄓ脩糁鞑藛谓缑?，“退出”即普通用戶退出學(xué)生宿舍管理系統(tǒng)。

48、2、最新通知窗口代碼（1）、“返回”按鈕代碼Private Sub Command2_Click()stu.ShowEnd Sub（2）、“退出”按鈕代碼Private Sub Command1_Click()EndEnd Sub2.2.3歷史通知普通用戶可以進(jìn)入此窗口進(jìn)行歷史通知的查詢。歷史通知窗口截圖圖2.2.3.1Label1由一個text1將起enabled屬性設(shè)置成enabled；“返回”和“退出”command1和command2. 上圖為無歷史通知的情況下窗口的截圖?！胺祷亍眲t是返回普通用戶主菜單窗口，“退出”則是普通用戶退出學(xué)生宿舍管理系統(tǒng)。歷史通知窗口代碼（1）、“返回”按鈕

49、代碼Private Sub Command2_Click()stu.ShowEnd Sub（2）、“退出”按鈕代碼Private Sub Command1_Click()EndEnd Sub2.2.4水電費(fèi)水電費(fèi)窗口顯示的是水單價(jià)、數(shù)量、總價(jià)，電單價(jià)、數(shù)量、總價(jià)以與共計(jì)價(jià)格，其中可以以輸入的方式查詢要查詢的寢室的具體情況。水電費(fèi)窗口截圖圖2.2.4.1“請輸入寢室號”“（格式如：101）”“用水”“單價(jià)”“數(shù)量”“水費(fèi)”“用電”“單價(jià)”“數(shù)量”“電費(fèi)”“共計(jì)”均為label標(biāo)簽框；“確定”“繼續(xù)查詢”“返回”為command命令按鈕；其余均為文本框，除text1外，其余text 的enable

50、d屬性均為false；添加data1和data2，連接數(shù)據(jù)庫“水電單價(jià)”和“水電費(fèi)”。2、水電費(fèi)窗口代碼（1）、“確定”按鈕代碼Private Sub Command1_Click()If Text1.Text = ThenMsgBox 請輸入寢室號End IfDo While Text1.Text Trim(Data2.Recordset.Fields(寢室號) Data2.Recordset.MoveNextLoop If Trim(Text1.Text) = Trim(Data2.Recordset.Fields(寢室號) Then Label4.Caption = Data2.Reco

51、rdset.Fields(水?dāng)?shù)量) Label5.Caption = Data2.Recordset.Fields(水費(fèi)) Label6.Caption = Data2.Recordset.Fields(電數(shù)量) Label7.Caption = Data2.Recordset.Fields(電費(fèi)) Label8.Caption = Data2.Recordset.Fields(總費(fèi)) Text1.Enabled = FalseEnd If End Sub（2）、“繼續(xù)查詢”按鈕代碼Private Sub Command2_Click()Data2.Recordset.MoveFirstTex

52、t1.Enabled = TrueEnd Sub（3）、“返回”按鈕代碼Private Sub Command3_Click()stu.ShowEnd Sub（4）、窗體加載代碼Private Sub Form_Load()Data1.Visible = FalseData2.Visible = FalseEnd Sub2.2.5公務(wù)賠償該功能介紹的是在宿舍設(shè)備損害后進(jìn)行維修的情況，包括人為的和非人為的，其中人為的要計(jì)算賠償?shù)?。公?wù)賠償窗口截圖圖2.2.5.1“請輸入寢室號”“（格式101）”“寢室號”“維修情況”“賠償情況”“時間”為label標(biāo)簽框；“確定”“繼續(xù)查看”“返回”為三個命令按

53、鈕command1command3；其余均為text文本框，除text1外，其余text文本框的enabled屬性均為false。添加data1并連接數(shù)據(jù)庫。在上圖的text1文本框中輸入寢室號就可以對相應(yīng)的寢室做出查詢。單擊“確定”按鈕即在輸入有效的寢室號的時候查詢到該寢室的賠償情況，“繼續(xù)查看”則是清空text1文本框，輸入不同寢室號，進(jìn)行查詢?！胺祷亍眲t是返回到普通用戶菜單界面。2、公務(wù)賠償窗口代碼(1)、“確定”按鈕代碼Private Sub Command1_Click()If Text1.Text = ThenMsgBox 請輸入寢室號End IfDo While Text1.Te

54、xt Trim(Data1.Recordset.Fields(寢室號) Data1.Recordset.MoveNextLoop If Trim(Text1.Text) = Trim(Data1.Recordset.Fields(寢室號) Then Label1.Caption = Data1.Recordset.Fields(寢室號) Label2.Caption = Data1.Recordset.Fields(維修情況) Label3.Caption = Data1.Recordset.Fields(賠償情況) Label4.Caption = Data1.Recordset.Field

55、s(時間) Text1.Enabled = False End IfEnd Sub(2)、“繼續(xù)查看”按鈕代碼Private Sub Command2_Click()Text1.Enabled = TrueData1.Recordset.MoveFirstEnd Sub(3)、“返回”按鈕代碼Private Sub Command3_Click()stu.ShowEnd Sub(4)、窗體加載代碼Private Sub Form_Load()Data1.Visible = FalseEnd Sub2.2.6密碼修改密碼修改是管理員以與普通用戶都可以操作的界面可以對用戶密碼進(jìn)行修改。密碼修改圖2

56、.2.6.1“舊密碼”“新密碼”“重新輸入新密碼”為label標(biāo)簽框；“確定”“取消”“退出”為command命令按鈕；其余為text文本框，設(shè)置起passwordchar屬性為“*”。密碼修改窗口代碼(1)、“確定”按鈕代碼Private Sub Command1_Click()If Text1.Text loading.Text2.Text ThenMsgBox 舊密碼錯誤, vbOKOnly, 密碼修改Text1.Text = Text2.Text = Text3.Text = End IfIf Text2.Text = Text3.Text And Text1.Text = loadi

57、ng.Text2.Text Thenloading.Data1.Recordset.Editloading.Data1.Recordset.Fields(密碼) = Trim(Text3.Text)loading.Data1.Recordset.Updateloading.Data1.RefreshMsgBox 已修改該用戶!, vbOKOnly, 密碼修改Text3.Text = loading.Text2.TextText1.Text = Text2.Text = Text3.Text = End IfIf Text2.Text Text3.Text ThenMsgBox 2次新密碼錯誤或

58、舊密碼錯誤, vbOKOnly, 密碼修改Text2.Text = Text1.Text = Text3.Text = End IfText1.Text = Text2.Text = Text3.Text = End Sub(2)、“取消”按鈕代碼Private Sub Command2_Click()stu.ShowEnd Sub(3)、“退出”按鈕代碼Private Sub Command3_Click()EndEnd Sub2.2.7個人信息可以在此界面查看到個人注冊的信息，如果出現(xiàn)信息有誤可以跟系部聯(lián)系。1、個人信息窗口截圖圖2.2.7.1“返回”為command命令按鈕，其余均為la

59、bel標(biāo)簽框，除“學(xué)號”“家庭住址”“”“個人”“班級”“寢室號”“寢室”外，其余均要與數(shù)據(jù)庫（loading）相連。個人信息窗口代碼（1）、“返回”按鈕代碼Private Sub Command1_Click()stu.ShowEnd Sub（2）、窗體加載代碼Private Sub Form_Load()Data1.Visible = FalseEnd Sub2.2.8尋找同學(xué)在某些時候聯(lián)系不到同宿舍的同學(xué)，只要在“請輸入要查找人的”就可以找到要找人的寢室號以與寢室。尋找同學(xué)窗口截圖圖2.2.8.1“請輸入要查找人的”“寢室號”“寢室”為label文本框；“確定”“繼續(xù)查找”“返回”為co

60、mmand命令按鈕；其余為text文本框；添加data數(shù)據(jù)庫，并連接數(shù)據(jù)庫（loading）。尋找同學(xué)窗口代碼（1）、“確定”按鈕代碼Private Sub Command1_Click()Text2.Enabled = FalseText3.Enabled = FalseIf Text1.Text = ThenMsgBox 請輸入ElseDo While Text1.Text Trim(Data1.Recordset.Fields() Data1.Recordset.MoveNextLoop If Trim(Text1.Text) = Trim(Data1.Recordset.Fields(