畢業(yè)論文—學生公寓管理系統(tǒng)

1、<p><b>　　摘 要</b></p><p>　　隨著電腦的普及與使用，現(xiàn)在的管理也提升了一個檔次，漸漸實現(xiàn)了無紙化辦公，即從原來的人工記錄管理模式轉(zhuǎn)變?yōu)殡娔X一體化管理。高校是科研的陣地，后勤的公寓管理也應該一改傳統(tǒng)的人工管理，更加信息化，時代化，節(jié)省人力物力，提高效率?；谶@一點，開發(fā)此學生公寓管理軟件。</p><p>　　學生公寓管理軟件，是以高

2、校的管理方式為實例而設計的一種實用型管理系統(tǒng)。本系統(tǒng)最大的特點是通用性、簡單操作性，適用于同行業(yè)以及一些同類型的企業(yè)管理。隨著學校寄宿人員的增多，公寓管理人員的負擔越來越重，為了讓所有公寓管理人員能從繁重的工作中解脫出來，實現(xiàn)無紙化辦公；使工作更有條理，更方便，更有效率而開發(fā)出這套公寓管理軟件。</p><p>　　軟件從對學生的分房開始到最后的公寓管理全部電腦化。它主要包括：公寓、寢室的配置、住宿人員登記、衛(wèi)生

3、檢查、公寓資產(chǎn)、學生違紀、值班老師記錄以及對學生住宿情況查詢，可以更快地了解到每個學生的住宿情況,使公寓的管理效率更高，做的更好</p><p>　　關鍵字：配置、登記、檢查</p><p><b>　　ABSTRACT</b></p><p>　　With the popularization and use of the computer,

4、 present management has been promoted much, more and more jobs have been done by computer. It namely changes the original artificial record management mode into computer''''s integrating and managing. The

5、 university is the position of scientific research, the apartment management should change traditional managing artificially too, for the efficiency. So , develop the management software of student''''s a

6、partment .</p><p>　　Student Apartment Management System is a utility management system based on the managing mode of many universities and colleges.Universal and easy-operating are the greatest features of t

7、he system ,which is also applicable for enterprises of the same type.Apartment keepers bear a increasingly heavy burden because of the gradually added number of roomers.In order to free apartment keepers from the heave w

8、ork,and make the work more convienent and efficient.</p><p>　　The apartment management system is developed. The system computerized all the processes concerning the apartment management which include apartme

9、nt,dormitory distribution,roomer registration,santitation examination,and the query for apartment property,students'''' violation of discipline,teachers'''' records and rooming situation.I

10、t makes the apartment management more efficient and much better.</p><p>　　KEY WORDS: dispose ，register ，check</p><p><b>　　引言</b></p><p>　　隨著電腦的普及與應用，現(xiàn)在的管理也需要提升一個檔次。即從原來

11、的手工記錄管理模式轉(zhuǎn)變?yōu)殡娔X一體化管理。這樣會給公寓的管理人員帶來很多好處，讓他們管理的效率更高、效果更好，管理起來更方便。由此而產(chǎn)生了本管理軟件――學生公寓管理軟件。</p><p>　　學生公寓管理軟件是用Microsoft Visual Basic編寫完成。由于Visual Basic率先采用了可視化（VISUAL）的程序設計方法。所以利用系統(tǒng)提供的大量可視化控件，可以方便的以可視化方式直接繪制用戶圖形界

12、面，并可直觀，動態(tài)的調(diào)整界面的風格和樣式，直到滿意為止，從而克服了以前必須用大量代碼去描述界面元素的外觀和位置的傳統(tǒng)編程模式。做起來方便，使用起來更為快捷。</p><p>　　作為一個學生公寓的管理軟件，要十分全面的貼近以及適合大學公寓的管理方法。本軟件的參考資料主要是參考本學校公寓的管理結構，管理方法。如各個公寓的分布特色，以及公寓的各種管理制度。這些資料是本軟件的主要依據(jù)，也可以說這些資料來源于普通的生活，

13、比較真實一些。本軟件主要包括以下方面：系統(tǒng)設置、公寓管理、衛(wèi)生檢查、公寓資產(chǎn)、記錄查看、記錄刪除、值班記錄、幫助制作。</p><p>　　學生公寓管理軟件目前版本為一個測試版本。它目前在功能上，以及操作的簡便上有很大的改進。但是還是存在一些不足，在有些功能的實現(xiàn)上還不是十分的理想，這也是本人在時間和精力上留下的遺憾。但是相信這些會在以后的版本中得到完善，使這個軟件成為一個功能上最全，使用上最簡捷方便的管理軟件。

14、</p><p><b>　　第一章系統(tǒng)分析1</b></p><p>　　1.1開發(fā)工具簡介及系統(tǒng)運行環(huán)境2</p><p>　　1.2開發(fā)的必要性3</p><p>　　1.3系統(tǒng)開發(fā)的可行性3</p><p><b>　　1.4數(shù)據(jù)來源4</b></p&

15、gt;<p>　　1.5新系統(tǒng)數(shù)據(jù)流程圖5</p><p>　　第二章 數(shù)據(jù)庫設計6</p><p>　　第三章功能模塊設計10</p><p>　　3.1新系統(tǒng)功能結構圖及運行圖如下：10</p><p>　　3.2系統(tǒng)設置:11</p><p>　　3.3公寓管理12</p>

16、<p>　　3.5 公寓資產(chǎn)13</p><p>　　3.6 記錄查看與記錄刪除13</p><p>　　3.7值班記錄14</p><p>　　3.8幫助制作14</p><p>　　第四章 程序設計15</p><p><b>　　主程序流程圖15</b></p&

17、gt;<p>　　4.1 登錄界面16</p><p>　　4.2 程序主界面18</p><p>　　4.3系統(tǒng)設置20</p><p>　　4.4公寓管理28</p><p>　　4.5衛(wèi)生檢查30</p><p>　　4.6 公寓資產(chǎn)31</p><p>　　4

18、.7記錄查看32</p><p>　　4.8記錄刪除35</p><p>　　4.9值班記錄39</p><p>　　4.10 Help制作40</p><p>　　第五章 系統(tǒng)測試41</p><p><b>　　結論42</b></p><p><b&

19、gt;　　致謝43</b></p><p><b>　　參考文獻44</b></p><p><b>　　第一章系統(tǒng)分析</b></p><p>　　系統(tǒng)采用MICROSOFT公司的 VISUAL BASIC語言編寫的學生公寓管理系統(tǒng),本系統(tǒng)在研制開發(fā)過程中，嚴格遵循軟件工程方法，完全采用結構化程序設計方法

20、。</p><p>　　本系統(tǒng)的主要功能可以方便的對學生公寓進行管理，系統(tǒng)采用ACCESS數(shù)據(jù)庫使數(shù)據(jù)具有較強的完整性、較好的數(shù)據(jù)安全性等特點以及提供了標準的幫助，使用戶方便的獲得所需的幫助。界面友好、操作簡單、功能齊全、具有較好的人機接口界面是本系統(tǒng)的最大優(yōu)點。</p><p>　　1.1開發(fā)工具簡介及系統(tǒng)運行環(huán)境</p><p>　　VISUAL BASIC 6

21、.0簡介 </p><p>　　本軟件的開發(fā)工具為VISUAL BASIC，作為一種開發(fā)語言，VISUAL BASIC率先采用了可視化（VISUAL）的程序設計方法。利用系統(tǒng)提供的大量可視化控件，可以方便的以可視化方式直接繪制用戶圖形界面，并可直觀、動態(tài)的調(diào)整界面的風格和樣式，直到滿意為止，從而克服了以前必須用大量代碼去描述界面元素的外觀和位置的傳統(tǒng)編程模式。</p><p>　　它還擁

22、有面向?qū)ο蟮木幊谭椒āＣ嫦驅(qū)ο蟮某绦蛟O計是伴隨WIDNOWS圖形界面的誕生而產(chǎn)生的一種新的程序設計思想，與傳統(tǒng)程序設計有著較大的區(qū)別，VISUAL BASIC采用了面向?qū)ο蟮某绦蛟O計思想。在VISUAL BASIC中，用來構成用戶圖形界面的可視化控件，也可視為是一個對象。不同的對象，在程序中所賦給它的功能是不同的，比如，在圖形界面上有兩個命令按鈕，一個用來實現(xiàn)數(shù)據(jù)的統(tǒng)計計算，另一個用來實現(xiàn)數(shù)據(jù)的打印，這兩個按鈕就可視為是兩個不同的對象，

23、為了實現(xiàn)這兩個對象各自不同的功能，接下來就應該分別針對這兩個對象編寫程序代碼，這種編程的思想和方法即為所謂的“面向?qū)ο蟮某绦蛟O計”。</p><p>　　1．1．2 HELP 制作 </p><p>　　制作help文檔需要一個專業(yè)制作軟件，本人使用的是破解版的QuickCHM，此軟件無論在功能上還在是操作上用起來都是很方便。它屬于一個傻瓜型的制作軟件，利用它可以快速的制作出各種你所需要

24、的幫助文檔。但是如果想制作出幫助文檔，就需要使用制作網(wǎng)頁的軟件把內(nèi)容先做成html形式，本人使用Dreamweaver制作的網(wǎng)頁，然后在用此軟件進行加載，最后生成chm文檔。</p><p><b>　　1.2開發(fā)的必要性</b></p><p>　　信息資源已成為各個部門的重要財富和資源，建立一個滿足各級部門信息處理需要的信息系統(tǒng)，也一個企業(yè)或組織生存越來越重要的信

25、息資源。長期以來，使用傳統(tǒng)人工的方法管理高校公寓，這種管理方式存在著許多缺點，如：效率低。而且時間一長，將產(chǎn)生大量的文件和數(shù)據(jù)，這對于查找、更新、維護都帶來了不少的困難。</p><p>　　隨著科學技術的不斷提高，計算機科學日漸成熟，其強大的功能已為人們深刻認識，它已進入人類社會的各個領域并發(fā)揮越來越重要的作用。學生公寓管理軟件，是以高校的管理方式為實例而設計的一種實用型管理軟件。</p><

26、;p>　　本系統(tǒng)最大的特點是通用性、簡單操作性。隨著學校寄宿人員的增多，公寓管理人員的負擔越來越重，為了讓所有公寓管理人員能從繁重的工作中解脫出來，實現(xiàn)無紙化辦公，使工作更有條理、更方便、更有效率，而開發(fā)出這套公寓管理軟件。</p><p>　　1.3系統(tǒng)開發(fā)的可行性</p><p>　　我們正走進一個信息時代，信息技術將從根本上改變?nèi)祟惿鐣纳a(chǎn)方式和生活方式，各行各業(yè)的業(yè)務管理現(xiàn)

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

28、;<p>　　綜上所述，建立一個學生公寓管理軟件與人工操作相比具有速度更快，操作更準確，更節(jié)約開支等有利之處，因此建立一個學生公寓管理軟件是必要可行。</p><p><b>　　1.4數(shù)據(jù)來源</b></p><p>　　作為一個學生公寓的管理軟件，要十分全面的貼近以及適合大學公寓的管理方法。本軟件的參考資料主要是參考本學校公寓的管理結構，管理方法，這

29、些資料是本軟件的主要依據(jù)，也可以說這些資料來源于普通的生活，比較真實一些。</p><p>　　1.5新系統(tǒng)數(shù)據(jù)流程圖</p><p><b>　　圖1.1數(shù)據(jù)流程圖</b></p><p><b>　　第二章 數(shù)據(jù)庫設計</b></p><p><b>　　1、E—R圖</b>

30、;</p><p><b>　　圖2.1 E—R圖</b></p><p>　　2、信息的數(shù)量越來越大，數(shù)據(jù)庫的作用越發(fā)突出,所以數(shù)據(jù)庫的建立是系統(tǒng)施實的主要部分之一，它關系到整個系統(tǒng)的運行情況，是整個系統(tǒng)的重要組成部分。本系統(tǒng)數(shù)據(jù)庫為db.mdb，在數(shù)據(jù)庫中包括十個表。分別是：用戶表、公寓表、班級表、寢室表、衛(wèi)生等級表、學生基本情況表、學生請假情況表、學生違規(guī)情況表

31、、寢室衛(wèi)生情況表、資產(chǎn)表。下面介紹幾個主要的表：</p><p>　?、?學生基本情況表主要是存放學生的基本情況，字段包括：姓名、性別、學號、班級、公寓、寢室、入學時間、年制、寢室電話、個人電話、備注。</p><p><b>　　數(shù)據(jù)結構如下表：</b></p><p>　?、?學生請假情況表主要存放學生請假情況，字段包括：日期、姓名、班級、

32、公寓、寢室、天數(shù)、原因、老師、備注。</p><p><b>　　數(shù)據(jù)結構如下表：</b></p><p>　?、?學生違規(guī)情況表主要存放學生違規(guī)情況，字段包括：日期、姓名、班級、公寓、寢室、原因、程度、處罰、備注。</p><p><b>　　數(shù)據(jù)結構如下表：</b></p><p>　　⑷ 衛(wèi)生

33、情況表主要存放寢室衛(wèi)生情況，字段包括：日期、公寓、寢室、檢查1到5、得分、減分、等級、備注。其中檢查1到5是為了在沒有使用者想輸入的記錄的情況下自己輸入而設計的，保證了系統(tǒng)的可修改性、可擴展性。</p><p><b>　　數(shù)據(jù)結構如下表：</b></p><p>　?、?資產(chǎn)表主要存放寢室新增資產(chǎn)情況，字段包括：日期、公寓、名稱、數(shù)量、單價、總價、用途、備注。<

34、;/p><p><b>　　數(shù)據(jù)結構如下表：</b></p><p><b>　　第三章功能模塊設計</b></p><p>　　3.1新系統(tǒng)功能結構圖及運行圖如下：</p><p>　　1、系統(tǒng)功能結構圖：</p><p>　　圖3.1系統(tǒng)功能結構圖</p>&l

35、t;p>　　2、系統(tǒng)功能結構圖運行圖：</p><p>　　圖3.2系統(tǒng)功能結構運行圖</p><p>　　經(jīng)過系統(tǒng)分析，確定了本軟件主要包括以下方面：系統(tǒng)設置、公寓管理、衛(wèi)生檢查、公寓資產(chǎn)、記錄查看、記錄刪除、值班記錄、幫助制作。</p><p><b>　　3.2系統(tǒng)設置:</b></p><p>　　主要完成

36、：用戶管理、公寓設置、數(shù)據(jù)備份、數(shù)據(jù)轉(zhuǎn)換、退出的功能。</p><p><b>　　運行圖如下:</b></p><p>　　圖3.3系統(tǒng)設置運行圖</p><p>　　3.2.1 用戶管理</p><p>　　可以進行管理人員的添加和修改以及刪除操作。添加人員可以分為兩類：普通用戶、管理員。可以視不同人員而添加。管理員

37、擁有所有權力，對整個系統(tǒng)的操作。普通用戶只有瀏覽、及一些簡單的添加操作權力。無用戶設置、公寓設置及記錄刪除等權力。</p><p><b>　　3.2.2公寓設置</b></p><p>　　分為三個主要的操作：公寓設置、寢室設置、班級設置。在這里可以添加學校所有的公寓、所有班級、每個公寓的所有寢室,也可以用此軟件管理一幢公寓。這樣操作起來會更簡單、操作一目了然。&l

38、t;/p><p><b>　　3.2.3數(shù)據(jù)備份</b></p><p>　　這是一個數(shù)據(jù)管理軟件所必不可少的一部分，利用它可以及時的備份當前的數(shù)據(jù)庫以及在出現(xiàn)故障后利用已保存的數(shù)據(jù)進行恢復。</p><p><b>　　3.2.4數(shù)據(jù)轉(zhuǎn)換</b></p><p>　　利用數(shù)據(jù)轉(zhuǎn)換將當前數(shù)據(jù)庫中的表轉(zhuǎn)換

39、成Excel表格的形式，顯示更為直觀，可以進行打印等操作。</p><p><b>　　3.3公寓管理</b></p><p>　　主要完成：學生請假、學生違規(guī)、床位設置的功能。</p><p><b>　　運行圖如下:</b></p><p>　　圖3.4公寓管理運行圖</p>&l

40、t;p><b>　　·3.4 衛(wèi)生檢查</b></p><p>　　主要完成：添加檢查記錄的功能。衛(wèi)生檢查可以對衛(wèi)生檢查的結果進行記錄。這里的衛(wèi)生標準一共有五項可以填寫，在每一項里已經(jīng)基本設置了所不合標準的記錄，你可以在下拉列表框中進行選擇即可，但是如果沒有你想輸入的記錄的話，也可以自己輸入。運行圖如下:</p><p>　　圖3.5衛(wèi)生檢查運行圖&l

41、t;/p><p><b>　　3.5 公寓資產(chǎn)</b></p><p>　　主要完成：添加新增物品的功能?？梢詫①Y產(chǎn)的收入或其它物品的入庫進行記錄。運行圖如下:</p><p>　　圖3.6公寓資產(chǎn)運行圖</p><p>　　3.6 記錄查看與記錄刪除</p><p>　　主要是對學生請假、學生違

42、規(guī)、衛(wèi)生記錄，公寓資產(chǎn)等記錄所進行的操作，利用這兩個功能可以對任一記錄進行查看與刪除。運行圖如下:</p><p>　　圖3.7記錄查看 圖3.8記錄刪除運行圖</p><p><b>　　3.7值班記錄</b></p><p>　　它的功能主要是針對值班人員開發(fā)出來的，在這里可以讓值班人員對當天值班情況進行一個小記，以便

43、日后查看。運行圖如下:</p><p>　　圖3.9值班記錄運行圖</p><p><b>　　3.8幫助制作</b></p><p>　　對于一個稍顯正規(guī)的軟件來說幫助的制作都是必不可少的內(nèi)容，本程序也不例外，制作了此幫助文檔。在程序中可以按F1或點擊幫助菜單來顯示此help.Chm文檔。以便對本軟件進行快速操作。運行圖如下:</p&g

44、t;<p>　　圖3.10幫助運行圖</p><p><b>　　第四章 程序設計</b></p><p><b>　　主程序流程圖</b></p><p><b>　　4.1 登錄界面</b></p><p>　　此界面是由Photoshop制作而成。在做這個登

45、錄面的時候想了很多，最后選擇了這種，感覺它看起來干凈，整齊。</p><p>　　4.1.1 登錄圖片顯示</p><p><b>　　圖4.1登錄界面</b></p><p>　　4.1.2 界面制作與實現(xiàn)</p><p>　　在這個界面中，主要處理的是判斷當前用戶輸入的信息是否正確。如果正確，那么它屬于哪種類型用戶。

46、因為此管理軟件在登錄后不同類型的用戶顯示的窗體與實現(xiàn)的功能都不是一樣的，它們會有所差別！</p><p><b>　　用戶類型判斷</b></p><p>　　在數(shù)據(jù)庫中建了一人yonghu表。在添加管理人員時有兩種默認級別。管理員、普通用戶。管理員擁有對數(shù)據(jù)庫操作的一切權限。普通用戶只有普通的查看，數(shù)據(jù)轉(zhuǎn)換等。沒有刪除等操作功能。前用戶成功登錄后，會在主窗體的狀態(tài)欄

47、中顯示出當前用戶及其用戶類型。</p><p><b>　　主要代碼如下：</b></p><p>　　設置當前控件連接的數(shù)據(jù)庫</p><p>　　Dim provider As String</p><p>　　Dim datasource As String</p><p>　　provid

48、er = "provider=Microsoft.jet.oledb.4.0"</p><p>　　datasource = "data source=" & App.Path & "\DB.mdb"</p><p>　　With Adodc1</p><p>　　.Mode = adMod

49、eReadWrite</p><p>　　.ConnectionString = provider & ";" & datasource</p><p>　　.CommandType = adCmdTable</p><p>　　.RecordSource = "yonghu"</p><p

50、><b>　　.Refresh</b></p><p>　　.Recordset.MoveFirst</p><p><b>　　End With</b></p><p><b>　　對用戶進行判斷</b></p><p>　　If Text1.Text = "

51、" Then</p><p>　　MsgBox "請輸入用戶名!", 48, "提示"</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　Adodc1.Recordset.Fi

52、nd "用戶='" & Text1.Text & "'"</p><p>　　If Adodc1.Recordset.EOF = False And Text2.Text = Trim(Adodc1.Recordset.Fields("pass")) Then</p><p>　　main.Text

53、1.Text = Adodc1.Recordset.Fields("級別")</p><p>　　main.Text2.Text = Adodc1.Recordset.Fields("用戶")</p><p><b>　　main.Show</b></p><p><b>　　Unload Me

54、</b></p><p><b>　　Else</b></p><p>　　Text1.Text = ""</p><p>　　Text2.Text = ""</p><p>　　MsgBox "登錄不成功,請重新登錄!", 48, "提示

55、"</p><p><b>　　End If</b></p><p>　　4.2 程序主界面</p><p>　　程序主界面為本軟件的顯示的核心部分。一切主要操作及顯示都通過這里完成。整個界面主要由五部分組成。菜單部分、工具欄、左側操作欄、右側顯示欄以及狀態(tài)欄。</p><p><b>　?、俳缑嫘?/p>

56、果圖如下：</b></p><p><b>　　圖4.2程序主界面</b></p><p>　　工具欄主要是由toolbar制作而成。由它制作的工具欄的顯示效果會更有立體感一些。這里只列出了幾個常用的按鈕。其中的添加按鈕是用來對公寓住宿人員進行添加，修改也是對所住宿人員進行修改，想要進行修改時必須顯示所有記錄時才可以進行。在這里值得一提的是刪除DataGr

57、id的操作，由于不知道它的當前數(shù)據(jù)源是哪個，所以在刪除前要確定它的數(shù)據(jù)源，也就是它所鏈接的adodc1的數(shù)據(jù)源，或者是其它ado控件對它的數(shù)據(jù)源進行重新綁定后的數(shù)據(jù)庫表，也有可能是經(jīng)過一個查詢后得到的記錄。</p><p>　　主窗體在程序運行中會遇到不斷改變其大小，最小化，最大化，以及用鼠標來改變，這里需要在窗體的Resize事件中添加代碼，讓程序中用到的各個控件隨時可以適應窗體改變后的大小，在這里改變的控件主

58、要有DataGrid、TreeView系列及Frame控件、StatusBar。</p><p>　　這個軟件的主要部分都在這里運行、查看，所以在主窗體的load事件里要把所用的到的東西都要加載進來，例如所在程序運行時所用到的表，左側treeview部分樹形顯示的初始化。在這里幾乎用到了所有的表。</p><p><b>　　4.3系統(tǒng)設置</b></p>

59、<p><b>　　4.3.1用戶管理</b></p><p><b>　?、俳缑嫘Ч麍D</b></p><p><b>　　圖4.3用戶管理</b></p><p>　?、?界面制作與實現(xiàn)方法</p><p>　　這個界面總體來說各個控件比較簡單，但是作為一個添

60、加刪除管理員的操作，它已經(jīng)連接到了數(shù)據(jù)庫，與數(shù)據(jù)庫的yonghu表相聯(lián)。各個控件也與數(shù)據(jù)庫中表的字段綁定。在窗體初始化的時候要判斷當前數(shù)據(jù)庫表中是否有記錄，如果沒有記錄那么有些按鈕將會被設置成為失效狀態(tài)，否則會出現(xiàn)錯誤。</p><p>　　添加用戶可以添加使用該管理軟件的用戶。添加的時候可以選擇所添加人物的級別。軟件默認為兩個級別：管理員、普通用戶。管理員擁有對此軟件管理操作等一切的權力。普通用戶，只有普通的查

61、看、查詢、備份、添加等權力。沒有對記錄刪除等權力。在添加用戶時你可以選擇一個且必須選擇一個。然后輸入此用戶的用戶名和密碼即可！</p><p><b>　　添加用戶主要代碼：</b></p><p>　　If Command1.Caption = "添加" Then</p><p>　　Command2.Enabled =

62、False</p><p>　　Command1.Caption = "確定"</p><p>　　Command3.Caption = "取消"</p><p>　　Adodc1.Recordset.AddNew</p><p>　　Option1.Enabled = True</p>

63、<p>　　Option2.Enabled = True</p><p>　　Text1.Enabled = True</p><p>　　Text3.Enabled = True</p><p>　　Text2.Text = ""</p><p>　　ElseIf Text1.Text = "&quo

64、t; Then</p><p>　　MsgBox "用戶名不能為空！", 48, "提示"</p><p>　　ElseIf Text2.Text = "" Then</p><p>　　MsgBox "密碼不能為空！", 48, "提示"</p>&l

65、t;p>　　ElseIf Text2.Text <> Text3.Text Then</p><p>　　MsgBox "密碼兩次需一致！", 48, "提示"</p><p>　　ElseIf Text4.Text = "" Then</p><p>　　MsgBox "請選擇

66、所建用戶類型！", 48, "提示"</p><p><b>　　Else</b></p><p>　　Command2.Enabled = True</p><p>　　Command3.Enabled = True</p><p>　　Command5.Enabled = True<

67、;/p><p>　　Command6.Enabled = True</p><p>　　刪除操作可以把當前記錄刪除掉。一經(jīng)刪除即不可以在恢復。所以在操作前要想好。</p><p><b>　　刪除操作部分代碼：</b></p><p>　　If Adodc1.Recordset.RecordCount = 1 Then<

68、;/p><p>　　Command2.Enabled = False</p><p><b>　　End If</b></p><p>　　If (MsgBox("你真的想刪除當前記錄嗎？", vbOKCancel, "系統(tǒng)提示")) = vbOK Then</p><p>　　Ado

69、dc1.Recordset.Delete</p><p>　　Adodc1.Recordset.MoveFirst</p><p>　　Adodc1.Refresh</p><p><b>　　End If</b></p><p>　　4.3.2 公寓設置</p><p>　　公寓設置可以說是本程

70、序中一關鍵部分。因為所有的設置都在此進行。包括公寓添加、修改、刪除。寢室的添加、修改、刪除以及班級的添加、修改和刪除操作。只有正確的對這些設置進行添加修改，才能輸入正確的記錄。這里主要涉及到的問題是datagrid的顯示，以及treeview及時形成新的結構。還有一些就是對表記錄的復雜操作。</p><p>　　在點擊sstab各版的時候，要在這時重新生成寢室設置中的樹型結構，</p><p&

71、gt;<b>　　(1) 公寓設置</b></p><p><b>　?、?公寓設置效果圖</b></p><p><b>　　圖4.4公寓設置</b></p><p>　　② 界面制作與實現(xiàn)方法</p><p>　　在這個界面中主要用到了一個Sstab控件與一個顯示表中內(nèi)容的

72、Datagrid控件。以及起到美觀作用的Frame控件。</p><p>　　在右下角的文本框中可以輸入想要添加的公寓名稱。然后點擊添加即可完成添加操作。Datagrid中會立即刷新顯示更新內(nèi)容。要修改某條記錄時，要先對所要修改的記錄進行選擇，確認選擇后，點擊下面的修改按鈕，會在下面的文本中顯示出所要修改公寓的名稱，此時即可輸入要修改的名字。然后點擊更新就會完成此操作。Datagrid也會即時更新其內(nèi)容。刪除操作

73、更為簡單，選擇想要刪除的公寓名稱，點擊刪除，確認后完成此操作。但是刪除后不會影響其它表中的數(shù)據(jù)。其它表的有關此公寓的信息還會存在。</p><p>　　在進行所有操作前，先要確定數(shù)據(jù)庫已連接。</p><p>　　Adodc1.Recordset.Find "公寓名稱='" & Text2.Text & "'"<

74、/p><p>　　If Adodc1.Recordset.EOF = False Then</p><p>　　MsgBox "此公寓已存在", , "提示"</p><p>　　Adodc1.Recordset.MoveFirst</p><p><b>　　Exit Sub</b>

75、</p><p><b>　　End If</b></p><p>　　Text3.Text = ""</p><p>　　If Text2.Text = "" Then</p><p>　　MsgBox "輸入所要添加公寓的名稱", , "提示&qu

76、ot;</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p><b>　　添加：</b></p><p>　　Adodc1.Recordset.AddNew</p><p>　　Adodc

77、1.Recordset.Fields("公寓名稱") = Text2.Text</p><p>　　Adodc1.Recordset.Update</p><p>　　Adodc1.RecordSource = "gongyu"</p><p>　　Text2.Text = ""</p>&l

78、t;p>　　Set DataGrid2.datasource = Adodc1</p><p>　　DataGrid2.Refresh</p><p><b>　　修改公寓名稱：</b></p><p>　　If Text3.Text = "" Then</p><p>　　MsgBox &qu

79、ot;選擇要修改的公寓", , "提示"</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　If Command12.Caption = "修改" Then</p><p>　

80、　Text2.Text = Text3.Text</p><p>　　Label6.Caption = "輸入想要修改的公寓名稱"</p><p>　　Command12.Caption = "更新"</p><p>　　Command3.Enabled = False</p><p>　　Comman

81、d7.Enabled = False</p><p><b>　　ElseIf</b></p><p><b>　　(2) 寢室設置</b></p><p><b>　?、賹嬍以O置效果圖</b></p><p><b>　　圖4.5寢室設置</b><

82、/p><p>　?、诮缑嬷谱髋c實現(xiàn)方法</p><p>　　此界面實現(xiàn)相對比公寓設置來說相對復雜一些。用到的控件主要是Sstab與Treeview。但是在程序方面比較復雜。</p><p>　　在添加一個寢室前先要選擇所要添加寢室所在的公寓。這個公寓可以點擊下面的樹中的節(jié)點，也可以在列表框中選擇。樹中的節(jié)點在點擊后會把父節(jié)點顯示在選擇公寓后面的列表框中，而選中的節(jié)點會出

83、現(xiàn)在寢室名稱里。你也可以自己進行添寫，確認公寓后即可添加完成了。添加后會把Treeview重新刷新一下。以顯示更新后的記錄。</p><p><b>　　添加源碼：</b></p><p>　　Adodc1.Refresh</p><p>　　Adodc1.Recordset.Find "公寓名稱='" &

84、Combo1.Text & "'"</p><p>　　If Adodc1.Recordset.EOF = True Then</p><p>　　MsgBox "此公寓不存在", , "提示"</p><p>　　Adodc1.Recordset.MoveFirst</p>

85、<p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　If Combo1.Text = "" Or Text1.Text = "" Then</p><p>　　MsgBox "請輸入所要添加的寢室及其

86、所屬公寓", , "提示"</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　With Adodc2</p><p>　　.Recordset.AddNew</p><p>

87、;　　.Recordset.Fields(0).Value = Combo1.Text</p><p>　　.Recordset.Fields(1).Value = Text1.Text</p><p>　　.Recordset.Update</p><p><b>　　End With</b></p><p>　　Co

88、mbo1.Text = ""</p><p>　　Text1.Text = ""</p><p>　　Call startree1</p><p>　　修改操作可以把當前選中的寢室進行名稱修改與其所屬公寓進行修改。當要對名稱進行修改時，先要選擇所要修改的寢室名，選擇后會在寢室名稱里顯示出來，把當前寢室名稱改成要修改的寢室名稱，

89、然后點擊修改即完成名稱修改操作。當要對當前寢室的所屬公寓進行修改時，需要先選擇所要修改的寢室，然后在上面的公寓名稱后填寫所要修改的寢室名稱。點擊修改后完成此操作。但是這種操作不是常見。</p><p><b>　　(3)班級設置</b></p><p><b>　?、侔嗉壴O置效果圖</b></p><p><b>

90、;　　圖4.6班級設置</b></p><p>　?、诮缑嬷谱髋c實現(xiàn)方法</p><p>　　此界面制作與公寓設置基本一致。在這個界面中主要用到了一個Sstab控件與一個顯示表中內(nèi)容的Datagrid控件。以及起到美觀作用的Frame控件。</p><p>　　在右下角的文本框中可以輸入想要添加的班級名稱。然后點擊添加即可完成添加操作。Datagrid中

91、會立即刷新顯示更新內(nèi)容。要修改某條記錄時，要先對所要修改的記錄進行選擇，確認選擇后，點擊下面的修改按鈕，會在下面的文本中顯示出所要修改班級的名稱，此時即可輸入要修改的名字。然后點擊更新就會完成此操作。Datagrid也會即時更新其內(nèi)容。刪除操作更為簡單，選擇想要刪除的班級名稱，點擊刪除，確認后完成此操作。</p><p>　　4.3.3數(shù)據(jù)備份：</p><p>　　數(shù)據(jù)備份是一個數(shù)據(jù)庫軟

92、件必不可少的一部分，利用它可以把當前數(shù)據(jù)庫表進行全面的備份，以備以后使用。因為在操作中可能會導致數(shù)據(jù)遭到破壞，或者是系統(tǒng)的原因使數(shù)據(jù)庫損壞，或者是一些其它的人為原因，這樣你可以用此功能把數(shù)據(jù)恢復到最后一次備份的狀態(tài)，使損失做到最少，經(jīng)常備份，操作起來更有安全感。</p><p><b>　?、贁?shù)據(jù)備份效果圖</b></p><p>　　圖4.7數(shù)據(jù)備份效果圖</

93、p><p><b>　?、?功能實現(xiàn)</b></p><p>　　界面制作相對程序來說比較簡單，用到的是toolbar控件，點擊按鈕可以選擇備份路徑。然后點擊數(shù)據(jù)備份即可。</p><p>　　窗體初始化部分代碼如下：</p><p>　　Dim cnn1 As ADODB.Connection</p><

94、;p>　　Dim rstschema As ADODB.Recordset</p><p>　　Dim strcnn As String</p><p>　　Set cnn1 = New ADODB.Connection</p><p>　　strcnn = "provider=Microsoft.jet.oledb.4.0;" &

95、 "data source=" & App.Path & "\db.mdb"</p><p>　　cnn1.Open strcnn</p><p>　　Set rstschema = cnn1.OpenSchema(adSchemaTables)</p><p>　　Do Until rstschema.EOF

96、</p><p>　　temp = rstschema!Table_Name</p><p>　　If Left(temp, 1) <> "M" Then</p><p><b>　　End If</b></p><p>　　rstschema.MoveNext</p>&l

97、t;p><b>　　Loop</b></p><p>　　cnn1.Close</p><p>　　On Error GoTo err</p><p>　　PathName = App.Path & "\db.MDB"</p><p>　　dbasize = FileLen(PathNa

98、me)</p><p><b>　　err:</b></p><p><b>　　Exit Sub</b></p><p>　　說明：本程序中此部分內(nèi)容參考了網(wǎng)上的同類型代碼，對其進行修改后得到此成型作品，從功能上來講，它已經(jīng)實現(xiàn)了它所要完成的工作，經(jīng)過測試已經(jīng)沒有問題，但是實現(xiàn)的源代碼，也只有部分掌握。這實屬本人精力與能

99、力有限所置。</p><p><b>　　4.4公寓管理</b></p><p><b>　　4.4.1學生請假</b></p><p>　　學生請假與違規(guī)在一個公寓管理中是最常見的問題了，所以在此軟件中加上了這兩項功能。用它們可以隨時記錄請假記錄。</p><p>　?、賹W生請假記錄圖片顯示<

100、;/p><p>　　圖4.9學生請假效果圖</p><p><b>　?、?界面制作與實現(xiàn)</b></p><p>　　此界面主要是對學生請假記錄做一個添加。利用它可以把學生的基本的請假資料保存起來。其中的日期是系統(tǒng)當前的日期，它是不可以進行更改的，然后在其它文本框中輸入其它詳細資料即可以。這里的添加操作用的是Adodc控件，所有的文本框在初始的時

101、候沒有同Adodc綁定，而是在代碼中與數(shù)據(jù)庫中表的字段進行的綁定，然后進行添加操作。這樣做在使用的時候有很大的方便之處。第一是窗體在初始化時不會顯示任何記錄，不用設置文本框為空等一系列的操作。第二是當進行記錄輸入時，發(fā)現(xiàn)問題不用輸入時，不按添加按鈕記錄就不會進行添加。注意的是，在添加前要確定所有的文本框都要進行詳細填寫，否則會提示輸入詳細信息。</p><p><b>　　4.4.2學生違規(guī)</b

102、></p><p>　?、賹W生違規(guī)記錄圖片顯示</p><p>　　圖4.10學生違規(guī)效果圖</p><p>　　此界面與上面的請假記錄差不多。它主要是對學生的違規(guī)記錄做一個添加。其中的日期也是系統(tǒng)當前的日期，它是不可以進行更改的，然后在其它文本框中輸入其它詳細資料即可以這里的違規(guī)操作用的也是Adodc控件，所有的文本框在初始的時候也沒有同Adodc綁定，它也

103、是在代碼中與數(shù)據(jù)庫中表的字段進行的綁定，然后進行添加操作。其它操作同上面基本是一致的，對于違規(guī)在主界面的左側并沒有快速顯示操作，只可以用記錄查看里面的違規(guī)查看進行選擇查看。在這里所添寫的記錄也要全面一些，主要是為了以后查找更為方便，如果不全，系統(tǒng)會提示的！</p><p><b>　　4.5衛(wèi)生檢查</b></p><p>　　公寓衛(wèi)生可以說是一個公寓管理中最常見到的

104、問題了。公寓衛(wèi)生每天要清掃，寢室衛(wèi)生每天要檢查，但是如果這些都用紙來進行填寫，一定會十分麻煩，且保存也不是十分方便，在一些評比中也會忙的很遭。所以在這個軟件中編寫了此功能。</p><p>　　4.5.1 公寓衛(wèi)生添加效果圖</p><p>　　圖4.11公寓衛(wèi)生添加效果圖</p><p>　?、僭谶@個界面中主要用到了文本框以及起到美觀作用的frame控件。<

105、/p><p>　　日期已經(jīng)設置成只讀屬性，檢查記錄的日期是不能隨便改寫的。公寓名稱可以在下拉列表框中進行選擇，如果在下拉列表框中沒有發(fā)現(xiàn)，可以人工輸入，但是要確定公寓名稱的正確性。寢室名稱需要自己輸入。這里的衛(wèi)生標準一共有五項可以填寫，在每一項里已經(jīng)基本設置了所不全標準的記錄，你可以在下拉列表框中進行選擇即可，但是如果沒有你想輸入的記錄的話，你也可以自己輸入。輸入完成后，在減分后面的文本框中輸入一共要對此寢室減掉的分

106、數(shù)，單擊得分后面的文本框會自動算出應該得到的分數(shù)。然后跟據(jù)得分的分數(shù)，你要選擇該寢室的衛(wèi)生等級，衛(wèi)生等級為必選值且為固定值，正確的選擇此項可以在主界面的左側中快速對衛(wèi)生等級進行查看。</p><p>　?、诠⑦x擇欄中代碼的實現(xiàn)：</p><p>　　Combo3.Clear</p><p>　　Dim I As Integer</p><p&g

107、t;<b>　　I = 1</b></p><p>　　If Adodc1.Recordset.RecordCount <> 0 Then</p><p>　　Do While I < Adodc1.Recordset.RecordCount</p><p>　　Combo3.AddItem (Adodc1.Recordset

108、.Fields("公寓名稱"))</p><p>　　Adodc1.Recordset.MoveNext</p><p><b>　　I = I + 1</b></p><p><b>　　Loop</b></p><p><b>　　End If</b>&

109、lt;/p><p>　　由于此窗體中涉及到公寓與寢室，在填寫時要確定其名稱的正確，所以在添加記錄前要對它們進行檢查，如發(fā)現(xiàn)不存在的記錄，則顯示提示。檢查記錄時用的是adodc中的find命令。類似于用戶登錄時的判斷，同樣記錄的輸入也要詳細。</p><p><b>　　4.6 公寓資產(chǎn)</b></p><p>　　公寓資產(chǎn)可以及時對公寓里進出財務進

110、行統(tǒng)計，以免遺忘，造成不必要的損失或不必要的麻煩，它的實現(xiàn)方法基本同上面的衛(wèi)生記錄的添加，相對比來說比上面的簡單一些。不足的是目前只做出了入庫管理，對于出庫記錄還沒有實現(xiàn)。</p><p>　　4.6.1公寓資產(chǎn)添加設置效果圖</p><p>　　圖4.12公寓資產(chǎn)添加效果圖</p><p>　　4. 6. 2 界面制作與實現(xiàn)方法</p><p&

111、gt;　　日期的設置同上面一樣，只讀屬性。公寓名稱與寢室名稱要人工輸入，沒有選擇，這是因為考慮到它不會像衛(wèi)生記錄那樣每天要添加一次，每次要添加很多，所以為了減少系統(tǒng)進程，它沒有使用combo，沒有在窗體中進行加載。窗體中的數(shù)量與單價在填寫之后會自動把總價格計算出來，類似于上圖中的得分一樣。</p><p><b>　　4.7記錄查看</b></p><p>　　記錄查

112、看可以讓你對已錄入的記錄進行各種符合條件的查找，顯示符合條件的記錄。這里主要包括四個方面的查看：衛(wèi)生查看、請假查看、違規(guī)查看、資產(chǎn)查看。下面分別介紹。</p><p>　　4.7.1 衛(wèi)生查看</p><p><b>　?、俳缑嫘Ч麍D</b></p><p>　　圖4.13衛(wèi)生查看效果圖</p><p>　　②界面制作與

113、實現(xiàn)方法</p><p>　　這是一個比較簡單的窗體操作?？雌饋砭?、小巧。它主要的功能是對已經(jīng)錄入的衛(wèi)生記錄進行符合條件的查詢。在查詢類別中選擇可以選擇全部查看以及按日期查看。查看全部即顯示所有記錄，選擇按日期查看后在下面的列表框中選擇所要查看的日期，點擊確定后即可以看到該日期的記錄。</p><p>　　查看全部，即把當前表中的記錄全部賦給當前用來顯示的表格，按日期查看，則是在表中先進

114、行查詢，然后對結果進行重綁定，在賦值。它們的判斷主要是通過單選框的選取來完成的，實現(xiàn)方法如下：</p><p>　　s = Combo1.Text</p><p>　　If Option1.Value = True Then</p><p>　　Set main.DataGrid1.datasource = Adodc1</p><p>　　

115、main.DataGrid1.Refresh</p><p>　　ElseIf Option2.Value = True Then</p><p>　　sql = "select * from weisheng where 日期='" & Trim(s) & "'"</p><p>　　With

116、 Adodc3</p><p>　　Set main.DataGrid1.datasource = Adodc3</p><p>　　main.DataGrid1.Refresh</p><p><b>　　End If</b></p><p><b>　　Unload Me</b></p&g

117、t;<p>　　4.7.2其它記錄查看</p><p>　　在記錄查看中還有其它三項查看方式，分別是請假、違規(guī)、資產(chǎn)三項記錄查看。它們的實現(xiàn)方法與窗體與上面的衛(wèi)生查看基本相同。</p><p><b>　?、僬埣俨榭?lt;/b></p><p>　　圖4.14請假查看效果圖</p><p>　　用它可以對當前所

118、有記錄以及有效日期內(nèi)的記錄進行查看。</p><p><b>　?、谶`規(guī)查看</b></p><p>　　圖4.15違規(guī)查看效果圖</p><p>　　目前此類功能還不是十分理想，有些查看方式會在以后的程序中進行升級。</p><p><b>　?、圪Y產(chǎn)查看</b></p><p

119、>　　圖4.16資產(chǎn)查看效果圖</p><p><b>　　4.8記錄刪除</b></p><p>　　刪除是一個數(shù)據(jù)庫軟件中最基本的操作之一。在本軟件的工具欄中也有一個刪除按鈕，其功能也是將所找到的記錄刪除，但是它每次只能刪除一條記錄，且此刪除記錄的前提是在右側的顯示中容易找出，即記錄不多的情況下使用。如果一旦數(shù)據(jù)記錄很多，一條條查找比較不方便時，即可以使用此

120、窗體進行刪除。這里的刪除也有四個窗體，分別為衛(wèi)生刪除、請假刪除、違規(guī)刪除、資產(chǎn)刪除。下面分別介紹。</p><p>　　4.8.1 衛(wèi)生刪除</p><p><b>　?、傩Ч麍D</b></p><p>　　圖4.17衛(wèi)生刪除效果圖</p><p>　?、诮缑嬷谱髋c實現(xiàn)方法</p><p>　　這

121、個界面總體來說各個控件比較簡單，但是作為一個刪除操作，它已經(jīng)連接到了數(shù)據(jù)庫，與數(shù)據(jù)庫的表相聯(lián)。且有三種刪除記錄方式可以選擇。</p><p>　　默認為單條刪除，選擇此項后需要在日期中選擇所刪除記錄的添加日期，以及所在的公寓與寢室，當這三條全部符合要求后，在表中進行查找，找到后確認刪除。選擇批量刪除后，在下面只有一個日期可以選擇，這樣將會把所選日期內(nèi)的所有記錄都將刪除掉，所以稱其為批量刪除。全部即是把當前表清空，

122、全部刪除掉，建議使用此操作前對當前數(shù)據(jù)庫進行備份處理，否則數(shù)據(jù)將不會恢復。首先要進行數(shù)據(jù)庫連接，如上面例子所示，這里就不在介紹，接下來要對本窗體中的日期進行加載，</p><p><b>　　4.8.2請假記錄</b></p><p><b>　　①效果圖</b></p><p>　　圖4.18請假記錄刪除效果圖</

123、p><p>　　②界面制作與實現(xiàn)方法</p><p>　　這個窗體與上面不同的是多了一個姓名條件，其它的都基本一致。由于在一個公寓中會有很多人要得名，但是在某一公寓某一寢室中只會有一個人，這也是一個公寓分配住宿人員時的基本標準，因為這樣也便于公寓本身的管理。此刪除窗體只有單條刪除與上面不同，單條刪除部分代碼如下：</p><p>　　If (MsgBox("你

124、真的想刪除日期為 " & Combo1.Text & " 公寓為 " & Text1.Text & " 寢室為 " & Text2.Text & " 姓名為 " & Text3.Text & " 的請假記錄嗎？", vbOKCancel, "系統(tǒng)提示&q

125、uot;)) = vbOK Then</p><p>　　Adodc1.Refresh</p><p>　　Adodc1.Recordset.ActiveConnection.Execute "delete from qingjia where 日期='" & Trim(s) & "'and 公寓='" &am