小區(qū)物業(yè)管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)【畢業(yè)論文】

1、<p><b>　　本科畢業(yè)設(shè)計(jì)</b></p><p><b>　?。?0 屆）</b></p><p>　　小區(qū)物業(yè)管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)</p><p>　　所在學(xué)院 </p><p>　　專(zhuān)業(yè)班級(jí) 通信工程

2、 </p><p>　　學(xué)生姓名 學(xué)號(hào) </p><p>　　指導(dǎo)教師 職稱(chēng) </p><p>　　完成日期 年 月 </p><p><b>　　摘 要</b>&l

3、t;/p><p>　　隨著市場(chǎng)經(jīng)濟(jì)的發(fā)展和人們生活水平的提高，住宅小區(qū)已經(jīng)成為人們安家置業(yè)的首選，小區(qū)業(yè)主不但對(duì)住宅的本身的美觀、質(zhì)量要求越來(lái)越高，同時(shí)對(duì)小區(qū)物業(yè)的服務(wù)和管理也要求較高。這樣要求小區(qū)管理者對(duì)物業(yè)管理進(jìn)行宏觀的和微觀的細(xì)致管理，其中最好的辦法是用計(jì)算機(jī)操作的小區(qū)物業(yè)管理系統(tǒng)來(lái)實(shí)現(xiàn)對(duì)小區(qū)物業(yè)的管理，伴隨著小區(qū)的的規(guī)模不斷擴(kuò)大和住戶(hù)的不斷增多，像小區(qū)中的汽車(chē)，小區(qū)附帶設(shè)施，小區(qū)的各項(xiàng)維修、投訴等都將越來(lái)越復(fù)

4、雜，工作量也將越來(lái)越大。還依靠人工來(lái)處理不僅效率底，保密性差，而且時(shí)間一長(zhǎng)還會(huì)產(chǎn)生大量文件和數(shù)據(jù)，這樣對(duì)查找，更新和維護(hù)帶來(lái)了不少的困難。隨著計(jì)算機(jī)技術(shù)的不斷普及和計(jì)算機(jī)數(shù)據(jù)處理功能不斷增強(qiáng)，用計(jì)算機(jī)系統(tǒng)來(lái)對(duì)小區(qū)物業(yè)管理已經(jīng)成了必要。</p><p>　　關(guān)鍵詞：小區(qū)物業(yè)；Visual Basic；Microsoft SQL Server2000</p><p><b>　　AB

5、STRACT</b></p><p>　　Not only along with the market economy development and the people living standard enhancement, the residential district already became the people settled down set industry the first

6、 choice, the plot owner to the housing itself artisticly, the quality requirement is more and more high, simultaneously also requested to the plot property service and the management high.Like this requests the plot supe

7、rintendent to carry on macroscopic and the microscopic careful management to the estate management,</p><p>　　Keyword：Plot property；Visual Basic；Microsoft SQL Server2000</p><p><b>　　目 錄<

8、;/b></p><p><b>　　1引 言1</b></p><p>　　1.1關(guān)于小區(qū)物業(yè)管理信息系統(tǒng)1</p><p>　　1.2關(guān)于小區(qū)物業(yè)管理系統(tǒng)2</p><p>　　1.2.1小區(qū)物業(yè)管理系統(tǒng)的發(fā)展過(guò)程2</p><p>　　1.2.2小區(qū)物業(yè)管理系統(tǒng)的發(fā)展趨勢(shì)3&

9、lt;/p><p>　　1.2.3設(shè)計(jì)的內(nèi)容4</p><p>　　1.3系統(tǒng)的開(kāi)發(fā)和運(yùn)行環(huán)境5</p><p>　　1.3.1開(kāi)發(fā)工具軟件 Visual Basic5</p><p>　　1.3.2 Microsoft SQL Server2000簡(jiǎn)介6</p><p>　　2可行性分析報(bào)告7</p>

10、;<p>　　3系統(tǒng)的分析與開(kāi)發(fā)內(nèi)容8</p><p>　　3.1系統(tǒng)的開(kāi)發(fā)背景8</p><p>　　3.2小區(qū)物業(yè)管理系統(tǒng)的需求分析8</p><p>　　3.3 系統(tǒng)的功能圖9</p><p><b>　　4數(shù)據(jù)庫(kù)設(shè)計(jì)10</b></p><p>　　4.1 創(chuàng)建數(shù)據(jù)

11、庫(kù)10</p><p>　　4.1.1 房屋信息表10</p><p>　　4.1.2 住戶(hù)信息表10</p><p>　　4.1.3 計(jì)量?jī)x表數(shù)據(jù)信息表11</p><p>　　4.1.4 報(bào)修信息表11</p><p>　　4.1.5 物業(yè)設(shè)備信息表12</p><p><

12、b>　　5系統(tǒng)設(shè)計(jì)13</b></p><p>　　5.1 界面設(shè)計(jì)13</p><p>　　5.1.1 登錄界面和小區(qū)物業(yè)管理信息系統(tǒng)主窗體13</p><p>　　5.1.2 房屋信息模塊界面設(shè)計(jì)14</p><p>　　5.1.3住戶(hù)管理信息模塊界面設(shè)計(jì)17</p><p>　　5.1

13、.4 計(jì)量?jī)x表數(shù)據(jù)管理信息模塊界面設(shè)計(jì)19</p><p>　　5.1.5 報(bào)修管理信息模塊界面設(shè)計(jì)21</p><p>　　5.1.6 物業(yè)設(shè)備管理信息模塊界面設(shè)計(jì)23</p><p>　　5.2 代碼分析與實(shí)現(xiàn)25</p><p>　　5.2.1 登錄代碼25</p><p>　　5.2.2房屋管理信息代

14、碼26</p><p>　　6 產(chǎn)品質(zhì)量管理系統(tǒng)測(cè)試與試運(yùn)行32</p><p>　　6.1 數(shù)據(jù)源的創(chuàng)建32</p><p>　　6.2 系統(tǒng)的運(yùn)行36</p><p><b>　　總 結(jié)39</b></p><p>　　致 謝錯(cuò)誤!未定義書(shū)簽。</p><p

15、><b>　　參考文獻(xiàn)40</b></p><p>　　附錄一 畢業(yè)設(shè)計(jì)作品說(shuō)明41</p><p><b>　　1引 言</b></p><p>　　1.1關(guān)于小區(qū)物業(yè)管理信息系統(tǒng)</p><p>　　隨著市場(chǎng)經(jīng)濟(jì)的發(fā)展和人們生活水平的提高，住宅小區(qū)已經(jīng)成為人們安家置業(yè)的首選，幾十萬(wàn)到幾

16、百萬(wàn)的小區(qū)住宅比比皆是。人們花的錢(qián)越多，不但對(duì)住宅的本身的美觀、質(zhì)量要求越來(lái)越高，同時(shí)對(duì)物業(yè)小區(qū)的服務(wù)和管理也要求很高。諸如對(duì)小區(qū)的用戶(hù)信息管理、車(chē)輛管理以及收費(fèi)，甚至對(duì)各項(xiàng)投訴都要求小區(qū)管理者做的好，做的完善。這樣要求小區(qū)管理者對(duì)物業(yè)管理要進(jìn)行宏觀的和微觀的細(xì)致管理，其中最好的辦法是用計(jì)算機(jī)操作的小區(qū)物業(yè)管理系統(tǒng)來(lái)實(shí)現(xiàn)對(duì)小區(qū)物業(yè)的管理，這就為我們?cè)O(shè)計(jì)小區(qū)物業(yè)管理系統(tǒng)提供了市場(chǎng)需要。</p><p>　　而我們?cè)O(shè)

17、計(jì)的小區(qū)物業(yè)管理系統(tǒng)在現(xiàn)代社會(huì)是最熱門(mén)的行業(yè)，是最關(guān)切老百姓實(shí)際生活的設(shè)計(jì)，各種人性化的配置，使業(yè)主能享受到更方便、更快捷、更滿(mǎn)意的服務(wù)。伴隨著小區(qū)的規(guī)模不斷擴(kuò)大和住戶(hù)的不斷增多，像小區(qū)中的汽車(chē)，小區(qū)附帶設(shè)施，小區(qū)的各項(xiàng)維修、投訴等都將越來(lái)越復(fù)雜，工作量也將越來(lái)越大。但一直以來(lái)人們使用傳統(tǒng)人工的方式管理各種數(shù)據(jù)，這種管理方式存在著許多缺點(diǎn)，比如：效率低、保密性差，另外時(shí)間一長(zhǎng)，將產(chǎn)生大量的文件和數(shù)據(jù)，這對(duì)于查找、更新和維護(hù)都帶來(lái)了不少的

18、困難。</p><p>　　因此，開(kāi)發(fā)這樣一套小區(qū)物業(yè)管理系統(tǒng)軟件成為很有必要的事情。建立起一個(gè)安全穩(wěn)定，性能良好，功能齊全的小區(qū)物業(yè)管理系統(tǒng)不僅將有效的提高工作效率，大大減少繁瑣的操作，充分發(fā)揮所管理的物業(yè)的各項(xiàng)人才、設(shè)備和信息優(yōu)勢(shì)，提高經(jīng)濟(jì)效益，以達(dá)到最大的投資回報(bào)率及用戶(hù)滿(mǎn)意率。</p><p>　　1.2關(guān)于小區(qū)物業(yè)管理系統(tǒng)</p><p>　　1.2.1小

19、區(qū)物業(yè)管理系統(tǒng)的發(fā)展過(guò)程</p><p>　　傳統(tǒng)意義上的物業(yè)管理起源于19世紀(jì) 60年代的英國(guó)。由于工業(yè)革命的發(fā)展，大量農(nóng)村人口涌入工業(yè)城市，引起了對(duì)城市房屋需求的增加，但對(duì)其缺乏管理導(dǎo)致了諸如房屋破損嚴(yán)重、居住環(huán)境日趨惡化等社會(huì)問(wèn)題。當(dāng)時(shí)，英國(guó)有一位名叫奧克維婭?希爾(Octavia Hill)的女士迫不得已為其名下出租的物業(yè)制訂了一套規(guī)范租戶(hù)行為的管理辦法，出乎意料地收到了良好效果，招致當(dāng)?shù)厝耸考娂娦Х?。這

20、可以說(shuō)是世界上最早的“物業(yè)管理”。隨著現(xiàn)代科學(xué)技術(shù)的進(jìn)步和市場(chǎng)經(jīng)濟(jì)的迅速發(fā)展，小區(qū)物業(yè)管理的范圍日益擴(kuò)大，管理程度也日益復(fù)雜。 面對(duì)激烈的市場(chǎng)競(jìng)爭(zhēng)和人民群眾對(duì)改善物業(yè)環(huán)境的渴望，物業(yè)管理單憑依靠物業(yè)管理者的豐富管理經(jīng)驗(yàn)和高超的管理藝術(shù)已經(jīng)遠(yuǎn)遠(yuǎn)不能適應(yīng)21世紀(jì)對(duì)科技進(jìn)步和小區(qū)物業(yè)管理飛速發(fā)展的客觀要求，小區(qū)物業(yè)管理全面實(shí)現(xiàn)管理現(xiàn)代化的勢(shì)頭已是勢(shì)不可當(dāng)。伴隨著物業(yè)管理的現(xiàn)代化進(jìn)程，小區(qū)管理信息系統(tǒng)也經(jīng)歷了3個(gè)發(fā)展過(guò)程。①單項(xiàng)數(shù)據(jù)處理階段

21、 該階段由于計(jì)算機(jī)硬件本身的局限，軟件系統(tǒng)及外部設(shè)備發(fā)展不夠完善，此時(shí)的小區(qū)管理系統(tǒng)僅能模仿手工管理方式，多用于簡(jiǎn)單的處理工資、計(jì)劃、統(tǒng)計(jì)報(bào)表等的事務(wù)性工作，是小區(qū)管理系統(tǒng)用于管理的</p><p>　　1.2.2小區(qū)物業(yè)管理系統(tǒng)的發(fā)展趨勢(shì)</p><p>　　小區(qū)物業(yè)管理系統(tǒng)在我國(guó)很多小區(qū)已經(jīng)得到了應(yīng)用，其效果是明顯的。一方面是取得了可計(jì)量的直接效果，如節(jié)省了人力，減少了費(fèi)用，防

22、止損失，增加收益等；另一方面取得的效果是無(wú)形的，是無(wú)法直接計(jì)量的。如提高了企業(yè)的管理水平，提高了管理人員的素質(zhì)，促進(jìn)了管理的現(xiàn)代化等，而這些效果的取得正是由于小區(qū)管理信息系統(tǒng)應(yīng)用于企業(yè)管理的各個(gè)方面、各個(gè)層次的結(jié)果。如決策、計(jì)劃、生產(chǎn)過(guò)程等。同樣，要使小區(qū)管理信息系統(tǒng)在小區(qū)物業(yè)管理中發(fā)揮其應(yīng)有的效果，就要不斷地拓寬小區(qū)管理信息系統(tǒng)在物業(yè)管理中的應(yīng)用范圍，使小區(qū)管理信息系統(tǒng)真正成為管理的助手。因此，從小區(qū)管理信息系統(tǒng)應(yīng)用范圍的趨勢(shì)看，應(yīng)在

23、下述幾個(gè)方面進(jìn)行開(kāi)發(fā)。</p><p>　　大力開(kāi)發(fā)物業(yè)管理的規(guī)劃與決策軟件</p><p>　　不言而喻，物業(yè)管理不僅是為房屋及其設(shè)備設(shè)施等進(jìn)行維修保養(yǎng)，對(duì)治安、環(huán)衛(wèi)、小區(qū) 綠化等進(jìn)行定期管理，而且它還要為住戶(hù)提供全方位的管理服務(wù)，如建立商場(chǎng)、醫(yī)院、學(xué)校及一些家庭生活上的需求服務(wù)等。這就要涉及到整個(gè)物業(yè)管理的規(guī)劃和決策。為此，不僅需 要管理者具備管理經(jīng)驗(yàn)，還需要依賴(lài)管理者對(duì)信息的處理、投

24、資理財(cái)、大量的原始信息、資料整理以及嚴(yán)格的投資計(jì)劃可行性分析等能力，如若沒(méi)有計(jì)算機(jī)的協(xié)助處理，管理人員要在 短期內(nèi)提出規(guī)劃和決策方案是相當(dāng)困難的，而采用微機(jī)情況就不一樣了，它可對(duì)各種方案進(jìn)行計(jì)算機(jī)模擬并加以評(píng)價(jià)，很快就可以為管理者提供出快捷的科學(xué)決策依據(jù)。</p><p>　　大力開(kāi)發(fā)物業(yè)管理范圍的計(jì)劃管理軟件</p><p>　　在計(jì)算機(jī)模擬結(jié)束和決策方案制定后，管理的任務(wù)就是依據(jù)模擬結(jié)

25、果，選用最佳決策方案，然后就是具體地執(zhí)行計(jì)劃?？梢哉f(shuō)，包括收集、統(tǒng)計(jì)資料在內(nèi)的絕大部分工作都可以由計(jì)劃管理軟件來(lái)完成。由于物業(yè)管理與服務(wù)項(xiàng)目較多，以往通過(guò)人工去制定計(jì)劃，還有賴(lài)于 對(duì)有關(guān)資料的收集、記錄和分析十分繁瑣。若是有了軟件程序使用計(jì)算機(jī)就可以完成統(tǒng)計(jì)預(yù)測(cè)，以便管理人員在掌握所需情況后，有的放矢地制訂出房屋、設(shè)備與設(shè)施的維修計(jì)劃，通 過(guò)信息反饋系統(tǒng)，計(jì)算機(jī)還可對(duì)維修計(jì)劃執(zhí)行情況，作出統(tǒng)計(jì)分析，并且能夠提供房屋、設(shè)備、設(shè)施的完好率、

26、故障率和其他具體情況。開(kāi)發(fā)出這樣的計(jì)劃管理系統(tǒng)軟件，已是計(jì)劃管 理工作的多年愿望。</p><p>　　總之，對(duì)小區(qū)物業(yè)管理信息系統(tǒng)應(yīng)用及其發(fā)展趨勢(shì)的認(rèn)識(shí)，應(yīng)持機(jī)遇與挑戰(zhàn)并存的態(tài)度。辦公自動(dòng)化、小區(qū)服務(wù)信息化，是社會(huì)科技進(jìn)步賦予物業(yè)及其物業(yè)管理的歷史必然，是人類(lèi)社會(huì)進(jìn)入21世紀(jì)之后，所要經(jīng)歷的必由之路。但人類(lèi)社會(huì)要全面實(shí)現(xiàn)電腦社會(huì)，矛盾也是客觀存在的。迎接挑戰(zhàn)，探索適合小區(qū)物業(yè)管理信息系統(tǒng)管理的新路，應(yīng)是我們追求

27、的最終目標(biāo)。</p><p>　　1.2.3設(shè)計(jì)的內(nèi)容</p><p>　　設(shè)計(jì)一個(gè)小區(qū)物業(yè)管理系統(tǒng)，此系統(tǒng)主要提供包括系統(tǒng)用戶(hù)管理、房屋管理、住戶(hù)管理、計(jì)量?jī)x表數(shù)據(jù)管理、報(bào)修管理和物業(yè)設(shè)備管理6部分。</p><p>　　(1) 系統(tǒng)管理用于管理使用該系統(tǒng)的用戶(hù)以及進(jìn)行權(quán)限的分配，從而為系統(tǒng)提供一定的安全性。</p><p>　　(2) 房

28、屋管理包括房屋的一些基本信息：房屋編號(hào)、房型、面積情況、當(dāng)前住戶(hù)，合理地反映小區(qū)房屋的情況，并可隨時(shí)查詢(xún)小區(qū)房屋的信息。</p><p>　　(3) 住戶(hù)管理對(duì)小區(qū)目前住戶(hù)的基本信息進(jìn)行登記，包括姓名、聯(lián)系方式等。從而可以高效、有序地管理人口眾多、來(lái)源廣泛的小區(qū)。</p><p>　　(4) 計(jì)量?jī)x表數(shù)據(jù)管理主要包括小區(qū)的一些電表、水表等計(jì)量?jī)x表數(shù)據(jù)管理，包括儀表名稱(chēng)、走表量、讀數(shù)和繳費(fèi)等

29、一些信息，同時(shí)非常方便住戶(hù)進(jìn)行查詢(xún)。</p><p>　　(5) 報(bào)修管理用于對(duì)小區(qū)住戶(hù)申報(bào)的一些報(bào)修信息進(jìn)行管理，包括報(bào)修內(nèi)容、報(bào)修日期等信息。</p><p>　　(6) 物業(yè)設(shè)備管理對(duì)小區(qū)中使用的物業(yè)設(shè)備信息進(jìn)行管理，包括設(shè)備的名稱(chēng)和價(jià)值等信息，這樣方便小區(qū)管理過(guò)程中對(duì)資源的統(tǒng)一規(guī)劃和安排。</p><p>　　1.3系統(tǒng)的開(kāi)發(fā)和運(yùn)行環(huán)境</p>

30、<p>　　1.3.1開(kāi)發(fā)工具軟件 Visual Basic</p><p>　　計(jì)算機(jī)技術(shù)與信息網(wǎng)絡(luò)的高速發(fā)展，特別是可視化集成開(kāi)發(fā)環(huán)境的出現(xiàn)，使得基于Visual Basic的軟件開(kāi)發(fā)得到了迅速普及。它所具有的一些新的功能特性，超越了舊的開(kāi)發(fā)模式，我們可以利用其豐富的控件進(jìn)行軟件開(kāi)發(fā)，很多已經(jīng)編寫(xiě)好的程序可以拿來(lái)直接用，Visual Basic 能夠用來(lái)編寫(xiě)企業(yè)應(yīng)用水平的客戶(hù)/服務(wù)器程序及強(qiáng)大的數(shù)

31、據(jù)庫(kù)應(yīng)用程序。</p><p>　　Visual Basic是微軟公司在1991年推出的，VB通過(guò)幾個(gè)版本的發(fā)展，使得VB可視化、數(shù)據(jù)庫(kù)編程能力大大的提升，同時(shí)它也引入了面向?qū)ο蟮脑O(shè)計(jì)思想。VB功能強(qiáng)大而且學(xué)習(xí)簡(jiǎn)單，它已經(jīng)成為了一種專(zhuān)業(yè)化的開(kāi)發(fā)語(yǔ)言和環(huán)境，用戶(hù)可以使用VB快速的創(chuàng)建windows程序，并且可以編寫(xiě)企業(yè)級(jí)水平的C/S程序以及強(qiáng)大的數(shù)據(jù)庫(kù)應(yīng)用程序。</p><p>　　Visu

32、al Basic總是圍繞著方便于程序員使用的主題進(jìn)行更新，VB既可以開(kāi)發(fā)簡(jiǎn)單的程序，又可以開(kāi)發(fā)非常復(fù)雜的程序。VB程序是一種基于窗體的可視化組件安排的聯(lián)合，并且增加代碼來(lái)指定組件的屬性和方法。窗體控件的增加和改變可以使用拖放技術(shù)實(shí)現(xiàn)。VB程序可以包含一個(gè)或者多個(gè)窗體，或者是一個(gè)主窗體和多個(gè)子窗體。在Visual Basic中，可以通過(guò)屬性、方法和事件來(lái)說(shuō)明和衡量一個(gè)對(duì)象的特征。</p><p>　　Visual

33、Basic 的屬性用于描述對(duì)象的名稱(chēng)、位置、顏色、字體等特征的一些指標(biāo)，用戶(hù)可以通過(guò)改變屬性來(lái)改變對(duì)象的特性。方法是用來(lái)控制對(duì)象的功能以及操作的內(nèi)部程序。比如：人具有說(shuō)話(huà)、吃飯、睡覺(jué)等功能?？傊?，方法指明了對(duì)象“能夠做什么”，用于定義對(duì)象的功能和操作。事件是指發(fā)生在某一對(duì)象上的事情。事件又可分為鼠標(biāo)事件和鍵盤(pán)事件。比如，在命令按鈕（Command Button）這一對(duì)象上可能發(fā)生鼠標(biāo)單擊（Click）、鼠標(biāo)移動(dòng)（Mouse Move）、

34、鼠標(biāo)按下（Mouse Down）等鼠標(biāo)事件，也可能發(fā)生鍵盤(pán)按下（Key Down）等鍵盤(pán)事件?？傊录该髁藢?duì)象“在什么情況下做什么？”，用于定義對(duì)象發(fā)生某種反映的時(shí)機(jī)和條件。</p><p>　　1.3.2 Microsoft SQL Server2000簡(jiǎn)介</p><p>　　隨著社會(huì)的發(fā)展，計(jì)算機(jī)的應(yīng)用越來(lái)越廣泛，電子商務(wù)迅猛發(fā)展，管理信息化已經(jīng)成為一大潮流，促進(jìn)了數(shù)據(jù)庫(kù)技術(shù)的發(fā)

35、展，Access、Foxpro等集中式數(shù)據(jù)庫(kù)已不能適應(yīng)發(fā)展的需要，微軟公司推出的SQL Server 以其豐富的功能及優(yōu)越的性能占據(jù)了很大的市場(chǎng)份額。 </p><p>　　SQL Server 2000是在SQL Server 7.0的基礎(chǔ)上擴(kuò)展升級(jí)的產(chǎn)品。SQL Server 7.0是Microsoft 公司在數(shù)據(jù)庫(kù)領(lǐng)域中非常重要的產(chǎn)品，它具有非常好的再造和重寫(xiě)特性。具有良好的性能、穩(wěn)定性、便于管理和易于開(kāi)發(fā)

36、等優(yōu)點(diǎn)。</p><p>　　SQL Server 2000 繼承了數(shù)據(jù)庫(kù)軟件設(shè)計(jì)和引擎方面的優(yōu)勢(shì)，已經(jīng)成為新一代網(wǎng)絡(luò)應(yīng)用程序的最佳數(shù)據(jù)庫(kù)和分析解決方案之一。作為Microsoft.NET Enterprise Servers 的核心組件，它將減少電子商務(wù)、在線商務(wù)和數(shù)據(jù)倉(cāng)儲(chǔ)應(yīng)用程序推向市場(chǎng)的時(shí)間，并對(duì)需要的環(huán)境提供可靠的支持。SQL Server 2000對(duì) XML 和 HTTP 提供充分的支持；提供分割裝載和

37、確保時(shí)間的特性；提供先進(jìn)的管理和協(xié)調(diào)機(jī)制，可以自動(dòng)管理線程任務(wù)，降低總體開(kāi)銷(xiāo)。另外，SQL Server 2000 充分利用 windows 2000的功能，包括支持活動(dòng)目錄（Active Directory）服務(wù)，最多支持32個(gè)處理器和64GB的內(nèi)存。</p><p>　　為了滿(mǎn)足不同的性能、運(yùn)行時(shí)間以及企業(yè)和個(gè)人不同的價(jià)格需求，SQL Server 2000 有不同的版本，具體有以下幾個(gè)版本：</p&g

38、t;<p>　　SQL Server 2000 企業(yè)版</p><p>　　SQL Server 2000 標(biāo)準(zhǔn)版和個(gè)人版</p><p>　　SQL Server 2000 開(kāi)發(fā)版和評(píng)估版</p><p>　　SQL Server 2000 桌面引擎（MSDE）</p><p>　　SQL Server 2000 Window

39、s CE 版本</p><p><b>　　2可行性分析報(bào)告</b></p><p>　　通過(guò)對(duì)該小區(qū)的各個(gè)方面進(jìn)行了具體的了解之后，現(xiàn)對(duì)該單位開(kāi)發(fā)物業(yè)管理系統(tǒng)的可行性進(jìn)行分析。</p><p>　　技術(shù)上可行：該系統(tǒng)所需硬件設(shè)備，市場(chǎng)上銷(xiāo)售且價(jià)格較低，甚至可以使用原有的設(shè)備，軟件上，操作系統(tǒng)采用Windows系列操作系統(tǒng)，數(shù)據(jù)庫(kù)管理系統(tǒng)采用S

40、QL Server2000，這些軟件在MIS開(kāi)發(fā)中已被大量應(yīng)用，技術(shù)上都比較成熟。因此在技術(shù)上是可行的。</p><p>　　經(jīng)濟(jì)上可行：由于住戶(hù)需要支付管理費(fèi)，因此小區(qū)在采用計(jì)算機(jī)來(lái)進(jìn)行小區(qū)的管理，因開(kāi)發(fā)經(jīng)費(fèi)沒(méi)有問(wèn)題。</p><p>　　管理上可行：該小區(qū)的物業(yè)管理人員都經(jīng)過(guò)專(zhuān)業(yè)的培訓(xùn)。有計(jì)算機(jī)操作經(jīng)驗(yàn)，并有豐富的管理和工作經(jīng)驗(yàn)，因此因管理上可行。另外，小區(qū)也決定對(duì)新員工制定了培訓(xùn)計(jì)劃

41、，并進(jìn)行了實(shí)施MIS的物質(zhì)準(zhǔn)備和工作準(zhǔn)備。</p><p>　　綜上所述，開(kāi)發(fā)小區(qū)物業(yè)管理系統(tǒng)在技術(shù)上、經(jīng)濟(jì)上、管理上都是可行的。</p><p>　　3系統(tǒng)的分析與開(kāi)發(fā)內(nèi)容</p><p>　　3.1系統(tǒng)的開(kāi)發(fā)背景</p><p>　　小區(qū)管理在手工操作時(shí)代，工作非常繁瑣，需要大量的人力、物力和財(cái)力，極大的浪費(fèi)了小區(qū)物業(yè)的資源，對(duì)于小區(qū)的管

42、理人員來(lái)說(shuō)，物業(yè)管理包括物業(yè)設(shè)備管理、儀表數(shù)據(jù)管理、停車(chē)場(chǎng)管理、住戶(hù)的投訴管理、住戶(hù)的報(bào)修管理、住戶(hù)的設(shè)備維修管理等等。而這些項(xiàng)目在過(guò)去手工操作時(shí)代，需要手工記錄這些事情，不但麻煩，還經(jīng)常出錯(cuò)，給廣大用戶(hù)帶來(lái)很多不便。為了更好的為廣大住戶(hù)服務(wù)，我們決定開(kāi)發(fā)一套小區(qū)物業(yè)管理系統(tǒng)，幫助小區(qū)管理人員從復(fù)雜的物業(yè)管理之中解放出來(lái)。</p><p>　　3.2小區(qū)物業(yè)管理系統(tǒng)的需求分析</p><p&g

43、t;　　小區(qū)物業(yè)管理系統(tǒng)是面向小區(qū)的的各項(xiàng)事務(wù)，包括物業(yè)管理，資料管理等業(yè)務(wù)處理工作，是利用計(jì)算機(jī)進(jìn)行集中管理而開(kāi)發(fā)的系統(tǒng)，是為了力求與實(shí)際相結(jié)合具有查詢(xún)、管理等功能，旨在達(dá)到使小區(qū)的管理和運(yùn)營(yíng)趨于計(jì)算機(jī)化，使之更加方便、快捷以提高工作效率。</p><p>　　3.3 系統(tǒng)的功能圖</p><p>　　如圖3.1所示就是系統(tǒng)功能圖</p><p>　　圖3.1 系

44、統(tǒng)功能圖</p><p><b>　　4數(shù)據(jù)庫(kù)設(shè)計(jì)</b></p><p><b>　　4.1 創(chuàng)建數(shù)據(jù)庫(kù)</b></p><p>　　根據(jù)我的系統(tǒng)功能需求，我要建立一個(gè)數(shù)據(jù)庫(kù)結(jié)構(gòu)的框架。</p><p>　　4.1.1 房屋信息表</p><p><b>　　如表

45、4.1所示</b></p><p>　　表4.1 房屋基本信息表</p><p>　　4.1.2 住戶(hù)信息表</p><p><b>　　如表4.2所示。</b></p><p>　　表4.2 住戶(hù)信息表</p><p>　　4.1.3 計(jì)量?jī)x表數(shù)據(jù)信息表</p><

46、;p><b>　　如表4.3所示。</b></p><p>　　表4.3 計(jì)量?jī)x表數(shù)據(jù)信息表</p><p>　　4.1.4 報(bào)修信息表</p><p><b>　　如表4.4所示。</b></p><p><b>　　表4.4報(bào)修信息表</b></p>&

47、lt;p>　　4.1.5 物業(yè)設(shè)備信息表</p><p><b>　　如表4.5所示。</b></p><p>　　表4.5 物業(yè)設(shè)備信息表</p><p><b>　　5系統(tǒng)設(shè)計(jì)</b></p><p><b>　　5.1 界面設(shè)計(jì)</b></p><

48、;p>　　經(jīng)過(guò)了以上分析、建模的過(guò)程，已經(jīng)完成了數(shù)據(jù)庫(kù)的后臺(tái)工作，以及初期的工作目標(biāo)。接下來(lái)就要完成人機(jī)交互的界面，一個(gè)友好完善的界面不僅能夠方便系統(tǒng)的使用者，還能夠使各個(gè)模塊間的劃分明確，結(jié)構(gòu)更趨于完善。所以設(shè)計(jì)一個(gè)好的界面的設(shè)計(jì)工作在進(jìn)行系統(tǒng)開(kāi)發(fā)的時(shí)候是必不可少也是十分重要的。</p><p>　　5.1.1 登錄界面和小區(qū)物業(yè)管理信息系統(tǒng)主窗體</p><p>　　登錄界面如圖

49、5.1所示。</p><p><b>　　圖5.1 登錄界面</b></p><p>　　在項(xiàng)目中使用了多文檔界面，右擊“工程資源管理器”窗口，在彈出的菜單中選擇“添加”|“添加MDI窗口”命令。在新建立的這個(gè)窗口中添加所需的控件，創(chuàng)建好的窗體如圖5.2所示。</p><p>　　圖5.2小區(qū)物業(yè)管理信息系統(tǒng)主窗體</p><

50、;p>　　5.1.2 房屋信息模塊界面設(shè)計(jì)</p><p>　　房屋管理信息模塊主要要實(shí)現(xiàn)如下功能：添加房屋信息，編輯房屋信息，查詢(xún)房屋信息。</p><p>　　在主界面中選擇“房屋管理”菜單，主界面上將顯示出該下拉菜單，如圖5.3所示。</p><p>　　圖5.3 房屋管理下拉菜單</p><p>　　添加房屋信息界面，如圖5.4

51、所示。</p><p>　　圖5.4 添加房屋信息窗體</p><p>　　查詢(xún)房屋信息界面，如圖5.5所示。</p><p>　　圖5.5 查詢(xún)房屋信息窗體</p><p>　　5.1.3住戶(hù)管理信息模塊界面設(shè)計(jì)</p><p>　　小區(qū)住戶(hù)管理模塊主要實(shí)現(xiàn)如下功能：添加住戶(hù)信息，編輯住戶(hù)信息，查詢(xún)住戶(hù)信息。<

52、/p><p>　　添加住戶(hù)信息界面如下圖5.6所示。</p><p>　　圖5.6 添加住戶(hù)信息窗體</p><p>　　修改住戶(hù)信息界面如圖5.7所示。</p><p>　　圖5.7 修改住戶(hù)信息窗體</p><p>　　住戶(hù)信息查詢(xún)模塊界面如圖5.8所示。</p><p>　　如圖5.8 住戶(hù)信

53、息查詢(xún)模塊窗體</p><p>　　5.1.4 計(jì)量?jī)x表數(shù)據(jù)管理信息模塊界面設(shè)計(jì)</p><p>　　計(jì)量?jī)x表數(shù)據(jù)管理信息模塊界面設(shè)計(jì)</p><p>　　計(jì)量?jī)x表數(shù)據(jù)管理模塊主要實(shí)現(xiàn)如下功能：添加計(jì)量?jī)x表數(shù)據(jù)信息，編輯計(jì)量?jī)x表數(shù)據(jù)信息，查詢(xún)計(jì)量?jī)x表數(shù)據(jù)信息。</p><p>　　添加計(jì)量?jī)x表數(shù)據(jù)界面如圖5.9所示。</p>&

54、lt;p>　　圖5.9 添加計(jì)量?jī)x表數(shù)據(jù)信息窗體</p><p>　　修改計(jì)量?jī)x表數(shù)據(jù)界面如圖5.10所示。</p><p>　　圖5.10 計(jì)量?jī)x表數(shù)據(jù)信息編輯窗體</p><p>　　查詢(xún)計(jì)量?jī)x表數(shù)據(jù)界面如圖5.11所示。</p><p>　　圖5.11 計(jì)量?jī)x表數(shù)據(jù)信息查詢(xún)模塊窗體</p><p>　　5.

55、1.5 報(bào)修管理信息模塊界面設(shè)計(jì)</p><p>　　報(bào)修管理信息模塊主要是為了實(shí)現(xiàn)以下這些功能：添加報(bào)修信息，修改報(bào)修信息，查詢(xún)報(bào)修信息。</p><p>　　添加報(bào)修信息界面如圖5.12所示。</p><p>　　圖5.12添加報(bào)修信息窗體</p><p>　　修改報(bào)修信息界面如圖5.13所示。</p><p>　

56、　圖5.13 報(bào)修信息編輯窗體</p><p>　　報(bào)修信息查詢(xún)界面如圖5.14所示。</p><p>　　圖5.14 報(bào)修信息查詢(xún)窗體</p><p>　　5.1.6 物業(yè)設(shè)備管理信息模塊界面設(shè)計(jì)</p><p>　　物業(yè)設(shè)備管理模塊主要是為了實(shí)現(xiàn)如下功能：添加物業(yè)設(shè)備信息，編輯物業(yè)設(shè)備信息，查詢(xún)物業(yè)設(shè)備信息。</p><

57、;p>　　物業(yè)設(shè)備管理下拉菜單如圖5.15所示。</p><p>　　圖5.15 “物業(yè)設(shè)備管理”下拉菜單</p><p>　　5.2 代碼分析與實(shí)現(xiàn)</p><p>　　上面介紹了系統(tǒng)的各個(gè)模塊的界面設(shè)計(jì)，下面就是將實(shí)現(xiàn)系統(tǒng)各個(gè)模塊的代碼，并對(duì)其進(jìn)行分析。</p><p>　　5.2.1 登錄代碼</p><p&g

58、t;　　Option Explicit</p><p>　　Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpbuffer As String, nSize As Long) As Long</p><p>　　Public OK

59、 As Boolean</p><p><b>　　'記錄確定次數(shù)</b></p><p>　　Dim miCount As Integer</p><p>　　Private Sub Form_Load()</p><p>　　OK = False</p><p>　　miCount =

60、 0</p><p><b>　　End Sub</b></p><p>　　Private Sub cmdCancel_Click()</p><p>　　OK = False</p><p><b>　　Me.Hide</b></p><p><b>　　End

61、 Sub</b></p><p>　　Private Sub cmdOK_Click()</p><p>　　Dim txtSQL As String</p><p>　　Dim mrc As ADODB.Recordset</p><p>　　Dim MsgText As String</p><p>　

62、　'變量定義 txtSQL是用來(lái)存放SQL語(yǔ)句，MsgText存放返回信息</p><p>　　UserName = ""</p><p>　　If Trim(txtUserName.Text = "") Then</p><p>　　'判斷用戶(hù)名輸入是否為空</p><p>　　Msg

63、Box "沒(méi)有這個(gè)用戶(hù)，請(qǐng)重新輸入用戶(hù)名！", vbOKOnly + vbExclamation, "警告"</p><p>　　txtUserName.SetFocus</p><p><b>　　Else</b></p><p>　　txtSQL = "select * from Manag

64、er where username = '" & txtUserName.Text & "'"</p><p>　　'對(duì)所輸入的用戶(hù)名進(jìn)行查詢(xún)</p><p>　　Set mrc = ExecuteSQL(txtSQL, MsgText)</p><p>　　If mrc.EOF = True T

65、hen</p><p>　　MsgBox "沒(méi)有這個(gè)用戶(hù)，請(qǐng)重新輸入用戶(hù)名!", vbOKOnly + vbExclamation, "警告"</p><p>　　txtUserName.SetFocus</p><p><b>　　Else</b></p><p>　　If Tr

66、im(mrc.Fields(1)) = Trim(txtPassword.Text) Then</p><p>　　'判斷密碼輸入正確性</p><p><b>　　OK = True</b></p><p><b>　　mrc.Close</b></p><p><b>　　Me

67、.Hide</b></p><p>　　UserName = Trim(txtUserName.Text)</p><p>　　'記錄用戶(hù)名和密碼到全局變量</p><p><b>　　Else</b></p><p>　　MsgBox "輸入密碼不正確，請(qǐng)重新輸入！", vbOK

68、Only + vbExclamation, "警告"</p><p>　　txtPassword.SetFocus</p><p>　　txtPassword.Text = ""</p><p><b>　　End If</b></p><p><b>　　End If&

69、lt;/b></p><p><b>　　End If</b></p><p>　　miCount = miCount + 1</p><p>　　If miCount = 3 Then</p><p>　　'記錄密碼輸入的次數(shù)，累計(jì)到3此則自動(dòng)結(jié)束程序</p><p><b&

70、gt;　　Me.Hide</b></p><p><b>　　End If</b></p><p><b>　　Exit Sub</b></p><p><b>　　End Sub</b></p><p>　　5.2.2房屋管理信息代碼</p><

71、;p><b>　　添加房屋信息代碼：</b></p><p>　　Option Explicit</p><p>　　Private Sub cancelCommand_Click()</p><p><b>　　Unload Me</b></p><p><b>　　End Sub

72、</b></p><p>　　Private Sub updateCommand_Click()</p><p>　　Dim txtSQL As String</p><p>　　Dim MsgText As String</p><p>　　Dim mrcc As ADODB.Recordset</p><p

73、>　　If Not Testtxt(txtHouseNO.Text) Then</p><p>　　MsgBox "請(qǐng)輸入房屋編號(hào)！", vbOKOnly + vbExclamation, "警告"</p><p>　　txtHouseNO.SetFocus</p><p><b>　　Exit Sub<

74、/b></p><p><b>　　End If</b></p><p>　　If Not Testtxt(txtHouseType.Text) Then</p><p>　　MsgBox "請(qǐng)輸入房型！", vbOKOnly + vbExclamation, "警告"</p><

75、;p>　　txtHouseType.SetFocus</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　If Not IsNumeric(txtConstArea.Text) Then</p><p>　　MsgBox

76、"請(qǐng)輸入建筑面積！", vbOKOnly + vbExclamation, "警告"</p><p>　　txtConstArea.SetFocus</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><

77、p>　　If Not IsNumeric(TxtUseArea.Text) Then</p><p>　　MsgBox "請(qǐng)輸入使用面積！", vbOKOnly + vbExclamation, "警告"</p><p>　　TxtUseArea.SetFocus</p><p><b>　　Exit Sub&

78、lt;/b></p><p><b>　　End If</b></p><p>　　If Not Testtxt(txtCurrentUser.Text) Then</p><p>　　MsgBox "請(qǐng)輸入當(dāng)前住戶(hù)！", vbOKOnly + vbExclamation, "警告"</p&g

79、t;<p>　　txtCurrentUser.SetFocus</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　Dim tempHouse As clsHouse</p><p>　　Set tempHouse

80、 = New clsHouse</p><p>　　tempHouse.AddNew txtHouseNO.Text, txtHouseType.Text, Val(txtConstArea.Text), Val(TxtUseArea.Text), txtCurrentUser.Text, txtComment.Text</p><p><b>　　End Sub</b&g

81、t;</p><p><b>　　編輯房屋信息代碼：</b></p><p>　　Option Explicit</p><p>　　Dim tempHouse As clsHouse</p><p>　　Private Sub cancelCommand_Click()</p><p><

82、b>　　Unload Me</b></p><p><b>　　End Sub</b></p><p>　　Private Sub deleteCommand_Click()</p><p>　　tempHouse.DelRecord</p><p><b>　　End Sub</b&g

83、t;</p><p>　　Private Sub editCommand_Click()</p><p>　　tempHouse.EditRecord</p><p>　　Frame2.Enabled = False</p><p>　　firstCommand.Enabled = False</p><p>　　pr

84、eviousCommand.Enabled = False</p><p>　　nextCommand.Enabled = False</p><p>　　lastCommand.Enabled = False</p><p>　　txtHouseType.Enabled = True</p><p>　　txtConstArea.Enabl

85、ed = True</p><p>　　TxtUseArea.Enabled = True</p><p>　　txtComment.Enabled = True</p><p>　　txtCurrentUser.Enabled = True</p><p><b>　　End Sub</b></p>&l

86、t;p>　　Private Sub Form_Load()</p><p>　　Set tempHouse = New clsHouse</p><p>　　tempHouse.LoadRecord</p><p>　　Call viewData</p><p>　　txtHouseNO.Enabled = False</p>

87、;<p>　　txtHouseType.Enabled = False</p><p>　　txtConstArea.Enabled = False</p><p>　　TxtUseArea.Enabled = False</p><p>　　txtCurrentUser.Enabled = False</p><p>　　tx

88、tComment.Enabled = False</p><p>　　txtModifyName.Enabled = False</p><p>　　txtModifyDate.Enabled = False</p><p><b>　　End Sub</b></p><p>　　Public Sub viewData(

89、)</p><p>　　txtHouseNO.Text = tempHouse.mrc.Fields(0)</p><p>　　txtHouseType.Text = tempHouse.mrc.Fields(1)</p><p>　　txtConstArea.Text = tempHouse.mrc.Fields(2)</p><p>　　

90、TxtUseArea.Text = tempHouse.mrc.Fields(3)</p><p>　　txtCurrentUser.Text = tempHouse.mrc.Fields(4)</p><p>　　txtComment.Text = tempHouse.mrc.Fields(5)</p><p>　　txtModifyName.Text = tem

91、pHouse.mrc.Fields(6)</p><p>　　txtModifyDate.Text = tempHouse.mrc.Fields(7)</p><p><b>　　End Sub</b></p><p>　　Private Sub firstCommand_Click()</p><p>　　tempHo

92、use.mrc.MoveFirst</p><p>　　Call viewData</p><p><b>　　End Sub</b></p><p>　　Private Sub previousCommand_Click()</p><p>　　tempHouse.mrc.MovePrevious</p>

93、<p>　　If tempHouse.mrc.BOF Then</p><p>　　tempHouse.mrc.MoveLast</p><p><b>　　End If</b></p><p>　　Call viewData</p><p><b>　　End Sub</b></

94、p><p>　　Private Sub nextCommand_Click()</p><p>　　tempHouse.mrc.MoveNext</p><p>　　If tempHouse.mrc.EOF Then</p><p>　　tempHouse.mrc.MoveFirst</p><p><b>　　

95、End If</b></p><p>　　Call viewData</p><p><b>　　End Sub</b></p><p>　　Private Sub lastCommand_Click()</p><p>　　tempHouse.mrc.MoveLast</p><p>

96、;　　Call viewData</p><p><b>　　End Sub</b></p><p>　　Private Sub updateCommand_Click()</p><p>　　Dim txtSQL As String</p><p>　　Dim MsgText As String</p>

97、<p>　　Dim mrcc As ADODB.Recordset</p><p>　　If tempHouse.mcclean Then</p><p>　　MsgBox "請(qǐng)先修改房型資料信息", vbOKOnly + vbExclamation, "警告"</p><p><b>　　Exit Sub

98、</b></p><p><b>　　End If</b></p><p>　　If Not Testtxt(txtHouseNO.Text) Then</p><p>　　MsgBox "請(qǐng)輸入房型編號(hào)！", vbOKOnly + vbExclamation, "警告"</p>

99、<p>　　txtHouseNO.SetFocus</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　If Not Testtxt(txtHouseType.Text) Then</p><p>　　MsgBox

100、"請(qǐng)輸入房型！", vbOKOnly + vbExclamation, "警告"</p><p>　　txtHouseType.SetFocus</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p&

101、gt;　　If Not IsNumeric(txtConstArea.Text) Then</p><p>　　MsgBox "請(qǐng)輸入建筑面積", vbOKOnly + vbExclamation, "警告"</p><p>　　txtConstArea.SetFocus</p><p><b>　　Exit Sub

102、</b></p><p><b>　　End If</b></p><p>　　If Not IsNumeric(TxtUseArea.Text) Then</p><p>　　MsgBox "請(qǐng)輸入使用面積！", vbOKOnly + vbExclamation, "警告"</p>

103、;<p>　　TxtUseArea.SetFocus</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　tempHouse.Update txtHouseNO.Text, txtHouseType.Text, Val(txtConstA

104、rea.Text), Val(TxtUseArea.Text), txtCurrentUser.Text, txtComment.Text</p><p>　　Call viewData</p><p><b>　　'導(dǎo)航按鈕有效</b></p><p>　　Frame2.Enabled = True</p><p&

105、gt;　　firstCommand.Enabled = True</p><p>　　previousCommand.Enabled = True</p><p>　　nextCommand.Enabled = True</p><p>　　lastCommand.Enabled = True</p><p><b>　　'

106、記錄只讀</b></p><p>　　txtHouseNO.Enabled = False</p><p>　　txtHouseType.Enabled = False</p><p>　　txtConstArea.Enabled = False</p><p>　　TxtUseArea.Enabled = False</p

107、><p>　　txtComment.Enabled = False</p><p><b>　　End Sub</b></p><p><b>　　查詢(xún)房屋信息代碼：</b></p><p>　　Private Sub cmdExit_Click()</p><p><b&

108、gt;　　Unload Me</b></p><p><b>　　End Sub</b></p><p>　　Private Sub cmdInquire_Click()</p><p>　　Dim txtSQL As String</p><p>　　Dim MsgText As String</p&

109、gt;<p>　　Dim dd(4) As Boolean</p><p>　　Dim mrc As ADODB.Recordset</p><p>　　txtSQL = "select * from House where "</p><p>　　If Check1(0).Value Then</p><p&g

110、t;　　If Trim(txtCurrentUser.Text) = "" Then</p><p>　　smeg = "電話(huà)不能為空"</p><p>　　MsgBox smeg, vbOKOnly + vbExclamation, "警告"</p><p>　　txtCurrentUser.SetFoc

111、us</p><p><b>　　Exit Sub</b></p><p>　　txtSQL = txtSQL & "currentuser = '" & Trim(txtCurrentUser.Text) & "'"</p><p><b>　　End

112、If</b></p><p><b>　　End If</b></p><p>　　If Check1(1).Value Then</p><p>　　If Trim(txtHouseNO.Text) = "" Then</p><p>　　smeg = "姓名不能為空"

113、;</p><p>　　MsgBox smeg, vbOKOnly + vbExclamation, "警告"</p><p>　　txtHouseNO.SetFocus</p><p><b>　　Exit Sub</b></p><p><b>　　Else</b></

114、p><p>　　txtSQL = txtSQL & "houseno = '" & Trim(txtHouseNO.Text) & "'"</p><p><b>　　End If</b></p><p><b>　　End If</b></

115、p><p>　　If Check1(0).Value = Check1(1).Value Then</p><p>　　MsgBox "請(qǐng)?jiān)O(shè)置查詢(xún)方式！", vbOKOnly + vbExclamation, "警告"</p><p><b>　　Exit Sub</b></p><p&g

116、t;<b>　　End If</b></p><p>　　txtSQL = txtSQL</p><p>　　Set mrc = ExecuteSQL(txtSQL, MsgText)</p><p>　　Set DataGrid1.DataSource = mrc</p><p><b>　　End Sub&

117、lt;/b></p><p>　　6 產(chǎn)品質(zhì)量管理系統(tǒng)測(cè)試與試運(yùn)行</p><p>　　6.1 數(shù)據(jù)源的創(chuàng)建</p><p>　　在程序運(yùn)行之前不需先設(shè)置數(shù)據(jù)源管理器(ODBC)。具體步驟如下：</p><p>　　在Windows桌面上選擇“開(kāi)始”→“設(shè)置”→“控制面板”菜單命令，在“控制面板”窗口中雙擊“管理工具”圖標(biāo)，在“管理工

118、具”中雙擊“數(shù)據(jù)源 (ODBC)”圖標(biāo)。然后在系統(tǒng)DSN創(chuàng)建一個(gè)新的數(shù)據(jù)源，選擇SQL Server如圖6.1所示：</p><p>　　圖6.1 創(chuàng)建新數(shù)據(jù)源</p><p>　　然后給新的數(shù)據(jù)源命名和描述，再選擇服務(wù)器，如圖6.2所示：</p><p>　　圖6.2 創(chuàng)建新數(shù)據(jù)源</p><p>　　然后選擇使用網(wǎng)絡(luò)登錄ID的Windo

119、ws NT 驗(yàn)證。如圖6.3所示：</p><p>　　圖6.3 創(chuàng)建新數(shù)據(jù)源</p><p>　　然后更改默認(rèn)數(shù)據(jù)庫(kù)為“WSalary”如圖6.4所示：</p><p>　　圖6.4創(chuàng)建新數(shù)據(jù)源</p><p>　　再按“下一步”至得到本數(shù)據(jù)源的詳細(xì)說(shuō)明。如圖6.5所示。</p><p>　　圖6.5新數(shù)據(jù)源詳細(xì)信

120、息</p><p>　　直接完成后測(cè)試數(shù)據(jù)源，顯示“測(cè)試成功”，最后點(diǎn)擊完成。如圖6.6所示。</p><p>　　圖6.6 創(chuàng)建新數(shù)據(jù)源</p><p><b>　　6.2 系統(tǒng)的運(yùn)行</b></p><p>　　執(zhí)行我設(shè)計(jì)的系統(tǒng)，運(yùn)行程序就會(huì)出現(xiàn)如圖6.7所示界面</p><p><b&

121、gt;　　圖6.7 登錄界面</b></p><p>　　輸入用戶(hù)名密碼后進(jìn)入系統(tǒng)中，選擇“報(bào)修管理”|“添加報(bào)修信息”命令，彈出“添加報(bào)修信息”對(duì)話(huà)框，在對(duì)話(huà)框中輸入房屋信息后，單擊“保存”按鈕，效果如圖6.8所示。</p><p>　　圖6.8 添加報(bào)修信息</p><p>　　選擇“報(bào)修管理”|“修改報(bào)修信息”的命令，在彈出的界面中修改內(nèi)容為“日光

122、燈壞掉”的報(bào)修信息，將維修費(fèi)改為“10”，單擊保存按鈕，效果如圖6.9所示。</p><p>　　圖6.9 編輯報(bào)修信息</p><p>　　還可以對(duì)數(shù)據(jù)庫(kù)中的數(shù)據(jù)進(jìn)行查詢(xún)操作，選擇“房屋管理”|“查詢(xún)房屋信息命令，進(jìn)入查詢(xún)界面。按照標(biāo)識(shí)輸入數(shù)據(jù)后，單擊“查詢(xún)”按鈕即可進(jìn)行查詢(xún)操作。查詢(xún)房屋編號(hào)為“012”的房屋的結(jié)果如圖6.10所示。</p><p>　　圖6.1

123、0 查詢(xún)房屋信息</p><p><b>　　總 結(jié)</b></p><p>　　小區(qū)物業(yè)管理系統(tǒng)是一個(gè)以計(jì)算機(jī)為工具，對(duì)小區(qū)管理信息進(jìn)行處理的人機(jī)系統(tǒng)，它能準(zhǔn)確、及時(shí)地反映小區(qū)各項(xiàng)工作的當(dāng)前狀態(tài)，能利用過(guò)去的數(shù)據(jù)分析，能從全局出發(fā)輔助小區(qū)管理?？梢?jiàn)，小區(qū)物業(yè)管理系統(tǒng)首先必須具有處理各項(xiàng)小區(qū)日常事物的能力，能大大提高小區(qū)管理人員的工作效率，減少人員和物資的浪費(fèi)。通

124、過(guò)這次畢業(yè)設(shè)計(jì)我除了在Visual Basic程序編程水平和Microsoft SQL Server 2000數(shù)據(jù)庫(kù)應(yīng)用能力上有了很大程度的提高，也更加深入了理解了管理軟件設(shè)計(jì)中常見(jiàn)問(wèn)題和其設(shè)計(jì)的意義。</p><p>　　由于設(shè)計(jì)小區(qū)管理軟件的經(jīng)驗(yàn)不足，時(shí)間有限，雖然我順利的完成了系統(tǒng)的調(diào)研、分析、設(shè)計(jì)和調(diào)試的工作，但是肯定會(huì)有一些不足之處，我會(huì)在將來(lái)的軟件設(shè)計(jì)過(guò)程中引以為戒。</p><p

125、><b>　　參考文獻(xiàn)</b></p><p>　　[1] 王梯云, 管理信息系統(tǒng)[M]. 高等教育出版社，2009.</p><p>　　[2] 姚麗麗，遲國(guó)棟.《SQL Server 2000數(shù)據(jù)庫(kù)管理系統(tǒng)》教學(xué)探討[J].世紀(jì)橋，2007.08.</p><p>　　[3] 李曉喆，張曉輝等 SQL Server 2000 管理及應(yīng)