物业管理系统毕业设计范例.doc

物业管理系统

学 院

专 业

班 级

学 号

姓 名

指导教师

教师职称

年

月

日

摘要
【摘要】
通过十几年的发展，中国房地产业逐步走向成熟，物业管理也由新生到发展再到进一步，面临着蓬勃发展的局面。随着ISO9002等管理体系在物业管理中的引入，对原有的物业管理模式进行了一次深刻的变革，对物业管理公司朝着正规化、科学化、集团化的发展，起到有力的推动作用。
随着我国经济发展和城市开发，住宅社区越来越成为居住的主流，社区物业管理是针对当代社会这一市场需要应运而生的。本系统是为住宅社区物业管理部门平常管理工作信息化，规范化而开发的软件。它以物业管理部门为服务中心，以业主（住户）为服务对象。通过实行各种服务项目，全面地反映了在社区物业经营管理活动中，物业部门与业主之间各种业务往来。使各项业务的办理迅速、准确，极大的提高了社区物业管理的工作效率。
【关键词】物业管理系统

目录
摘要 2
目录 3
0 引言 1
1 需求分析 1
2 总体设计 1
2.1 项目规划 1
2.2 系统功能结构 1
3 系统设计 2
3.1 开发及运营环境 2
3.2 数据库设计 2
4 重要功能模块设计 2
4.1 程序主界面的设计 2
4.2 系统登录界面设计 5
4.3 社区信息生成设计 7
4.4 业主信息登记设计 8
4.5 社区资源记录设计 12
4.6 权限设立设计 16
附录A 参考文献 18
附录B 数据表 19
附录C 文献架构 21

0 引言
由于物业管理涉及的管理范围较为广泛，管理内容繁杂，加上政策性的变动因素，平常工作需要花费大量人力和物力，而采用现代化电脑管理手段是一种行之有效的解决方法，用计算机操作的社区物业管理系统是为社区管理者和社区用户更好的维护各项物业管理业务解决工作而开发的管理软件。电脑化管理在物业管理中的作用重要体现在：
¨ 合用面广、可同时管理多个管理区和多栋大楼；
¨ 计算机完整的工程档案与服务档案可以使管理人员随时了解最新的情况，更可以规范维护、服务标准，帮助管理人员合理安排工作时间。
¨ 计算机管理收费，灵活性、准确性大大提高。
¨ 强大的查询功能，最大限度地满足您的需要。

1 需求分析
根据该物业的具体情况，系统重要的功能涉及：
l 经营部：“社区信息生成”、“大楼信息生成”、“房屋信息生成”、“社区信息登记”、“大楼信息登记”、“房屋信息登记”、“系统数据设定”。
l 管理部：“业主信息登记”、“人口信息查询”、“社区投诉登记”、“社区投诉查询”、“社区员工管理”、“系统数据设定”。
l 工程部：“装修队登记”、“维修信息登记”、“维修信息查询”、“装修信息登记”、“装修信息查询”。
l 财务部：“收费登记管理”、“水费查询管理”、“电费查询管理”、“煤气费查询管理”、“采暖费查询管理”、“其它费用查询管理”。
l 保安部：“保安排班管理”、“保安排班查询”。
l 经理部：“社区资源记录”、“业主信息查询”、“人口信息查询”、“社区投诉查询”、“社区员工查询”、“装修信息查询”、“维修信息查询”、“保安排班查询”。
l 系统管理：“操作员管理”、“权限设立”、“背景设立”。
2 总体设计
2.1 项目规划
物业管理系统是一个典型的数据库管理系统，系统由基本信息设立、货品托运管理、信息查询、报表管理、系统管理等模块组成，规划系统功能模块如下：
q 经营部
经营部：大区信息生成、大楼信息生成、房屋信息生成、社区信息登记、大楼信息登记、房屋信息登记、系统数据设定、退出。
q 管理部
管理部：业主信息登记、人口信息查询、社区投诉登记、社区投诉查询、社区员工管理、系统数据设定。
q 财务部
财务部：收费登记管理、水费查询管理、电费查询管理、煤气费查询管理、采暧费查询管理、其它费用查询管理。
q 保安部
保安排班管理、保安排班查询。
q 经理室
社区资源记录、业主信息查询、人口信息查询、社区投诉查询、社区员工查询、维修信息查询、装修信息查询、保安排班查询。
q 系统管理
系统管理：操作员管理、权限设立、背景设立。
q 帮助
帮助：帮助、关于本软件。
2.2 系统功能结构
本系统共分7大部分、37个完整的功能模块。系统结构图如图1所示。

图1 物业管理系统结构图
3 本系统将信息技术与传统物业管理相结合，轻松解决物业管理公司发展中碰到的诸多问题，力推物业管理公司健康、快速地发展。
本系统在设计的时候应当满足以下几个目的：
q 系统最大限度地实现了易安装性、易维护性和易操作性。
q 系统运营稳定、安全可靠。
q 软件结构清楚，功能一目了然。
q 方便、快捷的全方位查询。
q 操作员可以随时修改自己的口令。
q 不同的操作员具有不同的操作权限。
q 数据保密性强，为每个用户设立权限级别。
3 系统设计
3.1 开发及运营环境
系统开发平台：Microsoft Visual FoxPro 6.0。
运营平台：Windows XP/ Windows 2023/ Windows 2023
分辨率：最佳效果1024×768像素
3.2 数据库设计
1．数据库概要说明
本系统采用的是Visual FoxPro自带的数据库，系统数据库名为DataBase。限于篇幅所限，下面只给出重要数据表的表结构。数据库“Wuyemanage”中包含26个表：部门信息表Tabbminfo、采暖费表Tabcnmoney、电费表Tabdianmoney、大楼信息表Tabdlinfo、房间结构表Tabfjstructure、朝向表Tabfrontage、房屋信息表Tabfwinfo、房屋登记表Tabfwtj、工种信息表Tabgzinfo、科目设定表Tabkmsd、煤气费表Tabmqmoney、其它费用表Tabothermoney、排班表Tabpb、权限表Tabpurview、权属类型表Tabqstype、人口信息表Tabrkinfo、人口登记表Tabrktj、水费表Tabsmoney、投诉信息表Tabtsinfo、投拆登记表Tabtstj、维修信息表Tabwxinfo、社区信息表Tabxqinfo、员工信息表Tabyginfo、业主信息表Tabyzinfo、装修队信息表Tabzxgroup、装修信息表Tabzxinfo。
2．重要数据表的结构
数据库中的数据表请参见附录B。
4 重要功能模块设计
4.1 程序主界面的设计
程序启动后，在系统登录界面验证操作员密码后，将进入程序主界面的设计。通过程序主界面可以执行相应权限的操作，并且可以通过选择主界面菜单或按钮，调用相应程序，进行相应操作。程序主界面的运营结果如图2所示。

图2 程序主界面的运营结果
1．表单设计
（1）新建一个项目，名称为物业管理系统，在该项目中添加一个新表单，命名为Fdesktop。
（2）在表单中插入名称为Vcxmain的ToolBar类、Image控件、listview控件、imagelist控件、Timer控件。
（3）重要控件的重要属性如表2所示。
表2 重要属性及值
对象
属性
值
Vcxmain
LockScreen
False
Vcxmain
Movable
False
Vcxmain
Sizeable
False
Timer
InterVal
10
2．类代码设计
在类的Init事件中添加以下代码：
public bz &&定义全局变量
bz=.f.
this.listview1.view=2 &&设立视图显示方式
this.listview1.Icons=this.imagelist1.object
this.listview1.smallicons=this.imagelist1.object
&&添加列表项
=this.listview1.listitems.add(,,'社区信息生成',,1)
=this.listview1.listitems.add(,,'大楼信息生成' ,,1)
=this.listview1.listitems.add(,,'房屋信息生成',,1)
=this.listview1.listitems.add(,,'社区信息登记',,1)
=this.listview1.listitems.add(,,'大楼信息登记',,1)
=this.listview1.listitems.add(,,'房屋信息登记',,1)
=this.listview1.listitems.add(,,'系统数据设定',,1)
单击快捷工具条上的“经营部”按钮，将在左侧的List列表中显示经营部各功能选项。各功能选项由图标和标记性文字组成。具体代码如下：
在“经营部”按钮的Click事件中添加以下代码：
this.parent.listview1.listItems.clear &&清除数据
this.parent.listview1.view=2 &&设立视图显示方式
*将ImageList控件图片赋予Listview控件
this.parent.listview1.Icons=this.parent.imagelist1.object
this.parent.listview1.smallicons=this.parent.imagelist1.object
=this.parent.listview1.listitems.add(,,'社区信息生成',,1)
=this.parent.listview1.listitems.add(,,'大楼信息生成',,1)
=this.parent.listview1.listitems.add(,,'房屋信息生成',,1)
=this.parent.listview1.listitems.add(,,'社区信息登记',,1)
=this.parent.listview1.listitems.add(,,'大楼信息登记',,1)
=this.parent.listview1.listitems.add(,,'房屋信息登记',,1)
=this.parent.listview1.listitems.add(,,'系统数据设定',,1)
在“管理部”按钮的Click事件中添加以下代码：
this.parent.listview1.listItems.clear
this.parent.listview1.view=2
this.parent.listview1.Icons=this.parent.imagelist1.object
this.parent.listview1.smallicons=this.parent.imagelist1.object
=this.parent.listview1.listitems.add(,,'业主信息登记',,2)
=this.parent.listview1.listitems.add(,,'人口信息查询',,2)
=this.parent.listview1.listitems.add(,,'社区投诉登记',,2)
=this.parent.listview1.listitems.add(,,'社区投诉查询',,2)
=this.parent.listview1.listitems.add(,,'社区员工管理',,2)
=this.parent.listview1.listitems.add(,,'系统数据设定',,2)
pjyb=.t.
在“工程部”按钮的Click事件中添加以下代码：
this.parent.listview1.listItems.clear
this.parent.listview1.view=2
this.parent.listview1.Icons=this.parent.imagelist1.object
this.parent.listview1.smallicons=this.parent.imagelist1.object
=this.parent.listview1.listitems.add(,,'装修队登记',,3)
=this.parent.listview1.listitems.add(,,'维修信息登记',,3)
=this.parent.listview1.listitems.add(,,'维修信息查询',,3)
=this.parent.listview1.listitems.add(,,'装修信息登记',,3)
=this.parent.listview1.listitems.add(,,'装修信息查询',,3)
pjyb=.t.
在“财务部”按钮的Click事件中添加以下代码：
this.parent.listview1.listItems.clear
this.parent.listview1.view=2
this.parent.listview1.Icons=this.parent.imagelist1.object
this.parent.listview1.smallicons=this.parent.imagelist1.object
=this.parent.listview1.listitems.add(,,'收费登记管理',,4)
=this.parent.listview1.listitems.add(,,'水费查询管理',,4)
=this.parent.listview1.listitems.add(,,'电费查询管理',,4)
=this.parent.listview1.listitems.add(,,'煤气费查询管理',,4)
=this.parent.listview1.listitems.add(,,'采暖费查询管理',,4)
=this.parent.listview1.listitems.add(,,'其它费用查询管理' ,,4)
pjyb=.t.
在“保安部”按钮的Click事件中添加以下代码：
this.parent.listview1.listItems.clear
this.parent.listview1.view=2
this.parent.listview1.Icons=this.parent.imagelist1.object
this.parent.listview1.smallicons=this.parent.imagelist1.object
=this.parent.listview1.listitems.add(,,'保安排班管理',,5)
=this.parent.listview1.listitems.add(,,'保安排班查询',,5)
pjyb=.t.
在“经理室”按钮的Click事件中添加以下代码：
this.parent.listview1.listItems.clear
this.parent.listview1.view=2
this.parent.listview1.Icons=this.parent.imagelist1.object
this.parent.listview1.smallicons=this.parent.imagelist1.object
=this.parent.listview1.listitems.add(,,'社区资源记录',,6)
=this.parent.listview1.listitems.add(,,'业主信息查询',,6)
=this.parent.listview1.listitems.add(,,'人口信息查询',,6)
=this.parent.listview1.listitems.add(,,'社区投诉查询',,6)
=this.parent.listview1.listitems.add(, , '社区员工查询',,6)
=this.parent.listview1.listitems.add(,,'装修信息查询',,6)
=this.parent.listview1.listitems.add(,,'维修信息查询',,6)
=this.parent.listview1.listitems.add(,,'保安排班查询',,6)
pjyb=.t.
在“系统管理”按钮的Click事件中添加以下代码：
this.parent.listview1.listItems.clear
this.parent.listview1.view=2
this.parent.listview1.Icons=this.parent.imagelist1.object
this.parent.listview1.smallicons=this.parent.imagelist1.object
=this.parent.listview1.listitems.add(,,'操作员管理',,7)
=this.parent.listview1.listitems.add(,,'权限设立',,7)
pjyb=.t.
在“帮助”按钮的Click事件中添加以下代码：
this.parent.listview1.listItems.clear
this.parent.listview1.view=2
this.parent.listview1.Icons=this.parent.imagelist1.object
this.parent.listview1.smallicons=this.parent.imagelist1.object
=this.parent.listview1.listitems.add(,,'帮助',,8)
=this.parent.listview1.listitems.add(,,'关于本软件',,8)
pjyb=.t.
在“退出”按钮的Click事件中添加以下代码：
quit &&退出主程序
在控件image1的Click事件中添加以下代码：
mdl.filter='图片|*.bmp;*.jpg' &&设立文献类型为.BMP或.JPG
mdl.showopen &&显示打开对话框
this.parent.rq.image2.picture=mdl.filename &&显示选定文献的名字
4.2 系统登录界面设计
用户进入系统前，必须通过系统登录进入程序主界面，通过系统登录界面可以对用户的身份及使用权限进行确认。系统登录表单运营结果如图3所示。

图3 系统登录表单运营结果
1．表单设计
（1）在物业管理系统的项目中，新建一个表单，命名为Admin。
（2）在表单中添加ImageList控件、Image控件、ListView控件、ImageList控件、Text控件、Label控件、Commandgroup控件。
（3）重要控件属性如表3所示。
表3 重要控件的重要属性及值
控件名
属性
值
功能
Text1
PasswordChar
*
提供密码输入
2．代码设计
定义全局变量cn，用来判断输入操作员或密码的次数，当cn大于3时，将自动退出系统。在List列表中显示所有的操作员姓名和代表其权限级别的图标。
在表单的Init事件中添加以下代码：
public cn &&定义全局变量
cn=0 &&给全局变量赋初值
thisform.listview1.view=0 &&设立视图显示方式
thisform.listview1.Icons=thisform.imagelist1.object
thisform.listview1.smallicons=thisform.imagelist1.object
select tabpurview &&选定Tabpurview工作区为当前工作区
select *;
from wuyemanage!tabpurview;
where 权限级别='1';
order by tabpurview.操作员姓名;
into cursor sysgly
thisform.text2.value=sysgly.操作员姓名
thisform.text1.value=''
key=alltrim(sysgly.操作员姓名) &&赋值给变量key
=thisform.listview1.listitems.add(,,key,1) &&添加一个列表项
select tabpurview
select *;
from wuyemanage!tabpurview;
where 权限级别='2';
order by tabpurview.操作员姓名;
into cursor gjczy
do while !EOF() &&测试当前记录指针是否在文献尾
key=alltrim(gjczy.操作员姓名)
=thisform.listview1.listitems.add(,,key,2) &&添加一个列表项
skip &&记录指针向下移动一条记录
enddo
select tabpurview
select *;
from wuyemanage!tabpurview;
where 权限级别='3';
order by tabpurview.操作员姓名;
into cursor ybczy
do while !EOF() &&测试当前记录指针是否在文献尾
key=alltrim(ybczy.操作员姓名)
=thisform.listview1.listitems.add(,,key,3) &&添加一个列表项
skip &&记录指针向下移动一条记录
enddo
select tabpurview
select *;
from wuyemanage!tabpurview;
where 权限级别='4';
order by tabpurview.操作员姓名;
into cursor zdy
do while !EOF() &&测试当前记录指针是否在文献尾
key=alltrim(zdy.操作员姓名)
=thisform.listview1.listitems.add(,,key,4) &&添加一个列表项
skip &&记录指针向下移动一条记录
enddo
程序员将反复使用的代码存到了Resize 事件中，将该事件当做一个过程来调用。 Resize在本程序中并没有什么实际意义。
在表单的Resize事件中添加以下代码：
purview=val(alltrim(tabpurview.权限级别))
pjyb=tabpurview.经营部
pglb=tabpurview.管理部
pgcb=tabpurview.工程部
pcwb=tabpurview.财务部
pbab=tabpurview.保安部
pjls=tabpurview.经理室
psysgl=tabpurview.系统管理
manager=alltrim(thisform.text2.value)
do form form\fdesktop &&调入表单fdesktop
thisform.release &&刷新表单
单击“登录”按钮，系统将判断密码是否对的。假如密码不对的，将提醒重新输入，三次后仍不对的，系统将自动退出。
在“登录”按钮的Click事件中添加以下代码：
select tabpurview
cname=alltrim(thisform.text2.value)
ppassword=alltrim(thisform.text1.value)
set order to 操作员姓名 &&指定控制索引文献
if empty(操作员姓名) &&判断操作员字段是否为空
thisform.resize &&执行表单的Resize事件
store .t.to pjyb,pglb,pgcb,pcwb,pbab,pjls,psysgl &&给多个内存变量赋予相同的值
else
seek cname &&查找输入的操作员姓名
set exact on &&设立字符精确比较
if alltrim(tabpurview.密码)!=ppassword
cn=cn+1
cmessagetitle='系统登录'
cmessagetext='密码错误，请重新输入！'
ndialogtype=4+32
nanswer=messagebox(cmessagetext,ndialogtype,cmessagetitle)
do case
case nanswer=6
thisform.text1.value=''
thisform.text1.setfocus &&文本框获得焦点
case nanswer=7
messagebox('不要乱来！',48,'系统登录')
thisform.release &&释放表单
endcase
if cn=3
thisform.release
endif
else
thisform.resize &&执行表单的Resize事件
endif
endif
set exact off &&设立字符非精确比较
在“取消”按钮的Click事件中添加以下代码：
quit &&退出
在控件listview1的ItemClick事件中添加以下代码：
manager=alltrim(thisform.listview1.selecteditem.text)
thisform.text2.value=manager
thisform.text1.setfocus &&文本框获得焦点
4.3 社区信息生成设计
用户单击快捷工具栏上的“经营部”按钮，在弹出的功能列表项中选择“社区信息生成”选项，进入社区信息生成界面。通过社区信息生成模块可进行社区区域数量的生成。社区信息生成运营结果如图4所示。

图4 社区信息生成表单运营结果
1．表单设计
（1）在物业管理系统的项目中，新建一个表单，命名为为“社区信息生成”。
（2）在表单中添加Label控件、Spinner控件、Commandgroup控件、Shape控件。
（3）重要控件的重要属性如表4所示。
表4 重要控件的重要属性及值
对象
属性
值
Label
AutoSize
True
Shape
BorderStyle
1-实线(默认值)
Shape
SpecialEffect
0-3维
2．代码设计
单击“开始生成”按钮，将自动生成社区基本信息保存到社区信息表“Tabxqinfo”中。社区编号区域由微调框所指定。假如数据表中有该社区编号，将不被生成。保存完毕，调入“社区信息登记”表单，进行社区具体信息的添加。具体代码如下：
cstart=thisform.spinner1.value
cend=thisform.spinner2.value
s=alltrim(str(cstart))
e=alltrim(str(cend))
cpicture=sys(5)+sys(2023)"+'\images\emptyimage.bmp'
cmessagetitle='社区信息生成'
cmessagetext='确认生成编号为 '+s+'至 '+e+'的社区信息吗？'
nAnswer=messagebox(cmessagetext, 4+32,cmessagetitle)
do case
case nAnswer=6
i=1
for i=cstart to cend
xqno=alltrim(str(i))
select *;
from wygl\database\wuyemanage!tabxqinfo;
where 社区编号==xqno;
into cursor lindep
if reccount()=0
insert into tabxqinfo values(xqno,'','','',0,0,0,0,0,0,'','',cpicture,ctod(''),ctod(''))
endif
endfor
messagebox('数据保存成功！',48,'社区信息生成')
thisform.release
do form wygl\form\社区信息登记 &&调入表单
case nAnswer=7
thisform.spinner1.setfocus
endcase
4.4 业主信息登记设计
用户进入系统后，单击主界面“管理部”按钮，在弹出的功能选项表中选择“业主信息登记”选项，进入业主信息登记界面。通过业主信息登记界面可以实现添加、修改、删除、业主信息，可以通过查询方式浏览业主信息及用户单击相应的业主代号选项，再单击修改业主信息按钮或添加新业主按钮可直接调用业主信息界面。业主信息登记运营结果如图5所示。

图5 业主信息登记表单运营结果
1．表单设计
（1）在物业管理系统的项目中，新建一个表单，包含Form1、Form2 、Form3 、Form4的表单集，名称为“业主信息登记”。
（2）在Form1表单中添加Label、Combo控件、Text控件、Grid控件、List控件、Command控件、Commandgroup控件、Optiogroup控件、Date and Time Picker控件、Edit控件。
（3）重要控件属性如表5所示。
表5 重要控件的重要属性及值
控件名
属性
值
功能
Form1.Combo1
RowSource
RowSourceType
tabxqinfo.社区名称
6-字段
提供社区列表
Form1.Grid1
ColumnCount
1
提供大楼列表
Form1.Grid3
ColumnCount
RecordSource
21
tabyzinfo
提供业主信息列表
Form1.List1
ColumnCount
ColumnWidths
RowSourceType
2
90,70
6-字段
提供房屋列表
Form3.Combo2
RowSource
RowSourceType
已进住,未进住
1-值
提供是否进住列表
Form3.Grid1
ColumnCount
RecordSource
27
tabrkinfo
提供家庭员列表
2．代码设计
在Form1表单的“添加新业主”按钮的Click事件中添加以下代码：
yxq=alltrim(bo1.displayvalue)
ydl=alltrim(thisform.text1.value)
yfw=alltrim(thisform.text2.value)
if empty(yxq) or empty(ydl) or empty(yfw)
messagebox('请选择社区名称、大楼名称和房屋编号！',48,'操作失败')
else
select tabyzinfo
locate for 购入房编号=yfw &&顺序查询
if found()
messagebox('此房屋已住人！',48,'业主信息登记')
else
thisform.parent.form3.visible=.t. &&显示表单
lfjno=len(yxq)+len(ydl)+1
fjno=substr(yfw,lfjno)
thisform.parent.form3.text1.value=yxq
thisform.parent.form3.text2.value=ydl
thisform.parent.form3.text3.value=fjno
thisform.parent.form3.text4.value=yfw
thisform.parent.form3.text5.value=yfw
store '' to thisform.parent.form3.text6.value,thisform.parent.form3.text7.value,;
thisform.parent.form3.text8.value,thisform.parent.form3.text9.value,;
thisform.parent.form3.text10.value,thisform.parent.form3.text11.value,;
thisform.parent.form3.text12.value,thisform.parent.form3.text13.value,;
thisform.parent.form3.text14.value,bo1.value,;
bo2.value,bo3.value
thisform.parent.form3.grid1.recordsource=''
thisform.parent.form3.text5.setfocus &&Text5获得焦点
e