小区物业管理系统课程设计报告.docx

1、小区物业管理系统课程设计报告小区物业管理系统课程设计报告 一.需求分析经过调研与可行性分析，出于对人们生活住房考虑，设计了这套小区物业管理系统，本系统主要考虑到小区物业管理的普遍要求，小区物业管理系统主要包括：对小区所有房屋资料的录入和增、删、改、查询等功能实现，在基于这些小区的房产资源对小区进行管理。 对小区内住户的详细资料的管理，包括增、删、改、查询等功能的实现，这些也是一个小区的基本资源，毕竟物业管理最后是针对小区的所有住户而言的。在具有了所有的基本资料信息后，需要实现实质性的物业管理. 本系统的开发基本解决了以往工资管理中存在的需要人工管理，进行人工统计，对工资的统计和查询都很单一、不

2、能综合处理业务、工作效率低等问题。二.系统结构设计 2.1 .系统功能模块设计系统功能设计是在系统开发的总体任务的基础工业上完成的2.2系统功能分析用户系统管理功能（1）系统用户的信息管理，包括用户名、修改密码。 统计报表打印功能（1）维修综合统计 （2）收费通知单浏览与查询功能 （1）住房相关信息（2）房屋相关信息（3）停车场相关信息（4）收费相关信息基本信息维护功能（1）住户信息维护（2）房屋信息维护（3）停车场信息维护（4）收费标准维护（5）收费信息维护（6）保修维修信息退出退出小区物业管理系统。2.3数据库的设计数据库设计是指对于一个给定的应用环境，构造最优的数据库模式，建立数据库及其

3、应用系统，使之能够有效地存储数据，满足各种用户的应用需求。数据库结构设计的好坏将直接影响系统的运行效率和系统开发进度，合理的数据库结构设计不仅可以提高系统运行效率，也有利于保证数据的完整性和一致性，有利于系统的实现。(1) 用户表用户表存放登陆系统所需要的用户名和密码，需要访问此表。表1用户表字段名数据类型可否为空用户名（主键）Char(10)NOT NULL密码IntNOT NULL (2) 住户基本信息表住户表存放小区内所有的住户信息，这些信息也是小区物业管理的基本信息，在实现系统的各个功能中起真非常重要的作用。表2住户基本信息表表字段名数据类型可否为空住址(主键)Char(10)NOT

4、NULL户主Char(10)NOT NULL身份证号码Varchar(50)NOT NULL电话Char(20)NULL入住时间DatetimeNULL (3) 房屋基本信息房产表存放小区内的所有房屋的信息，其中包括已售出的房屋和未售出的房屋。表3房屋基本信息表字段名数据类型可否为空住址(主键)Char(10)NOT NULL房屋结构Varchar(50)NOT NULL设备Float(8)NOT NULL房屋面积Float(8)NOT NULL出售信息Char(20)NULL(4) 处理故障表住户处理故障表存放小区内住户的各种故障的所有信息。表4处理故障表字段名数据类型可否为空住址(主键)C

5、har(10)NOT NULL处理故障DatetimeNOT NULL经办人Char(10)NULL处理时间DatetimeNULL (5) 收费信息表物业收费表存放小区内住户的各种收费信息。表5物业收费表字段名数据类型可否为空住址(主键)Char(10)NOT NULL水费Char(10)NOT NULL电费Varchar(50)NOT NULL宽带Int(4)NOT NULL垃圾清运费Int(4)NOT NULL物业管理费Varchar(50)NOT NULL收费时间DatetimeNOT NULL (6) 停车场信息表(tc)表6停车场信息表Table6 Parking Manageme

6、nt Information字段名数据类型可否为空车位编号(主键)Char(20)NOT NULL车位位置Varchar(50)NOT NULL停车住户Char(10)NOT NULL物业地址Varchar(50)NOT NULL开始日期DatetimeNULL截止日期DatetimeNULL备注Varchar(50)NULL(7) 住户报修表(zhbs)表7住户报修表Table7 Repairs Information字段名数据类型可否为空报修编号(主键)Char(10)NOT NULL报修日期DatetimeNOT NULL接待人员Char(10)NULL报修住户Char(10)NOT N

7、ULL物业地址Varchar(50)NOT NULL电话Char(20)NULL完成日期DatetimeNOT NULL维修人员Varchar(50)NOT NULL服务费用Float(8)NOT NULL物料费用Float(8)NOT NULL合计费用Float(8)NOT NULL报修内容Varchar(50)NOT NULL维修情况Varchar(50)NULL(8) 设备维修表(sbwx)表8设备维修表Table8 Equipment Maintenance Information字段名数据类型可否为空维修编号(主键)Char(10)NOT NULL设备编号Char(10)NOT NU

8、LL设备名称Char(20)NOT NULL维修日期DatetimeNOT NULL完成日期DatetimeNOT NULL维修费用Float(8)NOT NULL维修人员Varchar(50)NOT NULL维修内容Varchar(50)NOT NULL维修情况Varchar(50)NULL(9) 物业收费表(wysf)表9物业收费表Table9 Property Fee Information字段名数据类型可否为空收费编号(主键)Char(10)NOT NULL住户姓名Char(10)NOT NULL物业地址Varchar(50)NOT NULL年份Int(4)NOT NULL月份Int(

9、4)NOT NULL收费项目Varchar(50)NOT NULL收费方式Varchar(50)NOT NULL三系统详细设计详细设计是整个设计过程中，最重要的步骤之一下面就分以下几个部分对系统进行详细设计，以实现系统功能：3.1系统登录模块设计系统登录界面，用户必须输入正确的密码才能进入下一界面，如果用户的密码输入错误，应用程序会提示错误信息。用户如果连续3次输入错误，应用程序会强迫使用者退出并终止应用程序的运行，其实现代码见附录（下同）。图4.1所示是用户登录界面窗体：图4.1用户登录窗体Fig4.1 User Login Form3.2主窗体设计主窗口如图4.2所示，是一个多文档窗口，提

10、供了对于各个模块和各种操作的接口。根据模块化原理，本系统可按照不同的功能分成四个独立的功能模块实现系统所需功能。系统主体平台的四个功能模块，分别是登陆系统、基本资料、物业管理、数据统计报表。图3.2 主窗体Fig3.2 Main form3.3登陆系统模块系统管理模块包括三个功能模块，分别是新用户注册模块、修改密码模块、退出模块。3.3.1 新用户注册新用户注册模块主要完成对新用户信息的录入，包括：用户名、密码、密码确认、真实姓名和注册日期。在这个界面中用户需要输入两次密码，用来保证所输入密码的正确性，最大可能地减少因为密码输入错误造成的麻烦。然后添加真实姓名和注册日期。用户输入信息完毕后，单

11、击“确定”按钮就可以将所输入的资料写入后台数据库中，从而完成添加用户的操作。界面如图4.3所示。图3.3新用户注册界面Fig3.3 User Registration form3.3.2修改密码界面在“登陆系统”菜单中选择“修改密码”，可以进入修改用户密码界面。本窗体中仍然采用密码验证的方法，目的同样是为了减少错误输入所造成的麻烦。界面如图4.4所示。图3.4修改密码界面Fig3.4 Password Modification form3.3.3退出点击“退出”后系统将自动退出。3.4基本资料模块的设计3.4.1住户资料住户资料主要是对住户的基本信息和另外两个标签的信息进行添加、修改、删除、查

12、询及统计记录个数。添加、修改、删除这些操作必须保存后才能生效。简单查询可使用“前一条”、“后一条”、“第一条”、“最后一条”这些功能进行查找。当记录较多，简单查询不能方便的找的目标记录时，可以通过“查询”功能根据条件进行复合查询，查询时用户可以在选择字段后给出查找内容和关系，并在三个条件中给出逻辑关系，这样可以是用户更准确的快速的找到自己想要的目标资料，查询结果可以逐个显示，也可以已表格方式显示。表格显示结果的同时，如果还出现多条记录，可以根据某个字段对记录进行排序，这样可以给用户带来更大的方便和提高查找效率。（本系统的各窗口，均有简单和复合查询两种）住户资料窗体如图4.5所示，复合查询窗体如

13、图4.6所示，以表格显示结果的窗体如图4.7所示： 图4.5住户资料界面Fig4.5 Residents Information form图4.6 复合查询窗体Fig4.6 Compound Query form图4.7 以表格显示结果的窗体Fig4.7 Result Show In Table form4.4.2房产资料房产资料主要是对住户的基本信息如 (房间编号、物业地址、建筑面积、使用面积、房型、装修情况、单价、总价、是否已出售，买主编号、买主姓名、备注)的添加、修改、删除、查询及统计记录个数。添加、修改、删除这些操作必须保存后才能生效。查询有简单查询和复合查询两种（同住户资料界面设计）

14、房产资料窗体如图4.8所示， 图4.8 房产资料Fig4.8 The houses Information form4.5物业管理模块4.5.1物业设备管理物业设备管理主要是对除仪表外的小区内的所有物业设备基本信息的添加、修改、删除、查询及统计记录个数；可以进行简单查询和复合查询。物业设备管理资料窗体如图4.9所示:图4.9物业设备管理资料窗体Fig4.9 Property Equipment form4.5.2仪表数据管理图4.10 仪表数据管理Fig4.10 Instrument Fee Information form4.5.3停车场数据管理图4.11 停车场管理Fig4.11 Park

15、ing Management Information form 4.5.4收费管理模块设计图4.12收费管理Fig4.12 Toll Administration form4.5.5住户投诉管理图4.13 住户投诉管理Fig4.13 Residents Complaints Information form4.5.6住户报修管理图4.14 住户报修Fig4.14 Repairs Information form4.5.7设备维修管理 图4.15 设备维修Fig4.15 Equipment Maintenance Information form4.6数据报表统计主要是对物业信息以报表的形式显示

16、给用户，这样直观的、汇总的管理使得数据更为清晰。用户还可以感觉需求按照所选的条件对记录进行排序。4.6.1物业设备统计图4.16物业设备统计Fig4.16 Property equipment statistics form4.6.2仪表数据统计 图4.17仪表数据统计Fig4.17 The Date Of meter statistics form4.6.3收费统计图 4.18收费数据统计Fig4.18 The Date Of Charge Statistics form4.6.4住户投诉统计 图4.19住户投诉统计Fig4.19 Residents Complaints Statistic

17、s form4.6.5住户报修统计 图4.20 住户报修统计Fig4.20 Repairs Information Statistics form4.6.6设备维修统计 图4.21 设备维修统计1.登录窗口主要代码：If UsName.Text = Then MsgBox 用户名不能为空,请输入用户名！, vbOKOnly + vbInformation, 注意 UsName.SetFocus Exit SubElse If Pwd.Text = Then MsgBox 请输入密码！, vbOKOnly + vbInformation, 注意 Pwd.SetFocus Exit Sub Els

18、e txtSQL = select * from UserTable where userId= & UsName.Text & Set rs_user = ExecuteSQL(txtSQL, MsgText) If rs_user.EOF = True Then MsgBox 没有这个用户,请重新输入你的用户名！, vbOKOnly + vbInformation, 注意 UsName.SetFocus Else If Trim(rs_user.Fields(1) = Trim(Pwd.Text) Then OK = True rs_user.Close Me.Hide UserName

19、= Trim(UsName.Text) FrmMain.Show Else MsgBox 输入密码不正确,请重新输入！, vbOKOnly + vbInformation, 注意 Pwd.SetFocus Pwd.Text = End IfEnd Sub2.新用户注册的主要代码实现是：If txtUser.Text = Then MsgBox 请输入用户名！, vbOKOnly + vbInformation, 注意 txtUser.SetFocus Exit Sub Else If txtPwd.Text = Then MsgBox 请输入密码！, vbOKOnly + vbInformat

20、ion, 注意 txtPwd.SetFocus Exit Sub Else If txtRPwd.Text = Then MsgBox 请再次输入密码！, vbOKOnly + vbInformation, 注意 txtRPwd.SetFocus Exit Sub Else If txtTUser.Text = Then MsgBox 请输你的真实姓名！, vbOKOnly + vbInformation, 注意 txtTUser.SetFocus Exit Sub End If If txtPwd.Text txtRPwd.Text Then MsgBox 两次输入的密码不同,请重新输入密码

21、！, vbOKOnly + vbInformation, 注意 If rs_check.EOF = False Then MsgBox 此用户名已存在,请选择其他用户！, vbOKOnly + vbInformation, 注意 End If Dim sqladd As String sqladd = select * from UserTable MsgBox 新用户已注册成功！, vbOKOnly + vbInformation, 注意 rs_check.Close rs_add.Close Unload Me End Sub3.修改密码的代码实现是：If txtNPwd.Text txt

22、RNPwd.Text Then MsgBox 两次输入的密码不同,请重新输入！, vbOKOnly + vbInformation, 注意 txtNPwd.SetFocus Exit SubEnd If sql = select * from UserTable where userId= & txtUser.Text & and & userPwd= & txtPwd.Text & Set xgsql = ExecuteSQL(sql, MsgText) If xgsql.EOF = True Then MsgBox 原用名或密码错误！, vbOKOnly + vbInformation,

23、注意 txtUser.Text = txtUser.SetFocus txtPwd.Text = xgsql.Close Exit Sub Else xgsql.Fields(1) = txtNPwd.Text xgsql.Update MsgBox 修改密码成功！, vbOKOnly + vbInformation, 注意 xgsql.Close Unload Me End IfEnd Sub4.住户资料窗口主要代码：If add = 1 Then Dim sql_client As String 如果当前client表中有数据则显示第一条数据 If Not rs_client.EOF An

24、d Not rs_client.BOF Then For i = 0 To 12 Text1(i).Text = rs_client.Fields(i) Next i If rs_client.Fields(13) = 男 Then Combo1.ListIndex = 0 Else Combo1.ListIndex = 1 End If 如果没有数据，则显示空 Private Sub cmdDel_Click() 当单击删除记录时，需要弹出一个提示框，警告用户 Dim answer As String answer = MsgBox(确定要删除吗？, vbYesNo, ) 确实删除 If a

25、nswer = vbYes Then rs_client.Delete 删除当前记录 rs_client.Update 更新删除 MsgBox 成功删除！, vbOKOnly + vbExclamation, 注意 Else Exit Sub End If 删除之后，显示总信息条数需要减 1 Text16.Text = Val(Text16.Text) - 1 删除当前记录后，需要显示下一条记录，如果删除的是最后一条记录，则显示上一条记录 先移动rs_client记录到后一条 rs_client.MoveNext If rs_client.EOF Then rs_client.MovePrev

26、ious 如果没有到记录首则显示改记录Private Sub cmdSave_Click() 检测数据是否完整 If Text1(0).Text = Then MsgBox 住户编号不可为空！, vbOKOnly + vbInformation, 注意 Text1(0).SetFocus Exit Sub ElseIf Text1(1).Text = Then MsgBox 物业地址不可为空！, vbOKOnly + vbInformation, 注意 Text1(1).SetFocus Exit Sub ElseIf Text1(11).Text = Or IsNumeric(Text1(1

27、1).Text) = False Then MsgBox 建筑面积应为数字！, vbOKOnly + vbInformation, 注意 Text1(11).SetFocus Exit Sub ElseIf Text1(12).Text = Or IsNumeric(Text1(12).Text) = False Then MsgBox 使用面积应为数字！, vbOKOnly + vbInformation, 注意 Text1(12).SetFocus Exit Sub ElseIf Text1(1).Text = Then MsgBox 住户姓名不可为空！, vbOKOnly + vbInf

28、ormation, 注意 Text1(1).SetFocus Exit Sub ElseIf IsDate(Text1(8).Text) = False Then MsgBox 入住时间书写不对，应为2000-1-1这样的格式！, vbOKOnly + vbInformation, 注意 Text1(8).SetFocus Exit Sub ElseIf Not Text1(9).Text = And IsDate(Text1(9).Text) = False Then MsgBox 迁出时间应为空或2000-1-1这样的格式！, vbOKOnly + vbInformation, 注意 Text1(9).SetFocus Exit Sub End If 添加数据后保存 If add = 1 Then 检测住户编号这个主键是否已经在表中存在 Dim rs_check As New ADODB.Recordset Dim sqlCheck As String Dim MsgText As String sqlCheck = select * from zh where 住户编号= & (Text1(0).Text) & Set rs_check = ExecuteSQL(sqlCheck, MsgText) If Not rs_check.E