小区物业管理VB.docx

课程设计说明书 NO.1
小区物业管理系统
1．课程设计的目的
随着社会的发展，人类对物业的需求也不断地增长。通常物业管理公司都会使用一套物业管理系统来规范化管理公司的各种事务，如楼盘信息管理、住户信息管理、物业收费项目管理以及住户投诉和保修信息管理等。这次课程设计，我们以“红光苑”住宅小区为开发背景，设计这个物业管理系统，从系统登陆到住户应用各个项目管理，形成了一个整体自动化管理模式，改善了小区物业的管理现状。我们小组5名成员采用了在Visual Basic6.0环境下“自上而下地总体规划，自下而上地应用开发”的策略开发本系统，实现小区信息管理、资源共享的基本目标，并阐述系统结构设计和功能设计，形成了一个整体自动化管理模式，从软件工程的角度进行了科学而严谨的阐述。
2．设计方案论证
系统设计是管理系统开发的起点，也是整个管理系统 实现过程中的关键环节，如果系统设计环节做的不好，会影响到系统实现的后继环节，甚至造成开发失败。本次课程设计环节主要包括系统功能分析、系统模块设计以及开发与运行环境的选择等3打任务。
2.1系统功能分析
本小区物业管理系统主要具有以下功能：
（1）系统用户管理：管理小区物业管理系统的用户信息，包括系统用户的添加、修改、删除和查询。
（2）楼盘信息管理：管理小区中各幢楼盘的各种信息，包括楼盘信息的添加、修改、删除和查询。
住户信息管理：管理小区住户的各种信息，包括住户信息的添加、修改、删除和查询。
（3）物业收费管理：管理小区各种收费项目，包括收费项目的添加、修改、删除和查询。
（4）住户报修管理：管理报修投诉信息，包括住户报修信息的添加、修改、删除和查询
（5）住户投诉管理：管理住户投诉信息，包括住户投诉信息的添加、修改、删除和查询。
2.2系统模块设计
VB应用程序设计采用模块化的设计原则，通常由三类模块组成。它们分别是窗体模块、标准模块和类模块。我们在本系统中用到了两种模块：窗体模块和标准模块。全局变量只能在标准模块中声明，不能在过程和窗体模块中声明。所以本系统中定义的全局变量是存放在标准模块中。

沈 阳 大 学
课程设计说明书 NO.2

图1 系统功能模块结构图

沈 阳 大 学
课程设计说明书 NO.3
本小组5名成员分工合作，共同完成了红光苑住宅小区的物业管理信息系统的创建，我主要负责系统数据库的创建、系统工程的创建以及主窗体的设计。
2.3数据库设计
系统设计是对整个管理系统功能进行分析，并划分和构建系统功能模块，而数据库设计则是分析和创建保存管理系统设计的数据库结构设计，两者对整个系统的开发具有同等重要的关键作用。
数据库结构设计的好坏将直接影响系统的运行效率和系统开发进度，合理的数据库结构设计不仅可以提高系统运行效率，也有利于保证数据的完整性和一致性，也有利于系统的实现。
我们将数据库的设计总结为两个步骤：
（1）绘制系统数据流图。系统数据流图根据用户日常工作流程，绘制出系统的各个操作节点，对每一个操作节点，绘制出与该操作相关的数据。然后根据数据流图分析总结出系统数据字典，总结出系统管理流程中使用到的各个数据以及包含的数据项。
（2）设计数据库结构。根据(1)中得到的数据字典，为数据库规划需要的数据表，并设计每个数据表的结构。
第一步，绘制系统数据流图，具体方法如下：
根据系统功能模块结构图和管理流程，绘制如图2所示的系统数据流图。根据系统数据流图以及一般小区物业管理系统的需求，总结出下面的数据字典：
系统用户登录陆
系统用户管理
楼盘信息管理
住户信息管理
收费项目管理
报修项目管理
投诉项目管理
系统用户数据
楼盘数据
住户数据
收费项目数据
保修项目数据
投诉项目数据

图2 系统数据流图

沈 阳 大 学
课程设计说明书 NO.4
系统用户数据：包含的数据项有系统用户名称、登录口令和身份。
楼盘数据：包含的数据项有门牌号、户型、出售否、出租否、户主姓名、产权证编号、土地使用证编号、面积等。
住户数据：包含的数据项有门牌号、户主姓名、常住人口、联系电话、备注等。
收费项目数据：包含的数据项有门牌号、水、电、气、物管、时间等。
报修项目数据：包含的数据项有项目编号、内容、时间、维修否、维修人、备注等。
投诉项目数据：包含的数据项目有项目编号、内容、时间、投诉人、负责人、备注等。
第二步，数据库结构设计，具体方法如下：
数据库结构设计要求根据数据字典、使用的数据库管理系统和系统开发工具，设计出数据库中各个数据表的具体结构。
我们小组将使用Visual Basic来实现小区物业管理系统，而小区物业管理使用的数据库一般属于小型数据库，所以可以使用Visual Basic自带的可视化数据管理器来创建数据库。
(1)系统用户数据表。系统用户数据表命名为“系统用户数据”，并使用“用户名”字段创建索引，索引命名为SysUser,设置为惟一的、主要的索引。添加Admin和Administrator作为默认的系统管理员。

表1 系统用户数据表结构
字段名称
类型
大小
字段是否固定
允许零长度
必要字段
顺序位置
用户名
Text
15
可变
否
是
0
口令
Text
6
固定
否
是
1
身份
Text
10
可变
否
是
2

(2)楼盘数据表。楼盘数据表命名为“楼盘数据”，并使用“门牌号”字段创建索引，索引命名为DoorNumber，设置为惟一的、主要的索引。

表2 楼盘数据表结构
字段名称
类型
大小
字段是否固定
允许零长度
必要字段
顺序位置
门牌号
Text
9
固定
否
是
0
户主
Text
15
可变
是
是
1
户型
Text
30
可变
否
是
2
出租
Boolean

是
3
出售
Boolean

是
4
产权号
Text
50
可变
是
是
5
土地号
Text
50
可变
是
是
6
面积
Single

是
7

沈 阳 大 学

课程设计说明书 NO.5
(3)住户数据表。住户数据表命名为“住户数据”，并使用“门牌号”字段创建索引，索引名为DoorNumber,设置为惟一的、主要的索引。

表3 住户数据表结构
字段名称
类型
大小
字段是否固定
允许零长度
必要字段
顺序位置
门牌号
Text
9
固定
否
是
0
户主
Text
15
可变
否
是
1
常住人
Text
50
可变
是
是
2
电话
Text
11
可变
是
否
3
备注
Text
100
可变
是
否
4

(4)收费项目数据表。收费项目数据表命名为“收费数据”，“编号”设置为自动增加，并用于创建索引，索引名为ChargeIndex,设置为惟一的、主要的索引。

表4 收费项目数据表结构
字段名称
类型
大小
字段是否固定
允许零长度
必要字段
顺序位置
门牌号
Text
9
固定
否
是
1
水
Single

是
2
电
Single

是
3
气
Single

是
4
物管
Single

是
5
时间
Date/Time

是
6

(5)报修项目数据表。报修项目数据表命名为“报修数据”，“编号”设置为自动增加，并用于创建索引。索引名为RepairIndex,设置为唯一的、主要的索引。

表5 报修项目数据表结构
字段名称
类型
大小
字段是否固定
允许零长度
必要字段
顺序位置
编号
Long

是
0
内容
Text
50
可变
否
是
1
时间
Data

是
2
报修人
Text
15
可变
是
是
3
维修否
Boolean

是
4
维修人
text
15
可变
否
是
5

沈 阳 大 学
课程设计说明书 NO.6
(6)投诉项目数据表。投诉项目数据表命名为“投诉数据”，“编号”设置为自动增加，并用于创建索引。索引名为ApealIndex,设置为唯一的、主要的索引。

表6 投诉项目数据表结构
字段名称
类型
大小
字段是否固定
允许零长度
必要字段
顺序位置
编号
Text

是
0
内容
Text
50
可变
否
是
1
时间
Data

是
2
投诉人
Text
15
可变
是
是
3
负责人
Text
15
可变
否
是
4
各个数据表创建完成之后，使用创建的数据库“物管数据库．mdb”创建一个ODBC数据源，并命名为“物管数据DSN”。
2.4创建系统工程
启动visual basic,并选择创建一个标准EXE工程，在属性窗口中将工程命名为“小区物业管理系统．vbp”。
选择“工程”——“引用”菜单命令，打开“工程引用”对话框，并选中“Microsoft activex data objects libray 2.0”然后选择“工程”——“不见”菜单命令打开“工程部件”对话框，并在“部件”选项卡中选中“Microsoft ado data control 6.0”和“Microsoft datagrid control 6.0”。
选择“工程”——“添加模块”菜单命令，为工程添加一个标准模块，在属性窗口中将模块命名为currentuser data ,保存为mdlSysUserdata.bas,并在其代码窗口中输入下面的语句定义3个公共变量，分别保存系统当前用户的用户名、口令和身份：
Public CurrentUserName As String '保存当前用户用户名
Public CurrentUserPassword As String '保存当前用户登录口令
Public CurrentUserStatus As String '保存当前用户身份
2.5实现系统主窗体

具体操作如下：
第一步，创建系统主窗体：
为工程添加一个MDI窗体，将窗体Caption属性设置为“红光苑住宅小区管理系统”，窗体命名为“frmSysMain”,保存为“ frmSysMain.frm”为窗体创建如下图所示的菜单系统：

沈 阳 大 学
课程设计说明书 NO.7
各个菜单项的标题和名称如表：
表7 系统菜单标题和名称
标题
名称
标题
名称
文件
Mnufile
住户信息
Mnuuserinf
退出
Mnuexit
编辑
Mnuedituser
系统
Mnusys
查询
Mnuuserquery
用户管理
Mnusysuser
物业管理
Mnutownmanage
修改口令
Mnupassword
收费
Mnucharge
信息管理
mnuinf
报修
mnumaintain
楼盘信息
Mnubuildinf

编辑
Mnueditbuild

查询
Mnubuildquery

投诉
mnuappeal

第二步，实现按权限启用系统功能。在窗体加载时，根据当前用户权限决定应该隐藏的系统功能菜单，实现代码如下：
Private Sub MDIForm_Load()
'根据用户身份决定是否隐藏可执行管理操作的菜单
If CurrentUserStatus <> "管理员" Then
mnuEditUser.Visible = False '隐藏住户管理菜单
mnuSysUser.Visible = False '隐藏系统用户管理菜单
mnuEditBerth.Visible = False '隐藏停车场车位管理菜单
mnuEditBuild.Visible = False '隐藏楼盘数据管理菜单
mnuCharge.Visible = False '隐藏物业管理收费菜单
End If
End Sub

第三步，实现退出系统功能。在窗体关闭时，首先请求用户确认，然后检查窗体是否关闭。在所有打开的子窗体被关闭时，才允许退出系统，实现代码如下：
Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
'请求用户确认退出操作
If MsgBox("你选择了退出红光苑住宅小区管理系统，是否退出？", _
vbYesNo, "红光苑住宅小区管理系统") = vbNo Then
Cancel = 1 '撤消关闭窗体操作
End If
'判断在关闭了所有子窗体之后才能退出系统
If Not MeActiveForm Is Nothing Then
MsgBox "请关闭所有打开的子窗体再退出系统", _
vbCritical, "红光苑住宅小区管理系统"
Cancel = 1 '撤消关闭窗体操作

沈 阳 大 学
课程设计说明书 NO.8
End If
End Sub
Private Sub mnuExit_Click()
Unload Me
End Sub
第四步，集成系统功能模块。在用户执行菜单命令时，需要打开相应的系统功能模块，所以需要在菜单的Click实现工程中执行系统功能模块的 show方法，并执行SetFocus使其成为当前窗体，实现代码如下：
Private Sub mnuAppeal_Click()
UserAppeal.Show
UserAppeal.SetFocus
End Sub
Private Sub mnuBuildQuery_Click()
BuildingInfQuery.Show
BuildingInfQuery.SetFocus
End Sub
Private Sub mnuCharge_Click()
UptownManage.Show
UptownManage.SetFocus
End Sub
Private Sub mnuEditBerth_Click()
EditBerth.Show
EditBerth.SetFocus
End Sub
Private Sub mnuEditBuild_Click()
EditBuildingInf.Show
EditBuildingInf.SetFocus
End Sub
Private Sub mnuEditUser_Click()
frmAddDenizen.Show
frmAddDenizen.SetFocus
End Sub
Private Sub mnuMaintain_Click()
MaintainReport.Show
MaintainReport.SetFocus
End Sub
Private Sub mnuParking_Click()
ParkingManage.Show
ParkingManage.SetFocus

沈 阳 大 学
课程设计说明书 NO.9
End Sub
Private Sub mnuPassword_Click()
PasswordChange.Show
PasswordChange.SetFocus
End Sub
Private Sub mnuSysUser_Click()
SysUserManage.Show
SysUserManage.SetFocus
End Sub
Private Sub mnuUserQuery_Click()
DenizenQuery.Show
DenizenQuery.SetFocus
End Sub
3．设计结果与分析
(1) 系统登录窗体，运行结果如下：

(2)系统主窗体运行结果如下：

沈 阳 大 学
课程设计说明书 NO.10

系统测试是一项庞大而又需要细致用心的任务，以上为我所负责的模块测试结果，在小组成员实现各个功能模块时，都分别独立运行进行了测试，最后将SystemLogon（系统登录窗体）设置为启动窗体，选择“文件”——“生成小区物业管理信息系统.exe”菜单命令，生成系统的可执行文件，并运行对系统进行总体测试。我主要负责设计的系统模块，经测试能够运行。由于我们是单独制作的个人模块，所以在合体的时候遇到很多问题，不过在我们合力研究，以及在老师的指导下，终于能够完成其功能。虽然有些功能还不是很完善、细致，但是基本功能都是具备的，在我们完善改进系统的同时，也提高了我们Visual Basic技术的理论与实际的应用。
4．设计体会
课程设计是培养我们综合运用所学知识,发现,提出,分析和解决实际问题,锻炼实践能力的重要环节,是对我们实际工作能力的具体训练和考察过程.随着科学技术发展的日新日异，Visual Basic程序设计已经成为当今计算机应用中空前活跃的领域， 在生活中可以说得是无处不在。因此作为二十一世纪的我们来说掌握Visual Basic程序设计技术是十分重要的。
回顾起此次课程设计，至今我仍感慨颇多，的确，从选题到定稿，从理论到实践，在整整一星期的日子里，可以说得是苦多于甜，但是可以学到很多很多的的东西，同时不仅可以巩固了以前所学过的知识，而且学到了在书本上所没有学到过的知识。
通过这次课程设计使我懂得了理论与实际相结合是很重要的，只有理论知识是远远不够的，只有从理论中得出结论，才能真正为社会服务，从而提高自己的实际动手能力和独立思考的能力。在设计的过程中遇到问题，可以说得是困难重重，这毕竟第一次做，难免会遇到过各种各样的问题，同时在设计的过程中发现了自己的不足，对以前所学过的知识理解得不够深刻，掌握得不够牢固，通过这次课程设计之后，一定把以前所学过的知识重新温故。
课程设计终于顺利完成了，在设计中遇到了很多编程问题，最后在老师的辛勤指导下，终于游逆而解。同时，在老师的身上我学得到很多实用的知识，在此表示感谢！

沈 阳 大 学
课程设计说明书 NO.11
5 参考文献
[1] 刘天惠. Visual Basic程序设计教程[M].北京：清华大学出版社，2006.2
[2] 王新民，张彦玲. Visual Basic程序设计与数据库应用[M].北京：电子工业出版社，2005.2
[3]罗幼平，万莉.VB中的数据库应用分析[J].黄冈职业技术学院学报.2005.4
[4] 郭胜，夏邦贵.Visual Basic数据库开发入门与范例解析[M].机械工业出版社.2004.1
[5] 刘韬，骆娟，何旭洪. Visual Basic数据库系统开发实例导航[M].人民邮电出版社，2004.1

沈 阳 大 学