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

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

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

3、檢查、公寓資產(chǎn)、學(xué)生違紀(jì)、值班老師記錄以及對(duì)學(xué)生住宿情況查詢(xún)，可以更快地了解到每個(gè)學(xué)生的住宿情況,使公寓的管理效率更高，做的更好</p><p>　　關(guān)鍵字：配置、登記、檢查</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>　　隨著電腦的普及與應(yīng)用，現(xiàn)在的管理也需要提升一個(gè)檔次。即從原來(lái)

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

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

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

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

15、gt;<p>　　1.5新系統(tǒng)數(shù)據(jù)流程圖5</p><p>　　第二章 數(shù)據(jù)庫(kù)設(shè)計(jì)6</p><p>　　第三章功能模塊設(shè)計(jì)10</p><p>　　3.1新系統(tǒng)功能結(jié)構(gòu)圖及運(yùn)行圖如下：10</p><p>　　3.2系統(tǒng)設(shè)置: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>　　第四章 程序設(shè)計(jì)15</p><p><b>　　主程序流程圖15</b></p&

17、gt;<p>　　4.1 登錄界面16</p><p>　　4.2 程序主界面18</p><p>　　4.3系統(tǒng)設(shè)置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)測(cè)試41</p><p><b>　　結(jié)論42</b></p><p><b&

19、gt;　　致謝43</b></p><p><b>　　參考文獻(xiàn)44</b></p><p><b>　　第一章系統(tǒng)分析</b></p><p>　　系統(tǒng)采用MICROSOFT公司的 VISUAL BASIC語(yǔ)言編寫(xiě)的學(xué)生公寓管理系統(tǒng),本系統(tǒng)在研制開(kāi)發(fā)過(guò)程中，嚴(yán)格遵循軟件工程方法，完全采用結(jié)構(gòu)化程序設(shè)計(jì)方法

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

36、：用戶(hù)管理、公寓設(shè)置、數(shù)據(jù)備份、數(shù)據(jù)轉(zhuǎn)換、退出的功能。</p><p><b>　　運(yùn)行圖如下:</b></p><p>　　圖3.3系統(tǒng)設(shè)置運(yùn)行圖</p><p>　　3.2.1 用戶(hù)管理</p><p>　　可以進(jìn)行管理人員的添加和修改以及刪除操作。添加人員可以分為兩類(lèi)：普通用戶(hù)、管理員?？梢砸暡煌藛T而添加。管理員

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

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

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

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

41、t;/p><p><b>　　3.5 公寓資產(chǎn)</b></p><p>　　主要完成：添加新增物品的功能。可以對(duì)公寓資產(chǎn)的收入或其它物品的入庫(kù)進(jìn)行記錄。運(yùn)行圖如下:</p><p>　　圖3.6公寓資產(chǎn)運(yùn)行圖</p><p>　　3.6 記錄查看與記錄刪除</p><p>　　主要是對(duì)學(xué)生請(qǐng)假、學(xué)生違

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

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

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

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

46、因?yàn)榇斯芾碥浖诘卿浐蟛煌?lèi)型的用戶(hù)顯示的窗體與實(shí)現(xiàn)的功能都不是一樣的，它們會(huì)有所差別！</p><p><b>　　用戶(hù)類(lèi)型判斷</b></p><p>　　在數(shù)據(jù)庫(kù)中建了一人yonghu表。在添加管理人員時(shí)有兩種默認(rèn)級(jí)別。管理員、普通用戶(hù)。管理員擁有對(duì)數(shù)據(jù)庫(kù)操作的一切權(quán)限。普通用戶(hù)只有普通的查看，數(shù)據(jù)轉(zhuǎn)換等。沒(méi)有刪除等操作功能。前用戶(hù)成功登錄后，會(huì)在主窗體的狀態(tài)欄

47、中顯示出當(dāng)前用戶(hù)及其用戶(hù)類(lèi)型。</p><p><b>　　主要代碼如下：</b></p><p>　　設(shè)置當(dāng)前控件連接的數(shù)據(jù)庫(kù)</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>　　對(duì)用戶(hù)進(jìn)行判斷</b></p><p>　　If Text1.Text = "

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

52、nd "用戶(hù)='" & 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("級(jí)別")</p><p>　　main.Text2.Text = Adodc1.Recordset.Fields("用戶(hù)")</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 "登錄不成功,請(qǐng)重新登錄!", 48, "提示

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

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

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

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

59、<p><b>　　4.3.1用戶(hù)管理</b></p><p><b>　?、俳缑嫘Ч麍D</b></p><p><b>　　圖4.3用戶(hù)管理</b></p><p>　　② 界面制作與實(shí)現(xiàn)方法</p><p>　　這個(gè)界面總體來(lái)說(shuō)各個(gè)控件比較簡(jiǎn)單，但是作為一個(gè)添

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

61、看、查詢(xún)、備份、添加等權(quán)力。沒(méi)有對(duì)記錄刪除等權(quán)力。在添加用戶(hù)時(shí)你可以選擇一個(gè)且必須選擇一個(gè)。然后輸入此用戶(hù)的用戶(hù)名和密碼即可！</p><p><b>　　添加用戶(hù)主要代碼：</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 "用戶(hù)名不能為空！", 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 "請(qǐng)選擇

66、所建用戶(hù)類(lèi)型！", 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>　　刪除操作可以把當(dāng)前記錄刪除掉。一經(jīng)刪除即不可以在恢復(fù)。所以在操作前要想好。</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("你真的想刪除當(dāng)前記錄嗎？", 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 公寓設(shè)置</p><p>　　公寓設(shè)置可以說(shuō)是本程

70、序中一關(guān)鍵部分。因?yàn)樗械脑O(shè)置都在此進(jìn)行。包括公寓添加、修改、刪除。寢室的添加、修改、刪除以及班級(jí)的添加、修改和刪除操作。只有正確的對(duì)這些設(shè)置進(jìn)行添加修改，才能輸入正確的記錄。這里主要涉及到的問(wèn)題是datagrid的顯示，以及treeview及時(shí)形成新的結(jié)構(gòu)。還有一些就是對(duì)表記錄的復(fù)雜操作。</p><p>　　在點(diǎn)擊sstab各版的時(shí)候，要在這時(shí)重新生成寢室設(shè)置中的樹(shù)型結(jié)構(gòu)，</p><p&

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

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

73、更為簡(jiǎn)單，選擇想要?jiǎng)h除的公寓名稱(chēng)，點(diǎn)擊刪除，確認(rèn)后完成此操作。但是刪除后不會(huì)影響其它表中的數(shù)據(jù)。其它表的有關(guān)此公寓的信息還會(huì)存在。</p><p>　　在進(jìn)行所有操作前，先要確定數(shù)據(jù)庫(kù)已連接。</p><p>　　Adodc1.Recordset.Find "公寓名稱(chēng)='" & 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 "輸入所要添加公寓的名稱(chēng)", , "提示&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("公寓名稱(chēng)") = 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>　　修改公寓名稱(chēng)：</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 = "輸入想要修改的公寓名稱(chēng)"</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) 寢室設(shè)置</b></p><p><b>　　①寢室設(shè)置效果圖</b></p><p><b>　　圖4.5寢室設(shè)置</b><

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

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

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 "請(qǐng)輸入所要添加的寢室及其

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>　　修改操作可以把當(dāng)前選中的寢室進(jìn)行名稱(chēng)修改與其所屬公寓進(jìn)行修改。當(dāng)要對(duì)名稱(chēng)進(jìn)行修改時(shí)，先要選擇所要修改的寢室名，選擇后會(huì)在寢室名稱(chēng)里顯示出來(lái)，把當(dāng)前寢室名稱(chēng)改成要修改的寢室名稱(chēng)，

89、然后點(diǎn)擊修改即完成名稱(chēng)修改操作。當(dāng)要對(duì)當(dāng)前寢室的所屬公寓進(jìn)行修改時(shí)，需要先選擇所要修改的寢室，然后在上面的公寓名稱(chēng)后填寫(xiě)所要修改的寢室名稱(chēng)。點(diǎn)擊修改后完成此操作。但是這種操作不是常見(jiàn)。</p><p><b>　　(3)班級(jí)設(shè)置</b></p><p><b>　?、侔嗉?jí)設(shè)置效果圖</b></p><p><b>

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

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

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

93、p><p><b>　?、?功能實(shí)現(xiàn)</b></p><p>　　界面制作相對(duì)程序來(lái)說(shuō)比較簡(jiǎn)單，用到的是toolbar控件，點(diǎn)擊按鈕可以選擇備份路徑。然后點(diǎn)擊數(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>　　說(shuō)明：本程序中此部分內(nèi)容參考了網(wǎng)上的同類(lèi)型代碼，對(duì)其進(jìn)行修改后得到此成型作品，從功能上來(lái)講，它已經(jīng)實(shí)現(xiàn)了它所要完成的工作，經(jīng)過(guò)測(cè)試已經(jīng)沒(méi)有問(wèn)題，但是實(shí)現(xiàn)的源代碼，也只有部分掌握。這實(shí)屬本人精力與能

99、力有限所置。</p><p><b>　　4.4公寓管理</b></p><p><b>　　4.4.1學(xué)生請(qǐng)假</b></p><p>　　學(xué)生請(qǐng)假與違規(guī)在一個(gè)公寓管理中是最常見(jiàn)的問(wèn)題了，所以在此軟件中加上了這兩項(xiàng)功能。用它們可以隨時(shí)記錄請(qǐng)假記錄。</p><p>　　①學(xué)生請(qǐng)假記錄圖片顯示<

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

101、候沒(méi)有同Adodc綁定，而是在代碼中與數(shù)據(jù)庫(kù)中表的字段進(jìn)行的綁定，然后進(jìn)行添加操作。這樣做在使用的時(shí)候有很大的方便之處。第一是窗體在初始化時(shí)不會(huì)顯示任何記錄，不用設(shè)置文本框?yàn)榭盏纫幌盗械牟僮鳌５诙钱?dāng)進(jìn)行記錄輸入時(shí)，發(fā)現(xiàn)問(wèn)題不用輸入時(shí)，不按添加按鈕記錄就不會(huì)進(jìn)行添加。注意的是，在添加前要確定所有的文本框都要進(jìn)行詳細(xì)填寫(xiě)，否則會(huì)提示輸入詳細(xì)信息。</p><p><b>　　4.4.2學(xué)生違規(guī)</b

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

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

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

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

106、數(shù)，單擊得分后面的文本框會(huì)自動(dòng)算出應(yīng)該得到的分?jǐn)?shù)。然后跟據(jù)得分的分?jǐn)?shù)，你要選擇該寢室的衛(wèi)生等級(jí)，衛(wèi)生等級(jí)為必選值且為固定值，正確的選擇此項(xiàng)可以在主界面的左側(cè)中快速對(duì)衛(wèi)生等級(jí)進(jìn)行查看。</p><p>　?、诠⑦x擇欄中代碼的實(shí)現(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("公寓名稱(chēng)"))</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>　　由于此窗體中涉及到公寓與寢室，在填寫(xiě)時(shí)要確定其名稱(chēng)的正確，所以在添加記錄前要對(duì)它們進(jìn)行檢查，如發(fā)現(xiàn)不存在的記錄，則顯示提示。檢查記錄時(shí)用的是adodc中的find命令。類(lèi)似于用戶(hù)登錄時(shí)的判斷，同樣記錄的輸入也要詳細(xì)。</p><p><b>　　4.6 公寓資產(chǎn)</b></p><p>　　公寓資產(chǎn)可以及時(shí)對(duì)公寓里進(jìn)出財(cái)務(wù)進(jìn)

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

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

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

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

114、行查詢(xún)，然后對(duì)結(jié)果進(jìn)行重綁定，在賦值。它們的判斷主要是通過(guò)單選框的選取來(lái)完成的，實(shí)現(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>　　在記錄查看中還有其它三項(xiàng)查看方式，分別是請(qǐng)假、違規(guī)、資產(chǎn)三項(xiàng)記錄查看。它們的實(shí)現(xiàn)方法與窗體與上面的衛(wèi)生查看基本相同。</p><p><b>　?、僬?qǐng)假查看</b></p><p>　　圖4.14請(qǐng)假查看效果圖</p><p>　　用它可以對(duì)當(dāng)前所

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

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

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

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

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

123、p><p>　?、诮缑嬷谱髋c實(shí)現(xiàn)方法</p><p>　　這個(gè)窗體與上面不同的是多了一個(gè)姓名條件，其它的都基本一致。由于在一個(gè)公寓中會(huì)有很多人要得名，但是在某一公寓某一寢室中只會(huì)有一個(gè)人，這也是一個(gè)公寓分配住宿人員時(shí)的基本標(biāo)準(zhǔn)，因?yàn)檫@樣也便于公寓本身的管理。此刪除窗體只有單條刪除與上面不同，單條刪除部分代碼如下：</p><p>　　If (MsgBox("你

124、真的想刪除日期為 " & Combo1.Text & " 公寓為 " & Text1.Text & " 寢室為 " & Text2.Text & " 姓名為 " & Text3.Text & " 的請(qǐng)假記錄嗎？", 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