1、【摘要】本文通過用VB 6.0編寫小區(qū)物業(yè)管理系統(tǒng)，利用軟件工程原理，采用生命周期方法學(xué)，其開發(fā)主要包括后臺(tái)數(shù)據(jù)庫的建立和維護(hù)以及前端應(yīng)用程序的開發(fā)兩個(gè)方面，實(shí)現(xiàn)了小區(qū)信息數(shù)據(jù)庫的創(chuàng)建及各種費(fèi)用的收取、統(tǒng)計(jì)、匯總。本文還簡(jiǎn)單介紹了vB6.0軟件的界面及操作方法。簡(jiǎn)要介紹了窗體的制作過程，程序的編寫，添加，最后的編譯過程。并且敘述了作者在軟件開發(fā)過程中的心得體會(huì)。本系統(tǒng)可以實(shí)現(xiàn)如下功能：1系統(tǒng)登錄：包括用戶登錄，修改密碼，添加用戶,退出系統(tǒng)。1 基本資料：包括住戶資料和財(cái)產(chǎn)資料信息管理2 物業(yè)管理：包括物業(yè)設(shè)備,儀表數(shù)據(jù),停車場(chǎng)管理,收費(fèi)管理,住戶投訴,住戶報(bào)修管理,設(shè)備維修管理等.3 數(shù)據(jù)報(bào)表

2、統(tǒng)計(jì)：包括物業(yè)設(shè)備,儀表數(shù)據(jù)統(tǒng)計(jì),收費(fèi)統(tǒng)計(jì),住戶投訴統(tǒng)計(jì),住戶報(bào)修統(tǒng)計(jì),設(shè)備維修統(tǒng)計(jì)等.本系統(tǒng)投入使用后，改變了以往小區(qū)物業(yè)管理過程中的手工操作方式，提高了小區(qū)物業(yè)管理的效率，起到了良好的社會(huì)效果和經(jīng)濟(jì)效益。關(guān)鍵詞：小區(qū)物業(yè)管理 數(shù)據(jù)庫 統(tǒng)計(jì) 匯總【Abstract】This text passes and uses VB 6. 0 writes the administrative system of the property, utilize the soft project principle , adopt the cycle method of the life to study,

3、it develops two respects of main development including setting-up and maintenance and front application program of backstage supporter's database , realized the establishment of the information database of the district and collecting , statistics , gathering of different expenses.This text has a

4、lso introduced vfp6 briefly. The interface of 0 software and working technique. Having introduced the making course of the form briefly, the writing of the procedure, add , the last course of compiling. And has narrated author's gains in depth of comprehension in the course of software developme

5、nt。This system can carry out as follows function:1. system login :Include the customer logging, the modification password, increase the customer, withdraw the system.1.Basic data :Include inhabitant's data and the property data information management2.Thing industry management :Include the thing

6、 industry equipments, the appearance data, parking lot management, charge the management, inhabitant the hurl tell, inhabitant the report fix the management, the equipments maintains the management etc.3.Data statement Statistics: Include the thing industry equipments, the appearance data statistics

7、, charging the covariance, inhabitant the hurl tells the covariance, inhabitant the report fixs the covariance, the equipments maintains to statistics etc.After putting this system into use, it changed former small area industry management handicraft within process operation method, raised the small

8、 area thing industry management of efficiency, rose the good social result and economic performances.Keyword : Estate management Database Statistics Gather目錄第一章 引言4第二章 系統(tǒng)分析52.1開發(fā)背景52.2需求分析52.3概要72.4 Microsoft Visual Basic 6.0軟件簡(jiǎn)介7第三章 系統(tǒng)設(shè)計(jì)183.1業(yè)務(wù)流程圖183.2數(shù)據(jù)庫設(shè)計(jì)193.3系統(tǒng)詳細(xì)設(shè)計(jì)233.4其他窗體詳細(xì)設(shè)計(jì)243.4.1系統(tǒng)登錄界面設(shè)計(jì)253

9、.4.2基本資料模塊的設(shè)計(jì)353.4.3物業(yè)管理模塊的設(shè)計(jì)353.4.4數(shù)據(jù)報(bào)表統(tǒng)計(jì)模塊的設(shè)計(jì)36第四章 主菜單的設(shè)計(jì)及系統(tǒng)實(shí)現(xiàn).36結(jié) 論38參考文獻(xiàn)39第一章 引言本軟件使用Microsoft Visual Basic 6.0進(jìn)行編寫。數(shù)據(jù)庫技術(shù)的產(chǎn)生與發(fā)展源于對(duì)于數(shù)據(jù)的組織和管理。數(shù)據(jù)庫技術(shù)是數(shù)據(jù)管理的技術(shù)，它隨著數(shù)據(jù)管理任務(wù)的需要而產(chǎn)生于20世紀(jì)60年代中期。這是一門綜合性技術(shù)，涉及操作系統(tǒng)，數(shù)據(jù)結(jié)構(gòu)，算法設(shè)計(jì)和程序設(shè)計(jì)等知識(shí)。數(shù)據(jù)庫技術(shù)的基本思想是對(duì)數(shù)據(jù)實(shí)行集中，統(tǒng)一，獨(dú)立的管理，用戶可以最大限度的共享數(shù)據(jù)資源。數(shù)據(jù)庫系統(tǒng)實(shí)際上是一個(gè)應(yīng)用系統(tǒng)，它是在計(jì)算機(jī)硬，軟件系統(tǒng)支持下，由用戶，

10、數(shù)據(jù)庫管理系統(tǒng)，存儲(chǔ)在存儲(chǔ)設(shè)備上的數(shù)據(jù)和數(shù)據(jù)庫應(yīng)用程序構(gòu)成的數(shù)據(jù)處理系統(tǒng)。數(shù)據(jù)庫系統(tǒng)是由數(shù)據(jù)，數(shù)據(jù)庫管理系統(tǒng)，應(yīng)用程序，用戶組成。數(shù)據(jù)庫的特點(diǎn)：1.實(shí)現(xiàn)數(shù)據(jù)共享 2.實(shí)現(xiàn)數(shù)據(jù)獨(dú)立3.減少了數(shù)據(jù)冗余度 4.避免了數(shù)據(jù)不一致性5.加強(qiáng)了對(duì)數(shù)據(jù)的保護(hù)。數(shù)據(jù)庫應(yīng)用系統(tǒng)（DATABASE APPLICATION SYSTEMS DBAS）1 管理信息系統(tǒng)2 開放式信息服務(wù)系統(tǒng)一個(gè)數(shù)據(jù)庫應(yīng)用系統(tǒng)通常是由數(shù)據(jù)庫和應(yīng)用程序兩部分組成，它們是在數(shù)據(jù)庫管理系統(tǒng)支持下設(shè)計(jì)和開發(fā)出來的。第二章 系統(tǒng)分析2.1開發(fā)背景隨著我國市場(chǎng)經(jīng)濟(jì)的快速發(fā)展和人們生活水平的不斷提高，簡(jiǎn)單的社區(qū)服務(wù)已經(jīng)不能滿足人們的需求。如何利用先進(jìn)

11、的管理手段，提高物業(yè)管理水平，是當(dāng)今社會(huì)所面臨的一個(gè)重要課題。要想提高物業(yè)管理水平，必須全方位地提高物業(yè)管理意識(shí)。只有高標(biāo)準(zhǔn)、高質(zhì)量的社區(qū)服務(wù)才能滿足人們的需求。面對(duì)信息時(shí)代的挑戰(zhàn)，利用高科技手段來提高物業(yè)管理無疑是一條行之有效的途徑。在某種意義上，信息與科技在物業(yè)管理與現(xiàn)代化建設(shè)中顯現(xiàn)出越來越重要的地位。物業(yè)管理方面的信息化與科學(xué)化，已成為現(xiàn)代化生活水平步入高臺(tái)階的重要標(biāo)志。2.2需求分析 某小區(qū)位于我市西郊，綠化面積1200多平方米，占地面積100000，建筑面積680000多平方米，24小時(shí)保安巡邏，環(huán)境幽雅、周邊配套設(shè)施完善，實(shí)行封閉式管理，小區(qū)現(xiàn)居住約2萬人。由于管理面積大，戶數(shù)多，

12、物業(yè)管理范圍廣，管理內(nèi)容繁雜，小區(qū)物業(yè)管理混亂的問題一直無法解決。再者，小區(qū)物業(yè)管理中一項(xiàng)重要的工作是計(jì)算、匯總各項(xiàng)費(fèi)用，由于費(fèi)用項(xiàng)目較多，計(jì)算方法繁重，手工處理差錯(cuò)率較高。同時(shí)查詢某房產(chǎn)資料或業(yè)主資料往往也需要較長(zhǎng)時(shí)間，給物業(yè)管理者的工作帶來了諸多弊端。因此該物業(yè)公司決定采用計(jì)算機(jī)進(jìn)行物業(yè)管理。根據(jù)該小區(qū)具體情況，該系統(tǒng)在實(shí)施后，能夠滿足對(duì)小區(qū)住戶資料、財(cái)產(chǎn)資源統(tǒng)計(jì)、小區(qū)投訴、裝修、維修、等進(jìn)行管理，能夠滿足對(duì)水、電表抄收、統(tǒng)計(jì)、核算、各項(xiàng)費(fèi)用統(tǒng)計(jì)匯總。該系統(tǒng)的實(shí)施為小區(qū)日后發(fā)展奠定了新的臺(tái)階。根據(jù)該物業(yè)的具體情況，系統(tǒng)主要包括以下4個(gè)模塊：系統(tǒng)登錄,基本資料,物業(yè)管理,數(shù)據(jù)報(bào)表統(tǒng)計(jì)等.2.

13、3概要Visual Basic是美國微軟公司的第一個(gè)編程工具和系統(tǒng)開發(fā)的第一個(gè)產(chǎn)品，Visual Basic以優(yōu)良的性能、較強(qiáng)的系統(tǒng)開發(fā)功能、完美的視覺界面和簡(jiǎn)單易學(xué)的特點(diǎn)，已經(jīng)贏得了全世界廣大用戶的偏愛。Visual Basic的編程環(huán)境包含了快速有效的開發(fā)功能，尤其是數(shù)據(jù)窗口這一方便而簡(jiǎn)潔操縱數(shù)據(jù)庫的智能化對(duì)象，使系統(tǒng)的開發(fā)更人性化，操作更簡(jiǎn)便。作為管理信息系統(tǒng)的開發(fā)，Visual Basic是一個(gè)非常理想選擇。Visual Basic是一種可視化的、面對(duì)對(duì)象和條用事件驅(qū)動(dòng)方式的結(jié)構(gòu)化高級(jí)程序設(shè)計(jì)，可用于開發(fā)Windows環(huán)境下的種類應(yīng)用程序。它簡(jiǎn)單易學(xué)、效率高，且功能強(qiáng)大，可以與Wind

14、ows的專業(yè)開發(fā)工具SDK相媲美，而且程序開發(fā)人員不必具有C/C+編程基礎(chǔ)。在Visual Basic環(huán)境下，利用事件驅(qū)動(dòng)的編程機(jī)制、新穎易用的可視化設(shè)計(jì)工具，使用Windows內(nèi)部的應(yīng)用程序接口(API)函數(shù)，以及動(dòng)態(tài)鏈接庫(DLL)、動(dòng)態(tài)數(shù)據(jù)交換(DDE)、對(duì)象的鏈接與嵌入(OLE)、開放式數(shù)據(jù)訪問(ODBC)等技術(shù)，可以高效、快速地開發(fā)出Windows環(huán)境下功能強(qiáng)大、圖形界面豐富的應(yīng)用軟件系統(tǒng)。2.4 Microsoft Visual FoxPro 6.0軟件簡(jiǎn)介 現(xiàn)在，市場(chǎng)上可以選購的應(yīng)用開發(fā)產(chǎn)品很多，流行的也有數(shù)十種。目前在我國市場(chǎng)上最為流行、使用最多、最為先進(jìn)的可用作做作企業(yè)級(jí)開發(fā)

15、工具的產(chǎn)品有：Microsoft公司的Visual BasicMicrosoft公司的Visual CBorland公司的Delphi Powersoft公司的PowerBuliderJava等等在目前市場(chǎng)上這些眾多的程序開發(fā)工具中，有些強(qiáng)調(diào)程語言的彈性與執(zhí)行效率；有些則偏重于可視化程序開發(fā)工具所帶來的便利性與效率的得高，各有各的優(yōu)點(diǎn)和特色，也滿足了不同用戶的需求。然而，語言的彈性和工具的便利性是密不可分的，只有便利的工具，卻沒有彈性的語言作支持，許多特殊化的處理動(dòng)作必需要耗費(fèi)數(shù)倍的工夫來處理，使得原來所標(biāo)榜的效率提高的優(yōu)點(diǎn)失去了作用；相反，如果只強(qiáng)調(diào)程語言的彈性，卻沒有便利的工具作配合，會(huì)使

16、一些即使非常簡(jiǎn)單的界面處理動(dòng)作，也會(huì)嚴(yán)重地浪費(fèi)程序設(shè)計(jì)師的寶貴時(shí)間。作為數(shù)據(jù)庫系統(tǒng)的開發(fā)，Visual Basic是一個(gè)非常理想選擇。數(shù)據(jù)庫是MIS中的重要支持技術(shù)，在MIS開發(fā)過程中，如何選擇數(shù)據(jù)庫管理是一個(gè)重要的問題，目前，數(shù)據(jù)庫產(chǎn)品較多，每種產(chǎn)品都具有各自的特點(diǎn)和適用范圍，因此，在選擇數(shù)據(jù)庫時(shí)，應(yīng)考慮數(shù)據(jù)庫應(yīng)用的特點(diǎn)及適用范圍，本系統(tǒng)選用的數(shù)據(jù)庫語言Visual Basic語言，該開發(fā)工具具有很多長(zhǎng)處：Visual Basic是一種可視化的、面對(duì)對(duì)象和條用事件驅(qū)動(dòng)方式的結(jié)構(gòu)化高級(jí)程序設(shè)計(jì)，可用于開發(fā)Windows環(huán)境下的種類應(yīng)用程序。它簡(jiǎn)單易學(xué)、效率高，且功能強(qiáng)大，可以與Windows的

17、專業(yè)開發(fā)工具SDK相媲美，而且程序開發(fā)人員不必具有C/C+編程基礎(chǔ)。在Visual Basic環(huán)境下，利用事件驅(qū)動(dòng)的編程機(jī)制、新穎易用的可視化設(shè)計(jì)工具，使用Windows內(nèi)部的應(yīng)用程序接口(API)函數(shù)，以及動(dòng)態(tài)鏈接庫(DLL)、動(dòng)態(tài)數(shù)據(jù)交換(DDE)、對(duì)象的鏈接與嵌入(OLE)、開放式數(shù)據(jù)訪問(ODBC)等技術(shù)，可以高效、快速地開發(fā)出Windows環(huán)境下功能強(qiáng)大、圖形界面豐富的應(yīng)用軟件系統(tǒng)。總的來說，Visual Basic具有以下特點(diǎn)：可視化編程：用傳統(tǒng)程序設(shè)計(jì)語言設(shè)計(jì)程序時(shí)，都是通過編寫程序代碼來設(shè)計(jì)用戶界面，在設(shè)計(jì)過程中看不到界面的實(shí)際顯示效果，必須編譯后運(yùn)行程序才能觀察。如果對(duì)界面的

18、效果不滿意，還要回到程序中修改。有時(shí)候，這種編程-編譯-修改的操作可能要反復(fù)多次，大大影響了軟件開發(fā)效率。Visual Basic提供了可視化設(shè)計(jì)工具，把Windows界面設(shè)計(jì)的復(fù)雜性“封裝”起來，開發(fā)人員不必為界面設(shè)計(jì)而編寫大量程序代碼。只需要按設(shè)計(jì)要求的屏幕布局，用系統(tǒng)提供的工具，在屏幕上畫出各種“部件”，即圖形對(duì)象，并設(shè)置這些圖形對(duì)象的屬性。Visual Basic自動(dòng)產(chǎn)生界面設(shè)計(jì)代碼，程序設(shè)計(jì)人員只需要編寫實(shí)現(xiàn)程序功能的那部分代碼，從而可以大大提高程序設(shè)計(jì)的效率。面向?qū)ο蟮某绦蛟O(shè)計(jì)4.0版以后的Visual Basic支持面向?qū)ο蟮某绦蛟O(shè)計(jì)，但它與一般的面向?qū)ο蟮某绦蛟O(shè)計(jì)語言(C+)不

19、完全相同。在一般的面向?qū)ο蟪绦蛟O(shè)計(jì)語言中，對(duì)象由程序代碼和數(shù)據(jù)組成，是抽象的概念；而Visual Basic則是應(yīng)用面向?qū)ο蟮某绦蛟O(shè)計(jì)方法(OOP)，把程序和數(shù)據(jù)封裝起來作為一個(gè)對(duì)象，并為每個(gè)對(duì)象賦予應(yīng)有的屬性，使對(duì)象成為實(shí)在的東西。在設(shè)計(jì)對(duì)象時(shí)，不必編寫建立和描述每個(gè)對(duì)象的程序代碼，而是用工具畫在界面上，Visual Basic自動(dòng)生成對(duì)象的程序代碼并封裝起來。每個(gè)對(duì)象以圖形方式顯示在界面上，都是可視的。結(jié)構(gòu)化程序設(shè)計(jì)語言Visual Basic是在BASIC語言的基礎(chǔ)上發(fā)展起來的，具有高級(jí)程序設(shè)計(jì)語言的語句結(jié)構(gòu)，接近于自然語言和人類的邏輯思維方式。Visual Basic語句簡(jiǎn)單易懂，其編

20、輯器支持彩色代碼，可自動(dòng)進(jìn)行語法錯(cuò)誤檢查，同時(shí)具有功能強(qiáng)大且使用靈活的調(diào)試器和編譯器。Visual Basic是解釋型語言，在輸入代碼的同時(shí)，解釋系統(tǒng)將高級(jí)語言分解翻譯成計(jì)算機(jī)可以識(shí)別的機(jī)器指令，并判斷每個(gè)語句的語法錯(cuò)誤。在設(shè)計(jì)Visual Basic程序的過程中，隨時(shí)可以運(yùn)行程序，而在整個(gè)程序設(shè)計(jì)好之后，可以編譯生成可執(zhí)行文件(.EXE)，脫離Visual Basic環(huán)境，直接在Windows環(huán)境下運(yùn)行。事件驅(qū)動(dòng)編程機(jī)制Visual Basic通過事件來執(zhí)行對(duì)象的操作。一個(gè)對(duì)象可能會(huì)產(chǎn)生多個(gè)事件，每個(gè)事件都可以通過一段程序來響應(yīng)。例如，命令按鈕是一個(gè)對(duì)象，當(dāng)用戶單擊該按鈕時(shí)，將產(chǎn)生一個(gè)“單擊

21、”(CLICK)事件，而在產(chǎn)生該事件時(shí)將執(zhí)行一段程序，用來實(shí)現(xiàn)指定的操作。在用Visual Basic設(shè)計(jì)大型應(yīng)用軟件時(shí)，不必建立具有明顯開始和結(jié)束的程序，而是編寫若干個(gè)微小的子程序，即過程。這些過程分別面向不同的對(duì)象，由用戶操作引發(fā)某個(gè)事件來驅(qū)動(dòng)完成某種特定的功能，或者由事件驅(qū)動(dòng)程序調(diào)用通用過程來執(zhí)行指定的操作，這樣可以方便編程人員，提高效率。訪問數(shù)據(jù)庫Visual Basic具有強(qiáng)大的數(shù)據(jù)庫管理功能，利用數(shù)據(jù)控件和數(shù)據(jù)庫管理窗口，可以直接建立或處理Microsoft Access格式的數(shù)據(jù)庫，并提供了強(qiáng)大的數(shù)據(jù)存儲(chǔ)和檢索功能。同時(shí)，Visual Basic還能直接編輯和訪問其他外部數(shù)據(jù)庫，

22、如dBASE，F(xiàn)oxPro，Paradox等，這些數(shù)據(jù)庫格式都可以用Visual Basic編輯和處理。Visual Basic提供開放式數(shù)據(jù)連接，即ODBC功能，可通過直接訪問或建立連接的方式使用并操作后臺(tái)大型網(wǎng)絡(luò)數(shù)據(jù)庫，如SQL Server，Oracle等。在應(yīng)用程序中，可以使用結(jié)構(gòu)化查詢語言SQL數(shù)據(jù)標(biāo)準(zhǔn)，直接訪問服務(wù)器上的數(shù)據(jù)庫，并提供了簡(jiǎn)單的面向?qū)ο蟮膸觳僮髦噶詈投嘤脩魯?shù)據(jù)庫訪問的加鎖機(jī)制和網(wǎng)絡(luò)數(shù)據(jù)庫的SQL的編程技術(shù)，為單機(jī)上運(yùn)行的數(shù)據(jù)庫提供了SQL網(wǎng)絡(luò)接口，以便在分布式環(huán)境中快速而有效地實(shí)現(xiàn)客戶/服務(wù)器(client/server)方案。動(dòng)態(tài)數(shù)據(jù)交換(DDE)利用動(dòng)態(tài)數(shù)據(jù)交換(

23、Dynamic Data Exchange)技術(shù)，可以把一種應(yīng)用程序中的數(shù)據(jù)動(dòng)態(tài)地鏈接到另一種應(yīng)用程序中，使兩種完全不同的應(yīng)用程序建立起一條動(dòng)態(tài)數(shù)據(jù)鏈路。當(dāng)原始數(shù)據(jù)變化時(shí)，可以自動(dòng)更新鏈接的數(shù)據(jù)。Visual Basic提供了動(dòng)態(tài)數(shù)據(jù)交換的編程技術(shù)，可以在應(yīng)用程序中與其他Windows應(yīng)用程序建立動(dòng)態(tài)數(shù)據(jù)交換，在不同的應(yīng)用程序之間進(jìn)行通信。對(duì)象的鏈接與嵌入(OLE)對(duì)象的鏈接與嵌入(OLE)將每個(gè)應(yīng)用程序都看作是一個(gè)對(duì)象(object)，將不同的對(duì)象鏈接(link)起來，再嵌入(embed)某個(gè)應(yīng)用程序中，從而可以得到具有聲音、影像、圖像、動(dòng)畫、文字等各種信息的集合式的文件。OLE技術(shù)是Mic

24、rosoft公司對(duì)象技術(shù)的戰(zhàn)略，它把多個(gè)應(yīng)用程序合為一體，將每個(gè)應(yīng)用程序看作是一個(gè)對(duì)象進(jìn)行鏈接和嵌入，是一種應(yīng)用程序一體化的技術(shù)。利用OLE技術(shù)，可以方便地建立復(fù)合式文檔(compound document)，這種文檔由來自多個(gè)不同應(yīng)用程序的對(duì)象組成，文檔中的每個(gè)對(duì)象都與原來的應(yīng)用程序相聯(lián)系，并可執(zhí)行與原來應(yīng)用程序完全相同的操作。動(dòng)態(tài)鏈接庫(DLL)Visual Basic是一種高級(jí)程序設(shè)計(jì)語言，不具備低級(jí)語言的功能，對(duì)訪問機(jī)器硬件的操作不太容易實(shí)現(xiàn)。但它可以通過動(dòng)態(tài)鏈接庫技術(shù)將C/C+或匯編語言編寫的程序加入到Visual Basic應(yīng)用程序中，可以像調(diào)用內(nèi)部函數(shù)一樣調(diào)用其他語言編寫的函數(shù)。

25、此外，通過動(dòng)態(tài)鏈接庫，還可以調(diào)用Windows應(yīng)用程序接口(API)函數(shù)，實(shí)現(xiàn)SDK所具有的功能第三章 系統(tǒng)設(shè)計(jì)3.1 業(yè)務(wù)流程圖 根據(jù)該小區(qū)物業(yè)管理的特點(diǎn)和該小區(qū)的實(shí)際情況，物業(yè)管理系統(tǒng)流程如下圖所示。交水電氣費(fèi)、業(yè)主 通知房屋簽約 業(yè)主入戶 水電氣讀表 物業(yè)管理 申請(qǐng)裝修 填寫收費(fèi)通知單 裝修 系統(tǒng)主要功能包括4 系統(tǒng)登錄：包括用戶登錄，修改密碼，添加用戶,退出系統(tǒng)。5 基本資料：包括住戶資料和財(cái)產(chǎn)資料6 物業(yè)管理：包括物業(yè)設(shè)備,儀表數(shù)據(jù),停車場(chǎng)管理,收費(fèi)管理,住戶投訴,住戶報(bào)修管理,設(shè)備維修管理等.7 數(shù)據(jù)報(bào)表統(tǒng)計(jì)：包括物業(yè)設(shè)備,儀表數(shù)據(jù)統(tǒng)計(jì),收費(fèi)統(tǒng)計(jì),信戶投訴統(tǒng)計(jì),信戶報(bào)修統(tǒng)計(jì),設(shè)備維

26、修統(tǒng)計(jì)等.3.2數(shù)據(jù)庫設(shè)計(jì)根據(jù)該公司業(yè)務(wù)情況和行業(yè)特點(diǎn)，本系統(tǒng)采用了ACCESS數(shù)據(jù)庫，數(shù)據(jù)庫名稱為XiaoQuGuanLi,包含以下幾個(gè)表：報(bào)修表(BaoXiu)，Client表，Emp表，Equipment表，Gas表,House表,Park表,Power表,Repair表,Tousu表,UserTable表,Water表,WuyeFee表,YiBiaoFee表.現(xiàn)將各表的結(jié)構(gòu)說明如下:3.3 系統(tǒng)的詳細(xì)設(shè)計(jì)主程序界面設(shè)計(jì)3.4其他窗體設(shè)計(jì)(因本設(shè)計(jì)涉及的窗體比較多,故我們只選取有代表性的窗體加以重點(diǎn)描述)3.4.1 系統(tǒng)登陸界面設(shè)計(jì) 如圖所示,新建一個(gè)窗體,在窗體中添加二個(gè)Lable控件

27、，二個(gè)TextBox控件,二個(gè)commandButton控件,設(shè)置其屬性。然后添加程序代碼。其中登錄按鈕的源碼如下:Private Sub cmdLogin_Click() '首先檢查用戶是否輸入了用戶名和密碼 If txtUser.Text = "" Then MsgBox "請(qǐng)輸入用戶名！", vbOKOnly + vbInformation, "注意" txtUser.SetFocus Exit Sub ElseIf txtPwd.Text = "" Then MsgBox "請(qǐng)輸入密碼！&

28、quot;, vbOKOnly + vbInformation, "注意" txtPwd.SetFocus Exit Sub End If Dim sqluser As String '構(gòu)造查詢?cè)撚脩裘兔艽a的sql語句 sqluser = "select * from UserTable where Username = '" & txtUser.Text _ & "' and Password = '" & txtPwd.Text & "'"

29、; rs_user.CursorLocation = adUseClient '打開數(shù)據(jù)游標(biāo) rs_user.Open sqluser, conn, adOpenKeyset, adLockPessimistic If rs_user.EOF = True Then MsgBox "用戶名或密碼不正確！", vbOKOnly + vbInformation, "注意" rs_user.Close '清空txtUser和txtPwd文本框 txtUser.Text = "" txtPwd.Text = "&qu

30、ot; Exit Sub Else '還需使其他菜單可用 MDIfrmMain.mnAddUser.Enabled = True MDIfrmMain.mnBasicData.Enabled = True MDIfrmMain.mnWuYe.Enabled = True MDIfrmMain.mnDataTg.Enabled = True '提示用戶登錄成功并關(guān)閉游標(biāo)和登錄窗口 MsgBox "登錄成功！", vbOKOnly + vbInformation, "注意" rs_user.Close Unload Me End If End

31、 Sub3.4.2基本資料模塊的設(shè)計(jì) 同理窗體中的控件的添加比較直接,參照登錄窗體的設(shè)計(jì),并添加相關(guān)代碼.其中重點(diǎn)分析按鈕源碼如下:。添加按鈕的代碼：Private Sub cmdAdd_Click() '設(shè)置除保存和取消按鈕外的其他按鈕不可用 cmdAdd.Enabled = False cmdEdit.Enabled = False cmdDel.Enabled = False cmdSave.Enabled = True cmdCancel.Enabled = True cmdFirst.Enabled = False cmdPrev.Enabled = False cmdNex

32、t.Enabled = False cmdLast.Enabled = False cmdQuery.Enabled = False '需要清空所有text框，并且設(shè)置它們可寫 For i = 0 To 14 Text1(i).Text = "" Text1(i).Enabled = True Next i Combo1.Enabled = True 'add變量用于保存時(shí)判斷是從添加還是修改后保存 add = 1 Text1(0).SetFocus Text1(13).Text = DateEnd Sub修改按鈕的源碼:Private Sub cmdEdi

33、t_Click() '設(shè)置除保存和取消按鈕外的其他按鈕不可用 cmdAdd.Enabled = False cmdEdit.Enabled = False cmdDel.Enabled = False cmdSave.Enabled = True cmdCancel.Enabled = True cmdFirst.Enabled = False cmdPrev.Enabled = False cmdNext.Enabled = False cmdLast.Enabled = False cmdQuery.Enabled = False '需要設(shè)置除主鍵之外的text框可寫 Fo

34、r i = 1 To 14 Text1(i).Enabled = True Next i Combo1.Enabled = True add = 0End Sub刪除按鈕的源碼如下:Private Sub cmdDel_Click() '當(dāng)單擊刪除記錄時(shí)，需要彈出一個(gè)提示框，警告用戶 Dim answer As String answer = MsgBox("確定要?jiǎng)h除嗎？", vbYesNo, "") '確實(shí)刪除 If answer = vbYes Then rs_client.Delete '刪除當(dāng)前記錄 rs_client.

35、Update '更新刪除 MsgBox "成功刪除！", vbOKOnly + vbExclamation, "" Else Exit Sub End If '刪除之后，顯示總信息條數(shù)需要減 1 Text2.Text = Val(Text2.Text) - 1 '刪除當(dāng)前記錄后，需要顯示下一條記錄，如果刪除的是最后一條記錄，則顯示上一條記錄 '先移動(dòng)rs_client記錄到后一條 rs_client.MoveNext If rs_client.EOF Then rs_client.MovePrevious '如果沒

36、有到記錄首則顯示改記錄 If Not rs_client.BOF Then For i = 0 To 14 Text1(i).Text = rs_client.Fields(i) Next i If rs_client.Fields(15) = "男" Then Combo1.ListIndex = 0 Else Combo1.ListIndex = 1 End If '如果到記錄首，則表格已經(jīng)為空，置所有text框顯示為空 ElseIf rs_client.BOF Then For i = 0 To 14 Text1(i).Text = ""

37、Next i End If '如果刪除的不是首尾記錄，則顯示當(dāng)前記錄即可 Else For i = 0 To 14 Text1(i).Text = rs_client.Fields(i) Next i If rs_client.Fields(15) = "男" Then Combo1.ListIndex = 0 Else Combo1.ListIndex = 1 End If End If End Sub保存按鈕的源碼如下:Private Sub cmdSave_Click() '檢測(cè)數(shù)據(jù)是否完整 If Text1(0).Text = ""

38、; Then MsgBox "住戶編號(hào)不可為空！", vbOKOnly + vbInformation, "注意" Text1(0).SetFocus Exit Sub ElseIf Text1(1).Text = "" Then MsgBox "物業(yè)地址不可為空！", vbOKOnly + vbInformation, "注意" Text1(1).SetFocus Exit Sub ElseIf Text1(3).Text = "" Or IsNumeric(Text1(3

39、).Text) = False Then MsgBox "建筑面積應(yīng)為數(shù)字！", vbOKOnly + vbInformation, "注意" Text1(3).SetFocus Exit Sub ElseIf Text1(4).Text = "" Or IsNumeric(Text1(4).Text) = False Then MsgBox "使用面積應(yīng)為數(shù)字！", vbOKOnly + vbInformation, "注意" Text1(4).SetFocus Exit Sub ElseIf

40、 Text1(5).Text = "" Then MsgBox "業(yè)主姓名不可為空！", vbOKOnly + vbInformation, "注意" Text1(5).SetFocus Exit Sub ElseIf IsDate(Text1(13).Text) = False Then MsgBox "入住日期書寫不對(duì)，應(yīng)為2000-1-1這樣的格式！", vbOKOnly + vbInformation, "注意" Text1(13).SetFocus Exit Sub ElseIf No

41、t Text1(14).Text = "" And IsDate(Text1(14).Text) = False Then MsgBox "遷出時(shí)間應(yīng)為空或2000-1-1這樣的格式！", vbOKOnly + vbInformation, "注意" Text1(14).SetFocus Exit Sub End If '添加數(shù)據(jù)后保存 If add = 1 Then '檢測(cè)住戶編號(hào)這個(gè)主鍵是否已經(jīng)在表中存在 Dim rs_check As New ADODB.Recordset Dim sqlCheck As Str

42、ing sqlCheck = "select * from Client where 住戶編號(hào)= '" & (Text1(0).Text) & "'" rs_check.Open sqlCheck, conn, adOpenStatic, adLockOptimistic If Not rs_check.EOF And Not rs_check.BOF Then MsgBox "該住戶編號(hào)已經(jīng)存在，請(qǐng)重填一個(gè)！", vbOKOnly + vbInformation, "注意" rs_

43、check.Close Text1(0).SetFocus Text1(0).Text = "" Exit Sub End If rs_check.Close '主鍵不重復(fù)，可以加入表中 rs_client.AddNew For i = 0 To 14 rs_client.Fields(i) = Text1(i).Text Next i rs_client.Fields(15) = Combo1.Text rs_client.Update '添加保存之后，顯示總信息條數(shù)需要加1 Text2.Text = Val(Text2.Text) - 1 '修改

44、數(shù)據(jù)后的保存 Else rs_client.Update End If MsgBox "保存數(shù)據(jù)成功！", vbOKOnly + vbInformation, "祝賀" '保存后需要設(shè)置其他按鈕可用，以及各個(gè)text框不可寫 cmdAdd.Enabled = True cmdEdit.Enabled = True cmdDel.Enabled = True cmdSave.Enabled = False cmdCancel.Enabled = False cmdFirst.Enabled = True cmdPrev.Enabled = True

45、 cmdNext.Enabled = True cmdLast.Enabled = True cmdQuery.Enabled = True For i = 0 To 14 Text1(i).Enabled = False Next i Combo1.Enabled = FalseEnd Sub3.4.3物業(yè)管理模塊設(shè)計(jì)其中添加,修改,刪除按包的源碼設(shè)計(jì)同上,重點(diǎn)分析保存按鈕的源碼如下:Private Sub cmdSave_Click() '檢測(cè)數(shù)據(jù)是否完整 If Text1(0).Text = "" Then MsgBox "設(shè)備編號(hào)不可為空！&quo

46、t;, vbOKOnly + vbInformation, "注意" Text1(0).SetFocus Exit Sub ElseIf Text1(1).Text = "" Then MsgBox "設(shè)備名稱不可為空！", vbOKOnly + vbInformation, "注意" Text1(1).SetFocus Exit Sub ElseIf IsDate(Text1(5).Text) = False Then MsgBox "購買日期書寫不對(duì)，應(yīng)為2000-1-1這樣的格式！", v

47、bOKOnly + vbInformation, "注意" Text1(5).SetFocus Exit Sub End If '添加數(shù)據(jù)后保存 If add = 1 Then '檢測(cè)房間編號(hào)這個(gè)主鍵是否已經(jīng)在表中存在 Dim rs_check As New ADODB.Recordset Dim sqlCheck As String sqlCheck = "select * from Equipment where 設(shè)備編號(hào)= '" & (Text1(0).Text) & "'" rs

48、_check.Open sqlCheck, conn, adOpenStatic, adLockOptimistic If Not rs_check.EOF And Not rs_check.BOF Then MsgBox "該設(shè)備編號(hào)已經(jīng)存在，請(qǐng)重填一個(gè)！", vbOKOnly + vbInformation, "注意" rs_check.Close Text1(0).SetFocus Text1(0).Text = "" Exit Sub End If rs_check.Close '主鍵不重復(fù)，可以加入表中 rs_equ

49、ip.AddNew For i = 0 To 6 rs_equip.Fields(i) = Text1(i).Text Next i rs_equip.Update '添加之后顯示總共條數(shù)信息加 1 Text2.Text = Val(Text2.Text) + 1 '修改數(shù)據(jù)后的保存 Else rs_equip.Update End If MsgBox "保存數(shù)據(jù)成功！", vbOKOnly + vbInformation, "祝賀" '保存后需要設(shè)置其他按鈕可用，以及各個(gè)text框不可寫 cmdAdd.Enabled = Tru

50、e cmdEdit.Enabled = True cmdDel.Enabled = True cmdSave.Enabled = False cmdCancel.Enabled = False cmdFirst.Enabled = True cmdPrev.Enabled = True cmdNext.Enabled = True cmdLast.Enabled = True cmdQuery.Enabled = True For i = 0 To 6 Text1(i).Enabled = False Next i End Sub(該模塊其它幾個(gè)窗體的設(shè)計(jì)跟此窗體的設(shè)計(jì)雷同)3.4.4數(shù)據(jù)報(bào)表統(tǒng)計(jì)的設(shè)計(jì)物業(yè)設(shè)備統(tǒng)計(jì)其中排序按鈕的源碼如下:Private Sub cmdOrder_Click() Dim sql As String If rs_order.State = adStateOpen Then rs_order.Close End If sql = "select * from Equipment order by " & Combo1.Text rs_order.CursorLocation = adUseClient rs_order.Open