畢業(yè)設(shè)計(jì)----大學(xué)宿舍管理系統(tǒng)

1、<p>　　***大學(xué)宿舍管理系統(tǒng)</p><p><b>　　摘 要</b></p><p>　　高校學(xué)生宿舍管理系統(tǒng)是典型的信息管理系統(tǒng)(MIS),其開發(fā)主要包括后臺(tái)數(shù)據(jù)庫的建立和維護(hù)以及前端應(yīng)用程序的開發(fā)兩個(gè)方面。對(duì)于后臺(tái)數(shù)據(jù)庫的建立和維護(hù)要求建立起數(shù)據(jù)一致性、完整性強(qiáng)、數(shù)據(jù)安全性好的庫。而對(duì)于前端應(yīng)用程序的開發(fā)則要求應(yīng)用程序能提供強(qiáng)大的數(shù)據(jù)操縱功能

2、，界面友好、使用簡單方便等特點(diǎn)。我們使用Visual Basic6.0和SQL Server 2000數(shù)據(jù)庫為開發(fā)工具, Visual Basic 6.0是簡單實(shí)用的面向數(shù)據(jù)庫開發(fā)工具,同時(shí)它提供的集成開發(fā)環(huán)境及面向?qū)ο蟾鞣N標(biāo)準(zhǔn)化控件,利于對(duì)數(shù)據(jù)庫和數(shù)據(jù)表的直接操作和處理，提高了編程效率和可靠性。另外通過ASP為普通學(xué)生開發(fā)一個(gè)簡單查詢界面，允許學(xué)生通過瀏覽器查詢與學(xué)生個(gè)人密切相關(guān)的宿舍管理信息以及與宿舍中心進(jìn)行信息交流。以往的手工紀(jì)錄

3、的宿舍管理方式已經(jīng)不能適應(yīng)高速發(fā)展的信息化時(shí)代，新的宿舍管理系統(tǒng)開發(fā)出來之后，學(xué)校的現(xiàn)有的宿舍信息管理將有很大的改觀，由過去的人工方式轉(zhuǎn)變?yōu)橛?jì)算機(jī)方式，由效率低、數(shù)據(jù)冗余、易產(chǎn)生錯(cuò)誤轉(zhuǎn)變?yōu)闄z索迅速、查找方便、可靠性高、存儲(chǔ)量大。這些優(yōu)點(diǎn)能夠極大地提高效率,也是學(xué)?？茖W(xué)化、正規(guī)化管理的重要條件。</p><p>　　關(guān)鍵詞： 宿舍管理系統(tǒng)；數(shù)據(jù)庫；Visual Basic 6.0 </p><p

4、>　　第一章 項(xiàng)目背景與需求分析</p><p><b>　　1．1 項(xiàng)目背景</b></p><p>　　近幾年，隨著國家教育政策的調(diào)整和完善，我國高等院校大面積擴(kuò)招，給宿舍管理帶來了不小的沖擊，要使學(xué)生擁有一個(gè)好的學(xué)習(xí)環(huán)境和生活氛圍，是每一所高校都必須面對(duì)的重要工作。</p><p>　　河套大學(xué)是一所綜合性大學(xué)，學(xué)校下設(shè)人文學(xué)

5、部、理工部、農(nóng)牧科學(xué)系、外語系、數(shù)學(xué)與計(jì)算機(jī)系等。2003年起學(xué)校與鄰省區(qū)進(jìn)行對(duì)口交流招生整合后的河套大學(xué)目前具有各類在校生13000多人，學(xué)生公寓8棟。宿舍管理系統(tǒng)對(duì)于一個(gè)學(xué)校來說是必不可少的組成部分。目前學(xué)校還停留在宿舍管理人員手工記錄數(shù)據(jù)的最初階段，手工記錄對(duì)于規(guī)模小的學(xué)校來說還勉強(qiáng)可以接受，但對(duì)于這樣的綜合性大學(xué)由于學(xué)生信息量比較龐大，需要記錄存檔的數(shù)據(jù)比較多的高校來說，人工記錄是相當(dāng)麻煩的。而且當(dāng)查找某條記錄時(shí)，由于數(shù)據(jù)量龐大

6、，還只能靠人工一條條的查找，這樣不但麻煩還浪費(fèi)了許多時(shí)間，效率也比較低。當(dāng)今社會(huì)是飛速進(jìn)步的世界，原始的記錄方式已經(jīng)被社會(huì)所淘汰了，計(jì)算機(jī)化管理正是適應(yīng)時(shí)代的產(chǎn)物。信息世界永遠(yuǎn)不會(huì)是一個(gè)平靜的世界，當(dāng)一種技術(shù)不能滿足需求時(shí)，就會(huì)有新的技術(shù)誕生并取代舊技術(shù)。21世紀(jì)的今天,信息社會(huì)占著主流地位，計(jì)算機(jī)在各行各業(yè)中的運(yùn)用已經(jīng)得到普及，自動(dòng)化、信息化的管理越來越廣泛應(yīng)用于各個(gè)領(lǐng)域。我們針對(duì)如此，設(shè)計(jì)了一套學(xué)生宿舍管理系統(tǒng)。學(xué)生宿舍管理系統(tǒng)采用

7、的是計(jì)算機(jī)化管理，系統(tǒng)做的盡量人性化，使用者會(huì)感到操作非常方便，管理人員需要做的</p><p><b>　　1．2 功能需求</b></p><p>　　1．2．1 基本功能需求</p><p>　　基于學(xué)校的宿舍管理采用的還是人工來進(jìn)行管理的,為了適應(yīng)學(xué)校發(fā)展的實(shí)際狀況，我通過實(shí)地調(diào)研之后，認(rèn)為實(shí)現(xiàn)學(xué)生宿舍管理系統(tǒng)在設(shè)計(jì)時(shí)應(yīng)盡可能的貼近學(xué)生

8、便于學(xué)生用戶操作，系統(tǒng)在實(shí)現(xiàn)上應(yīng)具有入相功能：</p><p>　　（1）系統(tǒng)實(shí)現(xiàn)用戶身份認(rèn)證并對(duì)登錄用戶的操作權(quán)限分級(jí)管理。 </p><p>　?。?） 系統(tǒng)應(yīng)提供學(xué)生入學(xué)的注冊(cè)、基本信息的錄入。</p><p>　?。?） 系統(tǒng)應(yīng)提供宿舍基本情況的錄入。</p><p>　?。?） 系統(tǒng)應(yīng)提供學(xué)生住宿情況的基本登記。</p>

9、<p>　?。?） 系統(tǒng)應(yīng)提供學(xué)生退宿情況的處理。</p><p>　　（6） 系統(tǒng)還應(yīng)具有基本的查詢功能。</p><p>　?。?） 系統(tǒng)不僅提供管理部門對(duì)宿舍管理信息的查詢功能，還應(yīng)提供普通學(xué)生通過Internet查詢宿舍基礎(chǔ)信息的功能。</p><p>　　1．2．2 用戶界面需求</p><p>　　學(xué)生宿舍管理系統(tǒng)應(yīng)

10、提供簡單、層次關(guān)系明了、清晰的操作界面，使用戶一目了然。盡可能的為用戶的錄入、查詢等功能操作提供方便。快捷按鈕的創(chuàng)建也是非常需要的，以方便用戶操作。</p><p>　　1．3 性能需求 </p><p>　　1．3．1 系統(tǒng)安全性 </p><p>　　學(xué)生宿舍管理系統(tǒng)中的增加用戶、學(xué)生學(xué)期注冊(cè)、學(xué)生畢業(yè)離校等模塊都是和學(xué)生住宿費(fèi)相聯(lián)系在一起的，所以在系統(tǒng)的管

11、理權(quán)限上應(yīng)當(dāng)進(jìn)行嚴(yán)格控制，具體思想如下：</p><p>　?。?）要想對(duì)該學(xué)生宿舍管理系統(tǒng)進(jìn)行操作就應(yīng)當(dāng)具有某些操作權(quán)限。沒有權(quán)限的用戶將不能通過任何渠道來登錄該系統(tǒng)，查看該系統(tǒng)的任何信息和數(shù)據(jù)，以確保系統(tǒng)的嚴(yán)密性和安全性。</p><p>　?。?）在上述要求基礎(chǔ)上，程序開始運(yùn)行所有功能將是不可使用的，只有用戶登錄窗口可以使用，沒有正確的用戶名和密碼任何人都不能登錄該系統(tǒng)。</p

12、><p>　　（3）在具體實(shí)現(xiàn)時(shí)還應(yīng)為各用戶設(shè)定不同的權(quán)限，系統(tǒng)管理員應(yīng)當(dāng)可以使用系統(tǒng)的所有模塊，普通用戶只能瀏覽系統(tǒng)中的宿舍及學(xué)生基本信息。</p><p>　　（4）在系統(tǒng)開始試運(yùn)行后，需要采取一定的技術(shù)手段對(duì)內(nèi)部用戶的訪問和外部用戶訪問進(jìn)行區(qū)分，采取一定的措施，嚴(yán)格控制Internet的用戶的操作權(quán)限。</p><p>　　第二章 宿舍管理系統(tǒng)的系統(tǒng)規(guī)劃<

13、;/p><p><b>　　2．1 系統(tǒng)規(guī)劃</b></p><p>　　規(guī)劃，一般是對(duì)較長時(shí)期的活動(dòng)進(jìn)行總體的、全面的計(jì)劃。</p><p>　　由于管理系統(tǒng)的建設(shè)耗資巨大，歷時(shí)較長，技術(shù)復(fù)雜且涉及面廣，系統(tǒng)規(guī)劃是這一工作的起始間段。這項(xiàng)工作的好壞直接影響到整個(gè)系統(tǒng)建設(shè)的成敗，為了提高規(guī)劃工作的科學(xué)性和有效性應(yīng)注意以下關(guān)鍵問題： </p&g

14、t;<p>　?。?）戰(zhàn)略計(jì)劃是核心 </p><p>　?。?）解決問題的有效性是關(guān)鍵</p><p>　　（3）應(yīng)變能力是系統(tǒng)成功的關(guān)鍵問題之一，也是當(dāng)前系統(tǒng)建設(shè)與應(yīng)用的瓶頸問題。</p><p>　?。?）人、管理、技術(shù)應(yīng)協(xié)調(diào)發(fā)展，三者之間相互配合、相互促進(jìn)，以加速系統(tǒng)的建設(shè)進(jìn)程。</p><p>　　2．2 管理信息系統(tǒng)

15、理論</p><p>　　宿舍管理系統(tǒng)是典型的信息管理系統(tǒng)（MIS），需要MIS的基本理論的指導(dǎo)，鑒于此，我們回顧一下MIS的基本理論。</p><p>　　2．2．1 管理信息系統(tǒng)的概述</p><p>　　管理信息系統(tǒng)是一個(gè)由人和計(jì)算機(jī)組成的能進(jìn)行管理信息的收集、傳遞、加工、保存、維護(hù)和使用的系統(tǒng)。它能實(shí)測(cè)國民經(jīng)濟(jì)和企業(yè)的各種運(yùn)行情況；管理信息系統(tǒng)利用歷史數(shù)據(jù)預(yù)

16、測(cè)未來；從全局出發(fā)輔助管理決策；利用信息控制企業(yè)的行為，幫助實(shí)現(xiàn)其規(guī)劃目標(biāo)。管理信息系統(tǒng)是以計(jì)算為主要手段處理信息，強(qiáng)調(diào)信息處理的系統(tǒng)性、綜合性，不但要求在事物處理上高效率，而且更強(qiáng)調(diào)對(duì)各級(jí)管理決策的有效支持，管理信息系統(tǒng)的建立，為各級(jí)管理決策提供了信息支持，從根本上改善了管理人員的勞動(dòng)條件和工作性質(zhì)，是管理手段現(xiàn)代化的重要標(biāo)志。</p><p>　　2．2．2 管理信息系統(tǒng)的特點(diǎn)</p><

17、p>　　管理信息系統(tǒng)的特點(diǎn)可歸納為：</p><p>　　數(shù)據(jù)集中統(tǒng)一，采用數(shù)據(jù)庫</p><p><b>　　數(shù)據(jù)模型的應(yīng)用</b></p><p><b>　　有預(yù)測(cè)和控制能力</b></p><p><b>　　面向決策</b></p><p&g

18、t;　　管理信息系統(tǒng)是一門新的學(xué)科，它引用其它學(xué)科如管理學(xué)與工程經(jīng)濟(jì)理論、統(tǒng)計(jì)學(xué)、運(yùn)籌學(xué)以及計(jì)算機(jī)科學(xué)等多學(xué)科的概念和方法，融合成為一門新的綜合性、邊緣性的學(xué)科。</p><p>　　2．2．3 管理信息系統(tǒng)開發(fā)的基本方法</p><p>　　用系統(tǒng)工程的方法開發(fā)管理信息系統(tǒng)的具體方法有生命周期法、原型法、面向?qū)ο箝_發(fā)方法和CASE方法等多種。</p><p>&l

19、t;b>　?。?）生命周期法</b></p><p>　　所謂生命周期法，就是按照管理信息生命周期的概念，嚴(yán)格地按照系統(tǒng)生命周期的各個(gè)過程和步驟去開發(fā)系統(tǒng)。即分為五個(gè)階段：系統(tǒng)分析、系統(tǒng)設(shè)計(jì)、系統(tǒng)實(shí)施、系統(tǒng)運(yùn)行、系統(tǒng)維護(hù)階段。</p><p>　　對(duì)于大系統(tǒng)或系統(tǒng)開發(fā)缺乏經(jīng)驗(yàn)的情況，采用生命周期法可以立足全局，步步為營，減少返工，有利于提高開發(fā)質(zhì)量，加快工程進(jìn)度。生命周期

20、法的不足之處是系統(tǒng)的開發(fā)周期太長，有時(shí)系統(tǒng)開發(fā)尚在開發(fā)過程之中，而內(nèi)外環(huán)境已有所變化，對(duì)系統(tǒng)的要求也發(fā)生了變化。</p><p><b>　　（2）原型法</b></p><p>　　原型法的基本思想是：開發(fā)者和用戶在系統(tǒng)的主要需求上取得一致意見后，由開發(fā)者很快開發(fā)出一個(gè)初步的原型系統(tǒng)，然后通過用戶使用和評(píng)價(jià)，提出改進(jìn)意見，反復(fù)修改、擴(kuò)展和完善，直到形成一個(gè)相對(duì)穩(wěn)定的

21、系統(tǒng)。</p><p>　　原型法能充分發(fā)揮用戶的積極性，能及早發(fā)現(xiàn)開發(fā)中出現(xiàn)的問題，因而系統(tǒng)的適用性較高，原型法主要用于以下一些場(chǎng)合：</p><p>　　用戶事先難以說明需求的較小的應(yīng)用系統(tǒng)；</p><p><b>　　決策支持系統(tǒng)；</b></p><p>　　與生命周期法結(jié)合起來使用，即整體上仍使用生命周期法，

22、而僅對(duì)其中功能獨(dú)立的模塊采用原型法。</p><p><b>　　（3）面向?qū)ο蠓?lt;/b></p><p>　　面向?qū)ο蠓ㄊ且环N認(rèn)識(shí)問題和解決問題的思維方法，它把客觀世界看成是由許多不同的對(duì)象構(gòu)成。在面向?qū)ο蟮南到y(tǒng)中，我們把系統(tǒng)中所有資源（如 系統(tǒng)、數(shù)據(jù)、模塊）都看成是對(duì)象，每一對(duì)象都有自己的運(yùn)動(dòng)規(guī)律和內(nèi)部狀態(tài)。不同對(duì)象間的相互聯(lián)系和相互作用構(gòu)成一個(gè)完整的客觀世界。

23、</p><p>　　（4）計(jì)算機(jī)輔助系統(tǒng)開發(fā)法（CASE法）</p><p>　　計(jì)算機(jī)輔助系統(tǒng)開發(fā)方法是運(yùn)用計(jì)算機(jī)軟件工具輔助系統(tǒng)開發(fā)的一種方法。</p><p>　　由于當(dāng)前宿舍管理還處于手工管理階段，管理水平還比較低，要求宿管部門的工作人員一次性地提供完整的需求確實(shí)存在困難，經(jīng)過仔細(xì)分析，我決定采用原型法開發(fā)。即先很快建立一個(gè)系統(tǒng)的原型，讓用戶認(rèn)識(shí)它、使用它

24、、熟悉它、修改它、評(píng)價(jià)它，不斷的滿足用戶提出的新的需求，進(jìn)一步完善和提高系統(tǒng)地綜合性能。當(dāng)然本系統(tǒng)的開發(fā)設(shè)計(jì)過程仍嚴(yán)格遵守生命周期法的開發(fā)有關(guān)規(guī)范。</p><p>　　第三章 宿舍管理系統(tǒng)的系統(tǒng)分析</p><p>　　3．1 系統(tǒng)初步調(diào)查</p><p>　　系統(tǒng)初步調(diào)查是系統(tǒng)分析階段的第一項(xiàng)活動(dòng)，其主要目標(biāo)就是從系統(tǒng)分析人員和管理人員的角度看新項(xiàng)目開發(fā)的可能性

25、和必要性。河套大學(xué)作為一所綜合性大學(xué)，目前學(xué)校下設(shè)多個(gè)院系，尤其近年來與鄰省區(qū)進(jìn)行對(duì)口交流招生后，生源大量增加，學(xué)生住宿管理問題引起了校領(lǐng)導(dǎo)及主管學(xué)生住宿的宿管部門的重視?，F(xiàn)在學(xué)校宿舍管理主要依賴于手工管理方式，它存在著許多弊端，如 學(xué)生開學(xué)入住登記繁瑣且容易出錯(cuò)；數(shù)據(jù)冗余現(xiàn)象嚴(yán)重；查詢不方便等。為了完善這方面的管理，經(jīng)多次與校領(lǐng)導(dǎo)及宿舍管理負(fù)責(zé)人的討論，我決定為河套大學(xué)開發(fā)一個(gè)宿舍管理系統(tǒng)，以此來改善現(xiàn)有的管理模式，使學(xué)校各方面的管理

26、向著系統(tǒng)化、科學(xué)化邁進(jìn)。</p><p>　　3．2 開發(fā)方式選擇</p><p>　　面對(duì)當(dāng)前的學(xué)生入學(xué)狀況及校內(nèi)現(xiàn)有的硬件資源，校領(lǐng)導(dǎo)對(duì)學(xué)生宿舍管理可以做出以下三種計(jì)劃安排：</p><p>　　（1）繼續(xù)采用當(dāng)前的手工管理方式，需要再聘用幾個(gè)生活老師加強(qiáng)對(duì)學(xué)生及宿舍的管理。</p><p>　?。?）購買市場(chǎng)上已有宿舍管理系統(tǒng)，一般來說

27、能夠幫助人們?cè)谀承┉h(huán)節(jié)上完成一些簡單的、重復(fù)性的工作。</p><p>　?。?）自己開發(fā)一個(gè)宿舍管理系統(tǒng)，根據(jù)學(xué)校自身情況明確目標(biāo)，開發(fā)適合自己的系統(tǒng)。</p><p>　　對(duì)于第一種顯然是個(gè)不可行的，那樣既不可減少學(xué)校的支出也不可以改善學(xué)校宿舍管理制度，以往工作中的缺陷和問題仍沒有得到根本的改變和解決。</p><p>　　對(duì)于第二種購買理論上是可行的，但存在著

28、這樣一些問題，首先購買現(xiàn)有的軟件是比較昂貴的；其次購買到真正滿足學(xué)校需求、適應(yīng)學(xué)校環(huán)境的軟件是十分困難的；最后購買來的軟件是作用和可靠程度一般都不盡如人意，所以經(jīng)過多次調(diào)查討論后我決定借畢業(yè)設(shè)計(jì)的機(jī)會(huì)為學(xué)校開發(fā)一個(gè)宿舍管理系統(tǒng)。自己開發(fā)軟件目標(biāo)明確、符合需求、便于進(jìn)一步擴(kuò)充和升級(jí)。因此，自行開發(fā)為自己所用的，適用于學(xué)校這一特定應(yīng)用范圍的，只支持宿舍管理這一局部功能的軟件是學(xué)校最佳的選擇。</p><p>　　3．

29、3 系統(tǒng)開發(fā)的可行性分析與討論</p><p>　　可行性研究是系統(tǒng)分析階段的第二項(xiàng)活動(dòng)，其主要目標(biāo)是進(jìn)一步確定系統(tǒng)目標(biāo)、規(guī)模與功能，對(duì)系統(tǒng)開發(fā)背景、必要性和意義進(jìn)行調(diào)查分析并根據(jù)需要和可能提出開發(fā)系統(tǒng)的初步方案與計(jì)劃。下面，我從三個(gè)方面對(duì)河套大學(xué)宿舍管理系統(tǒng)的可行性進(jìn)行分析。</p><p>　　（1）技術(shù)可行性：技術(shù)上的可行性要考慮將來采用的硬件和軟件技術(shù)能否滿足用戶提出的要求?；诋?dāng)

30、前的計(jì)算機(jī)網(wǎng)絡(luò)技術(shù)和數(shù)據(jù)技術(shù)已成熟，而且管理信息系統(tǒng)（MIS）的各種開發(fā)技術(shù)也已經(jīng)相當(dāng)成熟，并且在各個(gè)領(lǐng)域都不乏成熟的案例。所以為河套大學(xué)開發(fā)一套網(wǎng)絡(luò)平臺(tái)的多用戶共享信息的宿舍管理系統(tǒng)在技術(shù)上是可行的。 </p><p>　?。?）經(jīng)濟(jì)可行性：經(jīng)濟(jì)可行性主要是對(duì)項(xiàng)目的經(jīng)濟(jì)效益進(jìn)行評(píng)價(jià)。目前，河套大學(xué)已建立了校園網(wǎng)絡(luò)系統(tǒng)，具備了運(yùn)行網(wǎng)絡(luò)平臺(tái)的MIS的硬件基礎(chǔ)，而且本系統(tǒng)是我作為畢業(yè)設(shè)計(jì)自行開發(fā)，免費(fèi)幫助設(shè)計(jì)并實(shí)施的

31、。因此開發(fā)、設(shè)計(jì)這套系統(tǒng)的支出費(fèi)用是學(xué)?？梢猿袚?dān)的，即經(jīng)濟(jì)上是可行的。</p><p>　?。?）運(yùn)營可行性：宿舍管理系統(tǒng)的開發(fā)不會(huì)影響學(xué)校其它職能部門的正常運(yùn)行?，F(xiàn)有的生活部負(fù)責(zé)人及生活老師素質(zhì)比較高，所以宿舍管理系統(tǒng)的實(shí)施不會(huì)遭到阻力，加上校領(lǐng)導(dǎo)的支持和其它各部分的配合，宿舍管理系統(tǒng)的實(shí)施在運(yùn)營上是可行的。</p><p><b>　　3．4系統(tǒng)詳細(xì)調(diào)查</b>&

32、lt;/p><p>　　系統(tǒng)詳細(xì)調(diào)查的目標(biāo)是在可行性研究的基礎(chǔ)上進(jìn)一步對(duì)現(xiàn)有系統(tǒng)進(jìn)行全面、深入的調(diào)查和分析，弄清楚現(xiàn)行系統(tǒng)的運(yùn)行狀況發(fā)現(xiàn)其薄弱環(huán)節(jié)，找出要解決的問題的實(shí)質(zhì)，確保新系統(tǒng)比原系統(tǒng)更有效。</p><p>　　通過詳細(xì)調(diào)查，學(xué)?，F(xiàn)有在校學(xué)生13000多人，宿舍樓8座，男女生各4座。目前，宿舍管理工作完全靠生活部老師手工完成。學(xué)生注冊(cè)后，入住管理都是手工方式進(jìn)行。由生活部老師按照學(xué)生的

33、專業(yè)及到校的先后次序依次安排入住。學(xué)生的基本記錄，以及安排入住后的相關(guān)資料也由生活老師手工登記，這使的生活部工作量很大，而且宿舍實(shí)行統(tǒng)一標(biāo)準(zhǔn)的管理，也不能滿足學(xué)生及家長的住宿要求，這些問題都亟待解決。因此，即使目前全部宿舍都是統(tǒng)一的6人間標(biāo)準(zhǔn)，由于完全采用手工管理，生活部的老師已經(jīng)非常辛苦。而且隨著多層次、多等級(jí)標(biāo)準(zhǔn)宿舍的出現(xiàn)，手工方式的管理已經(jīng)完全不能適應(yīng)管理工作的需要。</p><p>　　3．5系統(tǒng)邏輯模型

34、的提出</p><p>　　這一階段是系統(tǒng)分析的最后一項(xiàng)活動(dòng)，目標(biāo)是明確用戶的信息需求，確定新系統(tǒng)的邏輯功能，提出新系統(tǒng)的邏輯方案。</p><p>　　經(jīng)過初步調(diào)查及詳細(xì)調(diào)查后發(fā)現(xiàn)原有的手工管理方式不能滿足學(xué)?，F(xiàn)在的管理要求，學(xué)校將采用新的管理方式，對(duì)學(xué)生宿舍實(shí)行公寓化管理，將現(xiàn)有的宿舍化分為三個(gè)標(biāo)準(zhǔn)：2人間、4人間和6人間，各種標(biāo)準(zhǔn)的公寓內(nèi)部設(shè)施各不同，相應(yīng)的住宿費(fèi)也不同。學(xué)生報(bào)到后持

35、繳費(fèi)單到生活部報(bào)到安排住宿，根據(jù)學(xué)生的不同情況，首先登記學(xué)生的基本信息，然后查詢相應(yīng)的宿舍情況，依次安排學(xué)生入住。使學(xué)生很快適應(yīng)新的環(huán)境，進(jìn)入正常、健康的大學(xué)生活，為了豐富大學(xué)的生活我們開展各種評(píng)比活動(dòng)并且學(xué)期結(jié)束，按評(píng)比結(jié)果進(jìn)行獎(jiǎng)勵(lì)。</p><p>　?。?）宿舍管理系統(tǒng)關(guān)聯(lián)圖,如下圖所示：</p><p>　?。?）宿舍管理系統(tǒng)頂層圖，如下圖所示：</p><p&

36、gt;　　F1：學(xué)生注冊(cè)單F2：宿舍標(biāo)準(zhǔn)信息F3：學(xué)生基本信息</p><p>　　F4：宿舍信息F5：評(píng)比依據(jù)F6：評(píng)比結(jié)果</p><p>　　F7：退宿結(jié)果F8：入住結(jié)果F9：學(xué)生信息</p><p>　　第四章 宿舍管理系統(tǒng)的系統(tǒng)設(shè)計(jì)</p><p>　　4．1 數(shù)據(jù)庫的設(shè)計(jì)</p><p

37、>　　4．1．1 數(shù)據(jù)庫需求分析</p><p>　　需求分析階段應(yīng)該對(duì)系統(tǒng)的整個(gè)應(yīng)用情況作全面的、詳細(xì)的調(diào)查，確定系統(tǒng)的目標(biāo)，收集支持系統(tǒng)總的設(shè)計(jì)目標(biāo)的基礎(chǔ)數(shù)據(jù)和對(duì)這些數(shù)據(jù)的要求，確定用戶的需求。</p><p>　　要設(shè)計(jì)一個(gè)性能良好的數(shù)據(jù)庫系統(tǒng)，收集和分析用戶需求，明確應(yīng)用環(huán)境對(duì)系統(tǒng)的要求是首要的和最基本的。特別是數(shù)據(jù)庫應(yīng)用非常廣泛，非常復(fù)雜，多個(gè)應(yīng)用程序可以在同一個(gè)數(shù)據(jù)庫上運(yùn)

38、行時(shí)，為了支持所有應(yīng)用程序的運(yùn)行，數(shù)據(jù)庫設(shè)計(jì)就變的復(fù)雜。因此事先對(duì)信息進(jìn)行充分和細(xì)致的分析，是數(shù)據(jù)庫設(shè)計(jì)取得成功的關(guān)鍵所在。</p><p>　　事實(shí)上確定全部的用戶需求是一件很困難的事情，原因如下：</p><p>　?。?）系統(tǒng)本身的需求是變化的，用戶的需求必須不斷調(diào)整，使之與這變化相一致。</p><p>　?。?）由于用戶缺少計(jì)算機(jī)信息系統(tǒng)設(shè)計(jì)方面的專業(yè)知識(shí)

39、，要準(zhǔn)確表達(dá)他們的需求很困難，特別是很難說清楚某部分工作的功能與發(fā)展過程。</p><p>　?。?）要調(diào)動(dòng)用戶積極性，使他們能夠積極的參與系統(tǒng)的分析與設(shè)計(jì)工作相當(dāng)困難。</p><p>　　雖然面臨這些困難，但它關(guān)系到數(shù)據(jù)庫設(shè)計(jì)的成功與否所以一定要認(rèn)真對(duì)待。因此，我們應(yīng)收集盡可能詳細(xì)的資料，并且了解系統(tǒng)將來要發(fā)生的變化，收集未來應(yīng)用所涉及的數(shù)據(jù)，充分考慮到系統(tǒng)可能的擴(kuò)充和變動(dòng)，使系統(tǒng)設(shè)計(jì)

40、更符合未來發(fā)展的趨向，并且易于改動(dòng)，以減少系統(tǒng)維護(hù)的代價(jià)。</p><p>　　4．1．2數(shù)據(jù)庫概念模式設(shè)計(jì)（E－R圖）</p><p>　　在概念設(shè)計(jì)階段中，設(shè)計(jì)人員從用戶的角度看待數(shù)據(jù)及處理要求和約束，產(chǎn)生一個(gè)反映用戶觀點(diǎn)的概念模型。</p><p>　　為了使E－R圖表示的更加清楚，我將E－R圖分成實(shí)體及其屬性圖和實(shí)體及其聯(lián)系圖如下所示。</p>

41、<p>　　4．1．3數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計(jì)</p><p>　　邏輯設(shè)計(jì)主要是把概念模式轉(zhuǎn)換成DBMS能處理的模式，E－R圖到關(guān)系模式的轉(zhuǎn)換是比較直接的，實(shí)體的聯(lián)系都可以表示成關(guān)系，E－R圖中的屬性也可以轉(zhuǎn)換成關(guān)系的屬性。E－R圖直接轉(zhuǎn)化成的關(guān)系模式的不是唯一的，也不是一定是最優(yōu)的，還得根據(jù)現(xiàn)實(shí)語義，運(yùn)用范式規(guī)范化理論進(jìn)行優(yōu)化。</p><p>　　系統(tǒng)中所涉及到的實(shí)體有：學(xué)生實(shí)

42、體、宿舍實(shí)體、宿舍標(biāo)準(zhǔn)實(shí)體、獎(jiǎng)勵(lì)等級(jí)實(shí)體及獎(jiǎng)品實(shí)體。將其E－R圖向關(guān)系模型轉(zhuǎn)換結(jié)果如下：</p><p>　　用戶表（用戶ID，用戶名，密碼，學(xué)生信息管理，宿舍信息管理，學(xué)生住宿管理，評(píng)比及獎(jiǎng)勵(lì)管理，綜合信息查詢）　　用戶ID為此關(guān)系的碼（注：學(xué)生信息管理，宿舍信息管理，學(xué)生住宿管理，評(píng)比及獎(jiǎng)勵(lì)管理，綜合信息查詢?yōu)闄?quán)限分類）。</p><p>　　學(xué)生基本信息表（學(xué)號(hào)，姓名，性別，出生日期

43、，入學(xué)時(shí)間，專業(yè)，家庭地址，聯(lián)電話，郵編）　　學(xué)號(hào)為此表的碼。</p><p>　　宿舍標(biāo)準(zhǔn)表（標(biāo)準(zhǔn)號(hào)，標(biāo)準(zhǔn)名稱，住宿費(fèi)，床，桌子，柜子，椅子，電視，網(wǎng)口，電話，是否有獨(dú)立衛(wèi)生間） 標(biāo)準(zhǔn)號(hào)是此表的碼</p><p>　　宿舍信息表（宿舍號(hào)，標(biāo)準(zhǔn)號(hào)，位置，床位總數(shù)，已用床位，未用床位，電話號(hào)碼，）　 宿舍號(hào)為此表的碼。</p><p>　　獎(jiǎng)品信息表（獎(jiǎng)品號(hào)，獎(jiǎng)品

44、名稱，數(shù)量，價(jià)值）　　獎(jiǎng)品號(hào)為此表的碼。</p><p>　　獎(jiǎng)勵(lì)等級(jí)表（等級(jí)號(hào)，等級(jí)名稱，評(píng)獎(jiǎng)機(jī)構(gòu)） 等級(jí)號(hào)為此表的碼。</p><p>　　獎(jiǎng)品發(fā)放表（獎(jiǎng)品號(hào)，等級(jí)號(hào)，數(shù)量）</p><p>　　學(xué)生入宿表（入住編號(hào)，姓名，學(xué)號(hào)，宿舍號(hào)，入住時(shí)間，聯(lián)系電話）　　學(xué)號(hào)和宿舍號(hào)為此表的碼。</p><p>　　學(xué)生退宿表（退宿編號(hào)，宿舍

45、號(hào)，學(xué)號(hào)，姓名，退宿日期，入住編號(hào)）　　宿舍號(hào)和學(xué)號(hào)為此表的碼。</p><p>　　宿舍評(píng)比等級(jí)表（領(lǐng)用編號(hào)，宿舍號(hào)，獎(jiǎng)勵(lì)等級(jí)號(hào)，評(píng)比時(shí)間，備注）　　　宿舍號(hào)和獎(jiǎng)勵(lì)等級(jí)號(hào)為此表的碼。</p><p>　　系統(tǒng)自動(dòng)編號(hào)表（編號(hào)名稱，編號(hào)）　　編號(hào)為此表的碼。</p><p>　　4．1．4數(shù)據(jù)庫的物理設(shè)計(jì)</p><p><b>　

46、　數(shù)據(jù)庫和表名稱</b></p><p>　　在河套大學(xué)宿舍管理系統(tǒng)中數(shù)據(jù)庫的名稱設(shè)置為hostel　數(shù)據(jù)庫中的表名稱和字符標(biāo)識(shí)，如下所示：</p><p>　　（2）　表結(jié)構(gòu)設(shè)計(jì)：</p><p>　　用戶表（usertable）</p><p>　　學(xué)生基本信息表（stumess）</p><p>　　

47、宿舍信息表（hosgrn）</p><p>　　宿舍標(biāo)準(zhǔn)表：（statichostable）</p><p>　　獎(jiǎng)勵(lì)等級(jí)表（grademess）</p><p>　　獎(jiǎng)品信息表（grademesslist）</p><p>　　獎(jiǎng)品發(fā)放表（gradeset）</p><p>　　學(xué)生入宿表（gohostable）&l

48、t;/p><p>　　學(xué)生退宿表（gobacktable）</p><p>　　宿舍評(píng)比等級(jí)表（gogrademess）</p><p>　　系統(tǒng)自動(dòng)編號(hào)表（id）</p><p><b>　　4．2 安全性設(shè)計(jì)</b></p><p>　　為了增強(qiáng)數(shù)據(jù)安全性,學(xué)校要求采用大型數(shù)據(jù)庫。利用大型關(guān)系數(shù)據(jù)

49、庫自身的事務(wù)回卷，定期備份等功能，以便保證系統(tǒng)啟用后不會(huì)出現(xiàn)數(shù)據(jù)丟失、死機(jī)等現(xiàn)象，并保證數(shù)據(jù)庫的一致性、并發(fā)性和可移植性。</p><p>　　SQL Server 2000數(shù)據(jù)庫的安全性管理功能就非常強(qiáng)大，相對(duì)來說也比較復(fù)雜，下面將從系統(tǒng)開發(fā)的實(shí)際情況出發(fā)，根據(jù)系統(tǒng)分析的結(jié)果，對(duì)系統(tǒng)安全性進(jìn)行有針對(duì)性的設(shè)計(jì)。</p><p>　?。?）后臺(tái)SQL Server數(shù)據(jù)庫以Sa 為系統(tǒng)管理員，

50、這一角色由河套大學(xué)的專職計(jì)算機(jī)人員擔(dān)任，負(fù)責(zé)對(duì)后臺(tái)數(shù)據(jù)庫的維護(hù)。</p><p>　?。?）對(duì)所有從“宿舍管理系統(tǒng)”前臺(tái)登錄的合法用戶，都以DBO角色來訪問后臺(tái)數(shù)據(jù)庫。</p><p>　?。?）通過前臺(tái)開發(fā)工具Visual Basic 6.0對(duì)用戶登錄權(quán)限進(jìn)行嚴(yán)格的控制管理。</p><p>　　4．3 網(wǎng)絡(luò)拓?fù)浣Y(jié)構(gòu)</p><p>　　

51、圖 4-2 C/S 和B/S混合結(jié)構(gòu)的系統(tǒng)結(jié)構(gòu)圖</p><p><b>　　4．4 代碼設(shè)計(jì)</b></p><p>　　代碼設(shè)計(jì)的主要原則是簡單，易懂和可擴(kuò)充性，代碼設(shè)計(jì)的方法有好多，本系統(tǒng)選用層次疊加碼作為河套大學(xué)的信息編碼方案。下表以資源信息代碼表組成為例描述學(xué)生號(hào)的組成原理。</p><p><b>　　4．5 界面設(shè)計(jì)&l

52、t;/b></p><p>　　界面設(shè)計(jì)應(yīng)簡單明了，一目了然。一方面從用戶應(yīng)用需求出發(fā)，宿舍管理系統(tǒng)面對(duì)的最終用戶是對(duì)計(jì)算機(jī)并不精通的學(xué)校生活部管理員；另一方面友好、清晰的界面也易學(xué)易用，易維護(hù)。</p><p>　?。?）河套大學(xué)宿舍管理系統(tǒng)界面，如下圖所示：</p><p>　　圖　4-3 宿舍系統(tǒng)主界面</p><p>　　在屏幕

53、最上方為主菜單區(qū)，顯示本系統(tǒng)的主菜單，用戶可以用鼠標(biāo)來選擇下拉菜單選項(xiàng)，選擇權(quán)限范圍內(nèi)的選項(xiàng)。</p><p>　　當(dāng)用戶通過選擇了菜單所要進(jìn)行的工作后，系統(tǒng)進(jìn)入相應(yīng)的業(yè)務(wù)處理功能，這時(shí)整個(gè)業(yè)務(wù)處理活動(dòng)在系統(tǒng)工作區(qū)進(jìn)行。當(dāng)業(yè)務(wù)處理完畢后，系統(tǒng)自動(dòng)返回到進(jìn)入次處理之前的原始菜單顯示狀態(tài)。</p><p>　?。?）輸入界面的設(shè)計(jì)</p><p>　　為了方便用戶的使用

54、，宿舍管理系統(tǒng)的界面大量的選用Visual Basic　所提供的標(biāo)準(zhǔn)控件，并配以一些下拉式菜單適當(dāng)提高用戶工作效率，宿舍管理系統(tǒng)的輸入界面主要有：學(xué)生信息管理錄入、宿舍信息設(shè)置、入住信息錄入、評(píng)比獎(jiǎng)勵(lì)登記等。</p><p>　　學(xué)生信息管理錄入 如下圖所示：</p><p>　　圖4-4 學(xué)生信息錄入界面</p><p>　　4．6 功能結(jié)構(gòu)圖的設(shè)計(jì)</p&

55、gt;<p>　　功能結(jié)構(gòu)圖主要從功能的角度描述了系統(tǒng)的結(jié)構(gòu)，但并未能表達(dá)各功能這間的數(shù)據(jù)傳送關(guān)系。</p><p>　　河套大學(xué)宿舍管理系統(tǒng)從功能上可以劃分出如下幾個(gè)模塊，如下圖所示：</p><p>　　圖　4-5 學(xué)生宿舍主功能圖</p><p>　　為了詳細(xì)的描述系統(tǒng)功能，我將宿舍管理系統(tǒng)分為七個(gè)大的模塊：系統(tǒng)管理模塊，學(xué)生信息管理模塊，宿舍信

56、息管理模塊，學(xué)生住宿管理模塊，評(píng)比及獎(jiǎng)勵(lì)管理模塊，綜合查詢管理模塊，幫助模塊，每個(gè)模塊將實(shí)現(xiàn)不同的功能。下面將具體進(jìn)行介紹</p><p>　　4．6．1系統(tǒng)管理模塊</p><p>　　系統(tǒng)管理模塊包括：用戶設(shè)置，操作銷定，注銷系統(tǒng)，退出系統(tǒng)，數(shù)據(jù)清空幾個(gè)部分。如下圖所示：</p><p>　　圖　4－6 系統(tǒng)管理功能圖</p><p>　

57、　從登錄框登錄后，只有系統(tǒng)管理員才具有用戶設(shè)置的權(quán)限。普通用戶不可以使用，即沒有添加、修改用戶權(quán)限的權(quán)力。</p><p>　　用戶設(shè)置：設(shè)置用戶信息，如：用戶ID，用戶名稱，用戶密碼，以及用戶權(quán)限。（只有系統(tǒng)管理員system可以設(shè)置新用戶權(quán)限）</p><p>　　操作銷定：判斷是否銷定系統(tǒng)，以應(yīng)付緊急情況。</p><p>　　注銷系統(tǒng)：注銷當(dāng)前工作用戶重新登

58、錄系統(tǒng)。</p><p>　　退出系統(tǒng)：單擊退出系統(tǒng)。</p><p>　　數(shù)據(jù)清空：清空所有數(shù)據(jù)（只有系統(tǒng)管理員system有此權(quán)限）</p><p>　　4．6．2學(xué)生信息管理模塊</p><p>　　學(xué)生信息管理模塊包括：注冊(cè)學(xué)生信息，學(xué)生信息瀏覽，學(xué)生信息查詢?nèi)齻€(gè)部分，如下圖所示：</p><p>　　圖4－7

59、 學(xué)生信息管理功能圖</p><p>　　(1) 注冊(cè)學(xué)生信息：登記學(xué)生基本信息。</p><p>　　(2) 學(xué)生信息瀏覽：瀏覽所有注冊(cè)學(xué)生的信息。</p><p>　　(3) 學(xué)生信息查詢：以學(xué)號(hào)或姓名或性別為關(guān)鍵字進(jìn)行按條件查詢。</p><p>　　4．6．3宿舍信息管理模塊</p><p>　　宿舍信息管理模

60、塊包括：宿舍標(biāo)準(zhǔn)設(shè)置，宿舍信息設(shè)置。如下圖所示：</p><p>　　圖　4-8 宿舍信息管理功能圖</p><p>　?。?）宿舍標(biāo)準(zhǔn)設(shè)置：設(shè)置各個(gè)標(biāo)準(zhǔn)信息，實(shí)現(xiàn)不同宿舍標(biāo)準(zhǔn)的分級(jí)管理。</p><p>　?。?）宿舍信息設(shè)置：設(shè)置宿舍的所屬的標(biāo)準(zhǔn)及宿舍相關(guān)情況。</p><p>　　4．6．4　學(xué)生住宿管理模塊　：</p>

61、<p>　　學(xué)生住宿管理模塊包括：學(xué)生住宿登記，學(xué)生退宿登記，剩余宿舍查詢?nèi)齻€(gè)部分。如下圖所示：</p><p>　　圖　4－9 學(xué)生住宿管理功能圖</p><p>　?。?）學(xué)生住宿登記：記錄學(xué)生選擇宿舍標(biāo)準(zhǔn)后的相關(guān)入宿情況。</p><p>　?。?）學(xué)生退宿登記：學(xué)生退宿歸還宿舍資源（床位）情況的記錄</p><p>　?。?

62、）剩余宿舍查詢：統(tǒng)計(jì)未入住或未住滿的宿舍情況。</p><p>　　4．6．5　評(píng)比及獎(jiǎng)勵(lì)管理模塊</p><p>　　評(píng)比及獎(jiǎng)勵(lì)管理模塊包括：評(píng)比標(biāo)準(zhǔn)，獎(jiǎng)品管理，評(píng)比獎(jiǎng)勵(lì)登記。如下圖所示：</p><p>　　圖4-10 評(píng)比、獎(jiǎng)勵(lì)功能圖</p><p>　　評(píng)比標(biāo)準(zhǔn)：以文本框的形式顯示評(píng)比標(biāo)準(zhǔn)。</p><p>　

63、　獎(jiǎng)品管理：A　獎(jiǎng)品等級(jí)設(shè)置：設(shè)置不同等級(jí)獎(jiǎng)勵(lì)獎(jiǎng)品發(fā)放情況。</p><p>　　B　獎(jiǎng)品明細(xì)設(shè)置：有關(guān)獎(jiǎng)品信息的設(shè)置。</p><p>　　評(píng)比等級(jí)登記：宿舍評(píng)比等級(jí)錄入情況。</p><p>　　4．6．6綜合信息查詢：</p><p>　　學(xué)生注冊(cè)入宿信息管理模塊包括：宿舍標(biāo)準(zhǔn)查詢，學(xué)生入住信息查詢兩個(gè)模塊。如下圖所示：</p&g

64、t;<p>　　圖　4－11 綜合信息查詢功能圖</p><p>　　(1) 宿舍標(biāo)準(zhǔn)查詢：統(tǒng)計(jì)所有宿舍標(biāo)準(zhǔn)，即宿舍設(shè)置情況以宿舍號(hào)或床位數(shù)為關(guān)鍵字查詢相應(yīng)設(shè)置情況。</p><p>　　(2)學(xué)生入住信息查詢：統(tǒng)計(jì)所有學(xué)生入住情況，以宿舍號(hào)或?qū)W號(hào)或姓名進(jìn)行有條件查詢。</p><p><b>　　4．6．7幫助模塊</b><

65、;/p><p>　　此模塊是對(duì)學(xué)生宿舍管理系統(tǒng)開發(fā)者的相關(guān)信息的一個(gè)簡單的介紹。</p><p>　　第五章　宿舍管理系統(tǒng)的系統(tǒng)實(shí)施</p><p>　　經(jīng)過了系統(tǒng)規(guī)劃，系統(tǒng)分析和系統(tǒng)設(shè)計(jì)等階段后，便開始了系統(tǒng)實(shí)施階段，這個(gè)階段要繼承以前各階段的工作成果，是系統(tǒng)分析和設(shè)計(jì)階段的結(jié)晶。</p><p>　　5．1　開發(fā)工具的選擇</p>

66、<p>　　5．1．1　前臺(tái)開發(fā)工具的選擇</p><p>　　比較幾種開發(fā)工具以后，我選擇了Visual Basic 6.0作為河套大學(xué)宿舍管理系統(tǒng)前臺(tái)開發(fā)工具。這主要是考慮到學(xué)習(xí)比較容易，而且相關(guān)論壇比較多，可以及時(shí)的完成任務(wù)。</p><p>　　BASIC語言是受到國內(nèi)外千百萬計(jì)算機(jī)愛好者歡迎的語言，自1964年問世以來，從實(shí)驗(yàn)室走向校園，從校園走向社會(huì)，從社會(huì)一度走

67、向全世界，始終不衰。BASIC是Beginners All Purpose System InterChange Code （初學(xué)者通用符號(hào)代碼）的縮寫。與其它高級(jí)語言相比，它的語法規(guī)則相對(duì)簡單，容易理解和掌握，且具有使用價(jià)值，被認(rèn)為是最理想的初學(xué)者語言。BASIC語言自誕生以來，在廣泛使用中不斷的發(fā)展。隨著Windows環(huán)境的推廣使用，很多人正在學(xué)習(xí)和使用了在Windows環(huán)境中編程使用的BASIC—Visual Basic。故我選用

68、Visual Basic 6.0作為前臺(tái)開發(fā)工具。</p><p>　　5．1．2　后臺(tái)數(shù)據(jù)庫的選擇</p><p>　　數(shù)據(jù)庫是數(shù)據(jù)管理的最新技術(shù)，是計(jì)算機(jī)科學(xué)的重要分支。十年來，數(shù)據(jù)庫管理系統(tǒng)已從專用的應(yīng)用程序包發(fā)展成為通用系統(tǒng)軟件。由于數(shù)據(jù)庫具有數(shù)據(jù)結(jié)構(gòu)化、最低冗余度、較高的程序與數(shù)據(jù)獨(dú)立性、易于擴(kuò)充、易于編制應(yīng)用程序等優(yōu)點(diǎn)，較大的信息系統(tǒng)都是建立在數(shù)據(jù)庫設(shè)計(jì)之上的。</p&g

69、t;<p>　　由于用到的數(shù)據(jù)表格多，另外考慮到實(shí)際情況，學(xué)生基本信息的變動(dòng)，還有員工信息的多少的變化，我們選用SQL Server作為數(shù)據(jù)庫開發(fā)，而不用Access，主要是因?yàn)锳ccess數(shù)據(jù)庫是一個(gè)桌面數(shù)據(jù)庫系統(tǒng)，不適合用戶程序?qū)?shù)據(jù)庫遠(yuǎn)程連接，而SQL Server是一種常用的關(guān)系數(shù)據(jù)庫，能存放和讀取大量的數(shù)據(jù)，管理眾多并發(fā)的用戶，故選用SQL Server數(shù)據(jù)庫。</p><p>　　5．2

70、 程序?qū)崿F(xiàn)（源代碼）</p><p>　　5．2．1 系統(tǒng)源代碼</p><p>　　我用Visual basic 為河套大學(xué)開發(fā)的<<宿舍管理系統(tǒng)>>，有大量的程序源代碼，下面僅有幾種重要的程序源代碼，列示如下：</p><p><b>　　系統(tǒng)界面源代碼：</b></p><p>　　――――

71、――――――――――</p><p>　　Private Sub MDIForm_Load()</p><p>　　MainForm.Caption = StrSystem</p><p>　　'---------------------------------</p><p>　　If Trim(LimStuMess) = 1 Th

72、en</p><p>　　StudenMan.Enabled = True</p><p><b>　　Else</b></p><p>　　StudenMan.Enabled = False</p><p><b>　　End If</b></p><p>　　If Tri

73、m(LimHosMess) = 1 Then</p><p>　　HostelMan.Enabled = True</p><p><b>　　Else</b></p><p>　　HostelMan.Enabled = False</p><p><b>　　End If</b></p>

74、;<p>　　If Trim(GoHosManMess) = 1 Then</p><p>　　GoHosMan.Enabled = True</p><p><b>　　Else</b></p><p>　　GoHosMan.Enabled = False</p><p><b>　　End I

75、f</b></p><p>　　If Trim(LimGradeMess) = 1 Then</p><p>　　StuGrade.Enabled = True</p><p><b>　　Else</b></p><p>　　StuGrade.Enabled = False</p><p

76、><b>　　End If</b></p><p>　　If Trim(LimAllMess) = 1 Then</p><p>　　AllData.Enabled = True</p><p><b>　　Else</b></p><p>　　AllData.Enabled = False&

77、lt;/p><p><b>　　End If</b></p><p>　　Statu.Panels(1).Text = StrSystem & Space(10) & "Version 1.0"</p><p>　　Statu.Panels(2).Text = "當(dāng)前操作員：" & L

78、oginName</p><p>　　Statu.Panels(3).Text = "系統(tǒng)開發(fā)人員：王淑霞"</p><p><b>　　End Sub</b></p><p>　　Private Sub NoHosFind_Click()</p><p>　　NoGoHosFind.Show<

79、/p><p><b>　　End Sub</b></p><p>　　Private Sub OpLock_Click()</p><p>　　Call SysLockSub</p><p><b>　　End Sub</b></p><p>　　Private Sub StaH

80、osFind_Click()</p><p>　　StaHosList.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub StaticHos_Click()</p><p>　　HosStaticMess.Show</p><p><b

81、>　　End Sub</b></p><p>　　Private Sub StuFind_Click()</p><p>　　StuMessFindList.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub StuHosFind_Click()&l

82、t;/p><p>　　StuHosList.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub StuMessList_Click()</p><p>　　StuMessLook.Show</p><p><b>　　End Sub<

83、;/b></p><p>　　Private Sub SysExit_Click()</p><p><b>　　End</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Timer1_Timer()</p><p>

84、;　　Label1.Caption = Now()</p><p><b>　　End Sub</b></p><p>　　Private Sub TryLogin_Click()</p><p>　　Dim IsYesNo As String</p><p>　　Set rs = Nothing</p>

85、<p>　　Set cn = Nothing</p><p>　　IsYesNo = MsgBox("是否確認(rèn)注銷系統(tǒng)？", vbQuestion + vbYesNo, strsytem)</p><p>　　If IsYesNo = vbYes Then</p><p>　　Unload MainForm</p><

86、;p>　　Login.Show</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub UserSys_Click()</p><p>　　SysUser.Show</p><p>

87、;<b>　　End Sub</b></p><p>　　Public Sub SysLockSub()</p><p>　　Dim ISLOCK As String</p><p>　　ISLOCK = MsgBox("是否確認(rèn)鎖定系統(tǒng)？", vbCritical + vbYesNo, StrSystem)</p&g

88、t;<p>　　If ISLOCK = vbYes Then</p><p>　　SysLock.Show 1</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　――――――――――――――――――――――――――

89、―</p><p>　　宿舍標(biāo)準(zhǔn)信息設(shè)置源代碼：</p><p>　　――――――――――</p><p>　　Option Explicit</p><p>　　Public IsAddEdit As String</p><p>　　Private Sub CmdAdd_Click()</p><

90、;p>　　StaticNumber.Enabled = True</p><p>　　StaticName.Enabled = True</p><p>　　HosMoney.Enabled = True</p><p>　　StaticNumber.Text = ""</p><p>　　StaticName.Te

91、xt = ""</p><p>　　HosMoney.Text = ""</p><p>　　CmdAdd.Enabled = False</p><p>　　CmdSave.Enabled = True</p><p>　　CmdFind.Enabled = False</p><

92、p>　　CmdDel.Enabled = False</p><p>　　StaticNumber.SetFocus</p><p>　　IsAddEdit = "新增"</p><p><b>　　End Sub</b></p><p>　　Private Sub CmdDel_Click()

93、</p><p>　　Dim rs As New ADODB.Recordset</p><p>　　Dim strSQL As String</p><p>　　Dim IsYesNo As String</p><p>　　IsYesNo = MsgBox("是否確認(rèn)刪除記錄？", vbInformation + vb

94、YesNo, StrSystem)</p><p>　　If IsYesNo = vbYes Then</p><p>　　strSQL = "DELETE FROM StaticHosTable WHERE StaticNumber='" & StaticNumber.Text & "'"</p>&l

95、t;p>　　If rs.State = 1 Then</p><p><b>　　rs.Close</b></p><p><b>　　End If</b></p><p>　　rs.Open strSQL, cn, adOpenStatic, adLockOptimistic</p><p>

96、;　　Call ShowListData("")</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub CmdExt_Click()</p><p><b>　　Unload M

97、e</b></p><p><b>　　End Sub</b></p><p>　　Private Sub CmdFind_Click()</p><p>　　Dim StrWhere As String</p><p>　　Dim IsWhere As String</p><p>

98、　　IsWhere = InputBox("請(qǐng)輸入您要查找的宿舍標(biāo)準(zhǔn)號(hào)或標(biāo)準(zhǔn)名稱", "請(qǐng)輸入條件", "請(qǐng)輸入您要查找的宿舍標(biāo)準(zhǔn)號(hào)或標(biāo)準(zhǔn)名稱")</p><p>　　StrWhere = " AND (StaticNumber LIKE '%" & CheckString(IsWhere) & "%

99、' OR StaticName LIKE '%" & CheckString(IsWhere) & "%')"</p><p>　　Call ShowListData(StrWhere)</p><p><b>　　End Sub</b></p><p>　　Private

100、 Sub CmdSave_Click()</p><p>　　Dim rs As New ADODB.Recordset</p><p>　　Dim strSQL As String</p><p>　　If IsAddEdit = "新增" Then</p><p>　　If Trim(StaticNumber.Text

101、) = "" Or Trim(StaticName.Text) = "" Or Trim(HosMoney.Text) = "" Then</p><p>　　MsgBox "宿舍標(biāo)準(zhǔn)號(hào)、標(biāo)準(zhǔn)名稱、住宿費(fèi)均不能為空！", vbInformation, StrSystem</p><p><b>　　E

102、xit Sub</b></p><p><b>　　End If</b></p><p>　　strSQL = "SELECT * FROM StaticHosTable WHERE StaticNumber='" & CheckString(StaticNumber.Text) & "'&qu

103、ot;</p><p>　　If rs.State = 1 Then</p><p><b>　　rs.Close</b></p><p><b>　　End If</b></p><p>　　rs.Open strSQL, cn, adOpenStatic, adLockOptimistic<

104、;/p><p>　　If rs.EOF = False Then</p><p>　　MsgBox "宿舍號(hào)標(biāo)準(zhǔn)號(hào)不能重復(fù)！", vbInformation, StrSystem</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b>&

105、lt;/p><p>　　strSQL = "INSERT INTO StaticHosTable(StaticNumber,StaticName,HosMoney,Hoskip,Hosdsk,Hoscab,HosCha,HosTv,HosNet,HosTelNum,HosTol) VALUES ('"</p><p>　　strSQL = strSQL &

106、CheckString(StaticNumber.Text) & "','" & CheckString(StaticName.Text) & "','" & CheckString(HosMoney.Text) & "',"</p><p>　　strSQL = strSQ

107、L & CheckString(HosKip.Text) & "," & CheckString(HosDsk.Text) & "," & CheckString(HosCab.Text) & "," & CheckString(HosCha.Text) & "," & CheckStr

108、ing(HosTv.Text) & ","</p><p>　　strSQL = strSQL & CheckString(HosNet.Text) & "," & CheckString(HosTelNum.Text) & ",'" & CheckString(HosTol.Text) &

109、 "')"</p><p>　　If rs.State = 1 Then</p><p><b>　　rs.Close</b></p><p><b>　　End If</b></p><p>　　rs.Open strSQL, cn, adOpenStatic, adL

110、ockOptimistic</p><p><b>　　End If</b></p><p>　　If IsAddEdit = "修改" Then</p><p>　　strSQL = "UPDATE StaticHosTable SET StaticName='" & CheckStri

111、ng(StaticName.Text) & "',HosMoney=" & CheckString(HosMoney.Text) & ",HosKip="</p><p>　　strSQL = strSQL & HosKip.Text & ",HosDsk=" & HosDsk.Text &

112、 ",HosCab=" & HosCab.Text & ",HosCha=" & HosCha.Text & ",HosTv="</p><p>　　strSQL = strSQL & HosTv.Text & ",HosTelNum=" & HosTelNum.Text &am

113、p; ",HosTol='" & HosTol.Text & "' WHERE StaticNumber='" & StaticNumber.Text & "'"</p><p>　　rs.Open strSQL, cn, adOpenStatic, adLockOptimistic<

114、/p><p><b>　　End If</b></p><p>　　StaticNumber.Enabled = False</p><p>　　StaticName.Enabled = False</p><p>　　HosMoney.Enabled = False</p><p>　　CmdAdd

115、.Enabled = True</p><p>　　CmdSave.Enabled = False</p><p>　　CmdFind.Enabled = True</p><p>　　CmdDel.Enabled = True</p><p>　　Call ShowListData("")</p><

116、p><b>　　End Sub</b></p><p>　　Private Sub Form_Load()</p><p>　　HosStaticMess.Caption = StrSystem & "--宿舍標(biāo)準(zhǔn)信息設(shè)置"</p><p>　　CmdAdd.Enabled = True</p>

117、<p>　　CmdSave.Enabled = False</p><p>　　CmdFind.Enabled = True</p><p>　　CmdDel.Enabled = True</p><p>　　StaticNumber.Enabled = False</p><p>　　StaticName.Enabled = Fa

118、lse</p><p>　　HosMoney.Enabled = False</p><p>　　Call ShowListData("")</p><p><b>　　End Sub</b></p><p>　　Private Sub HosList_Click()</p><p

119、>　　IsAddEdit = "修改"</p><p>　　Dim rs As New ADODB.Recordset</p><p>　　Dim strSQL As String</p><p>　　If HosList.ListItems.Count = 0 Then</p><p><b>　　Exi

120、t Sub</b></p><p><b>　　End If</b></p><p>　　strSQL = "SELECT * FROM StaticHosTable WHERE StaticNumber='" & HosList.SelectedItem.Text & "'"<

121、/p><p>　　If rs.State = 1 Then</p><p><b>　　rs.Close</b></p><p><b>　　End If</b></p><p>　　rs.Open strSQL, cn, adOpenStatic, adLockOptimistic</p>

122、<p>　　If rs.EOF = False Then</p><p>　　StaticNumber.Text = Trim(rs![StaticNumber])</p><p>　　StaticName.Text = Trim(rs![StaticName])</p><p>　　HosMoney.Text = Trim(rs![HosMoney]

123、)</p><p>　　HosKip.Text = Trim(rs![HosKip])</p><p>　　HosDsk.Text = Trim(rs![HosDsk])</p><p>　　HosCab.Text = Trim(rs![HosCab])</p><p>　　HosTv.Text = Trim(rs![HosTv])</