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

小區(qū)物業(yè)管理系統(tǒng)設(shè)計本文通過用VB6.0編寫小區(qū)物業(yè)管理系統(tǒng)，利用軟件工程原理，采用生命周期方法學(xué)，其開發(fā)主要包括后臺數(shù)據(jù)庫的建立和維護(hù)以及前端應(yīng)用程序的開發(fā)兩個方面，實現(xiàn)了小區(qū)信息數(shù)據(jù)庫的創(chuàng)建及各種費(fèi)用的收取、統(tǒng)計、匯總。本文還簡單介紹了vB6.0軟件的界面及操作方法。簡要介紹了窗體的制作過程，程序的編寫，添加，最后的編譯過程。并且敘述了作者在軟件開發(fā)過程中的心得體會。本系統(tǒng)可以實現(xiàn)如下功能：1．系統(tǒng)登錄：包括用戶登錄，修改密碼，添加用戶,退出系統(tǒng)。1．基本資料：包括住戶資料和財產(chǎn)資料信息管理2．物業(yè)管理：包括物業(yè)設(shè)備,儀表數(shù)據(jù),停車場管理,收費(fèi)管理,住戶投訴,住戶報修管理,設(shè)備維修管理等.3．?dāng)?shù)據(jù)報表統(tǒng)計：包括物業(yè)設(shè)備,儀表數(shù)據(jù)統(tǒng)計,收費(fèi)統(tǒng)計,住戶投訴統(tǒng)計,住戶報修統(tǒng)計,設(shè)備維修統(tǒng)計等.本系統(tǒng)投入使用后，改變了以往小區(qū)物業(yè)管理過程中的手工操作方式，提高了小區(qū)物業(yè)管理的效率，起到了良好的社會效果和經(jīng)濟(jì)效益。關(guān)鍵詞：小區(qū)物業(yè)管理數(shù)據(jù)庫統(tǒng)計匯總目錄TOC\o"1-5"\h\z第一章引言3第二章系統(tǒng)分析42.1開發(fā)背景42.2需求分析42.3概要52.4MicrosoftVisualBasic6.0軟件簡介5第三章系統(tǒng)設(shè)計113.1業(yè)務(wù)流程圖113.2數(shù)據(jù)庫設(shè)計113.3系統(tǒng)詳細(xì)設(shè)計153.4其他窗體詳細(xì)設(shè)計163.4.1系統(tǒng)登錄界面設(shè)計183.4.2基本資料模塊的設(shè)計243.4.3物業(yè)管理模塊的設(shè)計263.4.4數(shù)據(jù)報表統(tǒng)計模塊的設(shè)計錯誤!未定義書簽。第四章主菜單的設(shè)計及系統(tǒng)實現(xiàn).錯誤!未定義書簽。結(jié)論29第一章引言本軟件使用MicrosoftVisualBasic6.0進(jìn)行編寫。數(shù)據(jù)庫技術(shù)的產(chǎn)生與發(fā)展源于對于數(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è)計和程序設(shè)計等知識。數(shù)據(jù)庫技術(shù)的基本思想是對數(shù)據(jù)實行集中，統(tǒng)一，獨(dú)立的管理，用戶可以最大限度的共享數(shù)據(jù)資源。數(shù)據(jù)庫系統(tǒng)實際上是一個應(yīng)用系統(tǒng)，它是在計算機(jī)硬，軟件系統(tǒng)支持下，由用戶，數(shù)據(jù)庫管理系統(tǒng)，存儲在存儲設(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.實現(xiàn)數(shù)據(jù)共享2.實現(xiàn)數(shù)據(jù)獨(dú)立3.減少了數(shù)據(jù)冗余度4.避免了數(shù)據(jù)不一致性5.加強(qiáng)了對數(shù)據(jù)的保護(hù)。數(shù)據(jù)庫應(yīng)用系統(tǒng)(DATABASEAPPLICATIONSYSTEMSDBAS)1．管理信息系統(tǒng)2．開放式信息服務(wù)系統(tǒng)一個數(shù)據(jù)庫應(yīng)用系統(tǒng)通常是由數(shù)據(jù)庫和應(yīng)用程序兩部分組成，它們是在數(shù)據(jù)庫管理系統(tǒng)支持下設(shè)計和開發(fā)出來的。第二章系統(tǒng)分析2.1開發(fā)背景隨著我國市場經(jīng)濟(jì)的快速發(fā)展和人們生活水平的不斷提高，簡單的社區(qū)服務(wù)已經(jīng)不能滿足人們的需求。如何利用先進(jìn)的管理手段，提高物業(yè)管理水平，是當(dāng)今社會所面臨的一個重要課題。要想提高物業(yè)管理水平，必須全方位地提高物業(yè)管理意識。只有高標(biāo)準(zhǔn)、高質(zhì)量的社區(qū)服務(wù)才能滿足人們的需求。面對信息時代的挑戰(zhàn)，利用高科技手段來提高物業(yè)管理無疑是一條行之有效的途徑。在某種意義上，信息與科技在物業(yè)管理與現(xiàn)代化建設(shè)中顯現(xiàn)出越來越重要的地位。物業(yè)管理方面的信息化與科學(xué)化，已成為現(xiàn)代化生活水平步入高臺階的重要標(biāo)志。2.2需求分析某小區(qū)位于我市西郊，綠化面積1200多平方米，占地面積100000，建筑面積680000多平方米，24小時保安巡邏，環(huán)境幽雅、周邊配套設(shè)施完善，實行封閉式管理，小區(qū)現(xiàn)居住約2萬人。由于管理面積大，戶數(shù)多，物業(yè)管理范圍廣，管理內(nèi)容繁雜，小區(qū)物業(yè)管理混亂的問題一直無法解決。再者，小區(qū)物業(yè)管理中一項重要的工作是計算、匯總各項費(fèi)用，由于費(fèi)用項目較多，計算方法繁重，手工處理差錯率較高。同時查詢某房產(chǎn)資料或業(yè)主資料往往也需要較長時間，給物業(yè)管理者的工作帶來了諸多弊端。因此該物業(yè)公司決定采用計算機(jī)進(jìn)行物業(yè)管理。根據(jù)該小區(qū)具體情況，該系統(tǒng)在實施后，能夠滿足對小區(qū)住戶資料、財產(chǎn)資源統(tǒng)計、小區(qū)投訴、裝修、維修、等進(jìn)行管理，能夠滿足對水、電表抄收、統(tǒng)計、核算、各項費(fèi)用統(tǒng)計匯總。該系統(tǒng)的實施為小區(qū)日后發(fā)展奠定了新的臺階。根據(jù)該物業(yè)的具體情況，系統(tǒng)主要包括以下4個模塊：系統(tǒng)登錄,基本資料,物業(yè)管理,數(shù)據(jù)報表統(tǒng)計等.2.3概要VisualBasic是美國微軟公司的第一個編程工具和系統(tǒng)開發(fā)的第一個產(chǎn)品，VisualBasic以優(yōu)良的性能、較強(qiáng)的系統(tǒng)開發(fā)功能、完美的視覺界面和簡單易學(xué)的特點(diǎn)，已經(jīng)贏得了全世界廣大用戶的偏愛。VisualBasic的編程環(huán)境包含了快速有效的開發(fā)功能，尤其是數(shù)據(jù)窗口這一方便而簡潔操縱數(shù)據(jù)庫的智能化對象，使系統(tǒng)的開發(fā)更人性化，操作更簡便。作為管理信息系統(tǒng)的開發(fā)，VisualBasic是一個非常理想選擇。VisualBasic是一種可視化的、面對對象和條用事件驅(qū)動方式的結(jié)構(gòu)化高級程序設(shè)計，可用于開發(fā)Windows環(huán)境下的種類應(yīng)用程序。它簡單易學(xué)、效率高，且功能強(qiáng)大，可以與Windows的專業(yè)開發(fā)工具SDK相媲美，而且程序開發(fā)人員不必具有C/C++編程基礎(chǔ)。在VisualBasic環(huán)境下，利用事件驅(qū)動的編程機(jī)制、新穎易用的可視化設(shè)計工具，使用Windows內(nèi)部的應(yīng)用程序接口(API)函數(shù)，以及動態(tài)鏈接庫(DLL)、動態(tài)數(shù)據(jù)交換(DDE)、對象的鏈接與嵌入(OLE)、開放式數(shù)據(jù)訪問(ODBC)等技術(shù)，可以高效、快速地開發(fā)出Windows環(huán)境下功能強(qiáng)大、圖形界面豐富的應(yīng)用軟件系統(tǒng)。2.4MicrosoftVisualFoxPro6.0軟件簡介現(xiàn)在，市場上可以選購的應(yīng)用開發(fā)產(chǎn)品很多，流行的也有數(shù)十種。目前在我國市場上最為流行、使用最多、最為先進(jìn)的可用作做作企業(yè)級開發(fā)工具的產(chǎn)品有：Microsoft公司的VisualBasicMicrosoft公司的VisualCBorland公司的DelphiPowersoft公司的PowerBuliderTA/rA/rJava等等在目前市場上這些眾多的程序開發(fā)工具中，有些強(qiáng)調(diào)程語言的彈性與執(zhí)行效率；有些則偏重于可視化程序開發(fā)工具所帶來的便利性與效率的得高，各有各的優(yōu)點(diǎn)和特色，也滿足了不同用戶的需求。然而，語言的彈性和工具的便利性是密不可分的，只有便利的工具，卻沒有彈性的語言作支持，許多特殊化的處理動作必需要耗費(fèi)數(shù)倍的工夫來處理，使得原來所標(biāo)榜的效率提高的優(yōu)點(diǎn)失去了作用；相反，如果只強(qiáng)調(diào)程語言的彈性，卻沒有便利的工具作配合，會使一些即使非常簡單的界面處理動作，也會嚴(yán)重地浪費(fèi)程序設(shè)計師的寶貴時間。作為數(shù)據(jù)庫系統(tǒng)的開發(fā)，VisualBasic是一個非常理想選擇。數(shù)據(jù)庫是MIS中的重要支持技術(shù)，在MIS開發(fā)過程中，如何選擇數(shù)據(jù)庫管理是一個重要的問題，目前，數(shù)據(jù)庫產(chǎn)品較多，每種產(chǎn)品都具有各自的特點(diǎn)和適用范圍，因此，在選擇數(shù)據(jù)庫時，應(yīng)考慮數(shù)據(jù)庫應(yīng)用的特點(diǎn)及適用范圍，本系統(tǒng)選用的數(shù)據(jù)庫語言VisualBasic語言，該開發(fā)工具具有很多長處：VisualBasic是一種可視化的、面對對象和條用事件驅(qū)動方式的結(jié)構(gòu)化高級程序設(shè)計，可用于開發(fā)Windows環(huán)境下的種類應(yīng)用程序。它簡單易學(xué)、效率高，且功能強(qiáng)大，可以與Windows的專業(yè)開發(fā)工具SDK相媲美，而且程序開發(fā)人員不必具有C/C++編程基礎(chǔ)。在VisualBasic環(huán)境下，利用事件驅(qū)動的編程機(jī)制、新穎易用的可視化設(shè)計工具，使用Windows內(nèi)部的應(yīng)用程序接口(API)函數(shù)，以及動態(tài)鏈接庫(DLL)、動態(tài)數(shù)據(jù)交換(DDE)、對象的鏈接與嵌入(OLE)、開放式數(shù)據(jù)訪問(ODBC)等技術(shù)，可以高效、快速地開發(fā)出Windows環(huán)境下功能強(qiáng)大、圖形界面豐富的應(yīng)用軟件系統(tǒng)?？偟膩碚f，VisualBasic具有以下特點(diǎn)：可視化編程：用傳統(tǒng)程序設(shè)計語言設(shè)計程序時，都是通過編寫程序代碼來設(shè)計用戶界面，在設(shè)計過程中看不到界面的實際顯示效果，必須編譯后運(yùn)行程序才能觀察。如果對界面的效果不滿意，還要回到程序中修改。有時候，這種編程-編譯-修改的操作可能要反復(fù)多次，大大影響了軟件開發(fā)效率。VisualBasic提供了可視化設(shè)計工具，把Windows界面設(shè)計的復(fù)雜性“封裝”起來，開發(fā)人員不必為界面設(shè)計而編寫大量程序代碼。只需要按設(shè)計要求的屏幕布局，用系統(tǒng)提供的工具，在屏幕上畫出各種“部件”，即圖形對象，并設(shè)置這些圖形對象的屬性。VisualBasic自動產(chǎn)生界面設(shè)計代碼，程序設(shè)計人員只需要編寫實現(xiàn)程序功能的那部分代碼，從而可以大大提高程序設(shè)計的效率。面向?qū)ο蟮某绦蛟O(shè)計4.0版以后的VisualBasic支持面向?qū)ο蟮某绦蛟O(shè)計，但它與一般的面向?qū)ο蟮某绦蛟O(shè)計語言(C++)不完全相同。在一般的面向?qū)ο蟪绦蛟O(shè)計語言中，對象由程序代碼和數(shù)據(jù)組成，是抽象的概念；而VisualBasic則是應(yīng)用面向?qū)ο蟮某绦蛟O(shè)計方法(OOP)，把程序和數(shù)據(jù)封裝起來作為一個對象，并為每個對象賦予應(yīng)有的屬性，使對象成為實在的東西。在設(shè)計對象時，不必編寫建立和描述每個對象的程序代碼，而是用工具畫在界面上，VisualBasic自動生成對象的程序代碼并封裝起來。每個對象以圖形方式顯示在界面上，都是可視的。結(jié)構(gòu)化程序設(shè)計語言VisualBasic是在BASIC語言的基礎(chǔ)上發(fā)展起來的，具有高級程序設(shè)計語言的語句結(jié)構(gòu)，接近于自然語言和人類的邏輯思維方式。VisualBasic語句簡單易懂，其編輯器支持彩色代碼，可自動進(jìn)行語法錯誤檢查，同時具有功能強(qiáng)大且使用靈活的調(diào)試器和編譯器。VisualBasic是解釋型語言，在輸入代碼的同時，解釋系統(tǒng)將高級語言分解翻譯成計算機(jī)可以識別的機(jī)器指令，并判斷每個語句的語法錯誤。在設(shè)計VisualBasic程序的過程中，隨時可以運(yùn)行程序，而在整個程序設(shè)計好之后，可以編譯生成可執(zhí)行文件(.EXE),脫離VisualBasic環(huán)境，直接在Windows環(huán)境下運(yùn)行。事件驅(qū)動編程機(jī)制VisualBasic通過事件來執(zhí)行對象的操作。一個對象可能會產(chǎn)生多個事件，每個事件都可以通過一段程序來響應(yīng)。例如，命令按鈕是一個對象，當(dāng)用戶單擊該按鈕時，將產(chǎn)生一個“單擊”CLICK)事件，而在產(chǎn)生該事件時將執(zhí)行一段程序，用來實現(xiàn)指定的操作。在用VisualBasic設(shè)計大型應(yīng)用軟件時，不必建立具有明顯開始和結(jié)束的程序，而是編寫若干個微小的子程序，即過程。這些過程分別面向不同的對象，由用戶操作引發(fā)某個事件來驅(qū)動完成某種特定的功能，或者由事件驅(qū)動程序調(diào)用通用過程來執(zhí)行指定的操作，這樣可以方便編程人員，提高效率。訪問數(shù)據(jù)庫VisualBasic具有強(qiáng)大的數(shù)據(jù)庫管理功能，利用數(shù)據(jù)控件和數(shù)據(jù)庫管理窗口，可以直接建立或處理MicrosoftAccess格式的數(shù)據(jù)庫，并提供了強(qiáng)大的數(shù)據(jù)存儲和檢索功能。同時，VisualBasic還能直接編輯和訪問其他外部數(shù)據(jù)庫，如dBASE，F(xiàn)oxPro，Paradox等，這些數(shù)據(jù)庫格式都可以用VisualBasic編輯和處理。VisualBasic提供開放式數(shù)據(jù)連接，即ODBC功能，可通過直接訪問或建立連接的方式使用并操作后臺大型網(wǎng)絡(luò)數(shù)據(jù)庫，如SQLServer，Oracle等。在應(yīng)用程序中，可以使用結(jié)構(gòu)化查詢語言SQL數(shù)據(jù)標(biāo)準(zhǔn)，直接訪問服務(wù)器上的數(shù)據(jù)庫，并提供了簡單的面向?qū)ο蟮膸觳僮髦噶詈投嘤脩魯?shù)據(jù)庫訪問的加鎖機(jī)制和網(wǎng)絡(luò)數(shù)據(jù)庫的SQL的編程技術(shù)，為單機(jī)上運(yùn)行的數(shù)據(jù)庫提供了SQL網(wǎng)絡(luò)接口，以便在分布式環(huán)境中快速而有效地實現(xiàn)客戶/服務(wù)器(client/server)動態(tài)數(shù)據(jù)交換(DDE)利用動態(tài)數(shù)據(jù)交換(DynamicDataExchange)技術(shù)，可以把一種應(yīng)用程序中的數(shù)據(jù)動態(tài)地鏈接到另一種應(yīng)用程序中，使兩種完全不同的應(yīng)用程序建立起一條動態(tài)數(shù)據(jù)鏈路。當(dāng)原始數(shù)據(jù)變化時，可以自動更新鏈接的數(shù)據(jù)。VisualBasic提供了動態(tài)數(shù)據(jù)交換的編程技術(shù)，可以在應(yīng)用程序中與其他Windows應(yīng)用程序建立動態(tài)數(shù)據(jù)交換，在不同的應(yīng)用程序之間進(jìn)行通信。對象的鏈接與嵌入(OLE)對象的鏈接與嵌入(OLE)將每個應(yīng)用程序都看作是一個對象(object)，將不同的對象鏈接(link)起來，再嵌入(embed)某個應(yīng)用程序中，從而可以得到具有聲音、影像、圖像、動畫、文字等各種信息的集合式的文件。OLE技術(shù)是Microsoft公司對象技術(shù)的戰(zhàn)略,它把多個應(yīng)用程序合為一體，將每個應(yīng)用程序看作是一個對象進(jìn)行鏈接和嵌入，是一種應(yīng)用程序一體化的技術(shù)。利用OLE技術(shù)，可以方便地建立復(fù)合式文檔(compounddocument)，這種文檔由來自多個不同應(yīng)用程序的對象組成，文檔中的每個對象都與原來的應(yīng)用程序相聯(lián)系，并可執(zhí)行與原來應(yīng)用程序完全相同的操作。動態(tài)鏈接庫(DLL)VisualBasic是一種高級程序設(shè)計語言，不具備低級語言的功能，對訪問機(jī)器硬件的操作不太容易實現(xiàn)。但它可以通過動態(tài)鏈接庫技術(shù)將C/C++或匯編語言編寫的程序加入到VisualBasic應(yīng)用程序中，可以像調(diào)用內(nèi)部函數(shù)一樣調(diào)用其他語言編寫的函數(shù)。此外，通過動態(tài)鏈接庫，還可以調(diào)用Windows應(yīng)用程序接口(API)函數(shù)，實現(xiàn)SDK所具有的功能第三章系統(tǒng)設(shè)計3.1業(yè)務(wù)流程圖根據(jù)該小區(qū)物業(yè)管理的特點(diǎn)和該小區(qū)的實際情況，物業(yè)管理系統(tǒng)流程如下圖所示。系統(tǒng)主要功能包括4．系統(tǒng)登錄：包括用戶登錄，修改密碼，添加用戶,退出系統(tǒng)。5．基本資料：包括住戶資料和財產(chǎn)資料6．物業(yè)管理：包括物業(yè)設(shè)備,儀表數(shù)據(jù),停車場管理,收費(fèi)管理,住戶投訴,住戶報修管理,設(shè)備維修管理等.7．?dāng)?shù)據(jù)報表統(tǒng)計：包括物業(yè)設(shè)備,儀表數(shù)據(jù)統(tǒng)計,收費(fèi)統(tǒng)計,信戶投訴統(tǒng)計,信戶報修統(tǒng)計,設(shè)備維修統(tǒng)計等.3.2數(shù)據(jù)庫設(shè)計根據(jù)該公司業(yè)務(wù)情況和行業(yè)特點(diǎn)，本系統(tǒng)采用了ACCESS數(shù)據(jù)庫，數(shù)據(jù)庫名稱為XiaoQuGuanLi，包含以下幾個表：報修表

(BaoXiu),Client表，Emp表，Equipment表，Gas表,House表，Park表，Power表，Repair表，Tousu表,UserTable表,Water表,WuyeFee表,YiBiaoFee表.現(xiàn)將各表的結(jié)構(gòu)說明如下:HBaoXiu:表宇段名稱丨數(shù)據(jù)奏車艮修褊號I艮修褊號I祁憾乍戶切業(yè)地址問*熱半本豐本豐木豐水一4水豐文曰文文文文文立文寶文文文EH1住廠■爲(wèi)=■..■問*熱半本豐本豐木豐水一4水豐文曰文文文文文立文寶文文文EH1住廠■爲(wèi)=■..■?-.-it4^-憂業(yè)地址房型估幣面和片1卜■豐姊卓工作車忖月於ilEU立去卄It艮訐匹本祖行巾r.=A'LLH-J1^曰期/旳問狂岀時問SL雖性別您本手段名稱HClient:sfeEmpnit圭立豐曰wj/fftra；＞-I■-立皋；＞-I■-立皋曰期/時冋

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

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

數(shù)據(jù)類型立去P壬P壬日期/吋「口I日期/吋「口I日期/吋「口IraWuYeFee:去EK費(fèi)褊號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ù)丁交畏曰朋曰翩丿時間旳■注木岳注文皋3.3系統(tǒng)的詳細(xì)設(shè)計主程序界面設(shè)計

3.4其他窗體設(shè)計（因本設(shè)計涉及的窗體比較多,故我們只選取有代表性的窗體加以重點(diǎn)描述）3.4.1系統(tǒng)登陸界面設(shè)計鄧用戶登錄用戶名：密瑪：登錄I職消重埴I如圖所示,新建一個窗體,在窗體中添加二個Lable控件，二個TextBox控件,二個commandButton控件,設(shè)置其屬性。然后添加程序代碼。其中登錄按鈕的源碼如下:PrivateSubcmdLogin_Click()'首先檢查用戶是否輸入了用戶名和密碼IftxtUser.Text=""ThenMsgBox"請輸入用戶名！",vbOKOnly+1TQj?〃、亠〃vbInformation,"注意"txtUser.SetFocusExitSubElseIftxtPwd.Text=""ThenMsgBox"請輸入密碼！",vbOKOnly+vbInformation,txtPwd.SetFocusExitSubEndIfDimsqluserAsString'構(gòu)造查詢該用戶名和密碼的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è)計同理窗體中的控件的添加比較直接,參照登錄窗體的設(shè)計,并添加相關(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變量用于保存時判斷是從添加還是修改后保存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)單擊刪除記錄時，需要彈出一個提示框，警告用戶DimanswerAsStringanswer=MsgBox("確定要刪除嗎？",vbYesNo,"")'確實刪除Ifanswer=vbYesThenrs_client.Delete'刪除當(dāng)前記錄rs_client.Update'更新刪除MsgBox"成功刪除！",vbOKOnly+vbExclamation,""ElseExitSubEndIf'刪除之后，顯示總信息條數(shù)需要減1Text2.Text=Val(Text2.Text)-1'刪除當(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()'檢測數(shù)據(jù)是否完整IfText1(0).Text=""ThenMsgBox"住戶編號不可為空！",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"入住日期書寫不對，應(yīng)為2000-1-1這樣的格式！",vbOKOnly+vbInformation,"注意"Text1(13).SetFocusExitSubElseIfNotText1(14).Text=""AndIsDate(Text1(14).Text)=FalseThenMsgBox"遷出時間應(yīng)為空或2000-1-1這樣的格式！",vbOKOnly+vbInformation,"注意"Text1(14).SetFocusExitSubEndIf'添加數(shù)據(jù)后保存Ifadd=1Then'檢測住戶編號這個主鍵是否已經(jīng)在表中存在Dimrs_checkAsNewADODB.RecordsetDimsqlCheckAsStringsqlCheck="select*fromClientwhere住戶編號='"&(Text1(0).Text)&"'"rs_check.OpensqlCheck,conn,adOpenStatic,adLockOptimisticIfNotrs_check.EOFAndNotrs_check.BOFThenMsgBox"該住戶編號已經(jīng)存在，請重填一個！",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è)置其他按鈕可用，以及各個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è)計X|設(shè)備鋼號P00001設(shè)備名稱I型號X|設(shè)備鋼號P00001設(shè)備名稱I型號呼品牌I三和所JE制門購買日嗣梓用七爭敵記錄功皺L覚補(bǔ)儲眾?購氓消1關(guān)HlI第一衆(zhòng)I篩F后1^7呈后一條押J：廠案記錄鼻鑰業(yè)設(shè)番昔理其中添加,修改,刪除按包的源碼設(shè)計同上,重點(diǎn)分析保存按鈕的源碼如下:PrivateSubcmdSave_Click()'檢測數(shù)據(jù)是否完整IfText1(0).Text=""ThenMsgBox"設(shè)備編號不可為空！",vbOKOnly+vbInformation,"注意!!Text1(0).SetFocusExitSubElseIfText1(1).Text=""ThenMsgBox"設(shè)備名稱不可為空！",vbOKOnly+vbInformation,"注意!!Text1(1).SetFocusExitSubElseIfIsDate(Text1(5).Text)=FalseThenMsgBox"購買日期書寫不對，應(yīng)為2000-1-1這樣的格式！",vbOKOnly+vbInformation,"注意"Text1(5).SetFocusExitSubEndIf'添加數(shù)據(jù)后保存Ifadd=1Then'檢測房間編號這個主鍵是否已經(jīng)在表中存在Dimrs_checkAsNewADODB.RecordsetDimsqlCheckAsStringsqlCheck="select*fromEquipmentwhere設(shè)備編號='"&(Text1(0).Text)&"'"rs_check.OpensqlCheck,conn,adOpenStatic,adLockOptimisticIfNotrs_check.EOFAndNotrs_check.BOFThenMsgBox"該設(shè)備編號已經(jīng)存在，請重填一個！",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è)置其他按鈕可用，以及各個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(該模塊其它幾個窗體的設(shè)計跟此窗體的設(shè)計雷同)3.4.4數(shù)據(jù)報表統(tǒng)計的設(shè)計111上3物業(yè)設(shè)備統(tǒng)計課物業(yè)設(shè)備城計T尢擇排.序方式排序方式I曾巒iacceJQEO3111上3物業(yè)設(shè)備統(tǒng)計課物業(yè)設(shè)備城計T尢擇排.序方式排序方式I曾巒iacceJQEO3打冊機(jī)塑號1]388k4JS450DF板"rtrinh.咅口其中排序按鈕的源碼如下:PrivateSubcmdOrder_Click()DimsqlA