小區(qū)物業(yè)管理系統(tǒng)

小區(qū)物業(yè)管理系統(tǒng)設(shè)計(jì)本文通過用VB6.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．?dāng)?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è)備維修統(tǒng)計(jì)等.本系統(tǒng)投入使用后，改變了以往小區(qū)物業(yè)管理過程中的手工操作方式，提高了小區(qū)物業(yè)管理的效率，起到了良好的社會(huì)效果和經(jīng)濟(jì)效益。關(guān)鍵詞：小區(qū)物業(yè)管理數(shù)據(jù)庫統(tǒng)計(jì)匯總目錄TOC\o"1-5"\h\z第一章引言3第二章系統(tǒng)分析42.1開發(fā)背景42.2需求分析42.3概要52.4MicrosoftVisualBasic6.0軟件簡(jiǎn)介5第三章系統(tǒng)設(shè)計(jì)113.1業(yè)務(wù)流程圖113.2數(shù)據(jù)庫設(shè)計(jì)113.3系統(tǒng)詳細(xì)設(shè)計(jì)153.4其他窗體詳細(xì)設(shè)計(jì)163.4.1系統(tǒng)登錄界面設(shè)計(jì)183.4.2基本資料模塊的設(shè)計(jì)243.4.3物業(yè)管理模塊的設(shè)計(jì)263.4.4數(shù)據(jù)報(bào)表統(tǒng)計(jì)模塊的設(shè)計(jì)錯(cuò)誤!未定義書簽。第四章主菜單的設(shè)計(jì)及系統(tǒng)實(shí)現(xiàn).錯(cuò)誤!未定義書簽。結(jié)論29第一章引言本軟件使用MicrosoftVisualBasic6.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)支持下，由用戶，數(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)(DATABASEAPPLICATIONSYSTEMSDBAS)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)的管理手段，提高物業(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ù)多，物業(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.3概要VisualBasic是美國微軟公司的第一個(gè)編程工具和系統(tǒng)開發(fā)的第一個(gè)產(chǎn)品，VisualBasic以優(yōu)良的性能、較強(qiáng)的系統(tǒng)開發(fā)功能、完美的視覺界面和簡(jiǎn)單易學(xué)的特點(diǎn)，已經(jīng)贏得了全世界廣大用戶的偏愛。VisualBasic的編程環(huán)境包含了快速有效的開發(fā)功能，尤其是數(shù)據(jù)窗口這一方便而簡(jiǎn)潔操縱數(shù)據(jù)庫的智能化對(duì)象，使系統(tǒng)的開發(fā)更人性化，操作更簡(jiǎn)便。作為管理信息系統(tǒng)的開發(fā)，VisualBasic是一個(gè)非常理想選擇。VisualBasic是一種可視化的、面對(duì)對(duì)象和條用事件驅(qū)動(dòng)方式的結(jié)構(gòu)化高級(jí)程序設(shè)計(jì)，可用于開發(fā)Windows環(huán)境下的種類應(yīng)用程序。它簡(jiǎn)單易學(xué)、效率高，且功能強(qiáng)大，可以與Windows的專業(yè)開發(fā)工具SDK相媲美，而且程序開發(fā)人員不必具有C/C++編程基礎(chǔ)。在VisualBasic環(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.4MicrosoftVisualFoxPro6.0軟件簡(jiǎn)介現(xiàn)在，市場(chǎng)上可以選購的應(yīng)用開發(fā)產(chǎn)品很多，流行的也有數(shù)十種。目前在我國市場(chǎng)上最為流行、使用最多、最為先進(jìn)的可用作做作企業(yè)級(jí)開發(fā)工具的產(chǎn)品有：Microsoft公司的VisualBasicMicrosoft公司的VisualCBorland公司的DelphiPowersoft公司的PowerBuliderTA/rA/rJava等等在目前市場(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ì)使一些即使非常簡(jiǎn)單的界面處理動(dòng)作，也會(huì)嚴(yán)重地浪費(fèi)程序設(shè)計(jì)師的寶貴時(shí)間。作為數(shù)據(jù)庫系統(tǒng)的開發(fā)，VisualBasic是一個(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ù)庫語言VisualBasic語言，該開發(fā)工具具有很多長(zhǎng)處：VisualBasic是一種可視化的、面對(duì)對(duì)象和條用事件驅(qū)動(dòng)方式的結(jié)構(gòu)化高級(jí)程序設(shè)計(jì)，可用于開發(fā)Windows環(huán)境下的種類應(yīng)用程序。它簡(jiǎn)單易學(xué)、效率高，且功能強(qiáng)大，可以與Windows的專業(yè)開發(fā)工具SDK相媲美，而且程序開發(fā)人員不必具有C/C++編程基礎(chǔ)。在VisualBasic環(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)?？偟膩碚f，VisualBasic具有以下特點(diǎn)：可視化編程：用傳統(tǒng)程序設(shè)計(jì)語言設(shè)計(jì)程序時(shí)，都是通過編寫程序代碼來設(shè)計(jì)用戶界面，在設(shè)計(jì)過程中看不到界面的實(shí)際顯示效果，必須編譯后運(yùn)行程序才能觀察。如果對(duì)界面的效果不滿意，還要回到程序中修改。有時(shí)候，這種編程-編譯-修改的操作可能要反復(fù)多次，大大影響了軟件開發(fā)效率。VisualBasic提供了可視化設(shè)計(jì)工具，把Windows界面設(shè)計(jì)的復(fù)雜性“封裝”起來，開發(fā)人員不必為界面設(shè)計(jì)而編寫大量程序代碼。只需要按設(shè)計(jì)要求的屏幕布局，用系統(tǒng)提供的工具，在屏幕上畫出各種“部件”，即圖形對(duì)象，并設(shè)置這些圖形對(duì)象的屬性。VisualBasic自動(dòng)產(chǎn)生界面設(shè)計(jì)代碼，程序設(shè)計(jì)人員只需要編寫實(shí)現(xiàn)程序功能的那部分代碼，從而可以大大提高程序設(shè)計(jì)的效率。面向?qū)ο蟮某绦蛟O(shè)計(jì)4.0版以后的VisualBasic支持面向?qū)ο蟮某绦蛟O(shè)計(jì)，但它與一般的面向?qū)ο蟮某绦蛟O(shè)計(jì)語言(C++)不完全相同。在一般的面向?qū)ο蟪绦蛟O(shè)計(jì)語言中，對(duì)象由程序代碼和數(shù)據(jù)組成，是抽象的概念；而VisualBasic則是應(yīng)用面向?qū)ο蟮某绦蛟O(shè)計(jì)方法(OOP)，把程序和數(shù)據(jù)封裝起來作為一個(gè)對(duì)象，并為每個(gè)對(duì)象賦予應(yīng)有的屬性，使對(duì)象成為實(shí)在的東西。在設(shè)計(jì)對(duì)象時(shí)，不必編寫建立和描述每個(gè)對(duì)象的程序代碼，而是用工具畫在界面上，VisualBasic自動(dòng)生成對(duì)象的程序代碼并封裝起來。每個(gè)對(duì)象以圖形方式顯示在界面上，都是可視的。結(jié)構(gòu)化程序設(shè)計(jì)語言VisualBasic是在BASIC語言的基礎(chǔ)上發(fā)展起來的，具有高級(jí)程序設(shè)計(jì)語言的語句結(jié)構(gòu)，接近于自然語言和人類的邏輯思維方式。VisualBasic語句簡(jiǎn)單易懂，其編輯器支持彩色代碼，可自動(dòng)進(jìn)行語法錯(cuò)誤檢查，同時(shí)具有功能強(qiáng)大且使用靈活的調(diào)試器和編譯器。VisualBasic是解釋型語言，在輸入代碼的同時(shí)，解釋系統(tǒng)將高級(jí)語言分解翻譯成計(jì)算機(jī)可以識(shí)別的機(jī)器指令，并判斷每個(gè)語句的語法錯(cuò)誤。在設(shè)計(jì)VisualBasic程序的過程中，隨時(shí)可以運(yùn)行程序，而在整個(gè)程序設(shè)計(jì)好之后，可以編譯生成可執(zhí)行文件(.EXE),脫離VisualBasic環(huán)境，直接在Windows環(huán)境下運(yùn)行。事件驅(qū)動(dòng)編程機(jī)制VisualBasic通過事件來執(zhí)行對(duì)象的操作。一個(gè)對(duì)象可能會(huì)產(chǎn)生多個(gè)事件，每個(gè)事件都可以通過一段程序來響應(yīng)。例如，命令按鈕是一個(gè)對(duì)象，當(dāng)用戶單擊該按鈕時(shí)，將產(chǎn)生一個(gè)“單擊”CLICK)事件，而在產(chǎn)生該事件時(shí)將執(zhí)行一段程序，用來實(shí)現(xiàn)指定的操作。在用VisualBasic設(shè)計(jì)大型應(yīng)用軟件時(shí)，不必建立具有明顯開始和結(jié)束的程序，而是編寫若干個(gè)微小的子程序，即過程。這些過程分別面向不同的對(duì)象，由用戶操作引發(fā)某個(gè)事件來驅(qū)動(dòng)完成某種特定的功能，或者由事件驅(qū)動(dòng)程序調(diào)用通用過程來執(zhí)行指定的操作，這樣可以方便編程人員，提高效率。訪問數(shù)據(jù)庫VisualBasic具有強(qiáng)大的數(shù)據(jù)庫管理功能，利用數(shù)據(jù)控件和數(shù)據(jù)庫管理窗口，可以直接建立或處理MicrosoftAccess格式的數(shù)據(jù)庫，并提供了強(qiáng)大的數(shù)據(jù)存儲(chǔ)和檢索功能。同時(shí)，VisualBasic還能直接編輯和訪問其他外部數(shù)據(jù)庫，如dBASE，F(xiàn)oxPro，Paradox等，這些數(shù)據(jù)庫格式都可以用VisualBasic編輯和處理。VisualBasic提供開放式數(shù)據(jù)連接，即ODBC功能，可通過直接訪問或建立連接的方式使用并操作后臺(tái)大型網(wǎng)絡(luò)數(shù)據(jù)庫，如SQLServer，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ù)交換(DynamicDataExchange)技術(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ù)。VisualBasic提供了動(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ù)是Microsoft公司對(duì)象技術(shù)的戰(zhàn)略,它把多個(gè)應(yīng)用程序合為一體，將每個(gè)應(yīng)用程序看作是一個(gè)對(duì)象進(jìn)行鏈接和嵌入，是一種應(yīng)用程序一體化的技術(shù)。利用OLE技術(shù)，可以方便地建立復(fù)合式文檔(compounddocument)，這種文檔由來自多個(gè)不同應(yīng)用程序的對(duì)象組成，文檔中的每個(gè)對(duì)象都與原來的應(yīng)用程序相聯(lián)系，并可執(zhí)行與原來應(yīng)用程序完全相同的操作。動(dòng)態(tài)鏈接庫(DLL)VisualBasic是一種高級(jí)程序設(shè)計(jì)語言，不具備低級(jí)語言的功能，對(duì)訪問機(jī)器硬件的操作不太容易實(shí)現(xiàn)。但它可以通過動(dòng)態(tài)鏈接庫技術(shù)將C/C++或匯編語言編寫的程序加入到VisualBasic應(yīng)用程序中，可以像調(diào)用內(nèi)部函數(shù)一樣調(diào)用其他語言編寫的函數(shù)。此外，通過動(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)流程如下圖所示。系統(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．?dāng)?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è)備維修統(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)說明如下:HBaoXiu:表宇段名稱丨數(shù)據(jù)奏車艮修褊號(hào)I艮修褊號(hào)I祁憾乍戶切業(yè)地址問*熱半本豐本豐木豐水一4水豐文曰文文文文文立文寶文文文EH1住廠■爲(wèi)=■..■問*熱半本豐本豐木豐水一4水豐文曰文文文文文立文寶文文文EH1住廠■爲(wèi)=■..■?-.-it4^-憂業(yè)地址房型估幣面和片1卜■豐姊卓工作車忖月於ilEU立去卄It艮訐匹本祖行巾r.=A'LLH-J1^曰期/旳問狂岀時(shí)問SL雖性別您本手段名稱HClient:sfeEmpnit圭立豐曰wj/fftra；＞-I■-立皋；＞-I■-立皋曰期/時(shí)冋

|SEquipment:表宇段名稱數(shù)據(jù)類型1”股備編號(hào)立本設(shè)備名稱文本型號(hào)立本品牌文本所厘部門文本購丟日期日期/■時(shí)間爭(zhēng)故記錄立本Gas;丟■75字:段名稱救據(jù)類型|lip志湍■“立本干1芬毅丁M饒丄月甜3S木月數(shù)居.*.n帀母遊!〒木口費(fèi)屯熱字上門抄表曰RJ]BHJl/HJfS]圭H枠亦曰剛曰翩/■時(shí)間7K月立至II期IIH^/riTlnJ辦affi人jfc豐@House:羨物業(yè)地址注坑苗積使屯IE積早價(jià)總們扶豐蟒汨蟄江是百己出古SPark:表字段名新數(shù)據(jù)類型”文本車住位疊文本停車住戶文本物業(yè)地址文本開贈(zèng)日期文本截止日期文本備注文本物業(yè)地址&備M悄I冃srttt本月數(shù)更^K.H.HJM單茴-K口費(fèi)屯上門抄衣曰W1.車月抄表曰期主M僉彷Id朋肅.卻A

數(shù)據(jù)類型Jil-I-'更?車.魏-r教-r曰期/旳問曰期/時(shí)間曰期/■時(shí)間曲TOUSU5箱??數(shù)堆翌型授訴曰期接侍人耳授訴住戶忱業(yè)地址電話處理曰期處理人耳授訴I勺吉處理怙況SHfl/NA[aUserTable:[aUserTable:表字段名稱數(shù)據(jù)類型l.rEern：aTie文本FasEfford文本Trueri：irie文本Regtims日期/時(shí)間raWater:表宇理名稱便表髓日件尸畔名物業(yè)鈕ill匚m冃苗I冃對(duì)栢丞月數(shù)據(jù)在冃用甲單悄主冃帶用I冃1WI|HH主冃評(píng)再IIKH主冃研帶IIHH古理廠

數(shù)據(jù)類型立去P壬P壬日期/吋「口I日期/吋「口I日期/吋「口IraWuYeFee:去EK費(fèi)褊號(hào)1住F姓皆物業(yè)1也|止年怕上1怕收費(fèi)頂目收費(fèi)力式應(yīng)收總顫已魚甕飯空奚n即柿坪A宇段名稱數(shù)據(jù)類型YIBmoFee;表寧=段名飾數(shù)站類型1它*5T7V生戶姓呂文卒厠業(yè)確址女i-教〒.H忻姿仔枝費(fèi)頂日乂卒吆彷'片￡y*問竿巾巴立筮額數(shù)字X費(fèi)圣頷數(shù)丁交畏曰朋曰翩丿時(shí)間旳■注木岳注文皋3.3系統(tǒng)的詳細(xì)設(shè)計(jì)主程序界面設(shè)計(jì)

3.4其他窗體設(shè)計(jì)（因本設(shè)計(jì)涉及的窗體比較多,故我們只選取有代表性的窗體加以重點(diǎn)描述）3.4.1系統(tǒng)登陸界面設(shè)計(jì)鄧用戶登錄用戶名：密瑪：登錄I職消重埴I如圖所示,新建一個(gè)窗體,在窗體中添加二個(gè)Lable控件，二個(gè)TextBox控件,二個(gè)commandButton控件,設(shè)置其屬性。然后添加程序代碼。其中登錄按鈕的源碼如下:PrivateSubcmdLogin_Click()'首先檢查用戶是否輸入了用戶名和密碼IftxtUser.Text=""ThenMsgBox"請(qǐng)輸入用戶名！",vbOKOnly+1TQj?〃、亠〃vbInformation,"注意"txtUser.SetFocusExitSubElseIftxtPwd.Text=""ThenMsgBox"請(qǐng)輸入密碼！",vbOKOnly+vbInformation,txtPwd.SetFocusExitSubEndIfDimsqluserAsString'構(gòu)造查詢?cè)撚脩裘兔艽a的sql語句sqluser="select*fromUserTablewhereUsername='"&txtUser.Text_&"'andPassword='"&txtPwd.Text&"'"rs_user.CursorLocation=adUseClient'打開數(shù)據(jù)游標(biāo)rs_user.Opensqluser,conn,adOpenKeyset,adLockPessimisticIfrs_user.EOF=TrueThenMsgBox"用戶名或密碼不正確！",vbOKOnly+1TQj?〃、亠〃vbInformation,"注意"rs_user.Close'清空txtUser和txtPwd文本框txtUser.Text=""txtPwd.Text=""ExitSubElse'還需使其他菜單可用MDIfrmMain.mnAddUser.Enabled=TrueMDIfrmMain.mnBasicData.Enabled=TrueMDIfrmMain.mnWuYe.Enabled=True

MDIfrmMain.mnDataTg.Enabled=True'提示用戶登錄成功并關(guān)閉游標(biāo)和登錄窗口MsgBox"登錄成功！",vbOKOnly+vbInformation,〃、亠W-〃"注意"rs_user.CloseUnloadMeEndIfEndSub3.4.2基本資料模塊的設(shè)計(jì)同理窗體中的控件的添加比較直接,參照登錄窗體的設(shè)計(jì),并添加相關(guān)代碼.其中重點(diǎn)分析按鈕源碼如下:。添加按鈕的代碼：PrivateSubcmdAdd_Click()'設(shè)置除保存和取消按鈕外的其他按鈕不可用cmdAdd.Enabled=FalsecmdEdit.Enabled=FalsecmdDel.Enabled=FalsecmdSave.Enabled=TruecmdCancel.Enabled=TruecmdFirst.Enabled=FalsecmdPrev.Enabled=FalsecmdNext.Enabled=FalsecmdLast.Enabled=FalsecmdQuery.Enabled=False'需要清空所有text框，并且設(shè)置它們可寫Fori=0To14Text1(i).Text=""Text1(i).Enabled=TrueNextiCombo1.Enabled=True'add變量用于保存時(shí)判斷是從添加還是修改后保存add=1Text1(0).SetFocusText1(13).Text=DateEndSub修改按鈕的源碼:PrivateSubcmdEdit_Click()'設(shè)置除保存和取消按鈕外的其他按鈕不可用cmdAdd.Enabled=FalsecmdEdit.Enabled=FalsecmdDel.Enabled=FalsecmdSave.Enabled=TruecmdCancel.Enabled=TruecmdFirst.Enabled=FalsecmdPrev.Enabled=FalsecmdNext.Enabled=FalsecmdLast.Enabled=FalsecmdQuery.Enabled=False'需要設(shè)置除主鍵之外的text框可寫Fori=1To14Text1(i).Enabled=TrueNextiCombo1.Enabled=Trueadd=0EndSub刪除按鈕的源碼如下:PrivateSubcmdDel_Click()'當(dāng)單擊刪除記錄時(shí)，需要彈出一個(gè)提示框，警告用戶DimanswerAsStringanswer=MsgBox("確定要?jiǎng)h除嗎？",vbYesNo,"")'確實(shí)刪除Ifanswer=vbYesThenrs_client.Delete'刪除當(dāng)前記錄rs_client.Update'更新刪除MsgBox"成功刪除！",vbOKOnly+vbExclamation,""ElseExitSubEndIf'刪除之后，顯示總信息條數(shù)需要減1Text2.Text=Val(Text2.Text)-1'刪除當(dāng)前記錄后，需要顯示下一條記錄，如果刪除的是最后一條記錄，則顯示上一條記錄'先移動(dòng)rs_client記錄到后一條rs_client.MoveNextIfrs_client.EOFThenrs_client.MovePrevious'如果沒有到記錄首則顯示改記錄IfNotrs_client.BOFThenFori=0To14Text1(i).Text=rs_client.Fields(i)NextiIfrs_client.Fields(15)="男"ThenCombo1.ListIndex=0ElseCombo1.ListIndex=1EndIf'如果到記錄首，則表格已經(jīng)為空，置所有text框顯示為空ElseIfrs_client.BOFThenFori=0To14Text1(i).Text=""NextiEndIf'如果刪除的不是首尾記錄，則顯示當(dāng)前記錄即可ElseFori=0To14Text1(i).Text=rs_client.Fields(i)NextiIfrs_client.Fields(15)="男"ThenCombo1.ListIndex=0ElseCombo1.ListIndex=1EndIfEndIfEndSub保存按鈕的源碼如下:PrivateSubcmdSave_Click()'檢測(cè)數(shù)據(jù)是否完整IfText1(0).Text=""ThenMsgBox"住戶編號(hào)不可為空！",vbOKOnly+1TQj?〃、亠〃vbInformation,"注意"Text1(0).SetFocusExitSubElseIfText1(1).Text=""ThenMsgBox"物業(yè)地址不可為空！",vbOKOnly+1TQj?〃、亠〃vbInformation,"注意"Text1(1).SetFocusExitSubElseIfText1(3).Text=""OrIsNumeric(Text1(3).Text)=FalseThenMsgBox"建筑面積應(yīng)為數(shù)字！",vbOKOnly+1TQj?〃、亠〃vbInformation,"注意"Text1(3).SetFocusExitSubElseIfText1(4).Text=""OrIsNumeric(Text1(4).Text)=FalseThenMsgBox"使用面積應(yīng)為數(shù)字！",vbOKOnly+1TQj?〃、亠〃vbInformation,"注意"Text1(4).SetFocusExitSubElseIfText1(5).Text=""ThenMsgBox"業(yè)主姓名不可為空！",vbOKOnly+1TQj?〃、亠〃vbInformation,"注意"Text1(5).SetFocusExitSubElseIfIsDate(Text1(13).Text)=FalseThenMsgBox"入住日期書寫不對(duì)，應(yīng)為2000-1-1這樣的格式！",vbOKOnly+vbInformation,"注意"Text1(13).SetFocusExitSubElseIfNotText1(14).Text=""AndIsDate(Text1(14).Text)=FalseThenMsgBox"遷出時(shí)間應(yīng)為空或2000-1-1這樣的格式！",vbOKOnly+vbInformation,"注意"Text1(14).SetFocusExitSubEndIf'添加數(shù)據(jù)后保存Ifadd=1Then'檢測(cè)住戶編號(hào)這個(gè)主鍵是否已經(jīng)在表中存在Dimrs_checkAsNewADODB.RecordsetDimsqlCheckAsStringsqlCheck="select*fromClientwhere住戶編號(hào)='"&(Text1(0).Text)&"'"rs_check.OpensqlCheck,conn,adOpenStatic,adLockOptimisticIfNotrs_check.EOFAndNotrs_check.BOFThenMsgBox"該住戶編號(hào)已經(jīng)存在，請(qǐng)重填一個(gè)！",vbOKOnly+vbInformation,"注意"rs_check.CloseText1(0).SetFocusText1(0).Text=""ExitSubEndIfrs_check.Close'主鍵不重復(fù)，可以加入表中rs_client.AddNewFori=0To14rs_client.Fields(i)=Text1(i).TextNextirs_client.Fields(15)=Combo1.Textrs_client.Update'添加保存之后，顯示總信息條數(shù)需要加1Text2.Text=Val(Text2.Text)-1'修改數(shù)據(jù)后的保存Elsers_client.UpdateEndIfMsgBox"保存數(shù)據(jù)成功！",vbOKOnly+vbInformation,"祝賀"'保存后需要設(shè)置其他按鈕可用，以及各個(gè)text框不可寫cmdAdd.Enabled=TruecmdEdit.Enabled=TruecmdDel.Enabled=TruecmdSave.Enabled=FalsecmdCancel.Enabled=FalsecmdFirst.Enabled=TruecmdPrev.Enabled=TruecmdNext.Enabled=TruecmdLast.Enabled=TruecmdQuery.Enabled=TrueFori=0To14Text1(i).Enabled=FalseNextiCombo1.Enabled=FalseEndSub3.4.3物業(yè)管理模塊設(shè)計(jì)X|設(shè)備鋼號(hào)P00001設(shè)備名稱I型號(hào)X|設(shè)備鋼號(hào)P00001設(shè)備名稱I型號(hào)呼品牌I三和所JE制門購買日嗣梓用七爭(zhēng)敵記錄功皺L覚補(bǔ)儲(chǔ)眾?購氓消1關(guān)HlI第一衆(zhòng)I篩F后1^7呈后一條押J：廠案記錄鼻鑰業(yè)設(shè)番昔理其中添加,修改,刪除按包的源碼設(shè)計(jì)同上,重點(diǎn)分析保存按鈕的源碼如下:PrivateSubcmdSave_Click()'檢測(cè)數(shù)據(jù)是否完整IfText1(0).Text=""ThenMsgBox"設(shè)備編號(hào)不可為空！",vbOKOnly+vbInformation,"注意!!Text1(0).SetFocusExitSubElseIfText1(1).Text=""ThenMsgBox"設(shè)備名稱不可為空！",vbOKOnly+vbInformation,"注意!!Text1(1).SetFocusExitSubElseIfIsDate(Text1(5).Text)=FalseThenMsgBox"購買日期書寫不對(duì)，應(yīng)為2000-1-1這樣的格式！",vbOKOnly+vbInformation,"注意"Text1(5).SetFocusExitSubEndIf'添加數(shù)據(jù)后保存Ifadd=1Then'檢測(cè)房間編號(hào)這個(gè)主鍵是否已經(jīng)在表中存在Dimrs_checkAsNewADODB.RecordsetDimsqlCheckAsStringsqlCheck="select*fromEquipmentwhere設(shè)備編號(hào)='"&(Text1(0).Text)&"'"rs_check.OpensqlCheck,conn,adOpenStatic,adLockOptimisticIfNotrs_check.EOFAndNotrs_check.BOFThenMsgBox"該設(shè)備編號(hào)已經(jīng)存在，請(qǐng)重填一個(gè)！",vbOKOnly+vbInformation,"注意"rs_check.CloseText1(0).SetFocusText1(0).Text=""ExitSubEndIfrs_check.Close'主鍵不重復(fù)，可以加入表中rs_equip.AddNewFori=0To6rs_equip.Fields(i)=Text1(i).TextNextirs_equip.Update'添加之后顯示總共條數(shù)信息加1Text2.Text=Val(Text2.Text)+1'修改數(shù)據(jù)后的保存Elsers_equip.UpdateEndIfMsgBox"保存數(shù)據(jù)成功！",vbOKOnly+vbInformation,"祝賀"'保存后需要設(shè)置其他按鈕可用，以及各個(gè)text框不可寫cmdAdd.Enabled=TruecmdEdit.Enabled=TruecmdDel.Enabled=TruecmdSave.Enabled=FalsecmdCancel.Enabled=FalsecmdFirst.Enabled=TruecmdPrev.Enabled=TruecmdNext.Enabled=TruecmdLast.Enabled=TruecmdQuery.Enabled=TrueFori=0To6Text1(i).Enabled=FalseNextiEndSub(該模塊其它幾個(gè)窗體的設(shè)計(jì)跟此窗體的設(shè)計(jì)雷同)3.4.4數(shù)據(jù)報(bào)表統(tǒng)計(jì)的設(shè)計(jì)111上3物業(yè)設(shè)備統(tǒng)計(jì)課物業(yè)設(shè)備城計(jì)T尢擇排.序方式排序方式I曾巒iacceJQEO3111上3物業(yè)設(shè)備統(tǒng)計(jì)課物業(yè)設(shè)備城計(jì)T尢擇排.序方式排序方式I曾巒iacceJQEO3打冊(cè)機(jī)塑號(hào)1]388k4JS450DF板"rtrinh.咅口其中排序按鈕的源碼如下:PrivateSubcmdOrder_Click()DimsqlA