VB Access學(xué)生公寓管理系統(tǒng)-論文

1、江蘇廣播電視大學(xué)開放教育計(jì)算機(jī)信息（專）畢業(yè)設(shè)計(jì)基于VB的學(xué)生公寓管理系統(tǒng)姓 名： 何小東 學(xué) 號(hào)： 077050518 班 級(jí)： 08計(jì)算機(jī) 指導(dǎo)老師： 馮曉偉 2011年10月25日目 錄引言2第一章系統(tǒng)分析31.1開發(fā)工具簡(jiǎn)介及系統(tǒng)運(yùn)行環(huán)境31.2開發(fā)的必要性41.3系統(tǒng)開發(fā)的可行性41.4數(shù)據(jù)來源4第二章 數(shù)據(jù)庫設(shè)計(jì)6第三章功能模塊設(shè)計(jì)93.1系統(tǒng)設(shè)置93.2公寓管理93.3 衛(wèi)生檢查103.4 公寓資產(chǎn)113.5 記錄查看與記錄刪除113.6值班記錄113.7幫助制作12第四章 程序設(shè)計(jì)134.1 登錄界面134.2 程序主界面144.3系統(tǒng)設(shè)置164.4公寓管理224.5衛(wèi)生檢查2

2、34.6 公寓資產(chǎn)234.7記錄查看234.8記錄刪除244.9值班記錄24第五章 系統(tǒng)測(cè)試26總結(jié)27參考文獻(xiàn)28基于VB的學(xué)生公寓管理系統(tǒng) 如東電大 【摘要】隨著電腦的普及與使用，現(xiàn)在的管理也提升了一個(gè)檔次，漸漸實(shí)現(xiàn)了無紙化辦公，即從原來的人工記錄管理模式轉(zhuǎn)變?yōu)殡娔X一體化管理。高校是科研的陣地，后勤的公寓管理也應(yīng)該一改傳統(tǒng)的人工管理，更加信息化，時(shí)代化，節(jié)省人力物力，提高效率?；谶@一點(diǎn)，開發(fā)此學(xué)生公寓管理軟件。學(xué)生公寓管理軟件，是以高校的管理方式為實(shí)例而設(shè)計(jì)的一種實(shí)用型管理系統(tǒng)。本系統(tǒng)最大的特點(diǎn)是通用性、簡(jiǎn)單操作性，適用于同行業(yè)以及一些同類型的企業(yè)管理。隨著學(xué)校寄宿人員的增多，公寓管理人

3、員的負(fù)擔(dān)越來越重，為了讓所有公寓管理人員能從繁重的工作中解脫出來，實(shí)現(xiàn)無紙化辦公；使工作更有條理，更方便，更有效率而開發(fā)出這套公寓管理軟件。軟件從對(duì)學(xué)生的分房開始到最后的公寓管理全部電腦化。它主要包括：公寓、寢室的配置、住宿人員登記、衛(wèi)生檢查、公寓資產(chǎn)、學(xué)生違紀(jì)、值班老師記錄以及對(duì)學(xué)生住宿情況查詢，可以更快地了解到每個(gè)學(xué)生的住宿情況,使公寓的管理效率更高，做的更好！ 【關(guān)鍵字】配置、登記、檢查引言隨著電腦的普及與應(yīng)用，現(xiàn)在的管理也需要提升一個(gè)檔次。即從原來的手工記錄管理模式轉(zhuǎn)變?yōu)殡娔X一體化管理。這樣會(huì)給公寓的管理人員帶來很多好處，讓他們管理的效率更高、效果更好，管理起來更方便。由此而產(chǎn)生了本管

4、理軟件學(xué)生公寓管理軟件。學(xué)生公寓管理軟件是用Microsoft Visual Basic 編寫完成。由于Visual Basic率先采用了可視化（VISUAL）的程序設(shè)計(jì)方法。所以利用系統(tǒng)提供的大量可視化控件，可以方便的以可視化方式直接繪制用戶圖形界面，并可直觀，動(dòng)態(tài)的調(diào)整界面的風(fēng)格和樣式，直到滿意為止，從而克服了以前必須用大量代碼去描述界面元素的外觀和位置的傳統(tǒng)編程模式。做起來方便，使用起來更為快捷。作為一個(gè)學(xué)生公寓的管理軟件，要十分全面的貼近以及適合大學(xué)公寓的管理方法。本軟件的參考資料主要有兩種來源：一是參考本學(xué)校公寓的管理結(jié)構(gòu)，管理方法。如各個(gè)公寓的分布特色，以及公寓的各種管理制度。這些

5、資料是本軟件的主要依據(jù)，也可以說這些資料來源于普通的生活，比較真實(shí)一些。二是來源于網(wǎng)絡(luò)上的各種同類軟件，通過這些軟件可以看出一個(gè)公寓最低需要哪些管理與設(shè)置，在這些軟件中，有些軟件功能比較齊全，但是在管理上顯的非常的不方便，使用起來十分麻煩、繁瑣，有些雖然簡(jiǎn)單，但是功能上又不是十分完善，對(duì)這些軟件首先要進(jìn)行取其精華，棄其糟粕，從而進(jìn)行編寫。本軟件主要包括以下方面：系統(tǒng)設(shè)置、公寓管理、衛(wèi)生檢查、公寓資產(chǎn)、記錄查看、記錄刪除、值班記錄、幫助制作。第一章系統(tǒng)分析系統(tǒng)采用MICROSOFT公司的 VISUAL BASIC語言編寫的學(xué)生公寓管理系統(tǒng),本系統(tǒng)在研制開發(fā)過程中，嚴(yán)格遵循軟件工程方法，完全采用結(jié)

6、構(gòu)化程序設(shè)計(jì)方法。本系統(tǒng)的主要功能可以方便的對(duì)學(xué)生公寓進(jìn)行管理，系統(tǒng)采用ACCESS數(shù)據(jù)庫使數(shù)據(jù)具有較強(qiáng)的完整性、較好的數(shù)據(jù)安全性等特點(diǎn)以及提供了標(biāo)準(zhǔn)的幫助，使用戶方便的獲得所需的幫助。界面友好、操作簡(jiǎn)單、功能齊全、具有較好的人機(jī)接口界面是本系統(tǒng)的最大優(yōu)點(diǎn)。1.1開發(fā)工具簡(jiǎn)介及系統(tǒng)運(yùn)行環(huán)境111 VB6簡(jiǎn)介 本軟件的開發(fā)工具為VISUAL BASIC，作為一種開發(fā)語言，VISUAL BASIC率先采用了可視化（VISUAL）的程序設(shè)計(jì)方法。利用系統(tǒng)提供的大量可視化控件，可以方便的以可視化方式直接繪制用戶圖形界面，并可直觀、動(dòng)態(tài)的調(diào)整界面的風(fēng)格和樣式，直到滿意為止，從而克服了以前必須用大量代碼去

7、描述界面元素的外觀和位置的傳統(tǒng)編程模式。它還擁有面向?qū)ο蟮木幊谭椒āＣ嫦驅(qū)ο蟮某绦蛟O(shè)計(jì)是伴隨WIDNOWS圖形界面的誕生而產(chǎn)生的一種新的程序設(shè)計(jì)思想，與傳統(tǒng)程序設(shè)計(jì)有著較大的區(qū)別，VISUAL BASIC采用了面向?qū)ο蟮某绦蛟O(shè)計(jì)思想。所謂對(duì)象就是現(xiàn)實(shí)生活中的每個(gè)一人，每一個(gè)可見的實(shí)體。同樣，在VISUAL BASIC中，用來構(gòu)成用戶圖形界面的可視化控件，也可視為是一個(gè)對(duì)象。不同的對(duì)象，在程序中所賦給它的功能是不同的，比如，在圖形界面上有兩個(gè)命令按鈕，一個(gè)用來實(shí)現(xiàn)數(shù)據(jù)的統(tǒng)計(jì)計(jì)算，另一個(gè)用來實(shí)現(xiàn)數(shù)據(jù)的打印，這兩個(gè)按鈕就可視為是兩個(gè)不同的對(duì)象，為了實(shí)現(xiàn)這兩個(gè)對(duì)象各自不同的功能，接下來就應(yīng)該分別針對(duì)這

8、兩個(gè)對(duì)象編寫程序代碼，這種編程的思想和方法即為所謂的面向?qū)ο蟮某绦蛟O(shè)計(jì)。它還支持第三方軟件商為其開發(fā)的可視化控制對(duì)象，如本例中就用到了一個(gè)。這些可視化控件對(duì)應(yīng)的文件擴(kuò)展名這OCX。只要擁有控件的OCX文件，就可將其加入到VB系統(tǒng)中，從而大大增強(qiáng)VB的編程實(shí)力。使軟件做起來會(huì)更加得心應(yīng)手。112 HELP 制作 制作help文檔需要一個(gè)專業(yè)制作軟件，本人使用的是破解版的QuickCHM，此軟件無論在功能上還在是操作上用起來都是很方便。它屬于一個(gè)傻瓜型的制作軟件，利用它可以快速的制作出各種你所需要的幫助文檔。但是如果想制作出幫助文檔，就需要使用制作網(wǎng)頁的軟件把內(nèi)容先做成html形式，本人使用Dre

9、amweaver制作的網(wǎng)頁，然后在用此軟件進(jìn)行加載，最后生成chm文檔。1.2開發(fā)的必要性信息資源已成為各個(gè)部門的重要財(cái)富和資源，建立一個(gè)滿足各級(jí)部門信息處理需要的信息系統(tǒng)，也一個(gè)企業(yè)或組織生存越來越重要的信息資源。長(zhǎng)期以來，使用傳統(tǒng)人工的方法管理高校公寓，這種管理方式存在著許多缺點(diǎn)，如：效率低。而且時(shí)間一長(zhǎng)，將產(chǎn)生大量的文件和數(shù)據(jù)，這對(duì)于查找、更新、維護(hù)都帶來了不少的困難。隨著科學(xué)技術(shù)的不斷提高，計(jì)算機(jī)科學(xué)日漸成熟，其強(qiáng)大的功能已為人們深刻認(rèn)識(shí)，它已進(jìn)入人類社會(huì)的各個(gè)領(lǐng)域并發(fā)揮越來越重要的作用。學(xué)生公寓管理軟件，是以高校的管理方式為實(shí)例而設(shè)計(jì)的一種實(shí)用型管理軟件。本系統(tǒng)最大的特點(diǎn)是通用性、簡(jiǎn)

10、單操作性。隨著學(xué)校寄宿人員的增多，公寓管理人員的負(fù)擔(dān)越來越重，為了讓所有公寓管理人員能從繁重的工作中解脫出來，實(shí)現(xiàn)無紙化辦公，使工作更有條理、更方便、更有效率，而開發(fā)出這套公寓管理軟件。1.3系統(tǒng)開發(fā)的可行性131 技術(shù)上的可行性我們正走進(jìn)一個(gè)信息時(shí)代，信息技術(shù)將從根本上改變?nèi)祟惿鐣?huì)的生產(chǎn)方式和生活方式，各行各業(yè)的業(yè)務(wù)管理現(xiàn)在都已經(jīng)相繼使用計(jì)算機(jī)來處理，可以說用計(jì)算機(jī)進(jìn)行信息管理是一個(gè)總趨勢(shì)。學(xué)生公寓管理軟件主要是對(duì)公寓、寢室的配置、住宿人員登記、衛(wèi)生檢查、公寓資產(chǎn)、學(xué)生違紀(jì)、值班老師記錄以及對(duì)學(xué)生住宿情況查詢，修改，更新等。可以更快地了解到每個(gè)學(xué)生的住宿情況。開發(fā)一個(gè)學(xué)生公寓管理系統(tǒng)可以達(dá)到

11、事半功倍的效果。隨著數(shù)據(jù)庫管理系統(tǒng)的普及以及可視化編程軟件的出現(xiàn)，使數(shù)據(jù)庫管理信息系統(tǒng)的開發(fā)變得更為簡(jiǎn)單，因此開發(fā)一個(gè)學(xué)生公寓管理系統(tǒng)是完全可行的。132 經(jīng)濟(jì)上的可行性本單位有自己的微機(jī)室可以使用，不必重新購置計(jì)算機(jī)，不需要花費(fèi)大量資金，是一個(gè)節(jié)約人力物力的好辦法。133 組織管理上的可行性本單位的領(lǐng)導(dǎo)干部具有較高的素質(zhì)，它們對(duì)管理現(xiàn)代化有較高的認(rèn)識(shí)水平，并且有各級(jí)領(lǐng)導(dǎo)的大力支持和重視。綜上所述，建立一個(gè)學(xué)生公寓管理軟件與人工操作相比具有速度更快，操作更準(zhǔn)確，更節(jié)約開支等有利之處，因此建立一個(gè)學(xué)生公寓管理軟件是必要可行。1.4數(shù)據(jù)來源作為一個(gè)學(xué)生公寓的管理軟件，要十分全面的貼近以及適合大學(xué)公

12、寓的管理方法。本軟件的參考資料主要有兩種來源：一是參考本學(xué)校公寓的管理結(jié)構(gòu)，管理方法，這些資料是本軟件的主要依據(jù)，也可以說這些資料來源于普通的生活，比較真實(shí)一些。二是來源于網(wǎng)絡(luò)上的各種同類軟件，通過這些軟件可以看出一個(gè)公寓最低需要哪些管理與設(shè)置，在這些軟件中，有些軟件功能比較齊全，但是在管理上顯的非常的不方便，使用起來十分麻煩、繁瑣，有些雖然簡(jiǎn)單，但是功能上又不是十分完善，對(duì)這些軟件首先要進(jìn)行取其精華，棄其糟粕，從而進(jìn)行編寫。 第二章 數(shù)據(jù)庫設(shè)計(jì)信息的數(shù)量越來越大，數(shù)據(jù)庫的作用越發(fā)突出,所以數(shù)據(jù)庫的建立是系統(tǒng)施實(shí)的主要部分之一，它關(guān)系到整個(gè)系統(tǒng)的運(yùn)行情況，是整個(gè)系統(tǒng)的重要組成部分。本系統(tǒng)采用A

13、CCESS2003作為后臺(tái)數(shù)據(jù)庫的開發(fā)環(huán)境。本系統(tǒng)數(shù)據(jù)庫為Student Dormitory.mdb，在數(shù)據(jù)庫中包括十個(gè)表。分別是：用戶表、公寓表、班級(jí)表、寢室表、衛(wèi)生等級(jí)表、學(xué)生基本情況表、學(xué)生請(qǐng)假情況表、學(xué)生違規(guī)情況表、寢室衛(wèi)生情況表、資產(chǎn)表。下面介紹幾個(gè)主要的表： 學(xué)生基本情況表主要是存放學(xué)生的基本情況，字段包括：姓名、性別、學(xué)號(hào)、班級(jí)、公寓、寢室、入學(xué)時(shí)間、年制、寢室電話、個(gè)人電話、備注。數(shù)據(jù)結(jié)構(gòu)如下表： 字段名數(shù)據(jù)類型數(shù)據(jù)長(zhǎng)度姓名文本8性別文本2學(xué)號(hào)文本10班級(jí)文本10公寓文本20寢室文本10入學(xué)時(shí)間文本14年制文本8個(gè)人電話文本15備注備注 學(xué)生請(qǐng)假情況表主要存放學(xué)生請(qǐng)假情況，字段

14、包括：日期、姓名、班級(jí)、公寓、寢室、天數(shù)、原因、老師、備注。數(shù)據(jù)結(jié)構(gòu)如下表：字段名數(shù)據(jù)類型數(shù)據(jù)長(zhǎng)度日期文本14姓名文本8班級(jí)文本10公寓文本20寢室文本10天數(shù)文本10原因備注老師文本8備注備注 學(xué)生違規(guī)情況表主要存放學(xué)生違規(guī)情況，字段包括：日期、姓名、班級(jí)、公寓、寢室、原因、程度、處罰、備注。數(shù)據(jù)結(jié)構(gòu)如下表：字段名數(shù)據(jù)類型數(shù)據(jù)長(zhǎng)度日期文本14姓名文本8班級(jí)文本10公寓文本20寢室文本10原因備注程度備注處罰備注備注備注 衛(wèi)生情況表主要存放寢室衛(wèi)生情況，字段包括：日期、公寓、寢室、檢查1到5、得分、減分、等級(jí)、備注。其中檢查1到5是為了在沒有使用者想輸入的記錄的情況下自己輸入而設(shè)計(jì)的，保證了系

15、統(tǒng)的可修改性、可擴(kuò)展性。數(shù)據(jù)結(jié)構(gòu)如下表：字段名數(shù)據(jù)類型數(shù)據(jù)長(zhǎng)度日期文本14公寓文本20寢室文本10檢查1文本40檢查2文本40檢查3文本40檢查4文本40檢查5文本40得分文本4減分文本4等級(jí)文本6備注備注 資產(chǎn)表主要存放寢室新增資產(chǎn)情況，字段包括：日期、公寓、名稱、數(shù)量、單價(jià)、總價(jià)、用途、備注。數(shù)據(jù)結(jié)構(gòu)如下表：字段名數(shù)據(jù)類型數(shù)據(jù)長(zhǎng)度日期文本14公寓文本20名稱文本20數(shù)量文本4單價(jià)文本10總價(jià)文本10用途備注備注備注第三章功能模塊設(shè)計(jì)經(jīng)過系統(tǒng)分析，確定了本軟件主要包括以下方面：系統(tǒng)設(shè)置、公寓管理、衛(wèi)生檢查、公寓資產(chǎn)、記錄查看、記錄刪除、值班記錄、幫助制作。3.1系統(tǒng)設(shè)置主要完成：用戶管理、公

16、寓設(shè)置、數(shù)據(jù)備份、數(shù)據(jù)轉(zhuǎn)換、退出的功能。運(yùn)行圖如下:圖3.1系統(tǒng)設(shè)置運(yùn)行圖3.1.1 用戶管理可以進(jìn)行管理人員的添加和修改以及刪除操作。添加人員可以分為兩類：普通用戶、管理員?？梢砸暡煌藛T而添加。管理員擁有所有權(quán)力，對(duì)整個(gè)系統(tǒng)的操作。普通用戶只有瀏覽、及一些簡(jiǎn)單的添加操作權(quán)力。無用戶設(shè)置、公寓設(shè)置及記錄刪除等權(quán)力。3.1.2公寓設(shè)置分為三個(gè)主要的操作：公寓設(shè)置、寢室設(shè)置、班級(jí)設(shè)置。在這里可以添加學(xué)校所有的公寓、所有班級(jí)、每個(gè)公寓的所有寢室,也可以用此軟件管理一幢公寓。這樣操作起來會(huì)更簡(jiǎn)單、操作一目了然。3.1.3數(shù)據(jù)備份這是一個(gè)數(shù)據(jù)管理軟件所必不可少的一部分，利用它可以及時(shí)的備份當(dāng)前的數(shù)據(jù)庫

17、以及在出現(xiàn)故障后利用已保存的數(shù)據(jù)進(jìn)行恢復(fù)。3.1.4數(shù)據(jù)轉(zhuǎn)換利用數(shù)據(jù)轉(zhuǎn)換將當(dāng)前數(shù)據(jù)庫中的表轉(zhuǎn)換成Excel表格的形式，顯示更為直觀，可以進(jìn)行打印等操作。3.2公寓管理主要完成：學(xué)生請(qǐng)假、學(xué)生違規(guī)、床位設(shè)置的功能。運(yùn)行圖如下:圖3.2公寓管理運(yùn)行圖3.2.1學(xué)生請(qǐng)假主要是對(duì)學(xué)生請(qǐng)假記錄做一個(gè)添加。利用它可以把學(xué)生的基本的請(qǐng)假資料保存起來。3.2.2學(xué)生違規(guī)主要是對(duì)學(xué)生違規(guī)記錄做一個(gè)添加。利用它可以把學(xué)生的基本的違規(guī)資料保存起來。3.2.3床位設(shè)置通過床位設(shè)置可以簡(jiǎn)單查看每個(gè)公寓每個(gè)寢室的床位使用情況以及床位剩余情況。還可以通過詳細(xì)查看，查看到某個(gè)公寓某個(gè)寢室住宿人員的人數(shù)，以及具體的住宿人員的名

18、字。3.3 衛(wèi)生檢查主要完成：添加檢查記錄的功能。衛(wèi)生檢查可以對(duì)衛(wèi)生檢查的結(jié)果進(jìn)行記錄。這里的衛(wèi)生標(biāo)準(zhǔn)一共有五項(xiàng)可以填寫，在每一項(xiàng)里已經(jīng)基本設(shè)置了所不合標(biāo)準(zhǔn)的記錄，你可以在下拉列表框中進(jìn)行選擇即可，但是如果沒有你想輸入的記錄的話，也可以自己輸入。運(yùn)行圖如下: 圖3.3衛(wèi)生檢查運(yùn)行圖3.4 公寓資產(chǎn)主要完成：添加新增物品的功能。可以對(duì)公寓資產(chǎn)的收入或其它物品的入庫進(jìn)行記錄。運(yùn)行圖如下:圖3.4公寓資產(chǎn)運(yùn)行圖3.5 記錄查看與記錄刪除主要是對(duì)學(xué)生請(qǐng)假、學(xué)生違規(guī)、衛(wèi)生記錄，公寓資產(chǎn)等記錄所進(jìn)行的操作，利用這兩個(gè)功能可以對(duì)任一記錄進(jìn)行查看與刪除。運(yùn)行圖如下: 圖3.5記錄查看 圖3.6記錄刪除運(yùn)行圖3

19、.6值班記錄它的功能主要是針對(duì)值班人員開發(fā)出來的，在這里可以讓值班人員對(duì)當(dāng)天值班情況進(jìn)行一個(gè)小記，以便日后查看。運(yùn)行圖如下:圖3.7值班記錄運(yùn)行圖3.7幫助制作對(duì)于一個(gè)稍顯正規(guī)的軟件來說幫助的制作都是必不可少的內(nèi)容，本程序也不例外，制作了此幫助文檔。在程序中可以按F1或點(diǎn)擊幫助菜單來顯示此help.Chm文檔。以便對(duì)本軟件進(jìn)行快速操作。運(yùn)行圖如下: 圖3.8幫助運(yùn)行圖第四章 程序設(shè)計(jì)4.1 登錄界面此界面是由Photoshop制作而成。在做這個(gè)登錄面的時(shí)候想了很多，最后選擇了這種，感覺它看起來干凈，整齊。又不失其莊雅。加上本單位最有特色的建筑，會(huì)讓人一目了然。4.1.1 登錄圖片顯示圖4.1登

20、錄界面4.1.2 界面制作與實(shí)現(xiàn) 在這個(gè)界面中，主要處理的是判斷當(dāng)前用戶輸入的信息是否正確。如果正確，那么它屬于哪種類型用戶。因?yàn)榇斯芾碥浖诘卿浐蟛煌愋偷挠脩麸@示的窗體與實(shí)現(xiàn)的功能都不是一樣的，它們會(huì)有所差別！(1) 浮動(dòng)按鈕的實(shí)現(xiàn) 確定和取消兩個(gè)按鈕在鼠標(biāo)沒有放上去之前看上去只是一個(gè)普通的平面字效果，但是當(dāng)你把鼠標(biāo)放在這幾個(gè)字上面后，它會(huì)顯示凸出的效果，按下后呈現(xiàn)凹陷的效果?？傮w實(shí)現(xiàn)立體的感覺。原理主要是在鼠標(biāo)mousemove事件與線的顏色變化組合來實(shí)現(xiàn)。主要代碼如下： 在窗體中的鼠標(biāo)移動(dòng)過程中，以及在窗體初始化的時(shí)候，要把添加的線的.Visible 屬性設(shè)置為 False，只有在鼠標(biāo)

21、按下的時(shí)候在改變其顏色即可。 (2) 用戶類型判斷 在數(shù)據(jù)庫中建了一人yonghu表。在添加管理人員時(shí)有兩種默認(rèn)級(jí)別。管理員、普通用戶。管理員擁有對(duì)數(shù)據(jù)庫操作的一切權(quán)限。普通用戶只有普通的查看，數(shù)據(jù)轉(zhuǎn)換等。沒有刪除等操作功能。前用戶成功登錄后，會(huì)在主窗體的狀態(tài)欄中顯示出當(dāng)前用戶及其用戶類型。主要代碼如下：設(shè)置當(dāng)前控件連接的數(shù)據(jù)庫Dim provider As StringDim datasource As Stringprovider = provider=Microsoft.jet.oledb.4.0datasource = data source= & App.Path & DB.mdbW

22、ith Adodc1.Mode = adModeReadWrite.ConnectionString = provider & ; & datasource.CommandType = adCmdTable.RecordSource = yonghu.Refresh.Recordset.MoveFirstEnd With對(duì)用戶進(jìn)行判斷If Text1.Text = ThenMsgBox 請(qǐng)輸入用戶名!, 48, 提示Exit SubEnd IfAdodc1.Recordset.Find 用戶= & Text1.Text & If Adodc1.Recordset.EOF = False And

23、 Text2.Text = Trim(Adodc1.Recordset.Fields(pass) Thenmain.Text1.Text = Adodc1.Recordset.Fields(級(jí)別)main.Text2.Text = Adodc1.Recordset.Fields(用戶)main.ShowUnload MeElseText1.Text = Text2.Text = MsgBox 登錄不成功,請(qǐng)重新登錄!, 48, 提示End If4.2 程序主界面程序主界面為本軟件的顯示的核心部分。一切主要操作及顯示都通過這里完成。整個(gè)界面主要由五部分組成。菜單部分、工具欄、左側(cè)操作欄、右側(cè)顯示

24、欄以及狀態(tài)欄。界面效果圖如下：圖4.2程序主界面菜單欄的詳見附錄內(nèi)容，這里就不提了。左側(cè)操作欄和右側(cè)顯示欄會(huì)在下面的內(nèi)容中做介紹，現(xiàn)在只簡(jiǎn)單介紹一下工具欄和狀態(tài)欄，以及主窗體的各個(gè)事件。工具欄主要是由coolbar制作而成。由它制做的工具欄的顯示效果會(huì)更有立體感一些。這里只列出了幾個(gè)常用的按鈕。其中的添加按鈕是用來對(duì)公寓住宿人員進(jìn)行添加，修改也是對(duì)所住宿人員進(jìn)行修改，想要進(jìn)行修改時(shí)必須顯示所有記錄時(shí)才可以進(jìn)行。在這里值得一提的是刪除DataGrid的操作，由于不知道它的當(dāng)前數(shù)據(jù)源是哪個(gè)，所以在刪除前要確定它的數(shù)據(jù)源，也就是它所鏈接的adodc1的數(shù)據(jù)源，或者是其它ado控件對(duì)它的數(shù)據(jù)源進(jìn)行重新

25、綁定后的數(shù)據(jù)庫表，也有可能是經(jīng)過一個(gè)查詢后得到的記錄。狀態(tài)欄分四個(gè)部分。第一個(gè)為固定顯示當(dāng)前所用軟件名稱及作者。其中第二個(gè)和第三部分為動(dòng)態(tài)顯示的，它會(huì)顯示出每次用戶登錄名稱及其管理模式。由上圖可以看出，lf為本軟件管理員。第四部分為日期與時(shí)間的顯示。其中第三部分的代碼實(shí)現(xiàn)如下：main.Text1.Text = Adodc1.Recordset.Fields(級(jí)別)main.Text2.Text = Adodc1.Recordset.Fields(用戶)StatusBar1.Panels(2).Text = 當(dāng)前用戶： & Text2.TextStatusBar1.Panels(3).Text

26、 = 用戶模式： & Text1.TextStatusBar1.Panels(4).Text = Date & & Time設(shè)置普通用戶模式If Text1.Text = 普通用戶 Thenyhgl.Visible = Falseg1.Visible = Falsejlsc.Visible = Falsegysz.Visible = FalseToolbar1.Buttons(5).Visible = FalseToolbar1.Buttons(6).Visible = FalseToolbar1.Buttons(7).Visible = FalseToolbar1.Buttons(8).Vi

27、sible = FalseEnd Iftreeview部分樹形顯示的初始化在這里已經(jīng)做了幾個(gè)過程，調(diào)用即可。4.3系統(tǒng)設(shè)置4.3.1用戶管理界面效果圖圖4.3用戶管理主界面 界面制作與實(shí)現(xiàn)方法 這個(gè)界面總體來說各個(gè)控件比較簡(jiǎn)單，但是作為一個(gè)添加刪除管理員的操作，它已經(jīng)連接到了數(shù)據(jù)庫，與數(shù)據(jù)庫的yonghu表相聯(lián)。各個(gè)控件也與數(shù)據(jù)庫中表的字段綁定。在窗體初始化的時(shí)候要判斷當(dāng)前數(shù)據(jù)庫表中是否有記錄，如果沒有記錄那么有些按鈕將會(huì)被設(shè)置成為失效狀態(tài)，否則會(huì)出現(xiàn)錯(cuò)誤。上一條與下一條的功能一目了然，它們可以對(duì)當(dāng)前表進(jìn)行上一條記錄或下一條記錄依次查看。當(dāng)找到記錄后，可以對(duì)其進(jìn)行相對(duì)的刪除、修改等操作。上一條

28、記錄與下一條的記錄在查看時(shí)有一個(gè)判斷。當(dāng)表中記錄移到最前面（BOF）或最后面（EOF）時(shí)，會(huì)把上一條或下一條其中的一個(gè)按鈕的enable屬性設(shè)置為true。即不可以前查看或向后查看。添加用戶可以添加使用該管理軟件的用戶。添加的時(shí)候可以選擇所添加人物的級(jí)別。軟件默認(rèn)為兩個(gè)級(jí)別：管理員、普通用戶。管理員擁有對(duì)此軟件管理操作等一切的權(quán)力。普通用戶，只有普通的查看、查詢、備份、添加等權(quán)力。沒有對(duì)記錄刪除等權(quán)力。在添加用戶時(shí)你可以選擇一個(gè)且必須選擇一個(gè)。然后輸入此用戶的用戶名和密碼即可！刪除操作可以把當(dāng)前記錄刪除掉。一經(jīng)刪除即不可以在恢復(fù)。所以在操作前要想好。編輯操作可以對(duì)當(dāng)前所選擇的用戶進(jìn)行編輯，可以

29、修改其用戶名與密碼。當(dāng)當(dāng)前用戶感覺自己用戶名稱或密碼有泄露時(shí)，可以進(jìn)行修改。修改記錄即更新表中的某一條記錄。4.3.2 公寓設(shè)置公寓設(shè)置可以說是本程序中一關(guān)鍵部分。因?yàn)樗械脑O(shè)置都在此進(jìn)行。包括公寓添加、修改、刪除。寢室的添加、修改、刪除以及班級(jí)的添加、修改和刪除操作。只有正確的對(duì)這些設(shè)置進(jìn)行添加修改，才能輸入正確的記錄。這里主要涉及到的問題是datagrid的顯示，以及treeview及時(shí)形成新的結(jié)構(gòu)。還有一些就是對(duì)表記錄的復(fù)雜操作。在點(diǎn)擊sstab各版的時(shí)候，要在這時(shí)重新生成寢室設(shè)置中的樹型結(jié)構(gòu)，Select Case PreviousTab Case 0 Call startree1 C

30、ase 1 Combo1.Clear Dim I As Integer I = 1 If Adodc1.Recordset.RecordCount 0 Then Adodc1.Recordset.MoveFirst Do While I Adodc1.Recordset.RecordCount Combo1.AddItem (Adodc1.Recordset.Fields(公寓名稱) Adodc1.Recordset.MoveNext I = I + 1 Loop End If Call startree1 Case 2 Call startree1End SelectEnd Sub(1) 公

31、寓設(shè)置 公寓設(shè)置效果圖圖4.4公寓設(shè)置 界面制作與實(shí)現(xiàn)方法在這個(gè)界面中主要用到了一個(gè)Sstab控件與一個(gè)顯示表中內(nèi)容的Datagrid控件。以及起到美觀作用的Frame控件。在右下角的文本框中可以輸入想要添加的公寓名稱。然后點(diǎn)擊添加即可完成添加操作。Datagrid中會(huì)立即刷新顯示更新內(nèi)容。要修改某條記錄時(shí)，要先對(duì)所要修改的記錄進(jìn)行選擇，確認(rèn)選擇后，點(diǎn)擊下面的修改按鈕，會(huì)在下面的文本中顯示出所要修改公寓的名稱，此時(shí)即可輸入要修改的名字。然后點(diǎn)擊更新就會(huì)完成此操作。Datagrid也會(huì)即時(shí)更新其內(nèi)容。刪除操作更為簡(jiǎn)單，選擇想要?jiǎng)h除的公寓名稱，點(diǎn)擊刪除，確認(rèn)后完成此操作。但是刪除后不會(huì)影響其它表中

32、的數(shù)據(jù)。其它表的有關(guān)此公寓的信息還會(huì)存在。在進(jìn)行所有操作前，先要確定數(shù)據(jù)庫已連接。在添加前要判斷所寫公寓名稱是否正確，即是否輸入名稱，該記錄不能為空，不為空則對(duì)數(shù)據(jù)庫表進(jìn)行查找，判斷當(dāng)前輸入記錄是否已在表中存在，如果已存在，則會(huì)給出提示，不存在，添加成功。 (2) 寢室設(shè)置寢室設(shè)置效果圖圖4.5寢室設(shè)置界面制作與實(shí)現(xiàn)方法此界面實(shí)現(xiàn)相對(duì)比公寓設(shè)置來說相對(duì)復(fù)雜一些。用到的控件主要是Sstab與Treeview。但是在程序方面比較復(fù)雜。在添加一個(gè)寢室前先要選擇所要添加寢室所在的公寓。這個(gè)公寓可以點(diǎn)擊下面的樹中的節(jié)點(diǎn)，也可以在列表框中選擇。樹中的節(jié)點(diǎn)在點(diǎn)擊后會(huì)把父節(jié)點(diǎn)顯示在選擇公寓后面的列表框中，而選

33、中的節(jié)點(diǎn)會(huì)出現(xiàn)在寢室名稱里。你也可以自己進(jìn)行添寫，確認(rèn)公寓后即可添加完成了。添加后會(huì)把Treeview重新刷新一下。以顯示更新后的記錄。修改操作可以把當(dāng)前選中的寢室進(jìn)行名稱修改與其所屬公寓進(jìn)行修改。當(dāng)要對(duì)名稱進(jìn)行修改時(shí)，先要選擇所要修改的寢室名，選擇后會(huì)在寢室名稱里顯示出來，把當(dāng)前寢室名稱改成要修改的寢室名稱，然后點(diǎn)擊修改即完成名稱修改操作。當(dāng)要對(duì)當(dāng)前寢室的所屬公寓進(jìn)行修改時(shí)，需要先選擇所要修改的寢室，然后在上面的公寓名稱后填寫所要修改的寢室名稱。點(diǎn)擊修改后完成此操作。但是這種操作不是常見。刪除操作可以刪除掉當(dāng)前樹型顯示中的任何一個(gè)子節(jié)點(diǎn)，也就是這個(gè)樹型節(jié)點(diǎn)中的寢室名稱，注意的是，刪除后這個(gè)記

34、錄只在qinshi表中刪除，其相關(guān)記錄不會(huì)被刪除掉的，如果想刪除，還需要人工操作。實(shí)現(xiàn)的方法主要是對(duì)qinshi表操作，先對(duì)其進(jìn)行查詢，查詢當(dāng)前想要被刪除的表是否存在，如果不存在，則給出提示，如果存在這條記錄，則在表中把它刪除掉，刪除后調(diào)用生成樹過程，把當(dāng)前寢室設(shè)置中的樹型結(jié)構(gòu)重新生成，更新記錄。在treeview點(diǎn)擊的時(shí)候，上面的文本框中會(huì)顯示相應(yīng)的記錄，這主要是對(duì)treeview進(jìn)行了設(shè)置。(3)班級(jí)設(shè)置班級(jí)設(shè)置效果圖圖4.6班級(jí)設(shè)置界面制作與實(shí)現(xiàn)方法此界面制作與公寓設(shè)置基本一致。在這個(gè)界面中主要用到了一個(gè)Sstab控件與一個(gè)顯示表中內(nèi)容的Datagrid控件。以及起到美觀作用的Frame

35、控件。在右下角的文本框中可以輸入想要添加的班級(jí)名稱。然后點(diǎn)擊添加即可完成添加操作。Datagrid中會(huì)立即刷新顯示更新內(nèi)容。要修改某條記錄時(shí)，要先對(duì)所要修改的記錄進(jìn)行選擇，確認(rèn)選擇后，點(diǎn)擊下面的修改按鈕，會(huì)在下面的文本中顯示出所要修改班級(jí)的名稱，此時(shí)即可輸入要修改的名字。然后點(diǎn)擊更新就會(huì)完成此操作。Datagrid也會(huì)即時(shí)更新其內(nèi)容。刪除操作更為簡(jiǎn)單，選擇想要?jiǎng)h除的班級(jí)名稱，點(diǎn)擊刪除，確認(rèn)后完成此操作。4.3.3數(shù)據(jù)備份：數(shù)據(jù)備份是一個(gè)數(shù)據(jù)庫軟件必不可少的一部分，利用它可以把當(dāng)前數(shù)據(jù)庫表進(jìn)行全面的備份，以備以后使用。因?yàn)樵诓僮髦锌赡軙?huì)導(dǎo)致數(shù)據(jù)遭到破壞，或者是系統(tǒng)的原因使數(shù)據(jù)庫損壞，或者是一些其

36、它的人為原因，這樣你可以用此功能把數(shù)據(jù)恢復(fù)到最后一次備份的狀態(tài)，使損失做到最少，經(jīng)常備份，操作起來更有安全感。數(shù)據(jù)備份效果圖圖4.7數(shù)據(jù)備份效果圖 功能實(shí)現(xiàn) 界面制作相對(duì)程序來說比較簡(jiǎn)單，用到的是coolbar控件，點(diǎn)擊按鈕可以選擇備份路徑。然后點(diǎn)擊數(shù)據(jù)備份即可。數(shù)據(jù)備份部分在本程序中用到了一個(gè)模塊，在模塊中有一個(gè)方法，dobackup。點(diǎn)擊備份按鈕后開始備份，代碼如下：If txtDestination ThenDoBackup PathName, txtDestinationMsgBox 備份成功！, , 提示ElseIf txtDestination = ThenMsgBox You m

37、ust specify a distination for the backup, vbCritical其中DoBackup為模塊中已定義的方法，在這里進(jìn)行調(diào)用。Dobackup實(shí)現(xiàn)方法代碼如下所示：Dim lFileOp As LongDim lresult As LongDim lFlags As LongDim SHFileOp As SHFILEOPSTRUCTDim strSourceDir As StringDim strDestinationDir As StringScreen.MousePointer = vbHourglassBackupFolderName = strDe

38、stinationPathMkDir BackupFolderName & Backup - & Format(Date, yyyy.mm.dd)lFileOp = FO_COPYlFlags = lFlags And Not FOF_SILENTlFlags = lFlags Or FOF_NOCONFIRMATIONlFlags = lFlags Or FOF_NOCONFIRMMKDIRlFlags = lFlags Or FOF_FILESONLYWith SHFileOp .wFunc = lFileOp .pFrom = strSourcePath & vbNullChar .pT

39、o = strDestinationPath & Backup - & Format(Date, yyyy.mm.dd) & vbNullChar .fFlags = lFlagsEnd Withlresult = SHFileOperation(SHFileOp)Screen.MousePointer = vbDefaultfrmBackupDba.lblStatus = Backup Complete數(shù)據(jù)恢復(fù)界面同上，它的功能主要是在當(dāng)前數(shù)據(jù)庫遭到破壞后，可以利用它來進(jìn)行數(shù)據(jù)恢復(fù)，在數(shù)據(jù)恢復(fù)前要選擇所要恢復(fù)的數(shù)據(jù)庫路徑。它主要是查看數(shù)據(jù)庫是否存在，如果所恢復(fù)的數(shù)據(jù)不存在，則會(huì)提示錯(cuò)誤。數(shù)據(jù)

40、恢復(fù)也用到了一個(gè)方法，在模塊中也已經(jīng)定義了該方法DoRestore。4.3.4 數(shù)據(jù)轉(zhuǎn)換這個(gè)功能可以把當(dāng)前列表框中的任何一個(gè)表轉(zhuǎn)換成excel形式，轉(zhuǎn)換后你可以看到表中的內(nèi)容，也可以對(duì)表進(jìn)行操作，保存，修改，打印等。4.4公寓管理4.4.1學(xué)生請(qǐng)假 學(xué)生請(qǐng)假與違規(guī)在一個(gè)公寓管理中是最常見的問題了，所以在此軟件中加上了這兩項(xiàng)功能。用它們可以隨時(shí)記錄請(qǐng)假記錄。學(xué)生請(qǐng)假記錄圖片顯示圖4.8學(xué)生請(qǐng)假效果圖 界面制作與實(shí)現(xiàn) 此界面主要是對(duì)學(xué)生請(qǐng)假記錄做一個(gè)添加。利用它可以把學(xué)生的基本的請(qǐng)假資料保存起來。其中的日期是系統(tǒng)當(dāng)前的日期，它是不可以進(jìn)行更改的，然后在其它文本框中輸入其它詳細(xì)資料即可以。這里的添加

41、操作用的是Adodc控件，所有的文本框在初始的時(shí)候沒有同Adodc綁定，而是在代碼中與數(shù)據(jù)庫中表的字段進(jìn)行的綁定，然后進(jìn)行添加操作。這樣做在使用的時(shí)候有很大的方便之處。第一是窗體在初始化時(shí)不會(huì)顯示任何記錄，不用設(shè)置文本框?yàn)榭盏纫幌盗械牟僮鳌５诙钱?dāng)進(jìn)行記錄輸入時(shí)，發(fā)現(xiàn)問題不用輸入時(shí)，不按添加按鈕記錄就不會(huì)進(jìn)行添加。注意的是，在添加前要確定所有的文本框都要進(jìn)行詳細(xì)填寫，否則會(huì)提示輸入詳細(xì)信息。4.4.2學(xué)生違規(guī)此界面與上面的請(qǐng)假記錄差不多。它主要是對(duì)學(xué)生的違規(guī)記錄做一個(gè)添加。其中的日期也是系統(tǒng)當(dāng)前的日期，它是不可以進(jìn)行更改的，然后在其它文本框中輸入其它詳細(xì)資料即可以這里的違規(guī)操作用的也是Adod

42、c控件，所有的文本框在初始的時(shí)候也沒有同Adodc綁定，它也是在代碼中與數(shù)據(jù)庫中表的字段進(jìn)行的綁定，然后進(jìn)行添加操作。其它操作同上面基本是一致的，對(duì)于違規(guī)在主界面的左側(cè)并沒有快速顯示操作，只可以用記錄查看里面的違規(guī)查看進(jìn)行選擇查看。在這里所添寫的記錄也要全面一些，主要是為了以后查找更為方便，如果不全，系統(tǒng)會(huì)提示的！4.5衛(wèi)生檢查公寓衛(wèi)生可以說是一個(gè)公寓管理中最常見到的問題了。公寓衛(wèi)生每天要清掃，寢室衛(wèi)生每天要檢查，但是如果這些都用紙來進(jìn)行填寫，一定會(huì)十分麻煩，且保存也不是十分方便，在一些評(píng)比中也會(huì)忙的很遭。所以在這個(gè)軟件中編寫了此功能。4.6 公寓資產(chǎn) 公寓資產(chǎn)可以及時(shí)對(duì)公寓里進(jìn)出財(cái)務(wù)進(jìn)行統(tǒng)計(jì)

43、，以免遺忘，造成不必要的損失或不必要的麻煩，它的實(shí)現(xiàn)方法基本同上面的衛(wèi)生記錄的添加，相對(duì)比來說比上面的簡(jiǎn)單一些。不足的是目前只做出了入庫管理，對(duì)于出庫記錄還沒有實(shí)現(xiàn)。4.7記錄查看記錄查看可以讓你對(duì)已錄入的記錄進(jìn)行各種符合條件的查找，顯示符合條件的記錄。這里主要包括四個(gè)方面的查看：衛(wèi)生查看、請(qǐng)假查看、違規(guī)查看、資產(chǎn)查看。下面分別介紹。4.7.1 衛(wèi)生查看界面效果圖圖4.9衛(wèi)生查看效果圖界面制作與實(shí)現(xiàn)方法這是一個(gè)比較簡(jiǎn)單的窗體操作。看起來精簡(jiǎn)、小巧。它主要的功能是對(duì)已經(jīng)錄入的衛(wèi)生記錄進(jìn)行符合條件的查詢。在查詢類別中選擇可以選擇全部查看以及按日期查看。查看全部即顯示所有記錄，選擇按日期查看后在下面的列表框中選擇所要查看的日期，點(diǎn)擊確定后即可以看到該日期的記錄。查看全部，即把當(dāng)前表中的記錄全部賦給當(dāng)前用來顯示的表格，按日期查看，則是在表中先進(jìn)行查詢，然后對(duì)結(jié)果進(jìn)行重綁定，在賦值。它們的判斷主要是通過單選框的選取來完成的。4.7.2其它記錄查看在記錄查看中還有其它三項(xiàng)查看方式，分別是請(qǐng)假、違規(guī)、資產(chǎn)三項(xiàng)記錄查看。它們的實(shí)現(xiàn)方法與窗體與上面的衛(wèi)生查看基本