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

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

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

3、的效率。但我市的計算機水平還不夠高，小區(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收費管理.3查看帳目明細報表.3模塊功能設(shè)計.4系統(tǒng)流程分析.4數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計.5數(shù)據(jù)庫結(jié)構(gòu)的實現(xiàn).10創(chuàng)建數(shù)據(jù)庫.11創(chuàng)建數(shù)據(jù)表.113.系統(tǒng)模塊的創(chuàng)建及功能的實現(xiàn)系統(tǒng)模塊的創(chuàng)建及功能的實現(xiàn).12關(guān)于程序設(shè)計的簡要說明.12窗體界面設(shè)計.123.1.2 Option Explicit.12詳細設(shè)計.13系統(tǒng)項目文件和公共文件.13主控制平臺的設(shè)計和實現(xiàn).18用戶登陸模塊.20系統(tǒng)管理模塊.22社區(qū)管理模塊.233 資源管理.29收費管理.3

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

12、競爭發(fā)展的重大趨勢。小區(qū)物業(yè)管理信息系統(tǒng)就是一個專門為房地產(chǎn)物業(yè)管理信息化而開發(fā)的一種系統(tǒng)?，F(xiàn)在已經(jīng)成為每個小區(qū)不可缺少的部分，它的內(nèi)容對于小區(qū)的籌劃者和管理者以及居住在小區(qū)內(nèi)的各位業(yè)主來說都是非常重要的，因為小區(qū)物業(yè)管理系統(tǒng)能夠為用戶提供充足的信息和快捷的查詢服務(wù)。小區(qū)物業(yè)管理系統(tǒng)是典型的信息管理系統(tǒng)，其開發(fā)主要包括后臺數(shù)據(jù)庫的建立和維護以及前端應(yīng)用程序的開發(fā)兩個方面。對于前者要求建立起數(shù)據(jù)的一致性和完整性強、數(shù)據(jù)安全性好的庫。而對于后者則要求應(yīng)用程序功能完備，易使用等特點。因此通過對小區(qū)物業(yè)管理的調(diào)查、了解后，對 SQL Server2000 數(shù)據(jù)庫管理系統(tǒng)、SQL 語言原理、VB 應(yīng)用程

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

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

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

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

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

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

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

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

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

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

23、L前月抄表日期datetime8NULL前月抄表數(shù)據(jù)char10NULL本月抄表日期datetime8NULL本月抄表數(shù)據(jù)Char10NULL實際用水量Int 4NULL列名數(shù)據(jù)類型長度允許空大樓名稱char10Not NULL房號char3Not NULL儀表名稱char10NULL前月抄表日期datetime8NULL前月抄表數(shù)據(jù)char10NULL本月抄表日期datetime8NULL本月抄表數(shù)據(jù)Char10NULL實際用電量Int 4NULL表表 2.5.9 管理區(qū)信息管理區(qū)信息列名數(shù)據(jù)類型長度允許空管理區(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ù)類型長度允許空主鍵用戶編號char10Not NULL是密碼char6Not NULL是用戶類型char10NULL否表表 2.5.11 維修信息維修信息列名數(shù)據(jù)類型長度允許空序號c

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

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

27、擇新建數(shù)據(jù)庫，在彈出的窗口名稱一欄里寫上“物業(yè)管理系統(tǒng)” ，按確定便可。如圖所示。圖圖 2.3 SQL Server2000 企業(yè)管理器企業(yè)管理器圖圖 2.4 新建數(shù)據(jù)庫窗口新建數(shù)據(jù)庫窗口打開物業(yè)管理系統(tǒng)的級聯(lián)接，便可看到表一欄，右鍵新建數(shù)據(jù)表,根據(jù)以上數(shù)據(jù)庫邏輯結(jié)構(gòu)，相繼創(chuàng)建以上表格，創(chuàng)建步驟如圖所示：關(guān)于程序設(shè)計的簡要說明關(guān)于程序設(shè)計的簡要說明（1）界面要清晰，控件的設(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 語句，用來強調(diào)要求使用 Dim 、Public、或 ReDim 語句顯示聲明該腳本中所使用的所有變量，使程序更加規(guī)范。系統(tǒng)模塊中定義一些公共變量和公共函數(shù)，減少整個程序的代碼量并簡化程序的修改工作。系統(tǒng)模塊中包括 Main 函數(shù)。系統(tǒng)模塊的實現(xiàn)如下：（1）主體框架新建一個 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 藍色WHITEConst（常量）值為：&H80000005 白色（4）Main 函數(shù)系統(tǒng)啟動函數(shù)。處理流程：以對話框模式啟動登陸窗體，如果啟動失敗，給出提示信息。Sub Main()Dim fLogin As New frmloginfLogin.Show vbModalIf Not gLoginSucceede

30、d ThenMsgBox “系統(tǒng)啟動失敗,請重試!”, vbOKOnly + vbExclamation, “警告”End IfUnload fLoginEnd Sub（5）ConnectString 函數(shù)設(shè)置數(shù)據(jù)庫連接字符串函數(shù)，本函數(shù)無參數(shù)，返回值為數(shù)據(jù)庫連接字符串（本系統(tǒng)數(shù)據(jù)庫用戶名和密碼設(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ù)布爾型變量的實參值，確定執(zhí)行 SQL 語句的方式并執(zhí)行 SQL 語句。如果 SQL 語句成功執(zhí)行，返回值為 True,結(jié)果存儲于與形參數(shù)據(jù)集 rst 相對應(yīng)的實參數(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ù)庫中是否存在指定記錄，參數(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 實例。處理流程：如果TextBox 文本為空，返回值為 True,否則，返回值為 false,并設(shè)置該 TextBox 獲得焦點，背景色設(shè)置為深藍色。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ù)為需要處理的字符串和給定長度值。處理流程：判斷字符串長度不超過給定值是返回值為 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 時，將相應(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)容長度是否為給定值，參數(shù)為 TextBox 實例和給定長度值。處理流程：如果 TextBox 文本內(nèi)容長度為給定值。處理流程：如果 TextBox文本內(nèi)容長

38、度為給定值，返回值為 false，并設(shè)置該 TextBox 獲得焦點，背景色變?yōu)樯钏{色。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ù)據(jù)庫中檢索記錄，當(dāng)檢

39、索記錄不為 0 時，將名稱字段添加到 ComboBox 的顯示列表中，同時將編號字段作為相應(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)主控制平臺采用簡單、直觀的布局，通過菜單實現(xiàn)對系統(tǒng)各個模塊的調(diào)試和對各個窗體的顯示。主控制平臺的界面效果如圖 3.1 所示： 圖圖 3.1 主控制界面效果圖主控制界面效果圖（2）程序設(shè)計 1)添加菜單和狀態(tài)欄；根據(jù)總體設(shè)計中對各個模塊的設(shè)計，使用菜單編輯器和 Toolbar 控件創(chuàng)建系統(tǒng)菜單和工具欄。菜單項目有： 系統(tǒng)管理管理人員信息。 社區(qū)管理維修管理、工作人員信息、停車場管理、客戶投訴、社區(qū)清

41、潔安排、保安巡查安排、小區(qū)綠化。 資源管理樓房信息、房屋信息、管理區(qū)信息、客戶信息。 收費管理收費標(biāo)準(zhǔn)、電費管理、水費管理、費用計算、費用查詢。 報表查詢費用結(jié)算報表、水費信息報表、電費信息報表。 退出。2）窗體加載事件處理流程：調(diào)用初使化過程 initial，設(shè)置系統(tǒng)權(quán)限：當(dāng)前用戶不是系統(tǒng)管理員時，相應(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）單擊各個菜單或子菜單時顯示相應(yīng)的窗體。基本語法：From.show。各個菜單與窗體的對應(yīng)關(guān)系如下表所示：菜單名稱事件顯示窗體語句說明a_3Click顯示用戶管理b_5Click顯示保安巡查安排d_2Click顯示電費管理c

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

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

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

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

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

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

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

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

52、間并顯示在窗體中，中間藍色字表示的是星期幾，比如說顯示的是 3，那就說某某值勤的那天是星期二，窗體上同時還有值勤人員的編號與姓名，為了考勤的方便我同時還設(shè)了執(zhí)勤，請假，缺勤的復(fù)選框，考勤的人只要在上面點擊相應(yīng)的項目，單擊保存既可以完成當(dāng)天的考勤，簡便。同時保存和刪除按鈕只有管理者才可使用這些控件，保證數(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檢驗數(shù)據(jù)庫中是否存在記錄的 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檢驗數(shù)據(jù)庫中是否存在記錄的 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檢驗數(shù)據(jù)庫中是否存在記錄的 SQL 語句rstglqxx管理區(qū)信息數(shù)據(jù)集resultsBooleanExecuteSQL 函數(shù)的返回值resultIntegerViewData 函數(shù)返回值strStringMsgBox 的返回值3）窗體加載、添加、修改、刪除的代碼參照維修管理窗體的。4）管理區(qū)信息窗體圖如圖 3.15：（4）客戶信息子模塊1）輸入：管理區(qū)、大樓名稱、房號、使用狀態(tài)、業(yè)主代碼、姓名、性別、業(yè)主類別、籍貫、證件、證件號碼、

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

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

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

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