大學(xué)宿舍管理系統(tǒng)解析

大學(xué)宿舍管理系統(tǒng)分析大學(xué)宿舍管理系統(tǒng)分析78/78大學(xué)宿舍管理系統(tǒng)分析高校宿舍管理系統(tǒng)河套大學(xué)宿舍管理系統(tǒng)綱要高校學(xué)生宿舍管理系統(tǒng)是典型的信息管理系統(tǒng)(MIS),其開發(fā)主要包括后臺數(shù)據(jù)庫的建立和保護以及前端應(yīng)用程序的開發(fā)兩個方面。對于后臺數(shù)據(jù)庫的建立和保護要求建立起數(shù)據(jù)一致性、完滿性強、數(shù)據(jù)安全性好的庫。而對于前端應(yīng)用程序的開發(fā)則要求應(yīng)用程序能供應(yīng)富強的數(shù)據(jù)控制功能，界面友好、使用簡單方便等特點。我們使用VisualBasic6.0和SQLServer2000數(shù)據(jù)庫為開發(fā)工具,VisualBasic6.0是簡單合用的面向數(shù)據(jù)庫開發(fā)工具,同時它供應(yīng)的集成開發(fā)環(huán)境及面向?qū)ο蟾鳂訕?biāo)準(zhǔn)化控件,利于對數(shù)據(jù)庫和數(shù)據(jù)表的直接操作和辦理，提高了編程效率和可靠性。別的經(jīng)過ASP為一般學(xué)生開發(fā)一個簡單盤問界面，贊同學(xué)生經(jīng)過閱讀器盤問與學(xué)生個人親近相關(guān)的宿舍管理信息以及與宿舍中心進行信息交流。過去的手工紀(jì)錄的宿舍管理方式已經(jīng)不能夠適應(yīng)高速發(fā)展的信息化時代，新的宿舍管理系統(tǒng)開發(fā)出來此后，學(xué)校的現(xiàn)有的宿舍信息管理將有很大的改觀，由過去的人工方式轉(zhuǎn)變成計算機方式，由效率低、數(shù)據(jù)冗余、易產(chǎn)生錯誤轉(zhuǎn)變成檢索迅速、查找方便、可靠性高、儲藏量大。這些優(yōu)點能夠極大地提高效率,也是學(xué)?？茖W(xué)化、正規(guī)化管理的重要條件。要點詞：宿舍管理系統(tǒng)；數(shù)據(jù)庫；第1頁高校宿舍管理系統(tǒng)第一章項目背景與需求分析1．1項目背景近幾年，隨著國家教育政策的調(diào)整和完滿，我國高等院校大面積擴招，給宿舍管理帶來了不小的沖擊，要使學(xué)生擁有一個好的學(xué)習(xí)環(huán)境和生活氛圍，是每一所高校都必定面對的重要工作。河套大學(xué)是一所綜合性大學(xué)，學(xué)校下設(shè)人文學(xué)部、理工部、農(nóng)牧科學(xué)系、外語系、數(shù)學(xué)與計算機系等。2003年起學(xué)校與鄰省區(qū)進行對口交流招生整合后的河套大學(xué)當(dāng)前擁有各樣在校生13000多人，學(xué)生公寓8棟。宿舍管理系統(tǒng)對于一個學(xué)校來說是必不能少的組成部分。當(dāng)前學(xué)校還停留在宿舍管理人員手工記錄數(shù)據(jù)的最初階段，手工記錄對于規(guī)模小的學(xué)校來說還勉強能夠接受，但對于這樣的綜合性大學(xué)由于學(xué)生信息量比較弘大，需要記錄存檔的數(shù)據(jù)比很多的高校來說，人工記錄是相當(dāng)麻煩的。而且當(dāng)查找某條記錄時，由于數(shù)據(jù)量弘大，還只能靠人工一條條的查找，這樣不僅麻煩還浪費了好多時間，效率也比較低。現(xiàn)在社會是飛速進步的世界，原始的記錄方式已經(jīng)被社會所裁汰了，計算機化管理正是適應(yīng)時代的產(chǎn)物。信息世界永遠不會是一個寧靜的世界，當(dāng)一種技術(shù)不能夠滿足需求時，就會有新的技術(shù)出生并取代舊技術(shù)。21世紀(jì)的今天,信息社會占著主流地位，計算機在各行各業(yè)中的運用已經(jīng)獲取普及，自動化、信息化的管理越來越廣泛應(yīng)用于各個領(lǐng)域。我們針對這樣，設(shè)計了一套學(xué)生宿舍管理系統(tǒng)。學(xué)生宿舍管理系統(tǒng)采用的是計算機化管理，系統(tǒng)做的盡量人性化，使用者會感覺操作特別方便，管理人員需要做的就是將數(shù)據(jù)輸入到系統(tǒng)的數(shù)據(jù)庫中去。由于數(shù)據(jù)庫儲藏容量相當(dāng)大，而且比較牢固，適合較長時間的保存，也不簡單扔掉。這無疑是為信息儲藏量比較大的學(xué)校供應(yīng)了一個方便、快捷的操作方式。本系統(tǒng)擁有運行速度快、安全性高、牢固性好的優(yōu)點，能夠迅速的盤問學(xué)校所需的住宿信息。1．2功能需求1．2．1基本功能需求基于學(xué)校的宿舍管理采用的還是人工來進行管理的,為了適應(yīng)學(xué)校發(fā)展的實質(zhì)情況，我經(jīng)過實地調(diào)研此后，以為實現(xiàn)學(xué)生宿舍管理系統(tǒng)在設(shè)計時應(yīng)盡可能的貼近學(xué)生便于學(xué)生用戶操作，系統(tǒng)在實現(xiàn)上應(yīng)擁有入相功能：（1）系統(tǒng)實現(xiàn)用戶身份認證并對登錄取戶的操作權(quán)限分級管理。（2）系統(tǒng)應(yīng)供應(yīng)學(xué)生入學(xué)的注冊、基本信息的錄入。第2頁高校宿舍管理系統(tǒng)（3）系統(tǒng)應(yīng)供應(yīng)宿舍基本情況的錄入。（4）系統(tǒng)應(yīng)供應(yīng)學(xué)生住宿情況的基本登記。（5）系統(tǒng)應(yīng)供應(yīng)學(xué)生退宿情況的辦理。（6）系統(tǒng)還應(yīng)擁有基本的盤問功能。（7）系統(tǒng)不但供應(yīng)管理部門對宿舍管理信息的盤問功能，還應(yīng)供應(yīng)一般學(xué)生經(jīng)過Internet盤問宿舍基礎(chǔ)信息的功能。1．2．2用戶界面需求學(xué)生宿舍管理系統(tǒng)應(yīng)供應(yīng)簡單、層次關(guān)系了然、清楚的操作界面，使用戶如數(shù)家珍。盡可能的為用戶的錄入、盤問等功能操作供應(yīng)方便。快捷按鈕的創(chuàng)辦也是特別需要的，以方便用戶操作。1．3性能需求1．3．1系統(tǒng)安全性學(xué)生宿舍管理系統(tǒng)中的增加用戶、學(xué)生學(xué)期注冊、學(xué)生畢業(yè)離校等模塊都是和學(xué)生住宿費相聯(lián)系在一起的，所以在系統(tǒng)的管理權(quán)限上應(yīng)該進行嚴(yán)格控制，詳細思想以下：（1）要想對該學(xué)生宿舍管理系統(tǒng)進行操作就應(yīng)該擁有某些操作權(quán)限。沒有權(quán)限的用戶將不能夠經(jīng)過任何渠道來登錄該系統(tǒng)，查察該系統(tǒng)的任何信息和數(shù)據(jù)，以保證系統(tǒng)的嚴(yán)實性和安全性。（2）在上述要求基礎(chǔ)上，程序開始運行全部功能將是不履行用的，只適用戶登錄窗口能夠使用，沒有正確的用戶名和密碼任何人都不能夠登錄該系統(tǒng)。（3）在詳細實現(xiàn)時還應(yīng)為各用戶設(shè)定不同樣的權(quán)限，系統(tǒng)管理員應(yīng)該能夠使用系統(tǒng)的全部模塊，一般用戶只能閱讀系統(tǒng)中的宿舍及學(xué)生基本信息。（4）在系統(tǒng)開始試運行后，需要采用必然的技術(shù)手段對內(nèi)部用戶的接見和外面用戶接見進行劃分，采用必然的措施，嚴(yán)格控制Internet的用戶的操作權(quán)限。第二章宿舍管理系統(tǒng)的系統(tǒng)規(guī)劃2．1系統(tǒng)規(guī)劃規(guī)劃，一般是對較長久間的活動進行整體的、全面的計劃。由于管理系統(tǒng)的建設(shè)耗資巨大，歷時較長，技術(shù)復(fù)雜且涉及面廣，系統(tǒng)規(guī)劃第3頁高校宿舍管理系統(tǒng)是這一工作的初步間段。這項工作的利害直接影響到整個系統(tǒng)建設(shè)的成敗，為了提高規(guī)劃工作的科學(xué)性和有效性應(yīng)注意以下要點問題：（1）戰(zhàn)略計劃是中心（2）解決問題的有效性是要點（3）應(yīng)變能力是系統(tǒng)成功的要點問題之一，也是當(dāng)前系統(tǒng)建設(shè)與應(yīng)用的瓶頸問題。（4）人、管理、技術(shù)應(yīng)協(xié)調(diào)發(fā)展，三者之間相互當(dāng)合、相互促進，以加速系統(tǒng)的建設(shè)進度。2．2管理信息系統(tǒng)理論宿舍管理系統(tǒng)是典型的信息管理系統(tǒng)（MIS），需要MIS的基本理論的指導(dǎo)，基于此，我們回顧一下MIS的基本理論。2．2．1管理信息系統(tǒng)的歸納管理信息系統(tǒng)是一個由人和計算機組成的能進行管理信息的收集、傳達、加工、保存、保護和使用的系統(tǒng)。它能實測公民經(jīng)濟和企業(yè)的各樣運行情況；管理信息系統(tǒng)利用歷史數(shù)據(jù)展望將來；從全局出發(fā)協(xié)助管理決策；利用信息控制企業(yè)的行為，幫助實現(xiàn)其規(guī)劃目標(biāo)。管理信息系統(tǒng)是以計算為主要手段辦理信息，重申信息辦理的系統(tǒng)性、綜合性，不僅需求在事物辦理上高效率，而且更重申對各級管理決策的有效支持，管理信息系統(tǒng)的建立，為各級管理決策供應(yīng)了信息支持，從根本上改進了管理人員的勞動條件和工作性質(zhì)，是管理手段現(xiàn)代化的重要標(biāo)志。2．2．2管理信息系統(tǒng)的特點管理信息系統(tǒng)的特點可歸納為：數(shù)據(jù)集中一致，采用數(shù)據(jù)庫數(shù)據(jù)模型的應(yīng)用有展望和控制能力面向決策管理信息系統(tǒng)是一門新的學(xué)科，它引用其他學(xué)科如管理學(xué)與工程經(jīng)濟理論、統(tǒng)計學(xué)、運籌學(xué)以及計算機科學(xué)等多學(xué)科的見解和方法，交融成為一門新的綜合性、邊緣性的學(xué)科。第4頁高校宿舍管理系統(tǒng)2．2．3管理信息系統(tǒng)開發(fā)的基本方法用系統(tǒng)工程的方法開發(fā)管理信息系統(tǒng)的詳細方法有生命周期法、原型法、面向?qū)ο箝_發(fā)方法和CASE方法等多種。（1）生命周期法所謂生命周期法，就是依照料理信息生命周期的見解，嚴(yán)格地依照系統(tǒng)生命周期的各個過程和步驟去開發(fā)系統(tǒng)。即分為五個階段：系統(tǒng)分析、系統(tǒng)設(shè)計、系統(tǒng)推行、系統(tǒng)運行、系統(tǒng)保護階段。對于大系統(tǒng)或系統(tǒng)開發(fā)缺少經(jīng)驗的情況，采用生命周期法能夠立足全局，步步為營，減少返工，有利于提高開發(fā)質(zhì)量，加速工程進度。生命周期法的不足之處是系統(tǒng)的開發(fā)周期太長，有時系統(tǒng)開發(fā)尚在開發(fā)過程之中，而內(nèi)外環(huán)境已有所變化，對系統(tǒng)的要求也發(fā)生了變化。（2）原型法原型法的基本思想是：開發(fā)者和用戶在系統(tǒng)的主要需求上獲取一致建議后，由開發(fā)者很快開發(fā)出一個初步的原型系統(tǒng)，爾后經(jīng)過用戶使用和談?wù)?，提出改進建議，屢次更正、擴展和完滿，直到形成一個相對牢固的系統(tǒng)。原型法能充分發(fā)揮用戶的積極性，能提前發(fā)現(xiàn)開發(fā)中出現(xiàn)的問題，所以系統(tǒng)的合用性較高，原型法主要用于以下一些場合：用戶早先難以說明需求的較小的應(yīng)用系統(tǒng)；決策支持系統(tǒng)；與生命周期法結(jié)合起來使用，即整體上仍使用生命周期法，而僅對其中功能獨立的模塊采用原型法。（3）面向?qū)ο蠓嫦驅(qū)ο蠓ㄊ且环N認識問題和解決問題的思想方法，它把客觀世界看作是由好多不同樣的對象組成。在面向?qū)ο蟮南到y(tǒng)中，我們把系統(tǒng)中全部資源（如系統(tǒng)、數(shù)據(jù)、模塊）都看作是對象，每一對象都有自己的運動規(guī)律和內(nèi)部狀態(tài)。不同樣對象間的相互聯(lián)系和相互作用組成一個完滿的客觀世界。（4）計算機協(xié)助系統(tǒng)開發(fā)法（CASE法）計算機協(xié)助系統(tǒng)開發(fā)方法是運用計算機軟件工具協(xié)助系統(tǒng)開發(fā)的一種方法。由于當(dāng)前宿舍管理還處于手工管理階段，管理水平還比較低，要求宿管部門的工作人員一次性地供應(yīng)完滿的需求確實存在困難，經(jīng)過認真分析，我決定采用第5頁高校宿舍管理系統(tǒng)原型法開發(fā)。即先很快建立一個系統(tǒng)的原型，讓用戶認識它、使用它、熟悉它、更正它、談?wù)撍?，不斷的滿足用戶提出的新的需求，進一步完滿和提高系統(tǒng)地綜合性能。自然本系統(tǒng)的開發(fā)設(shè)計過程仍嚴(yán)格遵守生命周期法的開發(fā)相關(guān)規(guī)范。第三章宿舍管理系統(tǒng)的系統(tǒng)分析3．1系統(tǒng)初步檢查系統(tǒng)初步檢查是系統(tǒng)分析階段的第一項活動，其主要目標(biāo)就是從系統(tǒng)分析人員和管理人員的角度看新項目開發(fā)的可能性和必要性。河套大學(xué)作為一所綜合性大學(xué)，當(dāng)前學(xué)校下設(shè)多個院系，特別近來幾年來與鄰省區(qū)進行對口交流招生后，生源大量增加，學(xué)生住宿管理問題引起了校領(lǐng)導(dǎo)及主管學(xué)生住宿的宿管部門的重視?，F(xiàn)在學(xué)校宿舍管理主要依賴于手工管理方式，它存在著好多弊端，如學(xué)生開學(xué)入住登記繁瑣且簡單出錯；數(shù)據(jù)冗余現(xiàn)象嚴(yán)重；盤問不方便等。為了完滿這方面的管理，經(jīng)多次與校領(lǐng)導(dǎo)及宿舍管理負責(zé)人的談?wù)?，我決定為河套大學(xué)開發(fā)一個宿舍管理系統(tǒng)，以此來改進現(xiàn)有的管理模式，使學(xué)校各方面的管理向著系統(tǒng)化、科學(xué)化邁進。3．2開發(fā)方式選擇面對當(dāng)前的學(xué)生入學(xué)情況及校內(nèi)現(xiàn)有的硬件資源，校領(lǐng)導(dǎo)對學(xué)生宿舍管理能夠做出以下三種計劃安排：（1）連續(xù)采用當(dāng)前的手工管理方式，需要再聘用幾個生活老師加強對學(xué)生及宿舍的管理。（2）購買市場上已有宿舍管理系統(tǒng)，一般來說能夠幫助人們在某些環(huán)節(jié)上達成一些簡單的、重復(fù)性的工作。（3）自己開發(fā)一個宿舍管理系統(tǒng)，依照學(xué)校自己情況明確目標(biāo)，開發(fā)適合自己的系統(tǒng)。對于第一種顯然是個不能行的，那樣既不能減少學(xué)校的支出也不能夠夠改進學(xué)校宿舍管理制度，過去工作中的弊端和問題仍沒有獲取根本的改變和解決。對于第二種購買理論上是可行的，但存在著這樣一些問題，第一購買現(xiàn)有的軟件是比較昂貴的；其次購買到真切滿足學(xué)校需求、適應(yīng)學(xué)校環(huán)境的軟件是十分困難的；最后購買來的軟件是作用和可靠程度一般都不盡如人意，所以經(jīng)過多次檢查談?wù)摵笪覜Q定借畢業(yè)設(shè)計的機遇為學(xué)校開發(fā)一個宿舍管理系統(tǒng)。自己開發(fā)軟件目注明確、吻合需求、便于進一步擴大和升級。所以，自行開發(fā)為自己所用的，第6頁高校宿舍管理系統(tǒng)合用于學(xué)校這一特定應(yīng)用范圍的，只支持宿舍管理這一局部功能的軟件是學(xué)校最正確的選擇。3．3系統(tǒng)開發(fā)的可行性分析與談?wù)摽尚行匝芯渴窍到y(tǒng)分析階段的第二項活動，其主要目標(biāo)是進一步確定系統(tǒng)目標(biāo)、規(guī)模與功能，對系統(tǒng)開發(fā)背景、必要性和意義進行檢查分析并依照需要和可能提出開發(fā)系統(tǒng)的初步方案與計劃。下面，我從三個方面對河套大學(xué)宿舍管理系統(tǒng)的可行性進行分析。（1）技術(shù)可行性：技術(shù)上的可行性要考慮將來采用的硬件和軟件技術(shù)可否滿足用戶提出的要求。基于當(dāng)前的計算機網(wǎng)絡(luò)技術(shù)和數(shù)據(jù)技術(shù)已成熟，而且管理信息系統(tǒng)（MIS）的各樣開發(fā)技術(shù)也已經(jīng)相看作熟，而且在各個領(lǐng)域都不乏成熟的案例。所以為河套大學(xué)開發(fā)一套網(wǎng)絡(luò)平臺的多用戶共享信息的宿舍管理系統(tǒng)在技術(shù)上是可行的。（2）經(jīng)濟可行性：經(jīng)濟可行性主若是對項目的經(jīng)濟效益進行談?wù)?。?dāng)前，河套大學(xué)已建立了校園網(wǎng)絡(luò)系統(tǒng)，具備了運行網(wǎng)絡(luò)平臺的MIS的硬件基礎(chǔ)，而且本系統(tǒng)是我作為畢業(yè)設(shè)計自行開發(fā)，免費幫助設(shè)計并推行的。所以開發(fā)、設(shè)計這套系統(tǒng)的支出花銷是學(xué)校能夠肩負的，即經(jīng)濟上是可行的。（3）運營可行性：宿舍管理系統(tǒng)的開發(fā)不會影響學(xué)校其他職能部門的正常運行?，F(xiàn)有的生活部負責(zé)人及生活老師素質(zhì)比較高，所以宿舍管理系統(tǒng)的推行不會碰到阻力，加上校領(lǐng)導(dǎo)的支持和其他各部分的配合，宿舍管理系統(tǒng)的推行在運營上是可行的。3．4系統(tǒng)詳細檢查系統(tǒng)詳細檢查的目標(biāo)是在可行性研究的基礎(chǔ)進步一步對現(xiàn)有系統(tǒng)進行全面、深入的檢查和分析，弄清楚現(xiàn)行系統(tǒng)的運行情況發(fā)現(xiàn)其單薄環(huán)節(jié)，找出要解決的問題的實質(zhì)，保證新系統(tǒng)比原系統(tǒng)更有效。經(jīng)過詳細檢查，學(xué)校現(xiàn)有在校學(xué)生13000多人，宿舍樓8座，男女生各4座。當(dāng)前，宿舍管理工作完滿靠生活部老師手工達成。學(xué)生注冊后，入住管理都是手工方式進行。由生活部老師依照學(xué)生的專業(yè)及到校的先后次序依次安排入住。學(xué)生的基本記錄，以及安排入住后的相關(guān)資料也由生活老師手工登記，這使的生活部工作量很大，而且宿舍推行一致標(biāo)準(zhǔn)的管理，也不能夠滿足學(xué)生及家長的住宿要求，這些問題都亟待解決。所以，即使當(dāng)前全部宿舍都是一致的6人間標(biāo)準(zhǔn)，由于完滿采用手工管理，生活部的老師已經(jīng)特別辛苦。而且隨著多層次、多等級標(biāo)準(zhǔn)宿舍的出現(xiàn)，手工方式的管理已經(jīng)完滿不能夠適應(yīng)管理工作的需要。第7頁高校宿舍管理系統(tǒng)3．5系統(tǒng)邏輯模型的提出這一階段是系統(tǒng)分析的最后一項活動，目標(biāo)是明確用戶的信息需求，確定新系統(tǒng)的邏輯功能，提出新系統(tǒng)的邏輯方案。經(jīng)過初步檢查及詳細檢查后發(fā)現(xiàn)原有的手工管理方式不能夠滿足學(xué)?，F(xiàn)在的管理要求，學(xué)校將采用新的管理方式，對學(xué)生宿舍推行公寓化管理，將現(xiàn)有的宿舍化分為三個標(biāo)準(zhǔn)：2人間、4人間和6人間，各樣標(biāo)準(zhǔn)的公寓內(nèi)部設(shè)施各不同樣，相應(yīng)的住宿費也不同樣。學(xué)生報到后持繳費單到生活部報到安排住宿，依照學(xué)生的不同樣情況，第一登記學(xué)生的基本信息，爾后盤問相應(yīng)的宿舍情況，依次安排學(xué)生入住。使學(xué)生很快適應(yīng)新的環(huán)境，進入正常、健康的大學(xué)生活，為了豐富大學(xué)的生活我們睜開各樣評比活動而且學(xué)期結(jié)束，按評比結(jié)果進行獎勵。（1）宿舍管理系統(tǒng)關(guān)系圖,以以下圖所示：（2）宿舍管理系統(tǒng)頂層圖，以以下圖所示：F1：學(xué)生注冊單F2：宿舍標(biāo)準(zhǔn)信息F3：學(xué)生基本信息第8頁高校宿舍管理系統(tǒng)F4：宿舍信息F7：退宿結(jié)果F5：評比依照F8：入住結(jié)果F6：評比結(jié)果F9：學(xué)生信息第四章宿舍管理系統(tǒng)的系統(tǒng)設(shè)計4．1數(shù)據(jù)庫的設(shè)計4．1．1數(shù)據(jù)庫需求分析需求分析階段應(yīng)該對系統(tǒng)的整個應(yīng)用情況作全面的、詳細的檢查，確定系統(tǒng)的目標(biāo)，收集支持系統(tǒng)總的設(shè)計目標(biāo)的基礎(chǔ)數(shù)據(jù)和對這些數(shù)據(jù)的要求，確定用戶的需求。要設(shè)計一個性能優(yōu)異的數(shù)據(jù)庫系統(tǒng)，收集和分析用戶需求，明確應(yīng)用環(huán)境對系統(tǒng)的要求是首要的和最基本的。特別是數(shù)據(jù)庫應(yīng)用特別廣泛，特別復(fù)雜，多個應(yīng)用程序能夠在同一個數(shù)據(jù)庫上運行時，為了支持全部應(yīng)用程序的運行，數(shù)據(jù)庫設(shè)計就變的復(fù)雜。所以早先對信息進行充分和認真的分析，是數(shù)據(jù)庫設(shè)計獲取成功的要點所在。事實上確定全部的用戶需求是一件很困難的事情，原因以下：（1）系統(tǒng)自己的需求是變化的，用戶的需求必定不斷調(diào)整，使之與這變化相一致。（2）由于用戶缺少計算機信息系統(tǒng)設(shè)計方面的專業(yè)知識，要正確表達他們的需求很困難，特別是很難討情楚某部分工作的功能與發(fā)展過程。（3）要調(diào)動用戶積極性，使他們能夠積極的參加系統(tǒng)的分析與設(shè)計工作相當(dāng)困難。誠然面對這些困難，但它關(guān)系到數(shù)據(jù)庫設(shè)計的成功與否所以必然要認真對待。所以，我們應(yīng)收集盡可能詳細的資料，而且認識系統(tǒng)將來要發(fā)生的變化，收集將來應(yīng)用所涉及的數(shù)據(jù)，充分考慮到系統(tǒng)可能的擴大和變動，使系統(tǒng)設(shè)計更吻合將來發(fā)展的趨向，而且易于變動，以減少系統(tǒng)保護的代價。4．1．2數(shù)據(jù)庫見解模式設(shè)計（E－R圖）在見解設(shè)計階段中，設(shè)計人員從用戶的角度對待數(shù)據(jù)及辦理要求和拘束，產(chǎn)生一個反響用戶見解的見解模型。為了使E－R圖表示的更加清楚，我將E－R圖分成實體及其屬性圖和實體及其聯(lián)系圖以下所示。第9頁高校宿舍管理系統(tǒng)第10頁高校宿舍管理系統(tǒng)第11頁高校宿舍管理系統(tǒng)4．1．3數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計邏輯設(shè)計主若是把見解模式變換成DBMS能辦理的模式，E－R圖到關(guān)系模式的變換是比較直接的，實體的聯(lián)系都能夠表示成關(guān)系，E－R圖中的屬性也能夠變換成關(guān)系的屬性。E－R圖直接轉(zhuǎn)變成的關(guān)系模式的不是唯一的，也不是必然是最優(yōu)的，還得依照現(xiàn)實語義，運用范式規(guī)范化理論進行優(yōu)化。系統(tǒng)中所涉及到的實體有：學(xué)生實體、宿舍實體、宿舍標(biāo)準(zhǔn)實體、獎勵等級實體及獎品實體。將其E－R圖向關(guān)系模型變換結(jié)果以下：用戶表（用戶ID，用戶名，密碼，學(xué)生信息管理，宿舍信息管理，學(xué)生住宿管理，評比及獎勵管理，綜合信息盤問）用戶ID為此關(guān)系的碼（注：學(xué)生信息管理，宿舍信息管理，學(xué)生住宿管理，評比及獎勵管理，綜合信息盤問為權(quán)限分類）。學(xué)生基本信息表（學(xué)號，姓名，性別，出壽辰期，入學(xué)時間，專業(yè)，家庭地址，聯(lián)電話，郵編）學(xué)號為此表的碼。宿舍標(biāo)準(zhǔn)表（標(biāo)準(zhǔn)號，標(biāo)準(zhǔn)名稱，住宿費，床，桌子，柜子，椅子，電視，網(wǎng)口，電話，可否有獨立衛(wèi)生間）標(biāo)準(zhǔn)號是此表的碼宿舍信息表（宿舍號，標(biāo)準(zhǔn)號，地址，床位總數(shù)，已用床位，未用床位，電話號碼，）宿舍號為此表的碼。獎品信息表（獎品號，獎品名稱，數(shù)量，價值）獎品號為此表的碼。?獎勵等級表（等級號，等級名稱，評獎機構(gòu)）等級號為此表的碼。?獎品發(fā)放表（獎品號，等級號，數(shù)量）學(xué)生入宿表（入住編號，姓名，學(xué)號，宿舍號，入住時間，聯(lián)系電話）學(xué)號和宿舍號為此表的碼。學(xué)生退宿表（退宿編號，宿舍號，學(xué)號，姓名，退宿日期，入住編號）宿舍號和學(xué)號為此表的碼。宿舍評比等級表（領(lǐng)用編號，宿舍號，獎勵等級號，評比時間，備注）宿舍號和獎勵等級號為此表的碼。系統(tǒng)自動編號表（編號名稱，編號）編號為此表的碼。4．1．4數(shù)據(jù)庫的物理設(shè)計（1）數(shù)據(jù)庫和表名稱在河套大學(xué)宿舍管理系統(tǒng)中數(shù)據(jù)庫的名稱設(shè)置為hostel數(shù)據(jù)庫中的表名稱第12頁高校宿舍管理系統(tǒng)（2）表結(jié)構(gòu)設(shè)計：第13頁高校宿舍管理系統(tǒng)宿舍信息表（hosgrn）第14頁高校宿舍管理系統(tǒng)第15頁高校宿舍管理系統(tǒng)學(xué)生退宿表（gobacktable）宿舍評比等級表（gogrademess）第16頁高校宿舍管理系統(tǒng)4．2安全性設(shè)計為了加強數(shù)據(jù)安全性,學(xué)校要求采用大型數(shù)據(jù)庫。利用大型關(guān)系數(shù)據(jù)庫自己的事務(wù)回卷，如期備份等功能，以便保證系統(tǒng)啟用后不會出現(xiàn)數(shù)據(jù)扔掉、死機等現(xiàn)象，并保證數(shù)據(jù)庫的一致性、并發(fā)性和可移植性。SQLServer2000數(shù)據(jù)庫的安全性管理功能就特別富強，相對來說也比較復(fù)雜，下面將從系統(tǒng)開發(fā)的實質(zhì)情況出發(fā)，依照系統(tǒng)分析的結(jié)果，對系統(tǒng)安全性進行有針對性的設(shè)計。（1）后臺SQLServer數(shù)據(jù)庫以Sa為系統(tǒng)管理員，這一角色由河套大學(xué)的專職計算機人員擔(dān)當(dāng)，負責(zé)對后臺數(shù)據(jù)庫的保護。（2）對全部從“宿舍管理系統(tǒng)”前臺登錄的合法用戶，都以DBO角色來接見后臺數(shù)據(jù)庫。（3）經(jīng)過前臺開發(fā)工具VisualBasic6.0對用戶登錄權(quán)限進行嚴(yán)格的控制管理。4．3網(wǎng)絡(luò)拓撲結(jié)構(gòu)圖4-2C/S和B/S混雜結(jié)構(gòu)的系統(tǒng)結(jié)構(gòu)圖4．4代碼設(shè)計代碼設(shè)計的主要原則是簡單，易懂和可擴大性，代碼設(shè)計的方法有好多，本系統(tǒng)采用層次疊加碼作為河套大學(xué)的信息編碼方案。下表以資源信息代碼表組成為例描述學(xué)生號的組成原理。第17頁高校宿舍管理系統(tǒng)4．5界面設(shè)計界面設(shè)計應(yīng)簡單了然，如數(shù)家珍。一方面從用戶應(yīng)用需求出發(fā)，宿舍管理系統(tǒng)面對的最后用戶是對計算機其實不精曉的學(xué)校生活部管理員；另一方面友好、清楚的界面也易學(xué)易用，易保護。（1）河套大學(xué)宿舍管理系統(tǒng)界面，以以下圖所示：圖4-3宿舍系統(tǒng)主界面在屏幕最上方為主菜單區(qū)，顯示本系統(tǒng)的主菜單，用戶能夠用鼠標(biāo)來選擇下拉菜單項選擇項，選擇權(quán)限范圍內(nèi)的選項。當(dāng)用戶經(jīng)過選擇了菜單所要進行的工作后，系統(tǒng)進入相應(yīng)的業(yè)務(wù)辦理功能，這時整個業(yè)務(wù)辦理活動在系統(tǒng)工作區(qū)進行。當(dāng)業(yè)務(wù)辦理達成后，系統(tǒng)自動返回到進入次辦理以前的原始菜單顯示狀態(tài)。（2）輸入界面的設(shè)計第18頁高校宿舍管理系統(tǒng)為了方便用戶的使用，宿舍管理系統(tǒng)的界面大量的采用VisualBasic所供應(yīng)的標(biāo)準(zhǔn)控件，并配以一些下拉式菜單適合提高用戶工作效率，宿舍管理系統(tǒng)的輸入界面主要有：學(xué)生信息管理錄入、宿舍信息設(shè)置、入住信息錄入、評比獎勵登記等。學(xué)生信息管理錄入以以下圖所示：圖4-4學(xué)生信息錄入界面4．6功能結(jié)構(gòu)圖的設(shè)計功能結(jié)構(gòu)圖主要從功能的角度描述了系統(tǒng)的結(jié)構(gòu)，但并未能表達各功能這間的數(shù)據(jù)傳達關(guān)系。河套大學(xué)宿舍管理系統(tǒng)從功能上能夠劃分出以下幾個模塊，以以下圖所示：第19頁高校宿舍管理系統(tǒng)圖4-5學(xué)生宿舍主功能圖為了詳細的描述系統(tǒng)功能，我將宿舍管理系統(tǒng)分為七個大的模塊：系統(tǒng)管理模塊，學(xué)生信息管理模塊，宿舍信息管理模塊，學(xué)生住宿管理模塊，評比及獎勵管理模塊，綜合盤問管理模塊，幫助模塊，每個模塊將實現(xiàn)不同樣的功能。下面將詳細進行介紹4．6．1系統(tǒng)管理模塊系統(tǒng)管理模塊包括：用戶設(shè)置，操作銷定，注銷系統(tǒng)，撤出系統(tǒng)，數(shù)據(jù)清空幾個部分。以以下圖所示：圖4－6系統(tǒng)管理功能圖從登錄框登錄后，只有系統(tǒng)管理員才擁適用戶設(shè)置的權(quán)限。一般用戶不能夠夠使用，即沒有增加、更正用戶權(quán)限的權(quán)益。（1）用戶設(shè)置：設(shè)置用戶信息，如：用戶ID，用戶名稱，用戶密碼，以及用第20頁高校宿舍管理系統(tǒng)戶權(quán)限。（只有系統(tǒng)管理員system能夠設(shè)置新用戶權(quán)限）（2）操作銷定：判斷可否銷定系統(tǒng)，以應(yīng)付緊急情況。（3）注銷系統(tǒng)：注銷當(dāng)前工作用戶重新登錄系統(tǒng)。（4）撤出系統(tǒng)：單擊撤出系統(tǒng)。（5）數(shù)據(jù)清空：清空全部數(shù)據(jù)（只有系統(tǒng)管理員system有此權(quán)限）4．6．2學(xué)生信息管理模塊學(xué)生信息管理模塊包括：注冊學(xué)生信息，學(xué)生信息閱讀，學(xué)生信息盤問三個部分，以以下圖所示：圖4－7學(xué)生信息管理功能圖注冊學(xué)生信息：登記學(xué)生基本信息。學(xué)生信息閱讀：閱讀全部注冊學(xué)生的信息。學(xué)生信息盤問：以學(xué)號或姓名或性別為要點字進行按條件盤問。4．6．3宿舍信息管理模塊宿舍信息管理模塊包括：宿舍標(biāo)準(zhǔn)設(shè)置，宿舍信息設(shè)置。以以下圖所示：第21頁高校宿舍管理系統(tǒng)圖4-8宿舍信息管理功能圖（1）宿舍標(biāo)準(zhǔn)設(shè)置：設(shè)置各個標(biāo)準(zhǔn)信息，實現(xiàn)不同樣宿舍標(biāo)準(zhǔn)的分級管理。（2）宿舍信息設(shè)置：設(shè)置宿舍的所屬的標(biāo)準(zhǔn)及宿舍相關(guān)情況。4．6．4學(xué)生住宿管理模塊：學(xué)生住宿管理模塊包括：學(xué)生住宿登記，學(xué)生退宿登記，節(jié)余宿舍盤問三個部分。以以下圖所示：圖4－9學(xué)生住宿管理功能圖（1）學(xué)生住宿登記：記錄學(xué)生選擇宿舍標(biāo)準(zhǔn)后的相關(guān)入宿情況。（2）學(xué)生退宿登記：學(xué)生退宿歸還宿舍資源（床位）情況的記錄（3）節(jié)余宿舍盤問：統(tǒng)計未入住或未住滿的宿舍情況。4．6．5評比及獎勵管理模塊評比及獎勵管理模塊包括：評比標(biāo)準(zhǔn)，獎品管理，評比獎勵登記。以以下圖所示：第22頁高校宿舍管理系統(tǒng)圖4-10評比、獎勵功能圖評比標(biāo)準(zhǔn)：以文本框的形式顯示評比標(biāo)準(zhǔn)。（1）獎品管理：A獎品等級設(shè)置：設(shè)置不同樣樣級獎勵獎品發(fā)放情況。獎品明細設(shè)置：相關(guān)獎品信息的設(shè)置。（2）評比等級登記：宿舍評比等級錄入情況。4．6．6綜合信息盤問：學(xué)生注冊入宿信息管理模塊包括：宿舍標(biāo)準(zhǔn)盤問，學(xué)生入住信息盤問兩個模塊。以以下圖所示：圖4－11綜合信息盤問功能圖第23頁高校宿舍管理系統(tǒng)宿舍標(biāo)準(zhǔn)盤問：統(tǒng)計全部宿舍標(biāo)準(zhǔn)，即宿舍設(shè)置情況以宿舍號或床位數(shù)為要點字盤問相應(yīng)設(shè)置情況。(2)學(xué)生入住信息盤問：統(tǒng)計全部學(xué)生入住情況，以宿舍號或?qū)W號或姓名進行有條件盤問。4．6．7幫助模塊此模塊是對學(xué)生宿舍管理系統(tǒng)開發(fā)者的相關(guān)信息的一個簡單的介紹。第五章宿舍管理系統(tǒng)的系統(tǒng)推行經(jīng)過了系統(tǒng)規(guī)劃，系統(tǒng)分析和系統(tǒng)設(shè)計等階段后，便開始了系統(tǒng)推行階段，這個階段要繼承以前各階段的工作成就，是系統(tǒng)分析和設(shè)計階段的結(jié)晶。5．1開發(fā)工具的選擇5．1．1前臺開發(fā)工具的選擇比較幾種開發(fā)工具今后，我選擇了VisualBasic6.0作為河套大學(xué)宿舍管理系統(tǒng)前臺開發(fā)工具。這主若是考慮到學(xué)習(xí)比較簡單，而且相關(guān)論壇比很多，能夠?qū)崟r的達成任務(wù)。BASIC語言是碰到國內(nèi)外千百萬計算機愛好者歡迎的語言，自1964年問世以來，從實驗室走向校園，從校園走向社會，從社會一度走向全世界，向來不衰。BASIC是BeginnersAllPurposeSystemInterChangeCode（初學(xué)者通用符號代碼）的縮寫。與其他高級語言對照，它的語法規(guī)則相對簡單，簡單理解和掌握，且擁有使用價值，被以為是最理想的初學(xué)者語言。BASIC語言自出生以來，在廣泛使用中不斷的發(fā)展。隨著Windows環(huán)境的推履行用，好多人正在學(xué)習(xí)和使用了在Windows環(huán)境中編程使用的BASIC—VisualBasic。故我采用VisualBasic6.0作為前臺開發(fā)工具。5．1．2后臺數(shù)據(jù)庫的選擇數(shù)據(jù)庫是數(shù)據(jù)管理的最新技術(shù)，是計算機科學(xué)的重要分支。十年來，數(shù)據(jù)庫管理系統(tǒng)已從專用的應(yīng)用程序包發(fā)展成為通用系統(tǒng)軟件。由于數(shù)據(jù)庫擁有數(shù)據(jù)結(jié)構(gòu)化、最低冗余度、較高的程序與數(shù)據(jù)獨立性、易于擴大、易于編制應(yīng)用程序等優(yōu)點，較大的信息系統(tǒng)都是建立在數(shù)據(jù)庫設(shè)計之上的。由于用到的數(shù)據(jù)表格多，別的考慮到實質(zhì)情況，學(xué)生基本信息的變動，還有員工信息的多少的變化，我們采用SQLServer作為數(shù)據(jù)庫開發(fā)，而不用Access，主若是由于Access數(shù)據(jù)庫是一個桌面數(shù)據(jù)庫系統(tǒng)，不合合用戶程序?qū)?shù)據(jù)庫遠第24頁高校宿舍管理系統(tǒng)程連接，而SQLServer是一種常用的關(guān)系數(shù)據(jù)庫，能存放和讀取大量的數(shù)據(jù)，管理眾多并發(fā)的用戶，應(yīng)采用SQLServer數(shù)據(jù)庫。5．2程序?qū)崿F(xiàn)（源代碼）5．2．1系統(tǒng)源代碼我用Visualbasic為河套大學(xué)開發(fā)的<<宿舍管理系統(tǒng)>>，有大量的程序源代碼，下面僅有幾種重要的程序源代碼，列示以下：系統(tǒng)界面源代碼：――――――――――――――PrivateSubMDIForm_Load()MainForm.Caption=StrSystem'IfTrim(LimStuMess)=1ThenStudenMan.Enabled=TrueElseStudenMan.Enabled=FalseEndIfIfTrim(LimHosMess)=1ThenHostelMan.Enabled=TrueElseHostelMan.Enabled=FalseEndIfIfTrim(GoHosManMess)=1ThenGoHosMan.Enabled=TrueElseGoHosMan.Enabled=FalseEndIfIfTrim(LimGradeMess)=1ThenStuGrade.Enabled=TrueElseStuGrade.Enabled=FalseEndIfIfTrim(LimAllMess)=1ThenAllData.Enabled=TrueElseAllData.Enabled=FalseEndIf第25頁高校宿舍管理系統(tǒng)Statu.Panels(1).Text=StrSystem&Space(10)&"Version1.0"Statu.Panels(2).Text="當(dāng)前操作員："&LoginNameStatu.Panels(3).Text="系統(tǒng)開發(fā)人員：王淑霞"EndSubPrivateSubNoHosFind_Click()EndSubPrivateSubOpLock_Click()CallSysLockSubEndSubPrivateSubStaHosFind_Click()EndSubPrivateSubStaticHos_Click()EndSubPrivateSubStuFind_Click()EndSubPrivateSubStuHosFind_Click()EndSubPrivateSubStuMessList_Click()EndSubPrivateSubSysExit_Click()EndEndSubPrivateSubTimer1_Timer()第26頁高校宿舍管理系統(tǒng)Label1.Caption=Now()EndSubPrivateSubTryLogin_Click()DimIsYesNoAsStringSetrs=NothingSetcn=NothingIsYesNo=MsgBox("可否確認注銷系統(tǒng)？",vbQuestion+vbYesNo,strsytem)IfIsYesNo=vbYesThenUnloadMainFormEndIfEndSubPrivateSubUserSys_Click()EndSubPublicSubSysLockSub()DimISLOCKAsStringISLOCK=MsgBox("可否確認鎖定系統(tǒng)？",vbCritical+vbYesNo,StrSystem)IfISLOCK=vbYesThenSysLock.Show1EndIfEndSub―――――――――――――――――――――――――――宿舍標(biāo)準(zhǔn)信息設(shè)置源代碼：――――――――――OptionExplicitPublicIsAddEditAsStringPrivateSubCmdAdd_Click()StaticNumber.Enabled=TrueStaticName.Enabled=TrueHosMoney.Enabled=TrueStaticNumber.Text=""StaticName.Text=""HosMoney.Text=""CmdAdd.Enabled=False第27頁高校宿舍管理系統(tǒng)CmdSave.Enabled=TrueCmdFind.Enabled=FalseCmdDel.Enabled=FalseIsAddEdit="新增"EndSubPrivateSubCmdDel_Click()DimstrSQLAsStringDimIsYesNoAsStringIsYesNo=MsgBox("可否確認刪除記錄？",vbInformation+vbYesNo,StrSystem)IfIsYesNo=vbYesThenstrSQL="DELETEFROMStaticHosTableWHEREStaticNumber='"&StaticNumber.Text&"'"Ifrs.State=1ThenEndIfrs.OpenstrSQL,cn,adOpenStatic,adLockOptimisticCallShowListData("")EndIfEndSubPrivateSubCmdExt_Click()UnloadMeEndSubPrivateSubCmdFind_Click()DimStrWhereAsStringDimIsWhereAsStringIsWhere=InputBox("請輸入您要查找的宿舍標(biāo)準(zhǔn)號或標(biāo)準(zhǔn)名稱

","請輸入條件

","請輸入您要查找的宿舍標(biāo)準(zhǔn)號或標(biāo)準(zhǔn)名稱")StrWhere="AND(StaticNumberLIKE'%"&CheckString(IsWhere)&"%'ORStaticNameLIKE'%"&CheckString(IsWhere)&"%')"CallShowListData(StrWhere)EndSubPrivateSubCmdSave_Click()第28頁高校宿舍管理系統(tǒng)DimstrSQLAsStringIfIsAddEdit="新增"ThenIfTrim(StaticNumber.Text)=""OrTrim(StaticName.Text)=""OrTrim(HosMoney.Text)=""ThenMsgBox"宿舍標(biāo)準(zhǔn)號、標(biāo)準(zhǔn)名稱、住宿費均不能以為空！",vbInformation,StrSystemExitSubEndIfstrSQL="SELECT*FROMStaticHosTableWHEREStaticNumber='"&CheckString(StaticNumber.Text)&"'"Ifrs.State=1ThenEndIfrs.OpenstrSQL,cn,adOpenStatic,adLockOptimisticIfrs.EOF=FalseThenMsgBox"宿舍號標(biāo)準(zhǔn)號不能夠重復(fù)！",vbInformation,StrSystemExitSubEndIfstrSQL="INSERTINTOStaticHosTable(StaticNumber,StaticName,HosMoney,Hoskip,Hosdsk,Hoscab,HosCha,HosTv,HosNet,HosTelNum,HosTol)VALUES('"strSQL=strSQL&CheckString(StaticNumber.Text)&"','"&CheckString(StaticName.Text)&"','"&CheckString(HosMoney.Text)&"',"strSQL=strSQL&CheckString(HosKip.Text)&","&CheckString(HosDsk.Text)&","&CheckString(HosCab.Text)&","&CheckString(HosCha.Text)&","&CheckString(HosTv.Text)&","strSQL=strSQL&CheckString(HosNet.Text)&","&CheckString(HosTelNum.Text)",'"&CheckString(HosTol.Text)&"')"Ifrs.State=1Thenrs.CloseEndIfrs.OpenstrSQL,cn,adOpenStatic,adLockOptimisticEndIfIfIsAddEdit="更正"ThenstrSQL="UPDATEStaticHosTableSETStaticName='"&CheckString(StaticName.Text)&"',HosMoney="&CheckString(HosMoney.Text)&",HosKip="strSQL=strSQL&HosKip.Text&",HosDsk="&HosDsk.Text&",HosCab="&HosCab.Text&",HosCha="&HosCha.Text&",HosTv="strSQL=strSQL&HosTv.Text&",HosTelNum="&HosTelNum.Text&",HosTol='"HosTol.Text&"'WHEREStaticNumber='"&StaticNumber.Text&"'"第29頁高校宿舍管理系統(tǒng)rs.OpenstrSQL,cn,adOpenStatic,adLockOptimisticEndIfStaticNumber.Enabled=FalseStaticName.Enabled=FalseHosMoney.Enabled=FalseCmdAdd.Enabled=TrueCmdSave.Enabled=FalseCmdFind.Enabled=TrueCmdDel.Enabled=TrueCallShowListData("")EndSubPrivateSubForm_Load()HosStaticMess.Caption=StrSystem&"--宿舍標(biāo)準(zhǔn)信息設(shè)置"CmdAdd.Enabled=TrueCmdSave.Enabled=FalseCmdFind.Enabled=TrueCmdDel.Enabled=TrueStaticNumber.Enabled=FalseStaticName.Enabled=FalseHosMoney.Enabled=FalseCallShowListData("")EndSubPrivateSubHosList_Click()IsAddEdit="更正"DimstrSQLAsStringIfHosList.ListItems.Count=0ThenExitSubEndIfstrSQL="SELECT*FROMStaticHosTableWHEREHosList.SelectedItem.Text&"'"Ifrs.State=1ThenEndIfrs.OpenstrSQL,cn,adOpenStatic,adLockOptimistic第30頁StaticNumber='"&高校宿舍管理系統(tǒng)Ifrs.EOF=FalseThenStaticNumber.Text=Trim(rs![StaticNumber])StaticName.Text=Trim(rs![StaticName])HosMoney.Text=Trim(rs![HosMoney])HosKip.Text=Trim(rs![HosKip])HosDsk.Text=Trim(rs![HosDsk])HosCab.Text=Trim(rs![HosCab])HosTv.Text=Trim(rs![HosTv])HosNet.Text=Trim(rs![HosNet])HosTelNum.Text=Trim(rs![HosTelNum])HosTol.Text=Trim(rs![HosTol])EndIfSetrs=NothingEndSubPrivateSubHosList_DblClick()CmdAdd.Enabled=FalseCmdSave.Enabled=TrueCmdFind.Enabled=FalseCmdDel.Enabled=FalseStaticNumber.Enabled=FalseStaticName.Enabled=TrueHosMoney.Enabled=TrueEndSubPrivateSubV1_Change()EndSubPrivateSubV2_Change()EndSubPrivateSubV3_Change()EndSubPrivateSubV4_Change()第31頁高校宿舍管理系統(tǒng)EndSubPrivateSubV5_Change()EndSubPrivateSubV6_Change()EndSubPrivateSubV7_Change()EndSubPublicSubShowListData(ByVallpWhereAsString)''自定義過程，公共部分，為了實現(xiàn)顯示數(shù)據(jù)'DimrsAsDimstrSQLAsStringDimLvAsListItemstrSQL="SELECT*FROMStaticHosTableWHERE1=1"IflpWhere<>""ThenstrSQL=strSQL&lpWhereEndIfIfrs.State=1ThenEndIfrs.OpenstrSQL,cn,adOpenStatic,adLockOptimisticIfrs.EOF=FalseThenWhilers.EOF=FalseSetLv=HosList.ListItems.Add(,,Trim(rs![StaticNumber]))Lv.SubItems(1)=Trim(rs![StaticName])Lv.SubItems(2)=Trim(rs![HosMoney])Lv.SubItems(3)=Trim(rs![HosKip])第32頁高校宿舍管理系統(tǒng)Lv.SubItems(4)=Trim(rs![HosDsk])Lv.SubItems(5)=Trim(rs![HosCab])Lv.SubItems(6)=Trim(rs![HosCha])Lv.SubItems(7)=Trim(rs![HosTv])Lv.SubItems(8)=Trim(rs![HosNet])Lv.SubItems(9)=Trim(rs![HosTelNum])Lv.SubItems(10)=Trim(rs![HosTol])rs.MoveNextWendElseEndIfEndSub―――――――――――――――――――――5．2．2系統(tǒng)主要界面登陸框：圖5-1系統(tǒng)登錄界面系統(tǒng)主界面：（見圖4-2）學(xué)生入住界面：第33頁高校宿舍管理系統(tǒng)圖5-2學(xué)生入住界面學(xué)生退宿管理界面：圖5-3學(xué)生退宿界面第34頁高校宿舍管理系統(tǒng)節(jié)余宿舍盤問界面：圖5-4節(jié)余宿舍盤問界面5．3系統(tǒng)運行環(huán)境5．3．1系統(tǒng)運行的硬件環(huán)境服務(wù)器：CPU：P43．0GHZ內(nèi)存：1024MB硬盤：150GB顯示器：17”彩顯軟盤驅(qū)動器：一個光盤驅(qū)動器：一個當(dāng)前，服務(wù)器由高檔微機肩負，建議在資本條件贊同情況下，配置專用服務(wù)器。客戶端：CPU：P41．7GHZ內(nèi)存：256MB硬盤：60GB顯示器：17”彩顯軟盤驅(qū)動器：一個光盤驅(qū)動器：一個第35頁高校宿舍管理系統(tǒng)網(wǎng)絡(luò)環(huán)境：交換機一臺網(wǎng)線若干5．4系統(tǒng)操作步驟5．4．1系統(tǒng)的進入（1）打開客戶機，啟動WindowsXP。（2）在桌面上單擊[河套大學(xué)宿舍管理系統(tǒng)]圖標(biāo)。（3）屏幕上出現(xiàn)登錄畫面，輸入代碼，姓名，密碼，達成后用鼠標(biāo)單擊按鈕。（4）進入系統(tǒng)后，用鼠標(biāo)單擊菜單項選擇綱要執(zhí)行的功能。5．4．2系統(tǒng)操作次序

[確定]進入系統(tǒng)后，只有依照正確的次序操作，才能保證系統(tǒng)的正常運行，保證數(shù)據(jù)的正確性。當(dāng)?shù)谝淮芜M入系統(tǒng)時，要先進錄入管理，爾后再執(zhí)行其他模塊進行辦理。5．4．3B/S模式的盤問系統(tǒng)操作過程（1）在服務(wù)器上安裝IIS系統(tǒng)，啟動Web服務(wù)；這樣系統(tǒng)就變成一個Web服務(wù)器。（2）在服務(wù)器上為數(shù)據(jù)庫建立用于Web服務(wù)的ODBC數(shù)據(jù)源。（3）以ASP技術(shù)為Web服務(wù)開發(fā)盤問程序，爾后將做好的ASP網(wǎng)頁復(fù)制到Web服務(wù)器的擁有可執(zhí)行權(quán)限的虛假目錄下，相關(guān)程序見附錄二:5．5系統(tǒng)測試經(jīng)過幾個月的努力，我的畢業(yè)設(shè)計《河套大學(xué)宿舍管理系統(tǒng)》也終于湊近結(jié)尾，為了使系統(tǒng)能夠牢固運行，更加完滿，對系統(tǒng)進行了有針對性的全面測試，采用的方式是：菜單項測試：為了保證每一項下拉菜單能夠正確的實現(xiàn)系統(tǒng)設(shè)計功能，我把相關(guān)學(xué)校宿舍及學(xué)生的基本數(shù)據(jù)，依照學(xué)生基本信息錄入，宿舍信息錄入等全部都輸入系統(tǒng)中，并對每個菜單屢次進行了新增、刪除、更正、保存等操作，從而保證了菜單級功能的正確實現(xiàn)。數(shù)據(jù)追蹤：達成菜單測試后，我又對系統(tǒng)內(nèi)的每一個數(shù)據(jù)進行了追蹤測試。比方：對學(xué)生信息管理的“增加”這一項。我第一將“計算機系2005級計算機第36頁高校宿舍管理系統(tǒng)信息管理專業(yè)01班的劉艷同學(xué)”錄入系統(tǒng)。爾后經(jīng)過“盤問”來檢驗數(shù)據(jù)可否正確插入了系統(tǒng)。綜合測試：在以上測試的基礎(chǔ)上對系統(tǒng)功能進行整體測試，依次來檢驗系統(tǒng)可否吻合系統(tǒng)設(shè)計的要求。第六章宿舍管理系統(tǒng)談?wù)摷罢雇?．1系統(tǒng)開發(fā)總結(jié)歷時三個月的畢業(yè)設(shè)計現(xiàn)在已經(jīng)湊近結(jié)尾了，回想起這段日子,感覺收獲頗多。我此次畢業(yè)設(shè)計的任務(wù)是建立一個學(xué)生宿舍管理系統(tǒng)，它用到的開發(fā)工具是VisualBasic語言，SQLServer數(shù)據(jù)庫。在設(shè)計的開始階段為了趕忙熟悉VB語言，我詳細翻閱相關(guān)該方面的資料，對書中的基本理論知識逐章節(jié)地分析，同時還上機操作來加深理解。特別是對書中的一些典型實例，認真學(xué)習(xí)它的編程思想，吸引它的編程技巧，弄懂程序中每句話的含義。在對所要應(yīng)用的技術(shù)有了一個基本認識后，就開始構(gòu)思自己的系統(tǒng)設(shè)計。認真聽老師對設(shè)計要求的講解，依照任務(wù)書的要求將整個系統(tǒng)分為幾個模塊，每個模塊詳細又要實現(xiàn)哪些功能，爾后就逐個模塊去一一詳細設(shè)計，設(shè)計的過程中不時地翻閱資料，用一些巧妙的技術(shù)來優(yōu)化程序。程序代碼達成此后，要進行運行調(diào)試，剛開始由于沒有調(diào)試經(jīng)驗和方法效率很低，最后在老師和同學(xué)的幫助下，終于順利達成了，自己也從中學(xué)到了很多東西?？傊?，經(jīng)過幾個月的畢業(yè)設(shè)計，讓我感覺了軟件開發(fā)的整個過程。畢業(yè)設(shè)計不但是對我在大學(xué)所學(xué)知識的一個綜合運用，也是一次增加知識和經(jīng)驗的好機遇，同時也使我學(xué)會了好多辦理、解決問題的方法，大大提高了自己的著手能力，為立刻走上工作崗位打下了優(yōu)異的基礎(chǔ)。6．2系統(tǒng)開發(fā)中碰到的問題及解決措施一個系統(tǒng)的功能的實現(xiàn)，需要經(jīng)過這么幾步，第一把大體的骨架給設(shè)計好，爾后依照系統(tǒng)要求寫代碼，接著是調(diào)試程序，最后完滿總結(jié)。其中最重要的兩步就是中間的兩步。在此次畢業(yè)設(shè)計中，給我印象最深的就是系統(tǒng)的調(diào)試。在調(diào)試過程中，碰到了很多的問題，但是經(jīng)過我的不斷的查閱資料，老師的指導(dǎo)，同學(xué)的商討，這些問題都逐漸獲取認識決。6．3系統(tǒng)展望（1）本系統(tǒng)將對學(xué)校工作的影響第37頁高校宿舍管理系統(tǒng)本系統(tǒng)校方計劃將在下一學(xué)期開始運行，該系統(tǒng)的投入運行將使宿管部門工作人員的工作負擔(dān)大減少，工作效率獲取提高，方便校內(nèi)各部門實現(xiàn)信息共享，同時對于推動我校管理系統(tǒng)的改革，也將起到積極的作用。（2）下一步的工作宿舍內(nèi)部物質(zhì)的管理相對而言也是十分重要的，也需要進行系統(tǒng)、規(guī)范的管理。設(shè)計初學(xué)校急于重申學(xué)生住宿管理工作，所以對于物質(zhì)管理仍保持過去管理方式，我和校方都已認識到這一方面還需改進。如何將物質(zhì)管理同樣推行規(guī)范化管理是我們下一步需要解決的問題。當(dāng)前河套大學(xué)宿舍管理系統(tǒng)的B/S和C/S系統(tǒng)使用的后臺數(shù)據(jù)庫是同一臺服務(wù)器上的SQLServer數(shù)據(jù)庫，這種模式給我們的系統(tǒng)造成巨大的風(fēng)險，為了防范一個服務(wù)器接入internet后可能碰到的各樣各樣的黑客的侵襲，經(jīng)過認真研究并咨詢相關(guān)計算機專家，下一步我們決定對系統(tǒng)進行以下改進：供應(yīng)Web服務(wù)的服務(wù)器與供應(yīng)宿舍管理C/S模式的主服務(wù)分別，二者以適合的防火墻隔斷。由于Web用戶不過推行盤問操作，而且盤問信息對數(shù)據(jù)的實時性要求不太高，所以可采用主服器對Web服務(wù)器的數(shù)據(jù)庫準(zhǔn)時刷新的手段來解決Web服務(wù)器上的數(shù)據(jù)更新問題。同時為了保證系統(tǒng)自己的安全，我們將采用一臺一般的微機作為備份機，每天準(zhǔn)時備份主服器的數(shù)據(jù)庫，這里介紹使用海量備份方式，可利用windows的計劃任務(wù)功能協(xié)助實現(xiàn)。改進后的宿舍管理系統(tǒng)的結(jié)構(gòu)圖以下所示：圖6-1采用C/S和B/S混雜結(jié)構(gòu)的宿管系統(tǒng)結(jié)構(gòu)圖第38頁高校宿舍管理系統(tǒng)道謝片刻間，三個多月的畢業(yè)設(shè)計就要結(jié)束了，在參加設(shè)計的這段時間里，能夠達成此次畢業(yè)設(shè)計，除了我自己的努力外，老師和同學(xué)們也恩賜了我特別大的幫助。第一要感謝我的指導(dǎo)老師馬秀麟老師，在初次見面時，馬老師就耐心的為我分析該系統(tǒng)，告訴我當(dāng)前宿舍管理上的各樣弊端，讓我在就詳細設(shè)計該系統(tǒng)時盡可能的考慮全面，使我對整個設(shè)計有了一個初步的認識。對我進行全面、詳細的指導(dǎo)，并給了我好多難得的建議。在設(shè)計剛開始時，對好多東西都是陌生的，發(fā)VB語言以前都沒有接觸過，都是我的指導(dǎo)老師恩賜了我耐心的指導(dǎo)，使我對陌生的開發(fā)環(huán)境產(chǎn)生了濃厚的學(xué)習(xí)興趣。畢業(yè)設(shè)計能夠順利達成，我特別感謝馬老師任勞任怨的對我的幫助，同時也感謝我的同學(xué)，在該系統(tǒng)的達成過程也給我供應(yīng)了很多的建講和幫助?？傊?，在老師盡心全力的幫助下，我的畢業(yè)設(shè)計才能如期順利達成，而且，我的導(dǎo)師就我的論文的編排和書寫格式也為我提出了很多的更正建議。在此，我衷心的感謝他，誠摯的向他說一聲“感謝”!第39頁高校宿舍管理系統(tǒng)附錄一：主要參照文件VisualBasic程序設(shè)計》作者潭浩強袁玫清華大學(xué)初版《管理信息系統(tǒng)》主編黃梯云經(jīng)濟科學(xué)初版社《信息資源管理》主編甘仞初經(jīng)濟科學(xué)初版社《信息系統(tǒng)開發(fā)》主編甘仞初經(jīng)濟科學(xué)初版社SQLServer中文版基礎(chǔ)培訓(xùn)教程》主編劉遵仁第40頁于忠清人民郵電初版社高校宿舍管理系統(tǒng)附錄二：主要源程序代碼用戶登陸源代碼：―――――――――PrivateSubCmdExt_Click()EndEndSubPrivateSubCmdOK_Click()DimstrSQLAsStringstrSQL="SELECT*FROMUserTableWHEREUserName='"&Replace(UserName.Text,"'","''")&"'ANDUserPwd='"&Replace(UserPwd.Text,"'","''")&"'"Ifrs.State=1ThenEndIfrs.OpenstrSQL,cn,adOpenStatic,adLockOptimisticIfrs.EOF=FalseThen'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>LoginName=Trim(UserName.Text)LimStuMess=Trim(rs![StuMess])LimHosMess=Trim(rs![HosMess])LimGradeMess=Trim(rs![GradeMess])LimAllMess=Trim(rs![AllMess])'<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<UnloadMeElseMsgBox"密碼不正確，請重新輸入！UserPwd.SelStart=0UserPwd.SelLength=Len(UserPwd.Text)EndIfEndSub第41頁高校宿舍管理系統(tǒng)PrivateSubForm_Load()SystemName.Caption=StrSystem系'統(tǒng)名稱Login.Caption=StrSystem&"--登陸"IfLinkStartDatabase=FalseThenMsgBox"數(shù)據(jù)庫連接失敗，請重新配置系統(tǒng)UserMode中LinkStartDatabase的部分代碼！",vbInformation,StrSystemEndEndIfEndSubPrivateSubUserID_Change()''若是用戶輸入的ID正確，把相應(yīng)的用戶名顯示出來'DimrsAsNewADODB.RecordsetDimstrSQLAsStringIfTrim(UserID.Text)<>""ThenstrSQL="SELECT*FROMUserTableWHEREUserID='"&Replace(UserID.Text,"'","''")&"'"Ifrs.State=1ThenEndIfrs.OpenstrSQL,cn,adOpenStatic,adLockOptimisticIfrs.EOF=FalseThenUserName.Text=Trim(rs![UserName])CmdOK.Enabled=TrueElseUserName.Text=""CmdOK.Enabled=FalseEndIfEndIfSetrs=NothingEndSub――――――――――――――――――――――――――第42頁高校宿舍管理系統(tǒng)學(xué)生基本信息錄入源代碼：――――――――――PublicISAddEditAsStringPrivateSubCmdAdd_Click()ISAddEdit="ADD"StuNumber.Enabled=TrueStuName.Enabled=TrueStuAge.Enabled=TrueGoDate.Enabled=TrueSchDate.Enabled=TrueClass.Enabled=TrueAddRess.Enabled=TrueAddNumber.Enabled=TrueTelNumber.Enabled=True'StuNumber.Text=""StuName.Text=""Class.Text=""AddRess.Text=""AddNumber.Text=""TelNumber.Text=""CmdAdd.Enabled=FalseCmdSave.Enabled=TrueCmdFind.Enabled=TrueCmdDel.Enabled=FalseEndSubPrivateSubCmdDel_Click()DimIsDelAsStringDimstrSQLAsStringIsDel=MsgBox("可否確認刪除該學(xué)生的信息？",vbInformation+vbYesNo,strsytem)'IfIsDel=vbYesThenIfStuList.ListItems.Count=0Then第43頁高校宿舍管理系統(tǒng)ExitSubEndIfstrSQL="DELETEFROMStuMessWHEREStuNumber='"&StuList.SelectedItem.Text&"'"Ifrs.State=1ThenEndIfrs.OpenstrSQL,cn,adOpenStatic,adLockOptimisticEndIfCallShowStuMessList("")EndSubPrivateSubCmdExt_Click()UnloadMeEndSubPrivateSubCmdFind_Click()DimstrWhereAsStringstrWhere=InputBox("請輸入您要盤問學(xué)生學(xué)號或姓名要點字：

",

請輸入條件

,"請輸入您要盤問學(xué)生學(xué)號或姓名要點字")strWhere="ANDStuNameLIKE'%"&CheckString(strWhere)&"%'ORStuNumberLIKE'%"&CheckString(strWhere)&"%'"CallShowStuMessList(strWhere)調(diào)'用自定義過程，傳達用戶輸入的條件！EndSubPrivateSubCmdSave_Click()DimstrSQLAsStringIfISAddEdit="ADD"ThenIfTrim(StuNumber.Text)<>""ThenstrSQL="SELECT*CheckString(StuNumber.Text)&"'"Ifrs.State=1ThenEndIfrs.OpenstrSQL,cn,adOpenStatic,adLockOptimisticIfrs.EOF=FalseThenMsgBox"學(xué)生信息中學(xué)生不能夠重復(fù)！",vbInformation,StrSystemStuNumber.Text=""FROMStuMessWHEREStuNumber='"&第44頁高校宿舍管理系統(tǒng)ExitSubEndIfEndIfIfTrim(StuNumber.Text)=""OrTrim(StuName.Text)=""ThenMsgBox"學(xué)生的學(xué)號或姓名均不能以為空！",vbInformation,StrSystemExitSubEndIfstrSQL="INSERTINTOStuMess(StuNumber,StuName,StuSex,GoDate,SchDate,Class,AddRes,AddNumber,TelNumber)VALUES('"strSQL=strSQL&CheckString(StuNumber.Text)&"','"&CheckString(StuName.Text)&"','"&CheckString(StuAge.Text)&"','"strSQL=strSQL&CheckString(GoDate.Value)&"','"&CheckString(SchDate.Value)&"','"&CheckString(Class.Text)&"','"strSQL=strSQL&CheckString(AddRess.Text)&"','"&CheckString(AddNumber.Text)&"','"&CheckString(TelNumber.Text)&"')"Ifrs.State=1ThenEndIfrs.OpenstrSQL,cn,adOpenStatic,adLockOptimisticEndIfIfISAddEdit="EDIT"ThenIfTrim(StuNumber.Text)=""OrTrim(StuName.Text)=""ThenMsgBox"學(xué)生的學(xué)號或姓名均不能以為空！",vbInformation,StrSystemExitSubEndIfstrSQL="UPDATEStuMessSETStuName='"&CheckString(StuName.Text)&"',StuSex='"&CheckString(StuAge.Text)&"',"strSQL=strSQL&"GoDate='"&CheckString(GoDate.Value)&"',SchDate='"&CheckString(SchDate.Value)&"',Class='"&CheckString(Class.Text)&"',"strSQL=strSQL&"AddRes='"&CheckString(AddRess.Text)&"',AddNumber='"&CheckString(AddNumber.Text)&"',TelNumber='"&CheckString(TelNumber.Text)"'"strSQL=strSQL&"WHEREStuNumber='"&Trim(StuNumber.Text)&"'"Ifrs.State=1Thenrs.CloseEndIfrs.OpenstrSQL,cn,adOpenStatic,adLockOptimisticEndIfCallShowStuMessList("")'顯示數(shù)據(jù),該處為自定過程.第45頁高校宿舍管理系統(tǒng)StuNumber.Enabled=FalseStuName.Enabled=FalseStuAge.Enabled=False性'別GoDate.Enabled=FalseSchDate.Enabled=FalseClass.Enabled=FalseAddRess.Enabled=FalseAddNumber.Enabled=FalseTelNumber.Enabled=FalseCmdAdd.Enabled=TrueCmdSave.Enabled=FalseCmdFind.Enabled=TrueCmdDel.Enabled=TrueSetrs=NothingEndSubPrivateSubForm_Load()Studen.Caption=StrSystem&"--學(xué)生基本信息"StuNumber.Enabled=FalseStuName.Enabled=FalseStuAge.Enabled=FalseGoDate.Enabled=FalseSchDate.Enabled=FalseClass.Enabled=FalseAddRess.Enabled=FalseAddNumber.Enabled=FalseTelNumber.Enabled=FalseCmdAdd.Enabled=TrueCmdSave.Enabled=FalseCallShowStuMessList("")EndSubPublicSubShowStuMessList(ByVallpWhereAsString)'第46頁高校宿舍管理系統(tǒng)'自定義過程，公共部分，為了實現(xiàn)顯示數(shù)據(jù)'DimrsAsDimstrSQLAsStringDimLvAsListItemstrSQL="SELECT*FROMStuMessWHERE1=1"IflpWhere<>""ThenstrSQL=strSQL&lpWhere&"ORDERBYStuNumber"EndIfIfrs.State=1ThenEndIfrs.OpenstrSQL,cn,adOpenStatic,adLockOptimisticIfrs.EOF=FalseThenWhilers.EOF=FalseSetLv=StuList.ListItems.Add(,,Trim(rs![StuNumber]))Lv.SubItems(1)=Trim(rs![StuName])Lv.SubItems(2)=Trim(rs![StuSex])Lv.SubItems(3)=Trim(rs![GoDate])Lv.SubItems(4)=Trim(rs![SchDate])Lv.SubItems(5)=Trim(rs![Class])Lv.SubItems(6)=Trim(rs![Addres])Lv.SubItems(7)=Trim(rs![AddNumber])Lv.SubItems(8)=Trim(rs![TelNumber])WendElseEndIfEndSubPrivateSubStuList_Click()CallShowData'調(diào)用自定義過程。EndSub第47頁高校宿舍管理系統(tǒng)PrivateSubStuList_DblClick()ISAddEdit="EDIT"CallShowData'用戶雙擊更正數(shù)據(jù)。StuNumber.Enabled=FalseStuName.Enabled=TrueStuAge.Enabled=TrueGoDate.Enabled=TrueSchDate.Enabled=TrueClass.Enabled=TrueAddRess.Enabled=TrueAddNumber.Enabled=TrueTelNumber.Enabled=TrueCmdAdd.Enabled=FalseCmdSave.Enabled=TrueCmdFind.Enabled=FalseCmdDel.Enabled=FalseEndSubPublicSubShowData()'把用戶選擇的該條數(shù)據(jù)顯示出來。DimstrSQLAsStringIfStuList.ListItems.Count=0ThenExitSubEndIfstrSQL="SELECT*FROMStuMessWHEREStuNumber='"&StuList.SelectedItem.Text&"'"Ifrs.State=1ThenEndIfrs.OpenstrSQL,cn,adOpenStatic,adLockOptimisticIfrs.EOF=FalseThenStuNumber.Text=Trim(rs![StuNumber])StuName.Text=Trim(rs![StuName])StuAge.Text=Trim(rs![StuSex])GoDate.Value=Trim(rs![GoDate])SchDate.Value=Trim(rs![SchDate])第48頁高校宿舍管理系統(tǒng)Class.Text=Trim(rs![Class])AddRess.Text=Trim(rs![Addres])AddNumber.Text=Trim(rs![AddNumber])TelNumber.Text=Trim(rs![TelNumber])EndIfEndSub―――――――――――――――――――――――――――――――學(xué)生入住管理源代碼：――――――――――OptionExplicitPublicstrStaticNumberAsString'宿舍號標(biāo)準(zhǔn)號PrivateSubCmdAdd_Click()DimstrSQLAsString'＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊strSQL="SELECTHosNumberFROMHosGrnWHEREHosNoSum>=1"Ifrs.State=1ThenEndIfrs.OpenstrSQL,cn,adOpenStatic,adLockOptimisticIfrs.EOF=FalseThenWhilers.EOF=FalseHosNumber.AddItemTrim(rs![HosNumber])WendHosNumber.Text=""EndIf'＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊strSQL="SELECTstuNumberFROMStuMess"Ifrs.State=1ThenEndIfrs.OpenstrSQL,cn,adOpenStatic,adLockOptimisticIfrs.EOF=FalseThen第49頁高校宿舍管理系統(tǒng)Whilers.EOF=FalseStuNumber.AddItemTrim(rs![StuNumber])WendStuNumber.Text=""EndIf'＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊'＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊GoNumber.Text=CreateNumber("Gh")strSQL="SELECT*FROMGoHosTableWHEREGoNumber='"&Trim(GoNumber.Text)&"'"Ifrs.State=1ThenEndIfrs.OpenstrSQL,cn,adOpenStatic,adLockOptimisticIfrs.EOF=FalseThenMsgBox"入住序號重復(fù)！",vbInformation,StrSystemGoNumber.Text=""CmdAdd.Enabled=TrueExitSubEndIf'＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊'＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊HosNumber.Enabled=TrueStuNumber.Enabled=TrueStuName.Enabled=TrueStuTel.Enabled=TrueGoDate.Enabled=TrueCmdAdd.Enabled=FalseCmdSave.Enabled=TrueCmdDel.Enabled=FalseCmdFind.Enabled=False'＊＊＊＊＊＊＊＊＊＊＊＊HosNumber.Text=""StuNumber.Text=""StuName.Text=""StuTel.Text=""'＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊第50頁高校宿舍管理系統(tǒng)EndSubPrivateSubCmdDel_Click()DimstrSQLAsStringDimIsDelAsStringIfLoginName<>"system"ThenMsgBox"對不起，您沒有此權(quán)限！",vbCritical,StrSystemE