信息技術(shù)專業(yè)本科論文

1、江蘇大學(xué)繼續(xù)教育學(xué)院成人教育江蘇大學(xué)繼續(xù)教育學(xué)院成人教育畢業(yè)論文畢業(yè)論文 題目題目 小區(qū)物業(yè)管理信息系統(tǒng)的分析與設(shè)小區(qū)物業(yè)管理信息系統(tǒng)的分析與設(shè)計(jì)計(jì) 年級(jí)年級(jí) 專業(yè)專業(yè) 姓名姓名 2010 年年 11 月月 24 日日小區(qū)物業(yè)信息管理系統(tǒng)的分析與設(shè)計(jì)小區(qū)物業(yè)信息管理系統(tǒng)的分析與設(shè)計(jì)摘要摘要隨著北部灣的經(jīng)濟(jì)的發(fā)展，我市的城市建設(shè)也加快了步伐。小區(qū)物業(yè)管理是為了小區(qū)住戶提供更好的服務(wù)。而小區(qū)物業(yè)管理信息系統(tǒng)則是為了小區(qū)管理者和小區(qū)住戶更好地生活、工作而開發(fā)的管理軟件。小區(qū)物業(yè)管理系統(tǒng)是典型的信息管理系統(tǒng)，其開發(fā)主要包括后臺(tái)數(shù)據(jù)庫(kù)的建立和維護(hù)以及前端應(yīng)用程序的開發(fā)兩個(gè)方面。對(duì)于前者要求建立起數(shù)據(jù)的一

2、致性和完整性強(qiáng)、數(shù)據(jù)安全性好的庫(kù)。而對(duì)于后者則要求應(yīng)用程序功能完備，易使用等特點(diǎn)。因此通過對(duì)小區(qū)物業(yè)管理的調(diào)查、了解后，對(duì) SQL Server2000 數(shù)據(jù)庫(kù)管理系統(tǒng)、SQL 語言原理、VB 應(yīng)用程序設(shè)計(jì)，VB 數(shù)據(jù)庫(kù)技術(shù)進(jìn)行了較深入的學(xué)習(xí)和應(yīng)用，在系統(tǒng)開發(fā)過程中我使用 VB 作為開發(fā)工具，利用其提供的各種面向?qū)ο蟮拈_發(fā)工具，尤其是數(shù)據(jù)窗口這一能方便而又簡(jiǎn)潔操作數(shù)據(jù)庫(kù)的智能化對(duì)象。該系統(tǒng)開發(fā)成功后可以對(duì)小區(qū)物業(yè)管理進(jìn)行全方位的管理，功能包括：系統(tǒng)管理、社區(qū)管理、資源管理、收費(fèi)管理、報(bào)表查詢等。通過使用小區(qū)物業(yè)管理信息系統(tǒng)不僅能改善住戶生活的方便性，同時(shí)也降低了物業(yè)管理的運(yùn)作費(fèi)用、提高物業(yè)管理

3、的效率。但我市的計(jì)算機(jī)水平還不夠高，小區(qū)物業(yè)管理信息系統(tǒng)還不夠完善，還有待提高。關(guān)鍵詞關(guān)鍵詞：小區(qū)物業(yè)管理；管理信息系統(tǒng)；智能化；功能；visual basic 6.0 ；SQL Sever 2000The District Property Management Information SystemChinese language literature special field 2008 longxiaodan Instructor liangjiahaiAbstract Along with the development of economy, the gulf of zhuhai c

4、ity construction has also accelerated pace. Residential property management is to provide better service to village resident. And residential property management information system is for residential village resident manager and a better life, work and development management software.Residential pro

5、perty management system is the typical information management system, which mainly includes building up data-base of back-end and maintenance and the programming of the frontend application. The former required data consistency and integrality, and the security of data. For the latter request applic

6、ation function complete, easy to use, etc. So for residential property management through the investigation, the understanding of Server2000 SQL database management system, the SQL language principle, program design, VB VB application database technology in-depth study and application in system deve

7、lopment process, I use as a development tool, using VB provided all sorts of object-oriented development tools, especially data window this can conveniently and simple operation of the intelligent object database. The successful development of system of residential property management may carry on t

8、he omni-directional management, the function of system management, including: community management, resource management, charging management, report query etc. Through the use of residential property management information system can not only improve household life, but also reduce the convenience o

9、f operation cost management, improving the efficiency of property management. But the computer level high enough, residential property management information system is still not perfect, needs to improve.Keywords : The Property Management; Management Information System; intelligent; function目目 錄錄1.前

10、言前言.12.系統(tǒng)分析系統(tǒng)分析.2系統(tǒng)分析.2系統(tǒng)功能分析.22.2.1.登陸模塊.2系統(tǒng)管理模塊.22.2.3.社區(qū)管理.22.2.4.資源管理.3收費(fèi)管理.3查看帳目明細(xì)報(bào)表.3模塊功能設(shè)計(jì).4系統(tǒng)流程分析.4數(shù)據(jù)庫(kù)邏輯結(jié)構(gòu)設(shè)計(jì).5數(shù)據(jù)庫(kù)結(jié)構(gòu)的實(shí)現(xiàn).10創(chuàng)建數(shù)據(jù)庫(kù).11創(chuàng)建數(shù)據(jù)表.113.系統(tǒng)模塊的創(chuàng)建及功能的實(shí)現(xiàn)系統(tǒng)模塊的創(chuàng)建及功能的實(shí)現(xiàn).12關(guān)于程序設(shè)計(jì)的簡(jiǎn)要說明.12窗體界面設(shè)計(jì).123.1.2 Option Explicit.12詳細(xì)設(shè)計(jì).13系統(tǒng)項(xiàng)目文件和公共文件.13主控制平臺(tái)的設(shè)計(jì)和實(shí)現(xiàn).18用戶登陸模塊.20系統(tǒng)管理模塊.22社區(qū)管理模塊.233 資源管理.29收費(fèi)管理.3

11、3報(bào)表.374.結(jié)束與展望結(jié)束與展望.405.致謝致謝.41參考文獻(xiàn)參考文獻(xiàn).411.前言前言近幾年來,伴隨著我市經(jīng)濟(jì)的蓬勃發(fā)展，房地產(chǎn)行業(yè)已經(jīng)成為我市的投資熱門之一。城市建設(shè)規(guī)模越來越大，加上住房體制改革的不斷深化，一幢幢住宅小區(qū)迅速地拔地而起。居住小區(qū)的物業(yè)管理和其他行業(yè)一樣，都將面臨著新的機(jī)遇和挑戰(zhàn)。在以前，人們使用最為傳統(tǒng)的人工方式來管理小區(qū)，隨著時(shí)代的改變，這種傳統(tǒng)的管理模式出現(xiàn)越來越多的問題，比如：效率低、保密性差、數(shù)據(jù)冗長(zhǎng)等等，而且不斷產(chǎn)生的文件和數(shù)據(jù)越來越多，一定時(shí)期之后，對(duì)這些文件和數(shù)據(jù)的輸入、更新和維護(hù)工作都將越來越困難。面對(duì)這種挑戰(zhàn)，將小區(qū)物業(yè)管理信息化將成為房地產(chǎn)業(yè)市場(chǎng)

12、競(jìng)爭(zhēng)發(fā)展的重大趨勢(shì)。小區(qū)物業(yè)管理信息系統(tǒng)就是一個(gè)專門為房地產(chǎn)物業(yè)管理信息化而開發(fā)的一種系統(tǒng)?，F(xiàn)在已經(jīng)成為每個(gè)小區(qū)不可缺少的部分，它的內(nèi)容對(duì)于小區(qū)的籌劃者和管理者以及居住在小區(qū)內(nèi)的各位業(yè)主來說都是非常重要的，因?yàn)樾^(qū)物業(yè)管理系統(tǒng)能夠?yàn)橛脩籼峁┏渥愕男畔⒑涂旖莸牟樵兎?wù)。小區(qū)物業(yè)管理系統(tǒng)是典型的信息管理系統(tǒng)，其開發(fā)主要包括后臺(tái)數(shù)據(jù)庫(kù)的建立和維護(hù)以及前端應(yīng)用程序的開發(fā)兩個(gè)方面。對(duì)于前者要求建立起數(shù)據(jù)的一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的庫(kù)。而對(duì)于后者則要求應(yīng)用程序功能完備，易使用等特點(diǎn)。因此通過對(duì)小區(qū)物業(yè)管理的調(diào)查、了解后，對(duì) SQL Server2000 數(shù)據(jù)庫(kù)管理系統(tǒng)、SQL 語言原理、VB 應(yīng)用程

13、序設(shè)計(jì)，VB 數(shù)據(jù)庫(kù)技術(shù)進(jìn)行了較深入的學(xué)習(xí)和應(yīng)用。本系統(tǒng)主要完成對(duì)小區(qū)物業(yè)的以下幾個(gè)項(xiàng)目的管理：保安巡查安排、電費(fèi)管理、房屋信息、費(fèi)用查詢、費(fèi)用計(jì)算、費(fèi)用數(shù)據(jù)錄入、工作人員信息、管理區(qū)信息、客戶投訴、客戶信息、樓房信息、社區(qū)清潔安排、水費(fèi)管理、停車場(chǎng)管理、維修管理、小區(qū)綠化。綜上所訴，小區(qū)物業(yè)管理信息系統(tǒng)應(yīng)該滿足以下需求：（1）業(yè)務(wù)上滿足小區(qū)物業(yè)管理職能的基本需求，能夠方便地進(jìn)行工作人員管理，考勤管理，各種相關(guān)費(fèi)用管理，及車輛等的管理。（2）所有的界面都要有信息的瀏覽功能，同時(shí)保證數(shù)據(jù)的安全、可靠。（3）完善的報(bào)表功能，可以打印需要的報(bào)表。（4）與全統(tǒng)的手工管理相比，更添加數(shù)據(jù)的管理和用戶權(quán)限

14、的設(shè)置。2.系統(tǒng)分析系統(tǒng)分析系統(tǒng)分析是管理信息系統(tǒng)結(jié)構(gòu)化開發(fā)方法中的一個(gè)重要環(huán)節(jié)，是運(yùn)用系統(tǒng)的觀點(diǎn)和方法對(duì)原型進(jìn)行目標(biāo)分析，環(huán)境分析和數(shù)據(jù)分析，其主要的任務(wù)是在充分認(rèn)識(shí)原型的基礎(chǔ)上，通過問題的識(shí)別，可行性分析，系統(tǒng)化分析，最后完成新系統(tǒng)的邏輯方案設(shè)計(jì)。系統(tǒng)功能分析系統(tǒng)功能分析系統(tǒng)開發(fā)的總體任務(wù)是實(shí)現(xiàn)系統(tǒng)的規(guī)范化，系統(tǒng)化，自動(dòng)化。實(shí)現(xiàn)主要功能如下。輸入用戶名和密碼，如果用戶名和密碼正確，進(jìn)入主控制平臺(tái)；否則提示用戶明確的錯(cuò)誤信息。（1）管理人員信息子模塊：系統(tǒng)管理員進(jìn)行用戶權(quán)限設(shè)置和用戶的瀏覽，可以更改用戶密碼和用戶權(quán)限；同時(shí)，為保障系統(tǒng)健壯，進(jìn)行輸入檢查，給予必要的信息提示。（1）工作人員信息

15、子模塊：可以添加、保存、刪除工作人員信息，便于管理者安排工作。（2）停車場(chǎng)管理子模塊：可以添加、修改、刪除工作人員信息，方便管理，方便居民停放車輛。（3）客戶投訴子模塊：可以添加、修改、刪除客戶投訴信息，使得管理不斷完善，居民生活得更加舒適。（4）社區(qū)清潔安排子模塊：讓工作人員知道值班時(shí)間。也便于對(duì)工作人員值勤情況的了解與記錄。（5）保安巡查安排子模塊：讓工作人員知道值班時(shí)間。也便于對(duì)工作人員值勤情況的了解與記錄。給居民一個(gè)安全的居住環(huán)境。（6）小區(qū)綠化子模塊：號(hào)召大家要保護(hù)環(huán)境，綠化環(huán)境。（7）維修管理子模塊：可以設(shè)置添加、修改、刪除維修信息，維修人員可以及時(shí)的搶修，給居民帶來方便。（1）樓

16、房信息子模塊：可以提供有關(guān)開發(fā)商建樓房的相關(guān)信息。（2）房屋信息子模塊：可以了解居民的具體房屋的信息，便于管理。（3）管理區(qū)信息子模塊：可以添加、修改、刪除管理區(qū)的占地面積和人口居住情況。（4）客戶信息子模塊：可以添加、修改、刪除客戶的相關(guān)信息。（1）電費(fèi)管理子模塊：可以添加、修改、刪除電費(fèi)信息。（2）水費(fèi)管理子模塊：可以添加、修改、刪除水費(fèi)信息。（3）收費(fèi)標(biāo)準(zhǔn)子模塊，讓工作人員可以根據(jù)此的記錄收費(fèi)。（4）費(fèi)用的查詢子模塊：可以查詢某個(gè)房間的各種費(fèi)用。（5）費(fèi)用計(jì)算子模塊：便于費(fèi)用的管理與查詢。小區(qū)物業(yè)管理信息系統(tǒng)主要分為登陸、系統(tǒng)管理、社區(qū)管理、資源管理、收費(fèi)管理、報(bào)表查詢，共 6 個(gè)模塊。

17、系統(tǒng)主模塊層次圖如 2-1 所示：小區(qū)物業(yè)管理信息系統(tǒng)登陸系統(tǒng)管理社區(qū)管理資源管理收費(fèi)管理報(bào)表查詢圖圖 2.12.1 系統(tǒng)主模塊層次圖系統(tǒng)主模塊層次圖從上圖中可以看出各模塊之間的劃分，以及各模塊之間的聯(lián)系。這是系統(tǒng)總體設(shè)計(jì)的重要組成部分。如果對(duì)系統(tǒng)形成一個(gè)完整而全面的認(rèn)識(shí)，還需要進(jìn)行系統(tǒng)流程分析。所謂的系統(tǒng)流程就是用戶在使用系統(tǒng)時(shí)的工作過程。如圖 2.2 所示。 社區(qū)管理客戶投訴信息錄入資源管理收費(fèi)管理維修信息錄入房屋信息錄入停車場(chǎng)信息錄入樓房信息錄入維修數(shù)據(jù)入庫(kù)工作人員數(shù)據(jù)入庫(kù)停車場(chǎng)數(shù)據(jù)入庫(kù)工作人員信息錄入管理區(qū)信息錄入客戶信息錄入水費(fèi)信息錄入電費(fèi)信息錄入收費(fèi)標(biāo)準(zhǔn)費(fèi)用計(jì)算維修管理工作人員信息

18、管理停車場(chǎng)管理客戶投訴管理樓房信息管理房屋信息管理客戶信息管理管理區(qū)信息管理電費(fèi)管理水費(fèi)管理費(fèi)用數(shù)據(jù)的管理客戶投訴數(shù)據(jù)入庫(kù)樓房數(shù)據(jù)入庫(kù)房屋數(shù)據(jù)入庫(kù)管理區(qū)數(shù)據(jù)入庫(kù)客戶數(shù)據(jù)入庫(kù)電費(fèi)數(shù)據(jù)入庫(kù)水費(fèi)數(shù)據(jù)入庫(kù)費(fèi)用數(shù)據(jù)入庫(kù)數(shù)據(jù)查詢報(bào)表圖圖 2.2 系統(tǒng)流程圖系統(tǒng)流程圖本系統(tǒng)包括以下 13 個(gè)表：停車場(chǎng)信息、大樓信息、客戶信息、客戶投訴信息、小區(qū)工作人員信息、房屋信息、水表信息、電表信息、管理區(qū)信息、管理員信息表、維修信息、考勤表、費(fèi)用結(jié)算。列名數(shù)據(jù)類型長(zhǎng)度允許空序號(hào)char4NOT NULL大樓名稱char10NOT NULL車位Char10NOT NULL車牌號(hào)char10NOT NULL車型char10

19、NULL顏色char10NULL車主char10NULL房號(hào)char3NULL聯(lián)系 varchar20NULL使用方式varchar50NULL開始使用日期datetime8NULL備注varchar50NULL錄入員char10NULL列名數(shù)據(jù)類型長(zhǎng)度允許空大樓代碼Varchar3NULL大樓名稱Char10NOT NULL地理位置char10NULL開發(fā)商Varchar20NULL施工單位Varchar20NULL建筑面積char10NULL大樓類型char10NULL總房間數(shù)char10NULL大樓用途char10NULL占地面積char10NULL已售套數(shù)char10NULL已租套數(shù)c

20、har10NULL備注Varchar50NULL列名數(shù)據(jù)類型長(zhǎng)度允許空主鍵業(yè)主代碼char8Not NULL是大樓名稱char10NULL否房號(hào)char3NULL否姓名char10Not NULL否性別char10NULL否業(yè)主類別char10NULL否入伙時(shí)間datetime8NULL否籍貫char10NULL否證件char10NULL否證件號(hào)碼varchar20NULL否聯(lián)系 varchar20NULL否聯(lián)系人char10NULL否備注n char10NULL否管理區(qū)char10NULL否使用狀態(tài)char10NULL否列名數(shù)據(jù)類型長(zhǎng)度允許空序號(hào)Char4Not NULL標(biāo)題char10NU

21、LL房號(hào)char3NULL大樓名稱char10NULL投訴員char10NULL投訴類別char10NULL投訴時(shí)間datetime8NULL投訴人聯(lián)系方式Varchar20NULL投訴內(nèi)容Varchar20NULL處理結(jié)果Varchar50NULL錄入員Char8NULL接待員Char8NULL列名數(shù)據(jù)類型長(zhǎng)度允許空主鍵編號(hào)char3Not NULL是姓名char10Not NULL是性別char10NULL否出生年月datetime8NULL否參加工作時(shí)間datetime8NULL否聯(lián)系方式varChar20NULL否工種Char10NULL否 值班日期char10NULL否列名數(shù)據(jù)類型長(zhǎng)

22、度允許空房號(hào)char3NOT NULL大樓名稱Char10NULL住戶名稱char10NULL樓層號(hào)char10NULL房型char10NULL朝向char10NULL房屋結(jié)構(gòu)char10NULL建筑面積char10NULL使用面積char10NULL套用面積char10NULL住戶人數(shù)char10NULL車位char10NULL使用類型char10NULL使用狀態(tài)char10NULL簡(jiǎn)要說明Varchar50NULL維修情況Varchar50NULL備注Varchar50NULL列名數(shù)據(jù)類型長(zhǎng)度允許空大樓名稱char10Not NULL房號(hào)char3Not NULL儀表名稱char10NUL

23、L前月抄表日期datetime8NULL前月抄表數(shù)據(jù)char10NULL本月抄表日期datetime8NULL本月抄表數(shù)據(jù)Char10NULL實(shí)際用水量Int 4NULL列名數(shù)據(jù)類型長(zhǎng)度允許空大樓名稱char10Not NULL房號(hào)char3Not NULL儀表名稱char10NULL前月抄表日期datetime8NULL前月抄表數(shù)據(jù)char10NULL本月抄表日期datetime8NULL本月抄表數(shù)據(jù)Char10NULL實(shí)際用電量Int 4NULL表表 2.5.9 管理區(qū)信息管理區(qū)信息列名數(shù)據(jù)類型長(zhǎng)度允許空管理區(qū)代碼char3NOT NULL管理區(qū)名稱Char10NULL開發(fā)商varchar

24、20NULL承建商varchar20NULL地理位置varchar20NULL總樓群數(shù)char10 NULL總占地面積char10 NULL總建筑面積char10NULL總使用面積char10NULL總套房數(shù)char10NULL總?cè)丝赾har10NULL車位數(shù)char10NULL備注varchar50NULL開發(fā)日期char10NULL竣工日期char10NULL表表 2.5.10 管理員信息表管理員信息表列名數(shù)據(jù)類型長(zhǎng)度允許空主鍵用戶編號(hào)char10Not NULL是密碼char6Not NULL是用戶類型char10NULL否表表 2.5.11 維修信息維修信息列名數(shù)據(jù)類型長(zhǎng)度允許空序號(hào)c

25、har4NOT NULL標(biāo)題Char10NULL房號(hào)char10NULL大樓名稱char10NULL故障類別char10NULL故障時(shí)間datetime8 NULL聯(lián)系方式varchar20 NULL故障現(xiàn)象varchar50NULL維修內(nèi)容varchar50NULL處理結(jié)果varchar50NULL錄入員char10NULL接待員char10NULL需要費(fèi)用char10NULL表表 2.5.122.5.12 考勤表考勤表列名數(shù)據(jù)類型長(zhǎng)度允許空主鍵考勤日期datetime8Not NULL否編號(hào)char10Not NULL是姓名char10Not NULL否執(zhí)勤Int 4NULL否缺勤Int

26、4NULL否請(qǐng)假Int 4NULL否表表 2.5.132.5.13 費(fèi)用結(jié)算費(fèi)用結(jié)算列名數(shù)據(jù)類型長(zhǎng)度允許空大樓名稱char10NULL房號(hào)char10NULL管理費(fèi)char10NULL排污費(fèi)char10NULL租金char10NULL維修金char10NULL停車費(fèi)char10NULL其它 1char10NULL其它 2char10NULL水費(fèi)char10NULL電費(fèi)char10NULL總費(fèi)用結(jié)算Int4NULL經(jīng)過前面的需求分析及概念結(jié)構(gòu)的設(shè)計(jì)，得到數(shù)據(jù)庫(kù)的邏輯結(jié)構(gòu)?，F(xiàn)在就可以在 SQL SEVER 2000 數(shù)據(jù)庫(kù)中實(shí)現(xiàn)該結(jié)構(gòu)。打開 SQL SEVER 2000 企業(yè)管理器。右鍵數(shù)據(jù)庫(kù)，選

27、擇新建數(shù)據(jù)庫(kù)，在彈出的窗口名稱一欄里寫上“物業(yè)管理系統(tǒng)” ，按確定便可。如圖所示。圖圖 2.3 SQL Server2000 企業(yè)管理器企業(yè)管理器圖圖 2.4 新建數(shù)據(jù)庫(kù)窗口新建數(shù)據(jù)庫(kù)窗口打開物業(yè)管理系統(tǒng)的級(jí)聯(lián)接，便可看到表一欄，右鍵新建數(shù)據(jù)表,根據(jù)以上數(shù)據(jù)庫(kù)邏輯結(jié)構(gòu)，相繼創(chuàng)建以上表格，創(chuàng)建步驟如圖所示：關(guān)于程序設(shè)計(jì)的簡(jiǎn)要說明關(guān)于程序設(shè)計(jì)的簡(jiǎn)要說明（1）界面要清晰，控件的設(shè)計(jì)要便于用戶使用。例如，能夠確定輸入值范圍的地方盡量使用下拉列表框，讓用戶選擇輸入而不是使用文本框；同時(shí)注意保持所有界面風(fēng)格一致。（2）本系統(tǒng)選用 Datagrid 控件來顯示數(shù)據(jù)，為了保證系統(tǒng)根據(jù)不同的用戶提供靈活的操作并

28、保證系統(tǒng)的安全性，不能直接使用 Datagrid 控件來更新數(shù)據(jù)，而選用 TextBox.。3.1.2 Option Explicit在書寫所有模塊和窗體的任何函數(shù)代碼之前都要添加 Option Explicit 語句，用來強(qiáng)調(diào)要求使用 Dim 、Public、或 ReDim 語句顯示聲明該腳本中所使用的所有變量，使程序更加規(guī)范。系統(tǒng)模塊中定義一些公共變量和公共函數(shù)，減少整個(gè)程序的代碼量并簡(jiǎn)化程序的修改工作。系統(tǒng)模塊中包括 Main 函數(shù)。系統(tǒng)模塊的實(shí)現(xiàn)如下：（1）主體框架新建一個(gè) VB 的標(biāo)準(zhǔn) EXE 工程，建立系統(tǒng)的主體框架。（2）添加模塊（3）系統(tǒng)公共變量定義（見表 3.1）表表 3.1

29、 系統(tǒng)公共變量定義系統(tǒng)公共變量定義變量名稱變量類型說明gUserNameString用戶名，用來顯示狀態(tài)信息gUserkindString用戶類型，用來設(shè)定用戶權(quán)限gLoginSucceededBoolean登陸成功標(biāo)志BLUEConst（常量）值為：&HFF0000 藍(lán)色WHITEConst（常量）值為：&H80000005 白色（4）Main 函數(shù)系統(tǒng)啟動(dòng)函數(shù)。處理流程：以對(duì)話框模式啟動(dòng)登陸窗體，如果啟動(dòng)失敗，給出提示信息。Sub Main()Dim fLogin As New frmloginfLogin.Show vbModalIf Not gLoginSucceede

30、d ThenMsgBox “系統(tǒng)啟動(dòng)失敗,請(qǐng)重試!”, vbOKOnly + vbExclamation, “警告”End IfUnload fLoginEnd Sub（5）ConnectString 函數(shù)設(shè)置數(shù)據(jù)庫(kù)連接字符串函數(shù)，本函數(shù)無參數(shù)，返回值為數(shù)據(jù)庫(kù)連接字符串（本系統(tǒng)數(shù)據(jù)庫(kù)用戶名和密碼設(shè)置為 sa） 。Public Function ConnectString() As StringConnectString = “Provider=SQLOLEDB.1;Password=sa;User ID=sa;Initial Catalog=物業(yè)管理系統(tǒng);Data Source=127.0.0

31、.1;”End Function（6）ExecuteSQL 函數(shù)設(shè)置 SQL 語句的執(zhí)行函數(shù)，參數(shù)為將要執(zhí)行的 SQL 語句，ADO 數(shù)據(jù)集 rst 和是否允許數(shù)據(jù)集更新的布爾型變量。處理流程：創(chuàng)建到數(shù)據(jù)源的連接，根據(jù)布爾型變量的實(shí)參值，確定執(zhí)行 SQL 語句的方式并執(zhí)行 SQL 語句。如果 SQL 語句成功執(zhí)行，返回值為 True,結(jié)果存儲(chǔ)于與形參數(shù)據(jù)集 rst 相對(duì)應(yīng)的實(shí)參數(shù)據(jù)集內(nèi)；否則，返回值為 false。Public Function ExecuteSQL(ByVal SQL As String, rst As ADODB.Recordset, _Optional enableWri

32、te As Boolean = True) As BooleanDim sTokens() As StringOn Error GoTo Execute_ErrorsTokens = Split(SQL)con.Open ConnectStringIf enableWrite Thenrst.Open Trim$(SQL), con, adOpenStatic, adLockOptimisticElserst.Open Trim$(SQL), con, adOpenStatic, adLockReadOnlyEnd IfExecuteSQL = TrueExit FunctionExecute

33、_Error:ExecuteSQL = FalseExit FunctionEnd Function（7）DBExist 函數(shù)判斷數(shù)據(jù)庫(kù)中是否存在指定記錄，參數(shù)為將要執(zhí)行的 SQL 語句。處理流程：創(chuàng)建到數(shù)據(jù)源的連接，執(zhí)行 SQL 語句（不允許數(shù)據(jù)集更新） ，檢索記錄。如果存在指定記錄，返回記錄數(shù)；否則，返回值為 0。Public Function DBExist(ByVal SQL As String) As IntegerDim sTokens() As StringDim flag As StringetsTokens = Split(SQL)con.Open ConnectString

34、flag = ExecuteSQL(SQL, rst, False)If rst.RecordCount 0 ThenElseDBExist = 0End IfEnd Function（8）txtIsNull 函數(shù)判斷輸入到 TextBox 的內(nèi)容是否為空，參數(shù)為 TextBox 實(shí)例。處理流程：如果TextBox 文本為空，返回值為 True,否則，返回值為 false,并設(shè)置該 TextBox 獲得焦點(diǎn)，背景色設(shè)置為深藍(lán)色。Public Function txtIsNull(txt As TextBox) As BooleanIf Trim(txt.Text) = “” ThentxtIs

35、Null = Truetxt.BackColor = BLUEElsetxtIsNull = FalseEnd IfEnd Function（9）IsOverStringLen 函數(shù)判斷輸入內(nèi)容是否超過給定值，參數(shù)為需要處理的字符串和給定長(zhǎng)度值。處理流程：判斷字符串長(zhǎng)度不超過給定值是返回值為 True,否則，否則，返回值為false。Public Function IsOverStringLen(ByVal str As String, lenthText As Integer) As BooleanIf Len(Trim(str) lenthText ThenIsOverStringLen

36、= TrueElseIsOverStringLen = FalseEnd IfEnd Function（10）viewData 函數(shù)在 Datagrid 中顯示數(shù)據(jù)，參數(shù)為 SQL 語句和將要顯示數(shù)據(jù)的 Datagrid。處理流程：執(zhí)行 SQL 語句，當(dāng)檢索到的記錄數(shù)不為 0 時(shí)，將相應(yīng)的數(shù)據(jù)集設(shè)置為Datagrid 數(shù)據(jù)源，并返回記錄錄數(shù)；否則給出提示信息“還沒有數(shù)據(jù)！”返回值為0。Public Function viewData(ByVal txtsql As String, dgAll As DataGrid) As IntegerDim rstData AsDim result As

37、Stringresult = ExecuteSQL(txtsql, rstData, False)If rstData.RecordCount 0 ThenSet dgAll.DataSource = rstDataElseMsgBox “還沒有數(shù)據(jù)！”, vbOKOnly + vbExclamation, “警告”viewData = 0End IfEnd Function（11）ISEquelLen 函數(shù)判斷輸入到 TextBox 的內(nèi)容長(zhǎng)度是否為給定值，參數(shù)為 TextBox 實(shí)例和給定長(zhǎng)度值。處理流程：如果 TextBox 文本內(nèi)容長(zhǎng)度為給定值。處理流程：如果 TextBox文本內(nèi)容長(zhǎng)

38、度為給定值，返回值為 false，并設(shè)置該 TextBox 獲得焦點(diǎn)，背景色變?yōu)樯钏{(lán)色。Public Function ISEquelLen(ByVal txt As TextBox, intlen As Integer) As BooleanIf Len(txt.Text) intlen Thentxt.BackColor = BLUEISEquelLen = FalseElseISEquelLen = TrueEnd IfEnd Function（12）cboData 函數(shù)為 ComboBox 賦值函數(shù)，參數(shù)為 SQL 語句和 ComboBox 實(shí)例。處理流程：首先從數(shù)據(jù)庫(kù)中檢索記錄，當(dāng)檢

39、索記錄不為 0 時(shí)，將名稱字段添加到 ComboBox 的顯示列表中，同時(shí)將編號(hào)字段作為相應(yīng)名稱的索引值。代碼如下：Public Function cboData(ByVal txt As String, cbo As ComboBox) As BooleanDim res As StringDim i As Integerres = ExecuteSQL(txt, rstcbo, False)If rstcbo.RecordCount 0 ThenFor i = 0 To rstcbo.RecordCount - 1cbo.AddItem (rstcbo.Fields(1)cbo.ItemD

40、ata(cbo.NewIndex) = rstcbo.Fields(0)NextcboData = TrueElsecboData = FalseEnd IfEnd Function（1）總體布局系統(tǒng)主控制平臺(tái)采用簡(jiǎn)單、直觀的布局，通過菜單實(shí)現(xiàn)對(duì)系統(tǒng)各個(gè)模塊的調(diào)試和對(duì)各個(gè)窗體的顯示。主控制平臺(tái)的界面效果如圖 3.1 所示： 圖圖 3.1 主控制界面效果圖主控制界面效果圖（2）程序設(shè)計(jì) 1)添加菜單和狀態(tài)欄；根據(jù)總體設(shè)計(jì)中對(duì)各個(gè)模塊的設(shè)計(jì)，使用菜單編輯器和 Toolbar 控件創(chuàng)建系統(tǒng)菜單和工具欄。菜單項(xiàng)目有： 系統(tǒng)管理管理人員信息。 社區(qū)管理維修管理、工作人員信息、停車場(chǎng)管理、客戶投訴、社區(qū)清

41、潔安排、保安巡查安排、小區(qū)綠化。 資源管理樓房信息、房屋信息、管理區(qū)信息、客戶信息。 收費(fèi)管理收費(fèi)標(biāo)準(zhǔn)、電費(fèi)管理、水費(fèi)管理、費(fèi)用計(jì)算、費(fèi)用查詢。 報(bào)表查詢費(fèi)用結(jié)算報(bào)表、水費(fèi)信息報(bào)表、電費(fèi)信息報(bào)表。 退出。2）窗體加載事件處理流程：調(diào)用初使化過程 initial，設(shè)置系統(tǒng)權(quán)限：當(dāng)前用戶不是系統(tǒng)管理員時(shí)，相應(yīng)的控件不可用。Private Sub Form_Load()Call purviewCall initialEnd Sub3）初始化過程 initial：Private Sub initial()StatusBaruser.Panels.Add (1)StatusBaruser.Panels.

42、Add (2)StatusBaruser.Panels.Add (3)StatusBaruser.Panels.Item(1).Style = sbrTextStatusBaruser.Panels.Item(2).Style = sbrDateStatusBaruser.Panels.Item(3).Style = sbrTimeStatusBaruser.Panels.Item(1).Text = “當(dāng)前系統(tǒng)用戶是” + gUserName + “，您是” + gUserkindEnd Sub4）權(quán)限設(shè)置函數(shù) purview：Private Sub purview()Select Case

43、 gUserkindCase “系統(tǒng)管理員”gUserPurview = 1frmmain.a_3.Enabled = TrueCase “資源主管”gUserPurview = 2frmmain.a_3.Enabled = FalseCase ElsegUserPurview = 3frmmain.a_3.Enabled = FalseEnd SelectEnd Sub5）單擊各個(gè)菜單或子菜單時(shí)顯示相應(yīng)的窗體?；菊Z法：From.show。各個(gè)菜單與窗體的對(duì)應(yīng)關(guān)系如下表所示：菜單名稱事件顯示窗體語句說明a_3Click顯示用戶管理b_5Click顯示保安巡查安排d_2Click顯示電費(fèi)管理c

44、_3Click顯示房屋信息d_6Click顯示費(fèi)用查詢d_5Click顯示費(fèi)用計(jì)算a_2Click顯示工作人員信息c_4Click顯示管理區(qū)信息b_3Click顯示客戶投訴c_5Click顯示客戶信息c_2Click顯示樓房信息b_4Click顯示社區(qū)清潔安排c_6Click顯示收費(fèi)標(biāo)準(zhǔn)d_3Click顯示水費(fèi)管理b_2Click顯示停車場(chǎng)管理c_7Click顯示維修管理b_6Click顯示小區(qū)綠化6）退出系統(tǒng)Private Sub f_1_Click()EndEnd Sub（1）登陸模塊輸入：用戶名和密碼。用戶登陸模塊的處理流程圖如下：登陸窗體啟動(dòng)判斷用戶名和密碼是否為空處理終止，進(jìn)行錯(cuò)誤信

45、息提示YESNO檢索用戶名是否存在NO進(jìn)行錯(cuò)誤提示！YES比較檢索到的密碼和輸入的密碼是否相等。NO進(jìn)行錯(cuò)誤提示！YES將該用戶名和用戶類型分別保存在全局變量gUserName 和gUserkind 中。進(jìn)入主控制平臺(tái)圖圖 3.2 用戶登錄模塊流程圖用戶登錄模塊流程圖（2）登陸模塊的窗體設(shè)置，如圖：圖圖 3.3 登錄模塊窗體登錄模塊窗體(3)程序設(shè)計(jì)1）開始身份驗(yàn)證。2） “取消”按鈕：卸載當(dāng)前窗體（unload me） ，退出此次登陸。系統(tǒng)管理模塊有管理人員信息模塊。此模塊只有系統(tǒng)管理員可以使用，其他用戶不能使用。(1)管理人員信息子模塊1）管理人員信息子模塊。輸入：用戶名、密碼和用戶類型。

46、管理人員信息子模塊的處理流程圖如圖 3.4：(系統(tǒng)管理員可用)用戶信息管理窗體啟動(dòng)從管理員信息表中讀取全部記錄并顯示在表格控件 dguser 中。判斷用戶名是否存在。修改、刪除添加判斷用戶名是否存在。處理終止，錯(cuò)誤提示。檢驗(yàn)輸入是否合法是檢驗(yàn)輸入是否合法否否處理終止，錯(cuò)誤提示。否處理終止，錯(cuò)誤提示。執(zhí)行 SQL 語句是是 圖圖 3.4 管理人員信息流程圖管理人員信息流程圖（2）程序設(shè)計(jì)(具體代碼見附錄)1）窗體公共變量定義見表 3.3：變 量 名 稱變 量 類 型說 明txtsqlString更新操作 SQL 語句txtTestString檢驗(yàn)數(shù)據(jù)庫(kù)中是否存在記錄的 SQL 語句rstUser

47、用戶信息數(shù)據(jù)集resultsBooleanExecuteSQL 函數(shù)的返回值resultIntegerViewData 函數(shù)返回值strStringMsgBox 的返回值2) 添加記錄:每次只能添加一條記錄,取值于界面上各個(gè)控件的內(nèi)容.代碼:3) 修改記錄:4) 刪除記錄:5) Datagrid 的 Click 事件6) viewDataUser 函數(shù):將管理員信息表數(shù)據(jù)在 Datagrid 表格中顯示.社區(qū)管理模塊包括維修管理、工作人員信息、停車場(chǎng)管理、客戶投訴、社區(qū)清潔安排、保安巡查安排、小區(qū)綠化。（1）維修管理子模塊1)輸入：序號(hào)、標(biāo)題、大樓名稱、房號(hào)、故障類別、聯(lián)系方式、故障現(xiàn)象、維修

48、內(nèi)容、處理結(jié)果、錄入員、接待員、需要費(fèi)用。2)程序設(shè)計(jì)：3）窗體公共變量定義：變 量 名 變 量 類 型說 明稱txtsqlString更新操作 SQL 語句txtTestString檢驗(yàn)數(shù)據(jù)庫(kù)中是否存在記錄的 SQL 語句rstwx維修信息數(shù)據(jù)集resultsBooleanExecuteSQL 函數(shù)的返回值resultIntegerViewData 函數(shù)返回值strStringMsgBox 的返回值4）程序設(shè)計(jì)5）維修管理圖：圖圖 3.6 維修管理圖維修管理圖（2）工作人員信息子模塊：1）輸入：編號(hào)、工種、姓名、出生年月、性別、聯(lián)系方式、參加工作時(shí)間。2）在沒有點(diǎn)擊添加時(shí)，保存和返回都是無效

49、的，只有在點(diǎn)擊添加以后保存和返回才有效，點(diǎn)添加時(shí)還會(huì)出現(xiàn)請(qǐng)輸入編號(hào)的提示。而且返回的時(shí)候會(huì)提示說是否放棄添加，點(diǎn)確定的話就返回原來添加前狀態(tài)。3）單擊選擇工種里的任意一個(gè)單選按鈕，DataGrid1 里面的就會(huì)顯示相應(yīng)的數(shù)據(jù)，便于查詢。4）窗體公共變量：表表 3.5 窗體公共變量窗體公共變量變 量 名 稱變 量 類 型isaddingBooleanobjcnConnectionobjmanRecordset（5）工作人員信息總體效果圖如圖 3.7：圖圖 3.7 工作人員信息總體效果圖工作人員信息總體效果圖（3）停車場(chǎng)管理子模塊：1）輸入：序號(hào)、大樓名稱、車位、車牌號(hào)、車型、顏色、車主、房號(hào)、聯(lián)

50、系 、使用方式、備注、錄入員。2）窗體公共變量： 表表 3.63.6 窗體公共變量窗體公共變量變 量 名 稱變 量 類 型說 明txtsqlString更新操作 SQL 語句txtTestString檢驗(yàn)數(shù)據(jù)庫(kù)中是否存在記錄的 SQL 語句rsttcc停車場(chǎng)信息數(shù)據(jù)集resultsBooleanExecuteSQL 函數(shù)的返回值resultIntegerViewData 函數(shù)返回值strStringMsgBox 的返回值3)添加、修改、刪除等操作的代碼參照維修管理的代碼。4)停車場(chǎng)管理窗體效果如圖 3.8 所示：（4）客戶投訴子模塊：1）輸入：序號(hào)、標(biāo)題、大樓名稱、房號(hào)、投訴員、投訴類別、投訴

51、人聯(lián)系方式、投訴內(nèi)容、處理結(jié)果、錄入員、接待員。2）窗體公共變量表表 3.7 窗體公共變量窗體公共變量變 量 名 稱變 量 類 型說 明txtsqlString更新操作 SQL 語句txtTestString檢驗(yàn)數(shù)據(jù)庫(kù)中是否存在記錄的 SQL 語句rstkehuts客戶投訴數(shù)據(jù)集resultsBooleanExecuteSQL 函數(shù)的返回值resultIntegerViewData 函數(shù)返回值strStringMsgBox 的返回值3）客戶投訴窗體效果圖如圖 3.9 所示：圖圖 3.9 客戶投訴窗體效果圖客戶投訴窗體效果圖（5）社區(qū)清潔安排子模塊1）窗體中 DTPicker1 會(huì)自動(dòng)更新系統(tǒng)時(shí)

52、間并顯示在窗體中，中間藍(lán)色字表示的是星期幾，比如說顯示的是 3，那就說某某值勤的那天是星期二，窗體上同時(shí)還有值勤人員的編號(hào)與姓名，為了考勤的方便我同時(shí)還設(shè)了執(zhí)勤，請(qǐng)假，缺勤的復(fù)選框，考勤的人只要在上面點(diǎn)擊相應(yīng)的項(xiàng)目，單擊保存既可以完成當(dāng)天的考勤，簡(jiǎn)便。同時(shí)保存和刪除按鈕只有管理者才可使用這些控件，保證數(shù)據(jù)的安全。2）窗體公共變量表表 3.8 窗體公共變量窗體公共變量變 量 名 稱變 量 類 型isaddingBooleanobjcnConnectionobjmanRecordsetobjdutyRecordset3）社區(qū)清潔安排的效果圖如圖 3.10：圖圖 3.10 社區(qū)清潔安排效果圖社區(qū)清潔

53、安排效果圖（6）保安巡查安排1）功能大概與社區(qū)清潔安排類似，可以參看社區(qū)清潔安排的。2）窗體公共變量表表 3.9 窗體公共變量窗體公共變量變 量 名 稱變 量 類 型isaddingBooleanobjcnConnectionobjmanRecordsetobjdutyRecordset3）窗體加載、保存、刪除參照前面的社區(qū)清潔安排。4）保安巡查安排的圖如圖 3.11：資源管理包括：樓房信息、房屋信息、管理區(qū)信息、客戶信息。（1）樓房信息子模塊：1）輸入：大樓代碼、大樓名稱、地理位置、占地面積、施工單位、開發(fā)商、大樓類型、大樓用途、建筑面積、總房間數(shù)、已售套數(shù)、已租套數(shù)、備注。2）窗體公共變量

54、變 量 名 稱變 量 類 型說 明txtsqlString更新操作 SQL 語句txtTestString檢驗(yàn)數(shù)據(jù)庫(kù)中是否存在記錄的 SQL 語句rstlf樓房信息數(shù)據(jù)集resultsBooleanExecuteSQL 函數(shù)的返回值resultIntegerViewData 函數(shù)返回值strStringMsgBox 的返回值3）窗體加載、添加、修改、刪除的代碼參照 frmuser 窗體的。4）樓房信息窗體圖如圖 3.13：樓房信息窗體效果圖樓房信息窗體效果圖（2）房屋信息子模塊：1）輸入：大樓代碼、大樓名稱、地理位置、占地面積、施工單位、開發(fā)商、大樓類型、大樓用途、建筑面積、總房間數(shù)、已售套數(shù)

55、、已租套數(shù)、備注。2）窗體公共變量變 量 名 稱變 量 類 型說 明txtsqlString更新操作 SQL 語句txtTestString檢驗(yàn)數(shù)據(jù)庫(kù)中是否存在記錄的 SQL 語句rstfw房屋信息數(shù)據(jù)集resultsBooleanExecuteSQL 函數(shù)的返回值resultIntegerViewData 函數(shù)返回值strStringMsgBox 的返回值3）窗體加載、添加、修改、刪除的代碼參照 frmuser 窗體的。4）樓房信息窗體圖如圖 3.14：（3）管理區(qū)信息子模塊1）輸入：管理區(qū)代碼、管理區(qū)名稱、開發(fā)商、承建商、地理位置、總樓群數(shù)、總占地面積、總建筑面積、總使用面積、總套房數(shù)、總

56、人口、車位數(shù)、備注、開發(fā)日期、竣工日期。2）窗體公共變量變 量 名 稱變 量 類 型說 明txtsqlString更新操作 SQL 語句txtTestString檢驗(yàn)數(shù)據(jù)庫(kù)中是否存在記錄的 SQL 語句rstglqxx管理區(qū)信息數(shù)據(jù)集resultsBooleanExecuteSQL 函數(shù)的返回值resultIntegerViewData 函數(shù)返回值strStringMsgBox 的返回值3）窗體加載、添加、修改、刪除的代碼參照維修管理窗體的。4）管理區(qū)信息窗體圖如圖 3.15：（4）客戶信息子模塊1）輸入：管理區(qū)、大樓名稱、房號(hào)、使用狀態(tài)、業(yè)主代碼、姓名、性別、業(yè)主類別、籍貫、證件、證件號(hào)碼、

57、聯(lián)系人、聯(lián)系 、備注。2）窗體公共變量變 量 名 稱變 量 類 型說 明txtsqlString更新操作 SQL 語句txtTestString檢驗(yàn)數(shù)據(jù)庫(kù)中是否存在記錄的 SQL 語句rstglqxx管理區(qū)信息數(shù)據(jù)集resultsBooleanExecuteSQL 函數(shù)的返回值resultIntegerViewData 函數(shù)返回值strStringMsgBox 的返回值3）窗體加載、添加、修改、刪除的代碼參照維修管理窗體的。4）客戶信息窗體圖如圖 3.16：圖圖 3.16 客戶信息窗體效果圖客戶信息窗體效果圖（1）收費(fèi)標(biāo)準(zhǔn)1）單擊相應(yīng)的單選框，在 TextBox 文本框顯示相應(yīng)的信息，讓工作人

58、員和客戶都能了解收費(fèi)的標(biāo)準(zhǔn)。2）收費(fèi)標(biāo)準(zhǔn)窗體如圖 3.17： （2）電費(fèi)管理1）輸入：大樓名稱、房號(hào)、儀表名稱、前月抄表數(shù)據(jù)、本月抄表數(shù)據(jù)。2）窗體公共變量變 量 名 稱變 量 類 型說 明txtsqlString更新操作 SQL 語句txtTestString檢驗(yàn)數(shù)據(jù)庫(kù)中是否存在記錄的 SQL 語句rstdfxx電費(fèi)信息數(shù)據(jù)集resultsBooleanExecuteSQL 函數(shù)的返回值resultIntegerViewData 函數(shù)返回值strStringMsgBox 的返回值3）根據(jù)前月和本月的數(shù)據(jù)可以計(jì)算出實(shí)際的用電量，在修改了相應(yīng)的數(shù)據(jù)時(shí)，可以用計(jì)算按鈕算出準(zhǔn)確的數(shù)據(jù)，再點(diǎn)擊修改按鈕

59、，修改成功后既可。4）添加、修改、刪除按鈕參照維修管理代碼寫。5）電費(fèi)信息窗體如圖 3.18：（3）水費(fèi)管理1）輸入：大樓名稱、房號(hào)、儀表名稱、前月抄表數(shù)據(jù)、本月抄表數(shù)據(jù)。2）窗體公共變量變 量 名 稱變 量 類 型說 明txtsqlString更新操作 SQL 語句txtTestString檢驗(yàn)數(shù)據(jù)庫(kù)中是否存在記錄的 SQL 語句rstsfxx水費(fèi)信息數(shù)據(jù)集resultsBooleanExecuteSQL 函數(shù)的返回值resultIntegerViewData 函數(shù)返回值strStringMsgBox 的返回值3）根據(jù)前月和本月的數(shù)據(jù)可以計(jì)算出實(shí)際的用水量，在修改了相應(yīng)的數(shù)據(jù)時(shí)，可以用計(jì)算按

60、鈕算出準(zhǔn)確的數(shù)據(jù)，再點(diǎn)擊修改按鈕，修改成功后既可。4）添加、修改、刪除、按鈕參照維修管理代碼寫，計(jì)算水費(fèi)的按鈕參照計(jì)算電費(fèi)的代碼寫。5）水費(fèi)信息窗體如圖 3.19：（4）收費(fèi)計(jì)算1）輸入：大樓名稱、房號(hào)、管理費(fèi)、排污費(fèi)、租金、維修金、停車費(fèi)、其它1、其它 2、水費(fèi)、電費(fèi)。2）窗體公共變量變 量 名 稱變 量 類 型說 明txtsqlString更新操作 SQL 語句txtTestString檢驗(yàn)數(shù)據(jù)庫(kù)中是否存在記錄的 SQL 語句rstfyjs總費(fèi)信息數(shù)據(jù)集resultsBooleanExecuteSQL 函數(shù)的返回值resultIntegerViewData 函數(shù)返回值strStringMsgBox 的返回