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

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

2、 </p><p>　　學生姓名 學號 </p><p>　　指導教師 職稱 </p><p>　　完成日期 年 月 </p><p><b>　　摘 要</b>&l

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

4、雜，工作量也將越來越大。還依靠人工來處理不僅效率底，保密性差，而且時間一長還會產生大量文件和數據，這樣對查找，更新和維護帶來了不少的困難。隨著計算機技術的不斷普及和計算機數據處理功能不斷增強，用計算機系統(tǒng)來對小區(qū)物業(yè)管理已經成了必要。</p><p>　　關鍵詞：小區(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關于小區(qū)物業(yè)管理信息系統(tǒng)1</p><p>　　1.2關于小區(qū)物業(yè)管理系統(tǒng)2</p><p>　　1.2.1小區(qū)物業(yè)管理系統(tǒng)的發(fā)展過程2</p><p>　　1.2.2小區(qū)物業(yè)管理系統(tǒng)的發(fā)展趨勢3&

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

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

11、庫10</p><p>　　4.1.1 房屋信息表10</p><p>　　4.1.2 住戶信息表10</p><p>　　4.1.3 計量儀表數據信息表11</p><p>　　4.1.4 報修信息表11</p><p>　　4.1.5 物業(yè)設備信息表12</p><p><

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

13、.4 計量儀表數據管理信息模塊界面設計19</p><p>　　5.1.5 報修管理信息模塊界面設計21</p><p>　　5.1.6 物業(yè)設備管理信息模塊界面設計23</p><p>　　5.2 代碼分析與實現25</p><p>　　5.2.1 登錄代碼25</p><p>　　5.2.2房屋管理信息代

14、碼26</p><p>　　6 產品質量管理系統(tǒng)測試與試運行32</p><p>　　6.1 數據源的創(chuàng)建32</p><p>　　6.2 系統(tǒng)的運行36</p><p><b>　　總 結39</b></p><p>　　致 謝錯誤!未定義書簽。</p><p

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

31、據庫應用程序。</p><p>　　Visual Basic是微軟公司在1991年推出的，VB通過幾個版本的發(fā)展，使得VB可視化、數據庫編程能力大大的提升，同時它也引入了面向對象的設計思想。VB功能強大而且學習簡單，它已經成為了一種專業(yè)化的開發(fā)語言和環(huán)境，用戶可以使用VB快速的創(chuàng)建windows程序，并且可以編寫企業(yè)級水平的C/S程序以及強大的數據庫應用程序。</p><p>　　Visu

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

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

34、鼠標按下（Mouse Down）等鼠標事件，也可能發(fā)生鍵盤按下（Key Down）等鍵盤事件?？傊?，事件指明了對象“在什么情況下做什么？”，用于定義對象發(fā)生某種反映的時機和條件。</p><p>　　1.3.2 Microsoft SQL Server2000簡介</p><p>　　隨著社會的發(fā)展，計算機的應用越來越廣泛，電子商務迅猛發(fā)展，管理信息化已經成為一大潮流，促進了數據庫技術的發(fā)

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

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

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

38、t;<p>　　SQL Server 2000 企業(yè)版</p><p>　　SQL Server 2000 標準版和個人版</p><p>　　SQL Server 2000 開發(fā)版和評估版</p><p>　　SQL Server 2000 桌面引擎（MSDE）</p><p>　　SQL Server 2000 Window

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

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

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

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

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

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

45、4.1所示</b></p><p>　　表4.1 房屋基本信息表</p><p>　　4.1.2 住戶信息表</p><p><b>　　如表4.2所示。</b></p><p>　　表4.2 住戶信息表</p><p>　　4.1.3 計量儀表數據信息表</p><

46、;p><b>　　如表4.3所示。</b></p><p>　　表4.3 計量儀表數據信息表</p><p>　　4.1.4 報修信息表</p><p><b>　　如表4.4所示。</b></p><p><b>　　表4.4報修信息表</b></p>&

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

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

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

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

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

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

53、息查詢模塊窗體</p><p>　　5.1.4 計量儀表數據管理信息模塊界面設計</p><p>　　計量儀表數據管理信息模塊界面設計</p><p>　　計量儀表數據管理模塊主要實現如下功能：添加計量儀表數據信息，編輯計量儀表數據信息，查詢計量儀表數據信息。</p><p>　　添加計量儀表數據界面如圖5.9所示。</p>&

54、lt;p>　　圖5.9 添加計量儀表數據信息窗體</p><p>　　修改計量儀表數據界面如圖5.10所示。</p><p>　　圖5.10 計量儀表數據信息編輯窗體</p><p>　　查詢計量儀表數據界面如圖5.11所示。</p><p>　　圖5.11 計量儀表數據信息查詢模塊窗體</p><p>　　5.

55、1.5 報修管理信息模塊界面設計</p><p>　　報修管理信息模塊主要是為了實現以下這些功能：添加報修信息，修改報修信息，查詢報修信息。</p><p>　　添加報修信息界面如圖5.12所示。</p><p>　　圖5.12添加報修信息窗體</p><p>　　修改報修信息界面如圖5.13所示。</p><p>　

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

57、;p>　　物業(yè)設備管理下拉菜單如圖5.15所示。</p><p>　　圖5.15 “物業(yè)設備管理”下拉菜單</p><p>　　5.2 代碼分析與實現</p><p>　　上面介紹了系統(tǒng)的各個模塊的界面設計，下面就是將實現系統(tǒng)各個模塊的代碼，并對其進行分析。</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>　　'記錄確定次數</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是用來存放SQL語句，MsgText存放返回信息</p><p>　　UserName = ""</p><p>　　If Trim(txtUserName.Text = "") Then</p><p>　　'判斷用戶名輸入是否為空</p><p>　　Msg

63、Box "沒有這個用戶，請重新輸入用戶名！", 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>　　'對所輸入的用戶名進行查詢</p><p>　　Set mrc = ExecuteSQL(txtSQL, MsgText)</p><p>　　If mrc.EOF = True T

65、hen</p><p>　　MsgBox "沒有這個用戶，請重新輸入用戶名!", 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>　　'記錄用戶名和密碼到全局變量</p><p><b>　　Else</b></p><p>　　MsgBox "輸入密碼不正確，請重新輸入！", 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>　　'記錄密碼輸入的次數，累計到3此則自動結束程序</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 "請輸入房屋編號！", 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 "請輸入房型！", 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、"請輸入建筑面積！", 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 "請輸入使用面積！", 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 "請輸入當前住戶！", 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 "請先修改房型資料信息", 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 "請輸入房型編號！", 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、"請輸入房型！", 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 "請輸入建筑面積", 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 "請輸入使用面積！", 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>　　'導航按鈕有效</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>　　查詢房屋信息代碼：</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 = "電話不能為空"</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 "請設置查詢方式！", 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 產品質量管理系統(tǒng)測試與試運行</p><p>　　6.1 數據源的創(chuàng)建</p><p>　　在程序運行之前不需先設置數據源管理器(ODBC)。具體步驟如下：</p><p>　　在Windows桌面上選擇“開始”→“設置”→“控制面板”菜單命令，在“控制面板”窗口中雙擊“管理工具”圖標，在“管理工

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

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

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

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

122、燈壞掉”的報修信息，將維修費改為“10”，單擊保存按鈕，效果如圖6.9所示。</p><p>　　圖6.9 編輯報修信息</p><p>　　還可以對數據庫中的數據進行查詢操作，選擇“房屋管理”|“查詢房屋信息命令，進入查詢界面。按照標識輸入數據后，單擊“查詢”按鈕即可進行查詢操作。查詢房屋編號為“012”的房屋的結果如圖6.10所示。</p><p>　　圖6.1

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

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

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