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

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

《小区物业管理系统课程设计报告.docx》由会员分享，可在线阅读，更多相关《小区物业管理系统课程设计报告.docx（30页珍藏版）》请在冰豆网上搜索。

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

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

一.需求分析

经过调研与可行性分析，出于对人们生活住房考虑，设计了这套小区物业管理系统，本系统主要考虑到小区物业管理的普遍要求，小区物业管理系统主要包括：

对小区所有房屋资料的录入和增、删、改、查询等功能实现，在基于这些小区的房产资源对小区进行管理。

对小区内住户的详细资料的管理，包括增、删、改、查询等功能的实现，这些也是一个小区的基本资源，毕竟物业管理最后是针对小区的所有住户而言的。

在具有了所有的基本资料信息后，需要实现实质性的物业管理.本系统的开发基本解决了以往工资管理中存在的需要人工管理，进行人工统计，对工资的统计和查询都很单一、不能综合处理业务、工作效率低等问题。

二.系统结构设计

2.1.系统功能模块设计

系统功能设计是在系统开发的总体任务的基础工业上完成的

2.2系统功能分析

　用户系统管理功能

（1）系统用户的信息管理，包括用户名、修改密码。

统计报表打印功能

（1）维修综合统计

（2）收费通知单

浏览与查询功能

（1）住房相关信息

（2）房屋相关信息

（3）停车场相关信息

（4）收费相关信息

基本信息维护功能

（1）住户信息维护

（2）房屋信息维护

（3）停车场信息维护

（4）收费标准维护

（5）收费信息维护

（6）保修维修信息

退出

退出小区物业管理系统。

2.3数据库的设计

数据库设计是指对于一个给定的应用环境，构造最优的数据库模式，建立数据库及其应用系统，使之能够有效地存储数据，满足各种用户的应用需求。

数据库结构设计的好坏将直接影响系统的运行效率和系统开发进度，合理的数据库结构设计不仅可以提高系统运行效率，也有利于保证数据的完整性和一致性，有利于系统的实现。

（1）用户表

用户表存放登陆系统所需要的用户名和密码，需要访问此表。

表1　用户表

字段名

数据类型

可否为空

用户名（主键）

Char（10）

NOTNULL

密码

Int

NOTNULL

（2）住户基本信息表

住户表存放小区内所有的住户信息，这些信息也是小区物业管理的基本信息，在实现系统的各个功能中起真非常重要的作用。

表2　住户基本信息表表

字段名

数据类型

可否为空

住址（主键）

Char（10）

NOTNULL

户主

Char（10）

NOTNULL

身份证号码

Varchar（50）

NOTNULL

电话

Char（20）

NULL

入住时间

Datetime

NULL

（3）房屋基本信息

房产表存放小区内的所有房屋的信息，其中包括已售出的房屋和未售出的房屋。

表3　房屋基本信息表

字段名

数据类型

可否为空

住址（主键）

Char（10）

NOTNULL

房屋结构

Varchar（50）

NOTNULL

设备

Float（8）

NOTNULL

房屋面积

Float（8）

NOTNULL

出售信息

Char（20）

NULL

（4）处理故障表

住户处理故障表存放小区内住户的各种故障的所有信息。

表4　处理故障表

字段名

数据类型

可否为空

住址（主键）

Char（10）

NOTNULL

处理故障

Datetime

NOTNULL

经办人

Char（10）

NULL

处理时间

Datetime

NULL

（5）收费信息表

物业收费表存放小区内住户的各种收费信息。

表5　物业收费表

字段名

数据类型

可否为空

住址（主键）

Char（10）

NOTNULL

水费

Char（10）

NOTNULL

电费

Varchar（50）

NOTNULL

宽带

Int（4）

NOTNULL

垃圾清运费

Int（4）

NOTNULL

物业管理费

Varchar（50）

NOTNULL

收费时间

Datetime

NOTNULL

（6）停车场信息表（tc）

表6　停车场信息表

Table6ParkingManagementInformation

字段名

数据类型

可否为空

车位编号（主键）

Char（20）

NOTNULL

车位位置

Varchar（50）

NOTNULL

停车住户

Char（10）

NOTNULL

物业地址

Varchar（50）

NOTNULL

开始日期

Datetime

NULL

截止日期

Datetime

NULL

备注

Varchar（50）

NULL

（7）住户报修表（zhbs）

表7　住户报修表

Table7RepairsInformation

字段名

数据类型

可否为空

报修编号（主键）

Char（10）

NOTNULL

报修日期

Datetime

NOTNULL

接待人员

Char（10）

NULL

报修住户

Char（10）

NOTNULL

物业地址

Varchar（50）

NOTNULL

电话

Char（20）

NULL

完成日期

Datetime

NOTNULL

维修人员

Varchar（50）

NOTNULL

服务费用

Float（8）

NOTNULL

物料费用

Float（8）

NOTNULL

合计费用

Float（8）

NOTNULL

报修内容

Varchar（50）

NOTNULL

维修情况

Varchar（50）

NULL

（8）设备维修表（sbwx）

表8　设备维修表

Table8EquipmentMaintenanceInformation

字段名

数据类型

可否为空

维修编号（主键）

Char（10）

NOTNULL

设备编号

Char（10）

NOTNULL

设备名称

Char（20）

NOTNULL

维修日期

Datetime

NOTNULL

完成日期

Datetime

NOTNULL

维修费用

Float（8）

NOTNULL

维修人员

Varchar（50）

NOTNULL

维修内容

Varchar（50）

NOTNULL

维修情况

Varchar（50）

NULL

（9）物业收费表（wysf）

表9　物业收费表

Table9PropertyFeeInformation

字段名

数据类型

可否为空

收费编号（主键）

Char（10）

NOTNULL

住户姓名

Char（10）

NOTNULL

物业地址

Varchar（50）

NOTNULL

年份

Int（4）

NOTNULL

月份

Int（4）

NOTNULL

收费项目

Varchar（50）

NOTNULL

收费方式

Varchar（50）

NOTNULL

三．系统详细设计

详细设计是整个设计过程中，最重要的步骤之一．下面就分以下几个部分对系统进行详细设计，以实现系统功能：

3.1系统登录模块设计

系统登录界面，用户必须输入正确的密码才能进入下一界面，如果用户的密码输入错误，应用程序会提示错误信息。

用户如果连续3次输入错误，应用程序会强迫使用者退出并终止应用程序的运行，其实现代码见附录（下同）。

图4.1所示是用户登录界面窗体：

图4.1用户登录窗体

Fig4.1UserLoginForm

3.2主窗体设计

主窗口如图4.2所示，是一个多文档窗口，提供了对于各个模块和各种操作的接口。

根据模块化原理，本系统可按照不同的功能分成四个独立的功能模块实现系统所需功能。

系统主体平台的四个功能模块，分别是登陆系统、基本资料、物业管理、数据统计报表。

图3.2主窗体

Fig3.2Mainform

3.3登陆系统模块

系统管理模块包括三个功能模块，分别是新用户注册模块、修改密码模块、退出模块。

3.3.1新用户注册

新用户注册模块主要完成对新用户信息的录入，包括：

用户名、密码、密码确认、真实姓名和注册日期。

在这个界面中用户需要输入两次密码，用来保证所输入密码的正确性，最大可能地减少因为密码输入错误造成的麻烦。

然后添加真实姓名和注册日期。

用户输入信息完毕后，单击“确定”按钮就可以将所输入的资料写入后台数据库中，从而完成添加用户的操作。

界面如图4.3所示。

图3.3新用户注册界面

Fig3.3UserRegistrationform

3.3.2修改密码界面

在“登陆系统”菜单中选择“修改密码”，可以进入修改用户密码界面。

本窗体中仍然采用密码验证的方法，目的同样是为了减少错误输入所造成的麻烦。

界面如图4.4所示。

图3.4修改密码界面

Fig3.4PasswordModificationform

3.3.3退出

点击“退出”后系统将自动退出。

3.4基本资料模块的设计

3.4.1住户资料

住户资料主要是对住户的基本信息和另外两个标签的信息进行添加、修改、删除、查询及统计记录个数。

添加、修改、删除这些操作必须保存后才能生效。

简单查询可使用“前一条”、“后一条”、“第一条”、“最后一条”这些功能进行查找。

当记录较多，简单查询不能方便的找的目标记录时，可以通过“查询”功能根据条件进行复合查询，查询时用户可以在选择字段后给出查找内容和关系，并在三个条件中给出逻辑关系，这样可以是用户更准确的快速的找到自己想要的目标资料，查询结果可以逐个显示，也可以已表格方式显示。

表格显示结果的同时，如果还出现多条记录，可以根据某个字段对记录进行排序，这样可以给用户带来更大的方便和提高查找效率。

（本系统的各窗口，均有简单和复合查询两种）

住户资料窗体如图4.5所示，复合查询窗体如图4.6所示，以表格显示结果的窗体如图4.7所示：

图4.5住户资料界面

Fig4.5ResidentsInformationform

图4.6复合查询窗体

Fig4.6CompoundQueryform

图4.7以表格显示结果的窗体

Fig4.7ResultShowInTableform

4.4.2房产资料

房产资料主要是对住户的基本信息如（房间编号、物业地址、建筑面积、使用面积、房型、装修情况、单价、总价、是否已出售，买主编号、买主姓名、备注）的添加、修改、删除、查询及统计记录个数。

添加、修改、删除这些操作必须保存后才能生效。

查询有简单查询和复合查询两种（同住户资料界面设计）

房产资料窗体如图4.8所示，

图4.8房产资料

Fig4.8ThehousesInformationform

4.5物业管理模块

4.5.1物业设备管理

物业设备管理主要是对除仪表外的小区内的所有物业设备基本信息的添加、修改、删除、查询及统计记录个数；可以进行简单查询和复合查询。

物业设备管理资料窗体如图4.9所示:

图4.9物业设备管理资料窗体

Fig4.9PropertyEquipmentform

4.5.2仪表数据管理

图4.10仪表数据管理

Fig4.10InstrumentFeeInformationform

4.5.3停车场数据管理

图4.11停车场管理

Fig4.11ParkingManagementInformationform

4.5.4收费管理模块设计

图4.12收费管理

Fig4.12TollAdministrationform

4.5.5住户投诉管理

图4.13住户投诉管理

Fig4.13ResidentsComplaintsInformationform

4.5.6住户报修管理

图4.14住户报修

Fig4.14RepairsInformationform

4.5.7设备维修管理

图4.15设备维修

Fig4.15EquipmentMaintenanceInformationform

4.6数据报表统计

主要是对物业信息以报表的形式显示给用户，这样直观的、汇总的管理使得数据更为清晰。

用户还可以感觉需求按照所选的条件对记录进行排序。

4.6.1物业设备统计

图4.16物业设备统计

Fig4.16Propertyequipmentstatisticsform

4.6.2仪表数据统计

图4.17仪表数据统计

Fig4.17TheDateOfmeterstatisticsform

4.6.3收费统计

图4.18收费数据统计

Fig4.18TheDateOfChargeStatisticsform

4.6.4住户投诉统计

图4.19住户投诉统计

Fig4.19ResidentsComplaintsStatisticsform

4.6.5住户报修统计

图4.20住户报修统计

Fig4.20RepairsInformationStatisticsform

4.6.6设备维修统计

图4.21设备维修统计

1.登录窗口主要代码：

IfUsName.Text=""Then

MsgBox"用户名不能为空,请输入用户名！

",vbOKOnly+vbInformation,"注意"

UsName.SetFocus

ExitSub

Else

IfPwd.Text=""Then

MsgBox"请输入密码！

",vbOKOnly+vbInformation,"注意"

Pwd.SetFocus

ExitSub

Else

txtSQL="select*fromUserTablewhereuserId='"&UsName.Text&"'"

Setrs_user=ExecuteSQL（txtSQL,MsgText）

Ifrs_user.EOF=TrueThen

MsgBox"没有这个用户,请重新输入你的用户名！

",vbOKOnly+vbInformation,"注意"

UsName.SetFocus

Else

IfTrim（rs_user.Fields

（1））=Trim（Pwd.Text）Then

OK=True

rs_user.Close

Me.Hide

UserName=Trim（UsName.Text）

FrmMain.Show

Else

MsgBox"输入密码不正确,请重新输入！

",vbOKOnly+vbInformation,"注意"

Pwd.SetFocus

Pwd.Text=""

EndIf

EndSub

2.新用户注册的主要代码实现是：

IftxtUser.Text=""Then

MsgBox"请输入用户名！

",vbOKOnly+vbInformation,"注意"

txtUser.SetFocus

ExitSub

Else

IftxtPwd.Text=""Then

MsgBox"请输入密码！

",vbOKOnly+vbInformation,"注意"

txtPwd.SetFocus

ExitSub

Else

IftxtRPwd.Text=""Then

MsgBox"请再次输入密码！

",vbOKOnly+vbInformation,"注意"

txtRPwd.SetFocus

ExitSub

Else

IftxtTUser.Text=""Then

MsgBox"请输你的真实姓名！

",vbOKOnly+vbInformation,"注意"

txtTUser.SetFocus

ExitSub

EndIf

IftxtPwd.Text<>txtRPwd.TextThen

MsgBox"两次输入的密码不同,请重新输入密码！

",vbOKOnly+vbInformation,"注意"

Ifrs_check.EOF=FalseThen

MsgBox"此用户名已存在,请选择其他用户！

",vbOKOnly+vbInformation,"注意"

EndIf

DimsqladdAsString

sqladd="select*fromUserTable"

MsgBox"新用户已注册成功！

",vbOKOnly+vbInformation,"注意"

rs_check.Close

rs_add.Close

UnloadMeEndSub

3.修改密码的代码实现是：

IftxtNPwd.Text<>txtRNPwd.TextThen

MsgBox"两次输入的密码不同,请重新输入！

",vbOKOnly+vbInformation,"注意"

txtNPwd.SetFocus

ExitSub

EndIf

sql="select*fromUserTablewhereuserId='"&txtUser.Text&"'and"&"userPwd='"&txtPwd.Text&"'"

Setxgsql=ExecuteSQL（sql,MsgText）

Ifxgsql.EOF=TrueThen

MsgBox"原用名或密码错误！

",vbOKOnly+vbInformation,"注意"

txtUser.Text=""

txtUser.SetFocus

txtPwd.Text=""

xgsql.Close

ExitSub

Else

xgsql.Fields

（1）=txtNPwd.Text

xgsql.Update

MsgBox"修改密码成功！

",vbOKOnly+vbInformation,"注意"

xgsql.Close

UnloadMe

EndIf

EndSub

4.住户资料窗口主要代码：

Ifadd=1Then

Dimsql_clientAsString

'如果当前client表中有数据则显示第一条数据

IfNotrs_client.EOFAndNotrs_client.BOFThen

Fori=0To12

Text1（i）.Text=rs_client.Fields（i）

Nexti

Ifrs_client.Fields（13）="男"Then

Combo1.ListIndex=0

Else

Combo1.ListIndex=1

EndIf

'如果没有数据，则显示空

PrivateSubcmdDel_Click（）

'当单击删除记录时，需要弹出一个提示框，警告用户

DimanswerAsString

answer=MsgBox（"确定要删除吗？

",vbYesNo,""）

'确实删除

Ifanswer=vbYesThen

rs_client.Delete'删除当前记录

rs_client.Update'更新删除

MsgBox"成功删除！

",vbOKOnly+vbExclamation,"注意"

Else

ExitSub

EndIf

'删除之后，显示总信息条数需要减1

Text16.Text=Val（Text16.Text）-1

'删除当前记录后，需要显示下一条记录，如果删除的是最后一条记录，则显示上一条记录

'先移动rs_client记录到后一条

rs_client.MoveNext

Ifrs_client.EOFThen

rs_client.MovePrevious

'如果没有到记录首则显示改记录

PrivateSubcmdSave_Click（）

'检测数据是否完整

IfText1（0）.Text=""Then

MsgBox"住户编号不可为空！

",vbOKOnly+vbInformation,"注意"

Text1（0）.SetFocus

ExitSub

ElseIfText1

（1）.Text=""Then

MsgBox"物业地址不可为空！

",vbOKOnly+vbInformation,"注意"

Text1

（1）.SetFocus

ExitSub

ElseIfText1（11）.Text=""OrIsNumeric（Text1（11）.Text）=FalseThen

MsgBox"建筑面积应为数字！

",vbOKOnly+vbInformation,"注意"

Text1（11）.SetFocus

ExitSub

ElseIfText1（12）.Text=""OrIsNumeric（Text1（12）.Text）=FalseThen

MsgBox"使用面积应为数字！

",vbOKOnly+vbInformation,"注意"

Text1（12）.SetFocus

ExitSub

ElseIfText1

（1）.Text=""Then

MsgBox"住户姓名不可为空！

",vbOKOnly+vbInformation,"注意"

Text1

（1）.SetFocus

ExitSub

ElseIfIsDate（Text1（8）.Text）=FalseThen

MsgBox"入住时间书写不对，应为2000-1-1这样的格式！

",vbOKOnly+vbInformation,"注意"

Text1（8）.SetFocus

ExitSub

ElseIfNotText1（9）.Text=""AndIsDate（Text1（9）.Text）=FalseThen

MsgBox"迁出时间应为空或2000-1-1这样的格式！

",vbOKOnly+vbInformation,"注意"

Text1（9）.SetFocus

ExitSub

EndIf

'添加数据后保存

Ifadd=1Then

'检测住户编号这个主键是否已经在表中存在

Dimrs_checkAsNewADODB.Recordset

DimsqlCheckAsString

DimMsgTextAsString

sqlCheck="select*fromzhwhere住户编号='"&（Text1（0）.Text）&"'"

Setrs_check=ExecuteSQL（sqlCheck,MsgText）

IfNotrs_check.E