畢業(yè)論文小區(qū)物業(yè)管理系統

1、景德鎮(zhèn)高等?？茖W校數學與計算機系畢業(yè)設計（2012屆）課題名稱： 小區(qū)物業(yè)管理系統 姓名： 王 璐 學號： 200901040142 專業(yè)： 計算機及其應用 所在班級： 09計算機應用(1)班 指導教師：姓名： 席 奇 職稱： 講師 時間：二零一一年十二月五日摘 要科學技術日新月異，信息化時代的來臨，以計算機為基礎的信息科學在經濟和社會生活各個領域得到了極為廣泛的應用，尤其在信息管理方面，計算機已是必不可少的管理工具。對于小區(qū)物業(yè)管理來說，其工作流程的繁雜性、多樣化、管理復雜、收繳費用與設備維護繁瑣。計算機已完全能夠勝任物業(yè)管理工作，而且更加準確、方便、快捷、高效、清晰、透明，它完全可以克服以

2、上所述的不足之處。這將給項目查詢和管理帶來很大的方便，從而給物業(yè)管理工作帶來更高的效率，這也是物業(yè)管理正規(guī)化、現代化的重要標志。因此，開發(fā)一套高效率、無差錯的小區(qū)物業(yè)管理系統軟件十分必要。本系統的主要目的是告別帳本，安全、快捷的保存數據信息。由于小區(qū)物業(yè)管理涉及到費用問題，為了增強系統的保密性，使業(yè)主利益不受損害，使業(yè)主能夠對自家的物業(yè)費用和投訴等情況提供透明化、直觀的了解。關鍵字：小區(qū)物業(yè)，管理系統，vbabstractscience and technology change rapidly, the advent of the information era, computer base

3、d information science in economy and social life in various fields has been widely used, especially in terms of information management, the computer is an essential management tool.as for the plot estate management that, its work flow numerous and diverse, the diversification, the management complex

4、, capture the expense and the maintenance of equipment is tedious. the computer could definitely be competent the estate management work, moreover more accurate, convenient, quick, highly effective, clear, is transparent above, it definitely may overcome the deficiency which states. this will give t

5、he project inquiry and the management brings very big convenient, thus will bring a higher efficiency for the estate management work, this also will be the estate management standardization, the modernized important symbol.therefore, develops set of high efficiency, the non- mistake plot estate mana

6、gement system softwares is extremely essential. this system main goal is says goodbye to the account book, the security, the quick preservation data message. because the plot estate management involves to the expense question, in order to strengthen the system the secrecy, causes the owner benefit n

7、ot to receive harms, enables the owner to situation and so on oneself property expense and suit provides, the direct-viewing understanding.keyword：the plot property, the management system management system, vb目 錄摘 要2abstract3緒 論6第一章系統規(guī)劃的可行性研究1511初步調查15111 背景及現狀1512 開發(fā)的可行性研究15121 技術的可行性16122 經濟可行性171

8、23 操作可行性18124 調度可行性18125 硬件配置18第二章 系統分析2021需求分析20211系統需求功能概括20212系統操作設計內容202.2 功能分析21221系統用戶管理功能21222 小區(qū)住戶信息管理功能21222 小區(qū)房產信息管理功能21223 小區(qū)收費管理功能22第三章 系統總體設計2331系統總體結構設計233.2 系統結構圖2433 數據庫的設計24第四章 系統詳細設計264.1界面設計與功能264.2 用戶登陸部分264.3 小區(qū)住戶信息管理模塊274.4 房屋信息管理模塊304.5 物業(yè)收費管理模塊33總 結37致 謝38參考文獻39緒 論由于種種原因，我國的信

9、息資源建設水平遠遠落后于信息基礎設施的建設的水平。長期以來，我國信息資源的開發(fā)管理未能與信息資源的增長同步進行。我國的計算機應用要比西方國家落后十幾年。因此，現在信息資源的開發(fā)和利用已被確立為國民經濟信息的核心內容，利用現有的信息基礎設施，重點開發(fā)和推廣應用于各類科技、經濟等數據庫和網絡資源服務系統，已經取得巨大的社會效益和經濟效益。對于小區(qū)物業(yè)管理來說，其工作流程的繁雜性、多樣化、管理復雜、收繳費用與設備維護繁瑣。計算機已完全能夠勝任物業(yè)管理工作，而且更加準確、方便、快捷、高效、清晰、透明，它完全可以克服以上所述的不足之處。這將給項目查詢和管理帶來很大的方便，從而給物業(yè)管理工作帶來更高的效率

10、，這也是物業(yè)管理正規(guī)化、現代化的重要標志。因此，開發(fā)一套高效率、無差錯的小區(qū)物業(yè)管理系統軟件十分必要。本系統的主要目的是告別帳本，安全、快捷的保存數據信息。由于小區(qū)物業(yè)管理涉及到費用問題，為了增強系統的保密性，使業(yè)主利益不受損害，本系統具有僅管理員式的保密功能，還有查詢、錄入、修改、刪除、以及對物業(yè)設備統計等功能，使業(yè)主能夠對自家的物業(yè)費用和投訴等情況提供透明化、直觀的了解。第一章系統規(guī)劃的可行性研究11初步調查物業(yè)管理公司作為房地產開發(fā)公司的附屬單位，擔負著整個小區(qū)的各家各戶的繁雜的服務和承載著開發(fā)商信譽的重要任務。由于物業(yè)管理業(yè)務的復雜性，再加上智能化小區(qū)這個概念的引入，物業(yè)管理逐漸趨于信

11、息化高效率化，因此上海的許多物業(yè)管理公司已引入了“物業(yè)管理信息系統”，即通過計算機網絡和專業(yè)軟件對物業(yè)實施即時、規(guī)范、高效的管理。在引入該系統后住戶檔案將由電腦管理，通過在水、電、煤氣上設置讀數裝置可以實現遠程自動抄表，減少了業(yè)主的麻煩。服務中心在接到業(yè)主報修后，會立刻打出工程部的報修單，提高了日常維修的服務質量。每月電腦會自動將各項費用匯總，并打印出統一的收費通知，大大節(jié)省了物業(yè)管理公司的人力、物力投入，降低了成本。111 背景及現狀目前國家建設部房地產業(yè)司已將是否使用計算機進行管理列入了物業(yè)管理公司評定級別的項目之中。此舉大大推動了“物業(yè)管理信息系統”的發(fā)展。滬上的中海、古北、萬科、卓越、

12、永業(yè)、西部、金橋、船舶大廈、魏理仕、香港廣場、太平洋中心、華都大廈等近200家物業(yè)管理公司已部分或全部在某所管理的樓盤引入了物業(yè)管理信息系統。隨著人們生活水平的提高和房地產業(yè)的不斷的完善，大型的房地產企業(yè)結構（如圖2.1）中，物業(yè)管理的部門結構（如圖2.2）成為其中的一個細化。而物業(yè)管理部門成為與業(yè)戶零距離接觸的終端部門，物業(yè)管理系統的作用不但使得繁重的手工工作變的簡單化，并且能夠使得業(yè)戶對物業(yè)的了解更加透明化。12 開發(fā)的可行性研究可行性分析（feasibility analysis）也稱為可行性研究，是在系統調查的基礎上，針對新系統的開發(fā)是否具備必要性和可能性，對新系統的開發(fā)從技術、經濟、

13、社會的方面進行分析和研究，以避免投資失誤，保證新系統的開發(fā)成功?？尚行匝芯康哪康木褪怯米钚〉拇鷥r在盡可能短的時間內確定問題是否能夠解決121 技術的可行性小區(qū)物業(yè)管理系統采用了當前的主流計算結構模式進行開發(fā)，前臺開發(fā)工具選用microsoft visual basic 6.0。microsoft visual basic 6.0是一種可視化的、面向對象的windows開發(fā)語言，microsoft visual basic 6.0具有易用、通用和開發(fā)效率高的特點。后臺的數據庫開發(fā)工具選用了access 2000，它能夠處理大量數據，同時保持數據完整性并提供許多高級管理和數據分配功能。這兩種開發(fā)工

14、具功能強大，有較好的接口，作為本系統開發(fā)工具是可行的。(1) visual basic 6.0的簡介visual basic（簡稱vb）是microsoft公司開發(fā)的一種通用的基于對象的程序設計語言。vb6.0是與win98配合于1998年推出的，進一步加強了數據庫、internet和創(chuàng)建控件方面的功能。vb可以用于可以開發(fā)多媒體、數據庫、網絡、圖形等方面的應用程序。數據訪問特性允許對包括 microsoft sql server 和其它企業(yè)數據庫在內的大部分數據庫格式建立數據庫和前端應用程序，以及可調整的服務器端部件。vb中提供大量的控件，這些控件可幫助我們設計界面和實現功能，減少了編程人員

15、的很多麻煩，提高了編程的效率和可靠性。所以我選擇visual basic 6.0作為我這套系統的開發(fā)環(huán)境。 (2)面向對象編程的概念面向對象的程序設計(object-oriented programming，簡記為oop)是visual basic6.0誕生的基礎。oop立意于創(chuàng)建軟件重用代碼，具備更好地模擬現實世界環(huán)境的能力，這使它被公認為是自上而下編程的優(yōu)勝者。它通過給程序中加入擴展語句，把函數“封裝”進windows編程所必需的“對象”中。面向對象的編程語言使得復雜的工作條理清晰、編寫容易。說它是一場革命，不是對對象本身而言，而是對它們處理工作的能力而言。對象并不與傳統程序設計和編程方法

16、兼容，只是部分面向對象反而會使情形更糟。除非整個開發(fā)環(huán)境都是面向對象的，否則對象產生的好處還沒有帶來的麻煩多。而visual basic6.0是完全面向對象的，這就使得visual basic6.0成為一種觸手可及的促進軟件重用的開發(fā)工具，從而具有強大的吸引力。(3)access簡介access是office辦公套件中一個極為重要的組成部分。剛開始時微軟公司是將access單獨作為一個產品進行銷售的，自office 97開始將access捆綁到其中，成為office套件中的一個重要成員。現在它已經成為office辦公套件中不可缺少的部件了。microsoft 公司在access 95 的基礎上

17、陸續(xù)推出了 access 97、access 2000，成為世界上最流行的桌面數據庫管理系統之一。access是一種關系型數據庫管理系統，不但能存儲和管理數據，還能編寫數據庫管理軟件，用戶可以通過access提供的開發(fā)環(huán)境及工具方便地構建數據庫應用程序，大部分是直觀的可視化的操作，無需編寫程序代碼，是一種使用方便、功能較強的數據庫開發(fā)工具。122 經濟可行性隨著計算機技術的飛速發(fā)展，計算機在企業(yè)管理中應用的普及，利用計算機實現企業(yè)人事管理勢在必行。21世紀是一個充滿競爭和挑戰(zhàn)的世紀。在這個世紀中，高效化、系統化、規(guī)范化、自動化已成為現代企業(yè)的代名詞。做為我國支柱產業(yè)之一的房地產業(yè)在當今智能化小

18、區(qū)的發(fā)展的驅動下，在當今信息時代的推動下，擁有自己的一套特色的小區(qū)物業(yè)管理系統是非常必要的，與小區(qū)內繁多的硬件設施相比較，傳統的手工式的管理方式已經無法適合當今的龐大的數據處理和精確的運算需求，所以一套精美完善的小區(qū)物業(yè)管理系統是提高工作效率節(jié)省人力物力的有效解決方案。傳統的管理方式，對物業(yè)管理人員要求數量多，耗資高，錯誤率高，工作人員流動和對新人的培訓經費也是不小的開支。一套完善的小區(qū)物業(yè)管理系統可持續(xù)使用并能隨著時代和工作的需求不斷更新，一期投入終身受用，按長期的使用計算，開發(fā)系統的造價平均到每年與傳統式的管理方式的年耗資本相對比，性價比是可行的。開發(fā)這套系統的經濟可行性是很高的。123

19、操作可行性對于這套小區(qū)物業(yè)管理系統而言，在投入使用前，會由開發(fā)并能熟練操作本系統的工程人員對用戶群進行專業(yè)系統的培訓。培訓內容應包括，熟練掌握系統的各個功能和簡單的系統維護，在開發(fā)設計程序的過程中直觀的界面和控件的文字解釋完全能使得用戶充分理解起功能和意義，在計算機普及的今天，用戶對本系統的操作完全可以看做是一種簡單的，配合形式的手工操作，因為本系統最適合用于微型機，可以說幾乎任何人都可以使用和管理。所以本系統的操作是完全可行的。124 調度可行性調度可行性指的是建議的計算機系統能否在規(guī)定的期限內交付給用戶。由于合同的規(guī)定，能否預期的交付涉及到開發(fā)人員的信譽等等。所以開發(fā)期限的選定也是非常重要

20、的因素，根據小區(qū)物業(yè)管理的日常的正常的業(yè)務運作規(guī)律和工作性質，可以看出這些內容是我們平時常見的工作，所以開發(fā)人員在開發(fā)起來比較容易入手，所以可以判斷開發(fā)本系統的周期比較短，開發(fā)中的不可預見問題會比較容易解決，在開發(fā)小組的分析后應該容易做出相對準確的，誤差微小的開發(fā)期限，應該可以在規(guī)定時間內，快速的、完整的交付給用戶使用。125 硬件配置(1) 硬件設備及操作系統服務器：pentium4以上配置的高性能pc機，內存應在256m以上，硬盤在40g以上。確認該計算機已經安裝數據庫軟件microsoft visual basic 6.0軟件。操作系統：windows 9x/me、windows 200

21、0、windows xp、windows nt，分辨率：1024*768。客戶端：pentium233（或與此相當的cpu）以上配置的pc機，內存應在32m以上，硬盤在1g以上。windows 9x以上操作系統。確認已安裝bde。(2) 開發(fā)平臺前臺開發(fā)工具：microsoft visual basic 6.0前臺開發(fā)工具：microsoft visual basic 6.0后臺數據庫：access 2000第二章 系統分析21需求分析211系統需求功能概括經過調研與可行性分析，出于對人們生活住房考慮，設計了這套小區(qū)物業(yè)管理系統，本系統主要考慮到小區(qū)物業(yè)管理的普遍要求，小區(qū)物業(yè)管理系統主要包括

22、：(1) 對小區(qū)所有房屋資料的錄入和增、刪、改、查詢等功能實現，在基于這些小區(qū)的房產資源對小區(qū)進行管理。(2) 對小區(qū)內住戶的詳細資料的管理，包括增、刪、改、查詢等功能的實現，這些也是一個小區(qū)的基本資源，畢竟物業(yè)管理最后是針對小區(qū)的所有住戶而言的。(3) 在具有了所有的基本資料信息后，需要實現實質性的物業(yè)管理。主要的管理業(yè)務包括：物業(yè)設備管理、儀表（水、電、寬帶）數據管理、收費管理、住戶投訴管理、故障管理等。這些成為小區(qū)物業(yè)管理的主體。這樣就可以便于物業(yè)公司對小區(qū)進行全面的了解和管理了。212系統操作設計內容根據以上的操作需要研究設計內容如下：(1) 模塊功能的研究設計：盡量采用物業(yè)管理部門中

23、現有的軟硬件環(huán)境以及先進的管理系統開發(fā)方案，從而達到充分利用現有資源，提高系統開發(fā)水平和應用效果的目的。系統應完全符合物業(yè)管理員對業(yè)戶管理的規(guī)定，滿足對房產信息及住戶信息等工作需要，并達到操作過程中的直觀、方便、實用、安全等要求。通過調研情況進行需求分析，進行模塊的劃分和功能的界定，并對各個模塊的具體管理流程進行控制和編碼實現。(2) 良好的數據系統設計：所小區(qū)物業(yè)管理系統應充分具備數據庫的維護功能，可以及時根據用戶的需求對數據庫中的信息進行添加、刪除、修改等操作。(3) 完備的信息查詢統計：為滿足管理和決策工作的需要，在查詢基礎上應具備一定的統計功能。(4) 后期維護：所開發(fā)的小區(qū)物業(yè)管理系

24、統應采用模塊化程序設計方法，收到既便于系統功能的各種組合和修改，又便于未參與開發(fā)的技術維護人員補充、維護的效果。以上是對本信息管理系統進行的基本的需求分析，也就是本系統所要實現的基本功能。但是，這并不是整個系統的全部需求，對系統不斷出現的新需求，需要系統在日后的使用中通過系統的更新與維護來實現。這樣，才能使系統得到不斷的完善，功能更加強大，與用戶的交互性更強。2.2 功能分析221系統用戶管理功能(1) 系統用戶的添加，包括用戶名、密碼信息。222 小區(qū)住戶信息管理功能(1) 住戶基本信息的錄入，包括住戶電話、住戶姓名、物業(yè)地址、身份證號、入住時間等信息。(2) 住戶基本信息的修改。(3) 住

25、戶基本信息的刪除。(4) 住戶基本信息的查詢。222 小區(qū)房產信息管理功能(1) 房產基本信息的錄入，包括物業(yè)地址、使用面積、房屋結構、設備、出售信息等信息。(2) 房產基本信息的修改。(3) 房產基本信息的刪除。(4) 房產基本信息的查詢。223 小區(qū)收費管理功能(1) 其中包括物業(yè)收費和儀表收費兩大類信息的錄入，包括收費住址、水費、電費、寬帶費、物業(yè)管理費、收費時間等信息。(2) 收費基本信息的修改。(3) 收費基本信息的刪除。(4) 收費基本信息的查詢。224 小區(qū)住戶故障處理管理功能(1) 住戶報修基本信息的錄入，包括住址、報修故障、經辦人、處理時間、查詢等信息。(2) 住戶故障基本信

26、息的修改。(3) 住戶故障基本信息的刪除。(4) 住戶故障基本信息的查詢。225 退出退出小區(qū)物業(yè)管理系統。第三章 系統總體設計31系統總體結構設計小區(qū)物業(yè)管理系統部分實體e-r圖如下所示:小區(qū)住戶基本信息實體 住戶姓名入住時間 住戶電話物業(yè)地址 圖3.1 住戶基本信息實體e-r圖小區(qū)房產基本信息實體積 出售信息物業(yè)地址 房屋結構使用面積 圖3.2 房產基本信息實體e-r圖故障基本信息實體住 址報修故障處理時間經辦人 圖3.3 住戶投訴基本信息實體e-r圖3.2 系統結構圖小區(qū)物業(yè)管理系統系統設置基本信息管理信息查詢故障處理退出系統添加用戶住戶管理房屋管理收費管理收費信息住戶信息房屋信息故障查

27、詢故障處理33 數據庫的設計(1) 用戶表用戶表存放登陸系統所需要的用戶名和密碼，需要訪問此表。表3.1用戶表字段名數據類型可否為空用戶名（主鍵）char(10)not null密碼intnot null (2) 住戶基本信息表住戶表存放小區(qū)內所有的住戶信息，這些信息也是小區(qū)物業(yè)管理的基本信息，在實現系統的各個功能中起真非常重要的作用。表3.2住戶基本信息表表字段名數據類型可否為空住址(主鍵)char(10)not null戶主char(10)not null身份證號碼varchar(50)not null電話char(20)null入住時間datetimenull (3) 房屋基本信息房產表

28、存放小區(qū)內的所有房屋的信息，其中包括已售出的房屋和未售出的房屋。表3.3房屋基本信息表字段名數據類型可否為空住址(主鍵)char(10)not null房屋結構varchar(50)not null設備float(8)not null房屋面積float(8)not null出售信息char(20)null (4) 處理故障表住戶處理故障表存放小區(qū)內住戶的各種故障的所有信息。表3.4處理故障表字段名數據類型可否為空住址(主鍵)char(10)not null處理故障datetimenot null經辦人char(10)null處理時間datetimenull (5) 收費信息表物業(yè)收費表存放小區(qū)

29、內住戶的各種收費信息。表3.5物業(yè)收費表字段名數據類型可否為空住址(主鍵)char(10)not null水費char(10)not null電費varchar(50)not null寬帶int(4)not null垃圾清運費int(4)not null物業(yè)管理費varchar(50)not null收費時間datetimenot null 第四章 系統詳細設計4.1界面設計與功能經過以上的分析及建摸模，已經完成了數據庫的后臺工作。下面要完成的是人機交互的界面。本系統分為以下三部分：(1) 用戶登陸；(2) 系統主體平臺；(3) 通過主體平臺調用的功能模塊。接下來即對各部分作詳細介紹：4.2

30、用戶登陸部分啟動系統程序后,首先進入系統登陸界面,在登陸進入主體平臺的時候，系統會要求用戶輸入用戶名及密碼作為驗證信息，為了防止非用戶在使用,輸入正常信息后便可以使用本系統。界面截圖如下:本模塊代碼如下：private sub command1_click()dim strusername as stringdim strpassword as stringstatic intlogintimes as integer if trim(text1.text) = then 如果用戶名為空 msgbox 用戶名不能為空！, vbokonly + vbcritical, 錯誤 text1.setf

31、ocus exit sub end if 打開數據庫中的 用戶表 adodc1.refresh 查找用戶名 adodc1.recordset.find 用戶名 = & text1.text & , , adsearchforward, 1 也可以用下面的過濾方式 adodc1.recordset.filter = 用戶名 = & text1.text & if not adodc1.recordset.eof then 找到記錄 strusername = adodc1.recordset!用戶名 strpassword = adodc1.recordset!密碼 else 沒找到記錄 tex

32、t1 = text2 = end if if strusername = text1.text and strpassword = text2.text then adodc1.recordset.close 關閉數據庫中的 用戶表 unload me 關閉窗體 frmmain.show 顯示主窗體 else 用戶名或密碼不對 msgbox 用戶名或密碼不對！, vbokonly + vbinformation, 提示 text1 = text2 = intlogintimes = intlogintimes + 1 if intlogintimes = 3 then 超過三次 adodc1.

33、recordset.close 關閉數據庫中的 用戶表 end 退出整個程序 end if text2.setfocus 重新輸入密碼 sendkeys home+end end ifend sub4.3 小區(qū)住戶信息管理模塊住戶資料主要是對住戶的基本信息如 (住戶電話、住戶姓名、物業(yè)地址、身份證號、入住時間等信息)和另外兩個標簽的信息進行添加、修改、刪除、查詢。添加、修改、刪除這些操作必須保存后才能生效。當記錄較多，通過簡單的查詢可以方便的找的目標記錄，查詢結果已表格方式顯示。表格顯示結果的同時，如果還出現多條記錄，可以根據某個字段對記錄進行排序，這樣可以給用戶帶來更大的方便和提高查找效率。

34、界面截圖如下:本模塊代碼如下：private sub command1_click()if rs.eof = false then text1.text = rs(戶主) text2.text = rs(住址) text3.text = rs(電話) text4.text = rs(入住時間) text5.text = rs(身份證號碼) rs.movenext end ifend subprivate sub command2_click()dim strql as stringset db = opendatabase(app.path + db1.mdb)strsql = insert

35、into 住戶基本信息表 (戶主,住址,電話,入住時間,身份證號碼) values ( + text1.text + , & text2.text & , & text3.text & , & text4.text & , & text5.text & )db.execute strsqldb.closetext1.text = text2.text = text3.text = text4.text = text5.text = msgbox 添加成功end subprivate sub command3_click()dim strsql as stringif msgbox(是否要修改此

36、記錄, 32 + 1, 修改) = 1 thenset db = opendatabase(app.path + db1.mdb)strsql = update 住戶基本信息表 set 住址 = + text2.text + ,戶主 = + text1.text + ,電話 = + text3.text + ,入住時間 = + text4.text + where 身份證號碼= + text5.text + end ifdb.execute strsqldb.closetext1.text = text2.text = text3.text = text4.text = text5.text

37、= msgbox 修改成功end subprivate sub command4_click()dim strqsl as stringset db = opendatabase(app.path + db1.mdb)strsql = delete * from 住戶基本信息表 where 住址 = + text1.text + db.execute strsqltext1.text = text2.text = text3.text = text4.text = text5.text = msgbox 刪除成功end subprivate sub command5_click()form3.

38、show unload meend subprivate sub command6_click()frmmain.show unload meend subprivate sub form_load()dim strsql as string set db = opendatabase(app.path + db1.mdb) strsql = select * from 住戶基本信息表 set rs = db.openrecordset(strsql)end sub4.4 房屋信息管理模塊房產資料主要是對住戶的基本信息如 (物業(yè)地址、使用面積、房屋結構、設備、出售信息等信息)的添加、修改、刪除

39、、查詢及統計記錄個數。添加、修改、刪除這些操作必須保存后才能生效。當記錄較多，通過簡單的查詢可以方便的找的目標記錄，查詢結果已表格方式顯示。表格顯示結果的同時，如果還出現多條記錄，可以根據某個字段對記錄進行排序，這樣可以給用戶帶來更大的方便和提高查找效率。界面截圖如下:本模塊代碼如下：private sub command1_click()if rs.eof = false then text1.text = rs(住址) text2.text = rs(設備) text3.text = rs(房屋結構) text4.text = rs(房屋面積) text5.text = rs(出售信息)

40、rs.movenext end ifend subprivate sub command2_click()dim strql as stringset db = opendatabase(app.path + db1.mdb)strsql = insert into 房屋基本信息 (住址,設備,房屋結構,房屋面積,出售信息) values ( + text1.text + , & text2.text & , & text3.text & , & text4.text & , & text5.text & )db.execute strsqldb.closetext1.text = text2

41、.text = text3.text = text4.text = text5.text = msgbox 添加成功end subprivate sub command3_click()dim strsql as stringif msgbox(是否要修改此記錄, 32 + 1, 修改) = 1 thenset db = opendatabase(app.path + db1.mdb)strsql = update 房屋基本信息 set 住址 = + text1.text + ,設備 = + text2.text + ,房屋結構 = + text3.text + ,房屋面積 = + text4

42、.text + where 出售信息= + text5.text + end ifdb.execute strsqldb.closetext1.text = text2.text = text3.text = text4.text = text5.text = msgbox 修改成功end subprivate sub command4_click()dim strqsl as stringset db = opendatabase(app.path + db1.mdb)strsql = delete * from 房屋基本信息 where 住址 = + text1.text + db.exe

43、cute strsqltext1.text = text2.text = text3.text = text4.text = text5.text = msgbox 刪除成功end subprivate sub command5_click()form5.show unload meend subprivate sub command6_click()frmmain.show unload meend subprivate sub form_load()dim strsql as string set db = opendatabase(app.path + db1.mdb) strsql =

44、 select * from 房屋基本信息 set rs = db.openrecordset(strsql)end sub4.5 物業(yè)收費管理模塊物業(yè)收費管理用是對小區(qū)內物業(yè)收費的總管理，主要功能也是對如 (住址、水費、電費、寬帶費、物業(yè)管理費、收費時間等信息) 的添加、修改、刪除、查詢及統計記錄個數。添加、修改、刪除這些操作必須保存后才能生效。記錄較多，通過簡單的查詢可以方便的找的目標記錄，查詢結果已表格方式顯示。表格顯示結果的同時，如果還出現多條記錄，可以根據某個字段對記錄進行排序，這樣可以給用戶帶來更大的方便和提高查找效率。界面截圖如下:本模塊代碼如下：private sub comm

45、and1_click()if rs.eof = false then text1.text = rs(住址) text2.text = rs(水費) text3.text = rs(電費) text4.text = rs(寬帶) text5.text = rs(垃圾清運費) text6.text = rs(物業(yè)管理費) text7.text = rs(收費時間) rs.movenext end ifend subprivate sub command2_click()dim strql as stringset db = opendatabase(app.path + db1.mdb)strs

46、ql = insert into 收費信息表 (住址,水費,電費,寬帶,垃圾清運費,物業(yè)管理費,收費時間) values ( + text1.text + , & text2.text & , & text3.text & , & text4.text & , & text5.text & , & text6.text & , & text7.text & )db.execute strsqldb.closetext1.text = text2.text = text3.text = text4.text = text5.text = text6.text = text7.text = msg

47、box 添加成功end subprivate sub command3_click()dim strsql as stringif msgbox(是否要修改此記錄, 32 + 1, 修改) = 1 thenset db = opendatabase(app.path + db1.mdb)strsql = update 收費信息表 set 住址 = + text1.text + ,水費 = + text2.text + ,電費 = + text3.text + ,寬帶 = + text4.text + ,垃圾清運費 = + text5.text + ,物業(yè)管理費 = + text6.text + ,收費時間 = + text7.text + end ifdb.execute strsqldb.closetext1.text = text2.text = text3.text = text4.text = text5.text = text6.text = text7.text = msgbox 修改成功end subprivate sub command4_click()dim strqsl as st