信息技术专业本科论文

1、江苏大学继续教育学院成人教育江苏大学继续教育学院成人教育毕业论文毕业论文 题目题目 小区物业管理信息系统的分析与设小区物业管理信息系统的分析与设计计 年级年级 专业专业 姓名姓名 2010 年年 11 月月 24 日日小区物业信息管理系统的分析与设计小区物业信息管理系统的分析与设计摘要摘要随着北部湾的经济的发展，我市的城市建设也加快了步伐。小区物业管理是为了小区住户提供更好的服务。而小区物业管理信息系统则是为了小区管理者和小区住户更好地生活、工作而开发的管理软件。小区物业管理系统是典型的信息管理系统，其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据的一

2、致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备，易使用等特点。因此通过对小区物业管理的调查、了解后，对 SQL Server2000 数据库管理系统、SQL 语言原理、VB 应用程序设计，VB 数据库技术进行了较深入的学习和应用，在系统开发过程中我使用 VB 作为开发工具，利用其提供的各种面向对象的开发工具，尤其是数据窗口这一能方便而又简洁操作数据库的智能化对象。该系统开发成功后可以对小区物业管理进行全方位的管理，功能包括：系统管理、社区管理、资源管理、收费管理、报表查询等。通过使用小区物业管理信息系统不仅能改善住户生活的方便性，同时也降低了物业管理的运作费用、提高物业管理

3、的效率。但我市的计算机水平还不够高，小区物业管理信息系统还不够完善，还有待提高。关键词关键词：小区物业管理；管理信息系统；智能化；功能；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.系统分析系统分析.2系统分析.2系统功能分析.22.2.1.登陆模块.2系统管理模块.22.2.3.社区管理.22.2.4.资源管理.3收费管理.3查看帐目明细报表.3模块功能设计.4系统流程分析.4数据库逻辑结构设计.5数据库结构的实现.10创建数据库.11创建数据表.113.系统模块的创建及功能的实现系统模块的创建及功能的实现.12关于程序设计的简要说明.12窗体界面设计.123.1.2 Option Explicit.12详细设计.13系统项目文件和公共文件.13主控制平台的设计和实现.18用户登陆模块.20系统管理模块.22社区管理模块.233 资源管理.29收费管理.3

11、3报表.374.结束与展望结束与展望.405.致谢致谢.41参考文献参考文献.411.前言前言近几年来,伴随着我市经济的蓬勃发展，房地产行业已经成为我市的投资热门之一。城市建设规模越来越大，加上住房体制改革的不断深化，一幢幢住宅小区迅速地拔地而起。居住小区的物业管理和其他行业一样，都将面临着新的机遇和挑战。在以前，人们使用最为传统的人工方式来管理小区，随着时代的改变，这种传统的管理模式出现越来越多的问题，比如：效率低、保密性差、数据冗长等等，而且不断产生的文件和数据越来越多，一定时期之后，对这些文件和数据的输入、更新和维护工作都将越来越困难。面对这种挑战，将小区物业管理信息化将成为房地产业市场

12、竞争发展的重大趋势。小区物业管理信息系统就是一个专门为房地产物业管理信息化而开发的一种系统。现在已经成为每个小区不可缺少的部分，它的内容对于小区的筹划者和管理者以及居住在小区内的各位业主来说都是非常重要的，因为小区物业管理系统能够为用户提供充足的信息和快捷的查询服务。小区物业管理系统是典型的信息管理系统，其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据的一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备，易使用等特点。因此通过对小区物业管理的调查、了解后，对 SQL Server2000 数据库管理系统、SQL 语言原理、VB 应用程

13、序设计，VB 数据库技术进行了较深入的学习和应用。本系统主要完成对小区物业的以下几个项目的管理：保安巡查安排、电费管理、房屋信息、费用查询、费用计算、费用数据录入、工作人员信息、管理区信息、客户投诉、客户信息、楼房信息、社区清洁安排、水费管理、停车场管理、维修管理、小区绿化。综上所诉，小区物业管理信息系统应该满足以下需求：（1）业务上满足小区物业管理职能的基本需求，能够方便地进行工作人员管理，考勤管理，各种相关费用管理，及车辆等的管理。（2）所有的界面都要有信息的浏览功能，同时保证数据的安全、可靠。（3）完善的报表功能，可以打印需要的报表。（4）与全统的手工管理相比，更添加数据的管理和用户权限

14、的设置。2.系统分析系统分析系统分析是管理信息系统结构化开发方法中的一个重要环节，是运用系统的观点和方法对原型进行目标分析，环境分析和数据分析，其主要的任务是在充分认识原型的基础上，通过问题的识别，可行性分析，系统化分析，最后完成新系统的逻辑方案设计。系统功能分析系统功能分析系统开发的总体任务是实现系统的规范化，系统化，自动化。实现主要功能如下。输入用户名和密码，如果用户名和密码正确，进入主控制平台；否则提示用户明确的错误信息。（1）管理人员信息子模块：系统管理员进行用户权限设置和用户的浏览，可以更改用户密码和用户权限；同时，为保障系统健壮，进行输入检查，给予必要的信息提示。（1）工作人员信息

15、子模块：可以添加、保存、删除工作人员信息，便于管理者安排工作。（2）停车场管理子模块：可以添加、修改、删除工作人员信息，方便管理，方便居民停放车辆。（3）客户投诉子模块：可以添加、修改、删除客户投诉信息，使得管理不断完善，居民生活得更加舒适。（4）社区清洁安排子模块：让工作人员知道值班时间。也便于对工作人员值勤情况的了解与记录。（5）保安巡查安排子模块：让工作人员知道值班时间。也便于对工作人员值勤情况的了解与记录。给居民一个安全的居住环境。（6）小区绿化子模块：号召大家要保护环境，绿化环境。（7）维修管理子模块：可以设置添加、修改、删除维修信息，维修人员可以及时的抢修，给居民带来方便。（1）楼

16、房信息子模块：可以提供有关开发商建楼房的相关信息。（2）房屋信息子模块：可以了解居民的具体房屋的信息，便于管理。（3）管理区信息子模块：可以添加、修改、删除管理区的占地面积和人口居住情况。（4）客户信息子模块：可以添加、修改、删除客户的相关信息。（1）电费管理子模块：可以添加、修改、删除电费信息。（2）水费管理子模块：可以添加、修改、删除水费信息。（3）收费标准子模块，让工作人员可以根据此的记录收费。（4）费用的查询子模块：可以查询某个房间的各种费用。（5）费用计算子模块：便于费用的管理与查询。小区物业管理信息系统主要分为登陆、系统管理、社区管理、资源管理、收费管理、报表查询，共 6 个模块。

17、系统主模块层次图如 2-1 所示：小区物业管理信息系统登陆系统管理社区管理资源管理收费管理报表查询图图 2.12.1 系统主模块层次图系统主模块层次图从上图中可以看出各模块之间的划分，以及各模块之间的联系。这是系统总体设计的重要组成部分。如果对系统形成一个完整而全面的认识，还需要进行系统流程分析。所谓的系统流程就是用户在使用系统时的工作过程。如图 2.2 所示。 社区管理客户投诉信息录入资源管理收费管理维修信息录入房屋信息录入停车场信息录入楼房信息录入维修数据入库工作人员数据入库停车场数据入库工作人员信息录入管理区信息录入客户信息录入水费信息录入电费信息录入收费标准费用计算维修管理工作人员信息

18、管理停车场管理客户投诉管理楼房信息管理房屋信息管理客户信息管理管理区信息管理电费管理水费管理费用数据的管理客户投诉数据入库楼房数据入库房屋数据入库管理区数据入库客户数据入库电费数据入库水费数据入库费用数据入库数据查询报表图图 2.2 系统流程图系统流程图本系统包括以下 13 个表：停车场信息、大楼信息、客户信息、客户投诉信息、小区工作人员信息、房屋信息、水表信息、电表信息、管理区信息、管理员信息表、维修信息、考勤表、费用结算。列名数据类型长度允许空序号char4NOT NULL大楼名称char10NOT NULL车位Char10NOT NULL车牌号char10NOT NULL车型char10

19、NULL颜色char10NULL车主char10NULL房号char3NULL联系 varchar20NULL使用方式varchar50NULL开始使用日期datetime8NULL备注varchar50NULL录入员char10NULL列名数据类型长度允许空大楼代码Varchar3NULL大楼名称Char10NOT NULL地理位置char10NULL开发商Varchar20NULL施工单位Varchar20NULL建筑面积char10NULL大楼类型char10NULL总房间数char10NULL大楼用途char10NULL占地面积char10NULL已售套数char10NULL已租套数c

20、har10NULL备注Varchar50NULL列名数据类型长度允许空主键业主代码char8Not NULL是大楼名称char10NULL否房号char3NULL否姓名char10Not NULL否性别char10NULL否业主类别char10NULL否入伙时间datetime8NULL否籍贯char10NULL否证件char10NULL否证件号码varchar20NULL否联系 varchar20NULL否联系人char10NULL否备注n char10NULL否管理区char10NULL否使用状态char10NULL否列名数据类型长度允许空序号Char4Not NULL标题char10NU

21、LL房号char3NULL大楼名称char10NULL投诉员char10NULL投诉类别char10NULL投诉时间datetime8NULL投诉人联系方式Varchar20NULL投诉内容Varchar20NULL处理结果Varchar50NULL录入员Char8NULL接待员Char8NULL列名数据类型长度允许空主键编号char3Not NULL是姓名char10Not NULL是性别char10NULL否出生年月datetime8NULL否参加工作时间datetime8NULL否联系方式varChar20NULL否工种Char10NULL否 值班日期char10NULL否列名数据类型长

22、度允许空房号char3NOT NULL大楼名称Char10NULL住户名称char10NULL楼层号char10NULL房型char10NULL朝向char10NULL房屋结构char10NULL建筑面积char10NULL使用面积char10NULL套用面积char10NULL住户人数char10NULL车位char10NULL使用类型char10NULL使用状态char10NULL简要说明Varchar50NULL维修情况Varchar50NULL备注Varchar50NULL列名数据类型长度允许空大楼名称char10Not NULL房号char3Not NULL仪表名称char10NUL

23、L前月抄表日期datetime8NULL前月抄表数据char10NULL本月抄表日期datetime8NULL本月抄表数据Char10NULL实际用水量Int 4NULL列名数据类型长度允许空大楼名称char10Not NULL房号char3Not NULL仪表名称char10NULL前月抄表日期datetime8NULL前月抄表数据char10NULL本月抄表日期datetime8NULL本月抄表数据Char10NULL实际用电量Int 4NULL表表 2.5.9 管理区信息管理区信息列名数据类型长度允许空管理区代码char3NOT NULL管理区名称Char10NULL开发商varchar

24、20NULL承建商varchar20NULL地理位置varchar20NULL总楼群数char10 NULL总占地面积char10 NULL总建筑面积char10NULL总使用面积char10NULL总套房数char10NULL总人口char10NULL车位数char10NULL备注varchar50NULL开发日期char10NULL竣工日期char10NULL表表 2.5.10 管理员信息表管理员信息表列名数据类型长度允许空主键用户编号char10Not NULL是密码char6Not NULL是用户类型char10NULL否表表 2.5.11 维修信息维修信息列名数据类型长度允许空序号c

25、har4NOT NULL标题Char10NULL房号char10NULL大楼名称char10NULL故障类别char10NULL故障时间datetime8 NULL联系方式varchar20 NULL故障现象varchar50NULL维修内容varchar50NULL处理结果varchar50NULL录入员char10NULL接待员char10NULL需要费用char10NULL表表 2.5.122.5.12 考勤表考勤表列名数据类型长度允许空主键考勤日期datetime8Not NULL否编号char10Not NULL是姓名char10Not NULL否执勤Int 4NULL否缺勤Int

26、4NULL否请假Int 4NULL否表表 2.5.132.5.13 费用结算费用结算列名数据类型长度允许空大楼名称char10NULL房号char10NULL管理费char10NULL排污费char10NULL租金char10NULL维修金char10NULL停车费char10NULL其它 1char10NULL其它 2char10NULL水费char10NULL电费char10NULL总费用结算Int4NULL经过前面的需求分析及概念结构的设计，得到数据库的逻辑结构。现在就可以在 SQL SEVER 2000 数据库中实现该结构。打开 SQL SEVER 2000 企业管理器。右键数据库，选

27、择新建数据库，在弹出的窗口名称一栏里写上“物业管理系统” ，按确定便可。如图所示。图图 2.3 SQL Server2000 企业管理器企业管理器图图 2.4 新建数据库窗口新建数据库窗口打开物业管理系统的级联接，便可看到表一栏，右键新建数据表,根据以上数据库逻辑结构，相继创建以上表格，创建步骤如图所示：关于程序设计的简要说明关于程序设计的简要说明（1）界面要清晰，控件的设计要便于用户使用。例如，能够确定输入值范围的地方尽量使用下拉列表框，让用户选择输入而不是使用文本框；同时注意保持所有界面风格一致。（2）本系统选用 Datagrid 控件来显示数据，为了保证系统根据不同的用户提供灵活的操作并

28、保证系统的安全性，不能直接使用 Datagrid 控件来更新数据，而选用 TextBox.。3.1.2 Option Explicit在书写所有模块和窗体的任何函数代码之前都要添加 Option Explicit 语句，用来强调要求使用 Dim 、Public、或 ReDim 语句显示声明该脚本中所使用的所有变量，使程序更加规范。系统模块中定义一些公共变量和公共函数，减少整个程序的代码量并简化程序的修改工作。系统模块中包括 Main 函数。系统模块的实现如下：（1）主体框架新建一个 VB 的标准 EXE 工程，建立系统的主体框架。（2）添加模块（3）系统公共变量定义（见表 3.1）表表 3.1

29、 系统公共变量定义系统公共变量定义变量名称变量类型说明gUserNameString用户名，用来显示状态信息gUserkindString用户类型，用来设定用户权限gLoginSucceededBoolean登陆成功标志BLUEConst（常量）值为：&HFF0000 蓝色WHITEConst（常量）值为：&H80000005 白色（4）Main 函数系统启动函数。处理流程：以对话框模式启动登陆窗体，如果启动失败，给出提示信息。Sub Main()Dim fLogin As New frmloginfLogin.Show vbModalIf Not gLoginSucceede

30、d ThenMsgBox “系统启动失败,请重试!”, vbOKOnly + vbExclamation, “警告”End IfUnload fLoginEnd Sub（5）ConnectString 函数设置数据库连接字符串函数，本函数无参数，返回值为数据库连接字符串（本系统数据库用户名和密码设置为 sa） 。Public Function ConnectString() As StringConnectString = “Provider=SQLOLEDB.1;Password=sa;User ID=sa;Initial Catalog=物业管理系统;Data Source=127.0.0

31、.1;”End Function（6）ExecuteSQL 函数设置 SQL 语句的执行函数，参数为将要执行的 SQL 语句，ADO 数据集 rst 和是否允许数据集更新的布尔型变量。处理流程：创建到数据源的连接，根据布尔型变量的实参值，确定执行 SQL 语句的方式并执行 SQL 语句。如果 SQL 语句成功执行，返回值为 True,结果存储于与形参数据集 rst 相对应的实参数据集内；否则，返回值为 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 函数判断数据库中是否存在指定记录，参数为将要执行的 SQL 语句。处理流程：创建到数据源的连接，执行 SQL 语句（不允许数据集更新） ，检索记录。如果存在指定记录，返回记录数；否则，返回值为 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 函数判断输入到 TextBox 的内容是否为空，参数为 TextBox 实例。处理流程：如果TextBox 文本为空，返回值为 True,否则，返回值为 false,并设置该 TextBox 获得焦点，背景色设置为深蓝色。Public Function txtIsNull(txt As TextBox) As BooleanIf Trim(txt.Text) = “” ThentxtIs

35、Null = Truetxt.BackColor = BLUEElsetxtIsNull = FalseEnd IfEnd Function（9）IsOverStringLen 函数判断输入内容是否超过给定值，参数为需要处理的字符串和给定长度值。处理流程：判断字符串长度不超过给定值是返回值为 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 函数在 Datagrid 中显示数据，参数为 SQL 语句和将要显示数据的 Datagrid。处理流程：执行 SQL 语句，当检索到的记录数不为 0 时，将相应的数据集设置为Datagrid 数据源，并返回记录录数；否则给出提示信息“还没有数据！”返回值为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 “还没有数据！”, vbOKOnly + vbExclamation, “警告”viewData = 0End IfEnd Function（11）ISEquelLen 函数判断输入到 TextBox 的内容长度是否为给定值，参数为 TextBox 实例和给定长度值。处理流程：如果 TextBox 文本内容长度为给定值。处理流程：如果 TextBox文本内容长

38、度为给定值，返回值为 false，并设置该 TextBox 获得焦点，背景色变为深蓝色。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 函数为 ComboBox 赋值函数，参数为 SQL 语句和 ComboBox 实例。处理流程：首先从数据库中检索记录，当检

39、索记录不为 0 时，将名称字段添加到 ComboBox 的显示列表中，同时将编号字段作为相应名称的索引值。代码如下：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）总体布局系统主控制平台采用简单、直观的布局，通过菜单实现对系统各个模块的调试和对各个窗体的显示。主控制平台的界面效果如图 3.1 所示： 图图 3.1 主控制界面效果图主控制界面效果图（2）程序设计 1)添加菜单和状态栏；根据总体设计中对各个模块的设计，使用菜单编辑器和 Toolbar 控件创建系统菜单和工具栏。菜单项目有： 系统管理管理人员信息。 社区管理维修管理、工作人员信息、停车场管理、客户投诉、社区清

41、洁安排、保安巡查安排、小区绿化。 资源管理楼房信息、房屋信息、管理区信息、客户信息。 收费管理收费标准、电费管理、水费管理、费用计算、费用查询。 报表查询费用结算报表、水费信息报表、电费信息报表。 退出。2）窗体加载事件处理流程：调用初使化过程 initial，设置系统权限：当前用户不是系统管理员时，相应的控件不可用。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 = “当前系统用户是” + gUserName + “，您是” + gUserkindEnd Sub4）权限设置函数 purview：Private Sub purview()Select Case

43、 gUserkindCase “系统管理员”gUserPurview = 1frmmain.a_3.Enabled = TrueCase “资源主管”gUserPurview = 2frmmain.a_3.Enabled = FalseCase ElsegUserPurview = 3frmmain.a_3.Enabled = FalseEnd SelectEnd Sub5）单击各个菜单或子菜单时显示相应的窗体。基本语法：From.show。各个菜单与窗体的对应关系如下表所示：菜单名称事件显示窗体语句说明a_3Click显示用户管理b_5Click显示保安巡查安排d_2Click显示电费管理c

44、_3Click显示房屋信息d_6Click显示费用查询d_5Click显示费用计算a_2Click显示工作人员信息c_4Click显示管理区信息b_3Click显示客户投诉c_5Click显示客户信息c_2Click显示楼房信息b_4Click显示社区清洁安排c_6Click显示收费标准d_3Click显示水费管理b_2Click显示停车场管理c_7Click显示维修管理b_6Click显示小区绿化6）退出系统Private Sub f_1_Click()EndEnd Sub（1）登陆模块输入：用户名和密码。用户登陆模块的处理流程图如下：登陆窗体启动判断用户名和密码是否为空处理终止，进行错误信

45、息提示YESNO检索用户名是否存在NO进行错误提示！YES比较检索到的密码和输入的密码是否相等。NO进行错误提示！YES将该用户名和用户类型分别保存在全局变量gUserName 和gUserkind 中。进入主控制平台图图 3.2 用户登录模块流程图用户登录模块流程图（2）登陆模块的窗体设置，如图：图图 3.3 登录模块窗体登录模块窗体(3)程序设计1）开始身份验证。2） “取消”按钮：卸载当前窗体（unload me） ，退出此次登陆。系统管理模块有管理人员信息模块。此模块只有系统管理员可以使用，其他用户不能使用。(1)管理人员信息子模块1）管理人员信息子模块。输入：用户名、密码和用户类型。

46、管理人员信息子模块的处理流程图如图 3.4：(系统管理员可用)用户信息管理窗体启动从管理员信息表中读取全部记录并显示在表格控件 dguser 中。判断用户名是否存在。修改、删除添加判断用户名是否存在。处理终止，错误提示。检验输入是否合法是检验输入是否合法否否处理终止，错误提示。否处理终止，错误提示。执行 SQL 语句是是 图图 3.4 管理人员信息流程图管理人员信息流程图（2）程序设计(具体代码见附录)1）窗体公共变量定义见表 3.3：变 量 名 称变 量 类 型说 明txtsqlString更新操作 SQL 语句txtTestString检验数据库中是否存在记录的 SQL 语句rstUser

47、用户信息数据集resultsBooleanExecuteSQL 函数的返回值resultIntegerViewData 函数返回值strStringMsgBox 的返回值2) 添加记录:每次只能添加一条记录,取值于界面上各个控件的内容.代码:3) 修改记录:4) 删除记录:5) Datagrid 的 Click 事件6) viewDataUser 函数:将管理员信息表数据在 Datagrid 表格中显示.社区管理模块包括维修管理、工作人员信息、停车场管理、客户投诉、社区清洁安排、保安巡查安排、小区绿化。（1）维修管理子模块1)输入：序号、标题、大楼名称、房号、故障类别、联系方式、故障现象、维修

48、内容、处理结果、录入员、接待员、需要费用。2)程序设计：3）窗体公共变量定义：变 量 名 变 量 类 型说 明称txtsqlString更新操作 SQL 语句txtTestString检验数据库中是否存在记录的 SQL 语句rstwx维修信息数据集resultsBooleanExecuteSQL 函数的返回值resultIntegerViewData 函数返回值strStringMsgBox 的返回值4）程序设计5）维修管理图：图图 3.6 维修管理图维修管理图（2）工作人员信息子模块：1）输入：编号、工种、姓名、出生年月、性别、联系方式、参加工作时间。2）在没有点击添加时，保存和返回都是无效

49、的，只有在点击添加以后保存和返回才有效，点添加时还会出现请输入编号的提示。而且返回的时候会提示说是否放弃添加，点确定的话就返回原来添加前状态。3）单击选择工种里的任意一个单选按钮，DataGrid1 里面的就会显示相应的数据，便于查询。4）窗体公共变量：表表 3.5 窗体公共变量窗体公共变量变 量 名 称变 量 类 型isaddingBooleanobjcnConnectionobjmanRecordset（5）工作人员信息总体效果图如图 3.7：图图 3.7 工作人员信息总体效果图工作人员信息总体效果图（3）停车场管理子模块：1）输入：序号、大楼名称、车位、车牌号、车型、颜色、车主、房号、联

50、系 、使用方式、备注、录入员。2）窗体公共变量： 表表 3.63.6 窗体公共变量窗体公共变量变 量 名 称变 量 类 型说 明txtsqlString更新操作 SQL 语句txtTestString检验数据库中是否存在记录的 SQL 语句rsttcc停车场信息数据集resultsBooleanExecuteSQL 函数的返回值resultIntegerViewData 函数返回值strStringMsgBox 的返回值3)添加、修改、删除等操作的代码参照维修管理的代码。4)停车场管理窗体效果如图 3.8 所示：（4）客户投诉子模块：1）输入：序号、标题、大楼名称、房号、投诉员、投诉类别、投诉

51、人联系方式、投诉内容、处理结果、录入员、接待员。2）窗体公共变量表表 3.7 窗体公共变量窗体公共变量变 量 名 称变 量 类 型说 明txtsqlString更新操作 SQL 语句txtTestString检验数据库中是否存在记录的 SQL 语句rstkehuts客户投诉数据集resultsBooleanExecuteSQL 函数的返回值resultIntegerViewData 函数返回值strStringMsgBox 的返回值3）客户投诉窗体效果图如图 3.9 所示：图图 3.9 客户投诉窗体效果图客户投诉窗体效果图（5）社区清洁安排子模块1）窗体中 DTPicker1 会自动更新系统时

52、间并显示在窗体中，中间蓝色字表示的是星期几，比如说显示的是 3，那就说某某值勤的那天是星期二，窗体上同时还有值勤人员的编号与姓名，为了考勤的方便我同时还设了执勤，请假，缺勤的复选框，考勤的人只要在上面点击相应的项目，单击保存既可以完成当天的考勤，简便。同时保存和删除按钮只有管理者才可使用这些控件，保证数据的安全。2）窗体公共变量表表 3.8 窗体公共变量窗体公共变量变 量 名 称变 量 类 型isaddingBooleanobjcnConnectionobjmanRecordsetobjdutyRecordset3）社区清洁安排的效果图如图 3.10：图图 3.10 社区清洁安排效果图社区清洁

53、安排效果图（6）保安巡查安排1）功能大概与社区清洁安排类似，可以参看社区清洁安排的。2）窗体公共变量表表 3.9 窗体公共变量窗体公共变量变 量 名 称变 量 类 型isaddingBooleanobjcnConnectionobjmanRecordsetobjdutyRecordset3）窗体加载、保存、删除参照前面的社区清洁安排。4）保安巡查安排的图如图 3.11：资源管理包括：楼房信息、房屋信息、管理区信息、客户信息。（1）楼房信息子模块：1）输入：大楼代码、大楼名称、地理位置、占地面积、施工单位、开发商、大楼类型、大楼用途、建筑面积、总房间数、已售套数、已租套数、备注。2）窗体公共变量

54、变 量 名 称变 量 类 型说 明txtsqlString更新操作 SQL 语句txtTestString检验数据库中是否存在记录的 SQL 语句rstlf楼房信息数据集resultsBooleanExecuteSQL 函数的返回值resultIntegerViewData 函数返回值strStringMsgBox 的返回值3）窗体加载、添加、修改、删除的代码参照 frmuser 窗体的。4）楼房信息窗体图如图 3.13：楼房信息窗体效果图楼房信息窗体效果图（2）房屋信息子模块：1）输入：大楼代码、大楼名称、地理位置、占地面积、施工单位、开发商、大楼类型、大楼用途、建筑面积、总房间数、已售套数

55、、已租套数、备注。2）窗体公共变量变 量 名 称变 量 类 型说 明txtsqlString更新操作 SQL 语句txtTestString检验数据库中是否存在记录的 SQL 语句rstfw房屋信息数据集resultsBooleanExecuteSQL 函数的返回值resultIntegerViewData 函数返回值strStringMsgBox 的返回值3）窗体加载、添加、修改、删除的代码参照 frmuser 窗体的。4）楼房信息窗体图如图 3.14：（3）管理区信息子模块1）输入：管理区代码、管理区名称、开发商、承建商、地理位置、总楼群数、总占地面积、总建筑面积、总使用面积、总套房数、总

56、人口、车位数、备注、开发日期、竣工日期。2）窗体公共变量变 量 名 称变 量 类 型说 明txtsqlString更新操作 SQL 语句txtTestString检验数据库中是否存在记录的 SQL 语句rstglqxx管理区信息数据集resultsBooleanExecuteSQL 函数的返回值resultIntegerViewData 函数返回值strStringMsgBox 的返回值3）窗体加载、添加、修改、删除的代码参照维修管理窗体的。4）管理区信息窗体图如图 3.15：（4）客户信息子模块1）输入：管理区、大楼名称、房号、使用状态、业主代码、姓名、性别、业主类别、籍贯、证件、证件号码、

57、联系人、联系 、备注。2）窗体公共变量变 量 名 称变 量 类 型说 明txtsqlString更新操作 SQL 语句txtTestString检验数据库中是否存在记录的 SQL 语句rstglqxx管理区信息数据集resultsBooleanExecuteSQL 函数的返回值resultIntegerViewData 函数返回值strStringMsgBox 的返回值3）窗体加载、添加、修改、删除的代码参照维修管理窗体的。4）客户信息窗体图如图 3.16：图图 3.16 客户信息窗体效果图客户信息窗体效果图（1）收费标准1）单击相应的单选框，在 TextBox 文本框显示相应的信息，让工作人

58、员和客户都能了解收费的标准。2）收费标准窗体如图 3.17： （2）电费管理1）输入：大楼名称、房号、仪表名称、前月抄表数据、本月抄表数据。2）窗体公共变量变 量 名 称变 量 类 型说 明txtsqlString更新操作 SQL 语句txtTestString检验数据库中是否存在记录的 SQL 语句rstdfxx电费信息数据集resultsBooleanExecuteSQL 函数的返回值resultIntegerViewData 函数返回值strStringMsgBox 的返回值3）根据前月和本月的数据可以计算出实际的用电量，在修改了相应的数据时，可以用计算按钮算出准确的数据，再点击修改按钮

59、，修改成功后既可。4）添加、修改、删除按钮参照维修管理代码写。5）电费信息窗体如图 3.18：（3）水费管理1）输入：大楼名称、房号、仪表名称、前月抄表数据、本月抄表数据。2）窗体公共变量变 量 名 称变 量 类 型说 明txtsqlString更新操作 SQL 语句txtTestString检验数据库中是否存在记录的 SQL 语句rstsfxx水费信息数据集resultsBooleanExecuteSQL 函数的返回值resultIntegerViewData 函数返回值strStringMsgBox 的返回值3）根据前月和本月的数据可以计算出实际的用水量，在修改了相应的数据时，可以用计算按

60、钮算出准确的数据，再点击修改按钮，修改成功后既可。4）添加、修改、删除、按钮参照维修管理代码写，计算水费的按钮参照计算电费的代码写。5）水费信息窗体如图 3.19：（4）收费计算1）输入：大楼名称、房号、管理费、排污费、租金、维修金、停车费、其它1、其它 2、水费、电费。2）窗体公共变量变 量 名 称变 量 类 型说 明txtsqlString更新操作 SQL 语句txtTestString检验数据库中是否存在记录的 SQL 语句rstfyjs总费信息数据集resultsBooleanExecuteSQL 函数的返回值resultIntegerViewData 函数返回值strStringMsgBox 的返回