小区物业管理系统

小区物业管理系统毕业论文

摘要：本论文描述了《小区物业管理系统》的设计与实现。

本软件的前台设计由Visual Basic实现。利用Access用户界面工具进行数据库的创建和管理。本系统界面设计大方、简洁、实用，操作简单方便,是一款完全适合普通小区物业日常事务管理的软件。软件设计综合了具有一定代表性的多家物业管理公司的业务模式和需求。能实现房产、客户等小区的智能化管理，可以提高物业管理的效率。

关键词：小区物管，物业管理，物业管理系统，小区物业管理系统，Visual Basic ,Access

Abstract

The paper describes the design and realization of Property Manage System(PMS) .

The foreground of the software is carried out by Visual Basic 6.0. Using the Access customer interface tool to create and manage the database. This interface of the system is generous, practical, with simple operational method, and it is also a software complete suiting the common Property business management.It synthesizes the requirement and business mode of many property management company in designing precess.It can realize the management of  house property, customer in a small area of inhabitancy. And increase the efficiency of the  property management.

Key word: Property Manage System, PMS, Visual Basic ,Access

目录

第一章 前言 ...............................................................................................................................3

第二章 系统需求分析.................................................................................................................4

1物业管理的发展成因................................................................................................................4

2现行系统存在问题的分析........................................................................................................5

3解决方案....................................................................................................................................6

4可行性分析................................................................................................................................6

第三章 新系统逻辑方案.............................................................................................................7

1初步调研....................................................................................................................................7

2详细调研....................................................................................................................................7

第四章 系统总体结构设计.........................................................................................................8

1需要分析....................................................................................................................................8

2本小区管理系统的目标............................................................................................................8

第五章 小区物业管理系统的设计.............................................................................................8

1小区物业管理系统的功能........................................................................................................9

2系统菜单....................................................................................................................................10

3模块结构图................................................................................................................................11

4统流程图....................................................................................................................................13

5数据流程图................................................................................................................................15

6系统界面....................................................................................................................................16

第六章 实施概况.........................................................................................................................19

1系统开发环境............................................................................................................................19

2系统测试....................................................................................................................................20

3系统运行与维护........................................................................................................................21

4系统的转换方案........................................................................................................................23

结束语...........................................................................................................................................24

参考文献.......................................................................................................................................24

附录...............................................................................................................................................25

第一章 前言

随着我国国民经济的飞速发展，电子计算机和通信技术的发展，人类已经逐渐地进入信息化社会。信息和材料、能源一样成为一种社会的基本生产资料，在人类的社会生产活动中发挥着重要的作用。同时人们对信息和数据的利用与处理也已进入自动化、网络化和社会化的阶段，因此，开发相关的管理信息系统已经成为各行各业的必要和必需了，管理信息系统作为一门边缘学科，集管理科学、信息科学、系统科学、现代通信技术和电子计算机技术于一体，可以解决企业或组织所面临的问题，对内来看，可以提高工作效率；对外来看，获得竞争优势。信息管理系统（MIS）是为企业提供有关内部经营，外部环境和决策支持信息而建立起来的信息保障体系。目前，在欧美发达国家，绝大多数企业都在不同程度上建立起来了自己的企业信息管理系统，以确保在竞争中处于有利的地位。在我国，随着市场经济的发展，企业技术进步和管理水平的不断提高，市场的作用不断扩大，中小企业急需要MIS软件来管理企业的日常经营活动。对一个企业来说，本身就是一个大系统，这个大系统友若干相关的生产系统，管理系统和信息系统所组成，其中信息系统的设计好坏直接关系到企业的发展，因此设计MIS系统的时候必须遵循一下原则：

·眼前利益与长远利益相结合  设计一个企业的信息管理系统的时候，既要考虑当前的现实利益，也要考虑到长远的战略利益，两者兼顾。如果只重眼前利益而忽视了长远利益，必然会事倍功半，企业也不可能长生不衰。

·局部利益和整体利益相结合 企业信息管理系统是一个有机的整体，它由若干个子系统组成，这就要求我们从大系统出发来把我子下体之间的多层次关系，合理划分各个子系统之间的任务，逐层逐级分解下去。形成一个单个子系统服从于局部系统，局部系统服从于整个系统的一体化局面，从而最大限度的发挥企业信息管理系统的效力。

开放性和灵活性相结合  系统设计一方面要主意增强对外部的开放程度和能力，发挥对外开发的功能，不断增强对外开放意识和开拓精神，使企业在激烈的市场竞争立于不败之地；另以方面，要有一定的灵活性，便于对系统进行修改，完善和补充，使设计的系统具有较强的适应性，以增强企业的经济效益。

·针对性和实用性相结合  系统的设计必须针对社会发展的需要，按照企业的具体情况进行，不同地区，不同行业，体制和机车不同，用户的需求也有差异，设计的系统也应有所区别。同时，必须注意系统的实用性，尽可能的以较小的投入获得最大的效益，使系统设计的各个方面都能得到充分的开发和利用。

MIS对于企业的日常经营起着很大的作用。在企业的人事管理中用记录大量员工的基本信息和人事变动的记录，如果要人员来管理那些数据的效率是极其低的，还有很容易就会出错。出勤管理和工资管理也是一样。因此对企业的信息实现数字化，用计算机来管理显得非常的必要。

小区物业管理系统就是一个例子，随着人民生活水平不断提高，人们对生活环境要求日益提高，尤其是对居住环境不断提出新的需求，为了适应这种形式，小区的经营者不仅首先要有坚实的硬件基础，还要有一套现代化的物业管理系统。而要实现这一功能，就职求物业管理者配备一套高效的管理住处网络系统，以便在小区内快速地发布和获取住处并以最快地速度响应用户的需求，及时为用户提供服务，为住户提供一个高效、舒适的居住、生活环境。住宅小区的物业管理准确地讲应当是指对以居住为主要功用的物业进行管理。除住宅外还应包括公寓、别墅等。

小区/写字楼物业管理系统的开发，是为了规范住宅小区的管理工作，为物业管理部门提供一套高效、快捷的应用软件。适用于管理以下物业，房产业主、大中小型物业管理公司、物业服务提供商、房地产开发商、物业中介公司等物业管理企业，用来管理公寓、住宅群体、智能小区、商品房、多层住宅、商业大厦、学校、医院、别墅区、部队营房区、各类小区等。

本系统可以彻底解决手工计算、抄写物业管理中房产资料、业主资料、住房资料以及文件档案等操作时数量庞大的难题，也可以有效避免长时间无法即时查询某房产或业主资料的繁琐性。随时按照业主名称、房号、房屋类型、房间朝向、面积等多种条件任意查询，减少重复，提高工作效率

第二章 系统需求分析

1、物业管理的发展成因

(1)住宅建设迅猛发展，大量住宅小区投入使用。

　　改革开放以来，住宅建设飞速发展。我国城镇现有住宅已近80亿平方米。仅79年至99年城镇新建住宅52.5亿平方米。大量住宅小区投入使用，带来了管理工作的变化。除了对房屋进行维修外，还必须对附属物、设备、场地、环卫绿化、道路、治安进行专业化管理，以保持新建住区的完好，发挥其整体功能和综合效益。国外和香港对住宅区和其它物业实施专业化管理的经验被引入，取得了较好的效果，带动了全国物业管理工作的起步和发展。

(2)住房制度改革的逐步深化。随着房改的步步深化，城镇居民住房自有率已经超过75%，形成一个住区内，一幢房子里的产权多元化格局。房管所及单位房管处（科）的管房体制已经完全不能适应。对管理的社会化形成了客观的要求。物业管理从体制上克服了房改后形成的多个产权单位多头、多家管理，各自为政、扯皮推诿等旧管理体制的弊端。

  (3)体制改革的推动。随着计划经济体制加快向社会主义市场经济体制的转轨，政府职能的转变，以前那种由政府行政福利型直接管理房屋，政府对住区环境、社区服务直接负责的办法，已经不能适应形势的变化。一个由业主自治与物业公司专业化管理结合，由物业管理企业实施经营型管理和有偿服务，使管理得以以业养业、自我发展、良性循环，既减轻了政府的压力和负担，又使得管理经费有了稳定来源的机制，日益显示其新体制的优越性。

(4)人民群众生活水平的不断提高。居民对住房问题的关切从有无转为大小，继而更加关注环境和社区服务。同时，广大住户拥有了自己的产业，对保持房产和附属设施的完好，以达到保值、增值的观念也逐步树立，使得物业管理的好坏已经成为居民选购住房考虑的重要因素，物业管理为越来越多的人接受，其行业地位不断攀升，外部环境逐步改善。

2、现行系统存在问题的分析

该小区的管理工作大部分还是进行着手工管理，工作起来效率很低，并且不能及时了解小区内部各处的信息，也不方便工作人员之间彼此的交流，不便于动态及时地了解概况，以便更好地适应当前小区的管理需求。手工管理还存在这许多弊端，由于不可避免的人为因素，经常造成数据的遗漏、误报。计算机信息化管理有着储存信息量大、速度快等许多优点，提供给我们的处理信息及时快捷，同时也提高了我们工作人员的自身素质。

3、解决方案

基于以上的对问题的分析，利用计算机给我们提供信息，及时地调整小区物业管理整体结构，并且对整个信息进行动态管理就十分必要了。

小区物业信息系统的建立，需要进行对住户的需求调查与分析，以确定系统目标，提出解决问题的详细方案，这是系统建设的重要环节。

小区物业信息管理系统的体系结构，既要符合企业的生产经营体制，又要符

合计算机软件本身的特点，因此需要从下面几个方面来综合的考虑：

• 综合考虑企业现行的管理体制下各个职能部门的要求，把关系紧密，数据采集，交换，加工分析路径最短，业务相对独立的一些职能划分为一个子系统。
• 充分考虑企业管理部门的业务分工，尽可能的使一个功能子系统属于一个职能的管辖范围内，以便于今后个子系统的管理和维护。
• 有利于子系统的开发，设计和维护，各个子系统之间相对独立和相对稳定。

在软、硬件方面对系统的需求，软件要求易学，界面友好，容易掌握，可以很简单方便的管理各种信息。硬件的配置要求不能太高，这样可以很好的适应当前的实际情况。

系统设计开发的周期要短，在短时间内完成，减少开发成本，提高开发效率，方便、简单、实用作为系统开发的指导思想。

4、可行性分析

通过对该小区的各个方面进行了具体的了解之后，现对该单位开发物业管理系统的可行性进行分析。

技术上可行：该系统所需硬件设备，市场上销售且价格较低，甚至可以使用原有的设备，软件上，操作系统采用Windows系列操作系统，数据库管理系统采用Visual Basic，这些软件在MIS开发中已被大量应用，技术上都比较成熟。因此在技术上是可行的。

经济上可行：由于住户需要支付管理费，因此小区在采用计算机来进行小区的管理，因开发经费没有问题。

管理上可行：该小区的物业管理人员都经过专业的培训。有计算机操作经验，并有丰富的管理和工作经验，因此因管理上可行。另外，小区也决定对新员工制定了培训计划，并进行了实施MIS的物质准备和工作准备。

综上所述，开发小区物业管理系统在技术上、经济上、管理上都是可行的。

第三章 新系统逻辑方案

1、初步调研

在本系统被批准立项之后，我实地去该小区进行了参观和学习，现对该小区的整体情况进行调研，调研分两步进行，一是初步调研，二是详细调研。由于该小区物业管理不员较少，因此在调研时采用了会议讨论法和个人访谈法两种方法，通过会议讨论法了解小区的整体情况，对开发新系统的态度等。通过个人访谈法了解各个部门的主要职能及具体运作方式、过程等。

对该小区进行初步调研的具体内容为：（1）小区的规模：栋数；（2）小区的主要服务项目；（3）物业管理共分几个部门；（4）物业管理职工人数；（5）职工受教育程度；（6）主要住户结构;（7）对开发新系统的态度；（8）开发新系统所需的时间（规定多长时间开发完成）。

2、详细调研

通过调查,确定系统需要具有以下功能:

     A：由于操作人员的计算机知识普遍较差,要求有良好的人机界面;

     B：由于该系统的使用对象多,要求有较好的权限管理;

C：原始数据修改简单方便,支持多条件修改

D：方便的数据查询，支持多条件查询;

E：在相应的权限下，删除数据方便简单，数据稳定性好；

F：数据计算自动完成，尽量减少人工干预;

G：退出系统

由于本系统管理的对象单一,涉及的计算过程不是很复杂。因此，比较适合于采用数据库管理。且物业管理部门购进的计算机都PentiumIII以上的机器，在存储量、速度方面都能满足数据库运行的要求。在技术难度方面，由于有指导老师的指导和相关参考文献，特别是网上资料，以及生产一线提供的各种要求，完全可以实现。

 VB6.0中文版作为一个关系型数据库系统，它提供了面向对象的编程技术，可简化数据库管理，使开发应用程序这项艰辛的工作就象堆积木那样简单方便。另外，用VB6.0中文版开发的应用程序可以独立运行于windows平台。

第四章 系统总体结构设计

1、需要分析

本小区物业管理系统要求达到以下的要求：

有效的管理住户资料，并保证其安全性。

自动安排日常的管理事务。

及时处理住户的意见，并做好记录备案。

2、本小区管理系统的目标

确保准确、可靠的小区管理，保证数据的安全性，一致性，完整性，提高效率，防止漏洞。所有的管理记录必须完整、准确、报表及时，满足普通住户和管理员管理的要求。

第五章  小区物业管理系统的设计

1小区物业管理系统的功能

小区物业管理系统大致上需要住户资料管理、投诉管理、住户报修管理、统计报表、数据备份、数据恢复等几个主要的功能。故本系统的模块的划分及功能如下：

A、住户资料管理：详细记录小区住户的信息

B、投诉管理：管理住户的投诉情况。

C、住户报修管理：记录报修信息，为住户提供及时的维修服务。

D、物业受费项目管理：用户的缴费信息。

E、住户停车车位管理：这个功能可以轻松监控住户的车位信息。

F、系统维护：数据备份。

2 系统菜单

小区物业资料管理

 开发商资料

    监理商资料

建筑商资料

小区物业基本管理

    用户投诉管理

    住户报修管理

    设备保修管理

    住户缴费管理

    物业收费管理

    物业收费项目管理

    住户停车车位管理

统计报表

    住户投诉统计报表

    住房维修统计报表

    物业设备维修统计报表

    物料配件耗用统计报表

系统维护

    数据备份

帮助

3 模块结构图

4系统流程图

5 数据流程图

    规范化数据规则：

.第一范式(1NF):消除重复字段和非原子的值。

.第二范式(2NF):要求每一个字段都依赖于主关键字段的每一部分。

.第三范式(3NF):要求所有非主关键字都只依赖于主关键字段。

确定字段原则:

根据表中存储信息的不同,表中所需的字段也不一样,在确定所需字段时

有下列方法可供使用:

.描述不同主题的字段应属于不同的表,通过定义之间的关系,可以将多个表中的字段进行数据组合,生成各种表单或报表。

    .不要在表中存储通过推导或计算可以得到的数据。

    .收集所需的全部信息。应全面检查书面的表单和报表，确定所需的数据都已包括在所设计的表中或可由这些表计算出来。

    .以最小的逻辑单位存储信息。应尽量把信息分解成比较小的逻辑单位。

    .对于主关键字段,VB6.0不充许其有重复值或NULL 值。

     确定字段数据类型规则:

     在实际选择数据类型时,应结合字段的自身情况并考虑以下几点:

     .该字段用于存储什么类型的值

     .要对字段中的值执行什么类型的运算   

     .是否要用字段进行排序或筛选

     .是否用字段对记录进行分组

本系统数据库采用了Microsoft推出的Access数据库，这是微软集成到Office中的一个桌面数据库，能够快速方便的和Office的其他套件综合使用。由于Access具有显著的简易性和有效性，大量的桌面数据库系统都采用Access作为后台数据库。使用Access的好处还在于，如果你的系统扩展到Client/Server模式的时候，可以使用Microsoft的数据库服务器软件SQL Server，此时，程序只需要简单的修改一下链接（ADO的数据源）就可以，这样，为程序的平滑扩展提供了非常有力的条件。本系统共有七个数据表，物理结构如下：

Ddmin（管理员）表：

字段名称	字段类型	宽度	小数位
ID	自动编号
UserName	文本	20
Psw	文本	50

BaseInfo（住户信息）表：

字段名称	字段类型	宽度	小数位
住户编号	文本	20
户主名称	文本	20
联系电话	文本	20
楼宇名称	文本	50
楼层	文本	20
房屋号	文本	20
单元	文本	20
迁入日期	日期/时间
房型	文本	20
备注	备注

DataMoney（收费管理）表：

字段名称	字段类型	宽度	小数位
编号	自动编号
单据编号	文本	20
住户名称	文本	20
缴费日期	日期/时间	20
收费人员	文本	20
缴费方式	文本	20
缴费总额	数字	4	2
备注	备注

Park（车位管理）表：

字段名称	字段类型	宽度	小数位
编号	自动编号
车位编号	文本	20
住户名称	文本	20
使用日期	日期/时间
备注	备注

ParkBase（车位信息）表：

字段名称	字段类型	宽度	小数位
编号	自动编号
车位编号	文本	20
备注	备注

Repair（报修管理）表：

字段名称	字段类型	宽度	小数位
单据编号	文本	20
住户名称	文本	20
维修人员	文本	20
报修日期	日期/时间
服务费用	数字	4
物料费用	数字	4
费用合计	数字	4
报修内容	备注

TouShu（投诉管理）表：

字段名称	字段类型	宽度	小数位
投诉编号	文本	20
投诉住户	文本	20
接待人员	文本	20
投诉日期	日期/时间
投诉内容	备注
处理人员	文本	20
处理情况	备注

6 系统界面：

A.登陆界面：登录界面主要是对系统的安全性进行管理，防止非法用户侵入造成信息泄露。

B：系统主界面：在本界面上集成了本系统的所有功能：

C：住户资料录入界面：将每个具体的信息录入本系统，以便快速查询和管理

D.住户投诉管理界面：小区管理是一个双向的过程，本功能模块主要是对住户提出的问题进行记录，以便及时处理。

E：住户报修管理界面：方便工作人员及时对隹户的物产进行维护。

F.物业收费管理：方便牧业管理部门对住户的物业费的收取

G.住户停车车位管理：对住户的车位进行管理。

第六章 实施概况

6．1系统开发环境：

系统开发环境包括硬件平台和软件平台两种。

硬件平台是指开发与运行所需要的硬件环境，主要包括计算机机型及硬件配置。由于本系统是一个小型的MIS管理系统，因此对计算机硬件的要求不高，比较经济，只要配备有PII处理器（或以上）、64M内存（或以上）、10G硬盘（或以上）的普通微机即可顺利运行。

软件平台是指系统开发与运行的软件环境。本系统在开发时选用了稳定性较强的Windows XP中文专业版和Visual Basic6.0作为开发语言，同时选用了Access数据库，由于这些软件产品都是Microsoft公司的产品，因此彼此之间的兼容性较好，开发出的应用系统稳定性较高。

Visual Basic是一种可视化的、面向对象和调用事件驱动方式的结构化高级程序设计，可用于开发Windows环境下的种类应用程序。它简单易学、效率高，且功能强大，可以与Windows的专业开发工具SDK相媲美，而且程序开发人员不必具有C/C++编程基础。在Visual Basic环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，使用Windows内部的应用程序接口(API)函数，以及动态链接库(DLL)、动态数据交换(DDE)、对象的链接与嵌入(OLE)、开放式数据访问(ODBC)等技术，可以高效、快速地开发出Windows环境下功能强大、图形界面丰富的应用软件系统。

总的来说，Visual Basic具有以下特点：

可视化编程：

用传统程序设计语言设计程序时，都是通过编写程序代码来设计用户界面，在设计过程中看不到界面的实际显示效果，必须编译后运行程序才能观察。如果对界面的效果不满意，还要回到程序中修改。有时候，这种编程-编译-修改的操作可能要反复多次，大大影响了软件开发效率。Visual Basic提供了可视化设计工具，把Windows界面设计的复杂性“封装”起来，开发人员不必为界面设计而编写大量程序代码。只需要按设计要求的屏幕布局，用系统提供的工具，在屏幕上画出各种“部件”，即图形对象，并设置这些图形对象的属性。Visual Basic自动产生界面设计代码，程序设计人员只需要编写实现程序功能的那部分代码，从而可以大大提高程序设计的效率。

面向对象的程序设计

4.0版以后的Visual Basic支持面向对象的程序设计，但它与一般的面向对象的程序设计语言(C++)不完全相同。在一般的面向对象程序设计语言中，对象由程序代码和数据组成，是抽象的概念；而Visual Basic则是应用面向对象的程序设计方法(OOP)，把程序和数据封装起来作为一个对象，并为每个对象赋予应有的属性，使对象成为实在的东西。在设计对象时，不必编写建立和描述每个对象的程序代码，而是用工具画在界面上，Visual Basic自动生成对象的程序代码并封装起来。每个对象以图形方式显示在界面上，都是可视的。

结构化程序设计语言

Visual Basic是在BASIC语言的基础上发展起来的，具有高级程序设计语言的语句结构，接近于自然语言和人类的逻辑思维方式。Visual Basic语句简单易懂，其编辑器支持彩色代码，可自动进行语法错误检查，同时具有功能强大且使用灵活的调试器和编译器。

Visual Basic是解释型语言，在输入代码的同时，解释系统将高级语言分解翻译成计算机可以识别的机器指令，并判断每个语句的语法错误。在设计Visual Basic程序的过程中，随时可以运行程序，而在整个程序设计好之后，可以编译生成可执行文件(.EXE)，脱离Visual Basic环境，直接在Windows环境下运行。

事件驱动编程机制

Visual Basic通过事件来执行对象的操作。一个对象可能会产生多个事件，每个事件都可以通过一段程序来响应。例如，命令按钮是一个对象，当用户单击该按钮时，将产生一个“单击(CLICK)”事件，而在产生该事件时将执行一段程序，用来实现指定的操作。

在用Visual Basic设计大型应用软件时，不必建立具有明显开始和结束的程序，而是编写若干个微小的子程序，即过程。这些过程分别面向不同的对象，由用户操作引发某个事件来驱动完成某种特定的功能，或者由事件驱动程序调用通用过程来执行指定的操作，这样可以方便编程人员，提高效率。

访问数据库

Visual Basic具有强大的数据库管理功能，利用数据控件和数据库管理窗口，可以直接建立或处理Microsoft Access格式的数据库，并提供了强大的数据存储和检索功能。同时，Visual Basic还能直接编辑和访问其他外部数据库，如dBASE，FoxPro，Paradox等，这些数据库格式都可以用Visual Basic编辑和处理。

Visual Basic提供开放式数据连接，即ODBC功能，可通过直接访问或建立连接的方式使用并操作后台大型网络数据库，如SQL Server，Oracle等。在应用程序中，可以使用结构化查询语言SQL数据标准，直接访问服务器上的数据库，并提供了简单的面向对象的库操作指令和多用户数据库访问的加锁机制和网络数据库的SQL的编程技术，为单机上运行的数据库提供了SQL网络接口，以便在分布式环境中快速而有效地实现客户/服务器(client/server)方案。

动态数据交换(DDE)

利用动态数据交换(Dynamic Data Exchange)技术，可以把一种应用程序中的数据动态地链接到另一种应用程序中，使两种完全不同的应用程序建立起一条动态数据链路。当原始数据变化时，可以自动更新链接的数据。Visual Basic提供了动态数据交换的编程技术，可以在应用程序中与其他Windows应用程序建立动态数据交换，在不同的应用程序之间进行通信。

对象的链接与嵌入(OLE)

对象的链接与嵌入(OLE)将每个应用程序都看做是一个对象(object)，将不同的对象链接(link)起来，再嵌入(embed)某个应用程序中，从而可以得到具有声音、影像、图像、动画、文字等各种信息的集合式的文件。OLE技术是Microsoft公司对象技术的战略，它把多个应用程序合为一体，将每个应用程序看做是一个对象进行链接和嵌入，是一种应用程序一体化的技术。利用OLE技术，可以方便地建立复合式文档(compound document)，这种文档由来自多个不同应用程序的对象组成，文档中的每个对象都与原来的应用程序相联系，并可执行与原来应用程序完全相同的操作。

动态链接库(DLL)

Visual Basic是一种高级程序设计语言，不具备低级语言的功能，对访问机器硬件的操作不太容易实现。但它可以通过动态链接库技术将C/C++或汇编语言编写的程序加入到Visual Basic应用程序中，可以像调用内部函数一样调用其他语言编写的函数。此外，通过动态链接库，还可以调用Windows应用程序接口(API)函数，实现SDK所具有的功能。

本系统在单机上运行。

6.2系统测试：

在开发本系统时，为了使系统能够稳定运行，对本系统进行了有针对性的全面测试，采取的方式是：

1、菜单项测试：为了保证每一项下拉菜单能够正确实现系统设计的功能，我把该图书馆有关图书的所有基础数据，基本上全部输入到本系统中，并对每一个菜单项反复进行了增加、删除、修改等操作，从而保证了菜单级功能的正确实现。

2、数据跟踪：完成菜单项测试后，我又对系统内的每一个数据进行了跟踪。例如：例如对物业费的管理，我首先进入单个数据的输入，然后进行数据统计工作，随时观察这些数值之间是否有冲突产生，经过验证，说明该功能完全正常。

3、综合测试：在以上测试的基础上对系统功能进行了整体的测试，依次来检验系统功能是否符合系统设计的要求。

6.3 系统运行与维护：

系统的运行：

1初始数据的输入

本系统的的输入采用鼠标和键盘相结合的输入方法。

2、怎样进入系统

A、将本系统所在的文件夹拷贝到硬盘，然后执行其中的物业管理系统的程序文件即可，应注意要将全部文件的属性变以存档，消除只读属性。

B、在随后出现的登录界面上输入正确的用户名和密码即可

3、怎样使用本系统：

点击鼠标左键即可进行相应功能的选择。

系统的维护：

本系统是个较复杂的人-机系统，由于系统外部环境与内部因素的变化，不断影响系统的运行，同时需要系统不断地适应这些变化，不断地完善系统，以提高系统运行的效率与服务水平，这就需要自始至终进行系统的维护工作。

系统的维护主要包括四个方面：

（1）程序的维护：指的是修改部分或全部程序，这种维护往往是在条件发生变化或原系统的效率低的情况下进行的。

（2）数据文件的维护：指的是按照用户的要求对数据文件进行不定期的修改。

（3）代码的维护：随着系统的发展和变化，可能会出现旧代码不能适应新要求的问题，因此，有必要变更代码，予以维护。

（4）硬件的维护：指的是对系统所使用的设备进行维护。

本系统的日常维护由图书馆的专人来负责，如果出现一些不能解决的问题，则由开发者来负责。

6．4系统的转换方案：

本次开发的小区管理系统采用了并行转换方式，以保证平衡可靠的过度。即一方面使用本系统来进行工作，另一方面又继续沿用老的方式—手工方式，这种状况持续了半个月的时间，在这期间发现了一些程序中存在的漏洞和错误，用户也提出一些修改意见，经过程序的进一步完善后，正式投入了使用，中止了以前老的手工的操作方式。

结束语

在本系统的开发过程中，由于本人是初次开发软件，在知识、经验方面都存在着不足。另外，在整个开发的过程中，时间也比较仓促。因此，该系统必然会存在一些缺陷和不足。因为对物业管理的整个流程不够熟悉，在需求分析时未能做到完全满足用户的需求。虽然网络在物业管理系统中的应用已经很普遍，但在开发过程由于硬件的限制，未能实现网络功能，在大多数物业管理系统单机版中，数据库是用普通的单机版数据库，那么在以后的系统更新过程中会造成不必要的损失。

尽管该物业管理系统存在着很多不足，但其功能全面、易于日后程序更新、数据库管理容易、界面友好、操作方便、效率高、安全性好等优点是牧业管理系统所必需的。相信该物业管理系统将是一套物业管理员必不可少的管理软件，在本次毕业设计中，我从指导老师（------）老师身上学到了很多东西。他认真负责的工作态度，严谨的治学精神和深厚的理论水平都使我收益匪浅。他无论在理论上还是在实践中，都给与我很大的帮助，使我得到很大的提高，这对于我以后的工作和学习都有一种巨大的帮助，在此感谢他耐心的辅导。另外，在系统开发过程中还有同组的同学也给了我不少帮助，这里一并表示感谢。

参考文献

Visual Basic 6使用指南	田金兰	电子工业出版社	1997年出版
Visual Basic 6数据库 访问技术	Jeffrey	机械工业出版社	1995年出版
软件开发技术	潘锦平	西安电子科技大学出版社	1997年出版
数据库系统概论	王珊	高等教育出版社	1991年出版

附录

• 部分程序源代码：

1.启动界面

 Dim a

Dim b

Private Sub Form_Load()

Data1.DatabaseName = App.Path + "\db.mdb"

Data1.RecordSource = "用户管理"

End Sub

Private Sub Timer1_Timer()

a = a + 1

If a = 3 Then

Call js

End If

End Sub

Private Sub js()

b = Data1.Recordset.RecordCount

   If b > 0 Then

   Form11.Show

   Unload Me

   Else

   Form10.Show

   Unload Me

   End If

End Sub

2.用户登陆

Private Sub Command3_Click()

Form10.Show

End Sub

Private Sub Form_Load()

Data1.DatabaseName = App.Path + "\db.mdb"

Data1.RecordSource = "用户管理"

End Sub

Private Sub Command1_Click()

If Text1.Text = "" And Text2.Text = "" Then

   MsgBox "请输入用户名和密码！"

   Else

   If Text1.Text = "" Then

      MsgBox "你还没有输入用户名！"

      Text1.SetFocus

      Else

        If Text2.Text = "" Then

           MsgBox "你还没有输入密码！"

           Text2.SetFocus

           Else

               Dim user As String

               user = "用户名=" & "'" & Trim(Text1.Text) & "' and " + "密码=" & "'" & Trim(Text2.Text) & "'"

               Data1.Recordset.FindFirst user

                    If Data1.Recordset.NoMatch Then

                       MsgBox "没有该用户，或密码错误！"

                       Exit Sub

                       Else

                       MDIForm1.Show

                       Form3.Show

                       Form19.Label3.Caption = Text1.Text

                       Unload Me

                    End If

        End If

    End If

End If

End Sub

Private Sub Command2_Click()

End

End Sub

3.用户注册

Private Sub Command3_Click()

Form10.Show

End Sub

Private Sub Form_Load()

Data1.DatabaseName = App.Path + "\db.mdb"

Data1.RecordSource = "用户管理"

End Sub

Private Sub Command1_Click()

If Text1.Text = "" And Text2.Text = "" Then

   MsgBox "请输入用户名和密码！"

   Else

   If Text1.Text = "" Then

      MsgBox "你还没有输入用户名！"

      Text1.SetFocus

      Else

        If Text2.Text = "" Then

           MsgBox "你还没有输入密码！"

           Text2.SetFocus

           Else

               Dim user As String

               user = "用户名=" & "'" & Trim(Text1.Text) & "' and " + "密码=" & "'" & Trim(Text2.Text) & "'"

               Data1.Recordset.FindFirst user

                    If Data1.Recordset.NoMatch Then

                       MsgBox "没有该用户，或密码错误！"

                       Exit Sub

                       Else

                       MDIForm1.Show

                       Form3.Show

                       Form19.Label3.Caption = Text1.Text

                       Unload Me

                    End If

        End If

    End If

End If

End Sub

Private Sub Command2_Click()

End

End Sub

4.物业收费管理

Private Sub Command3_Click()

Form10.Show

End Sub

Private Sub Form_Load()

Data1.DatabaseName = App.Path + "\db.mdb"

Data1.RecordSource = "用户管理"

End Sub

Private Sub Command1_Click()

If Text1.Text = "" And Text2.Text = "" Then

   MsgBox "请输入用户名和密码！"

   Else

   If Text1.Text = "" Then

      MsgBox "你还没有输入用户名！"

      Text1.SetFocus

      Else

        If Text2.Text = "" Then

           MsgBox "你还没有输入密码！"

           Text2.SetFocus

           Else

               Dim user As String

               user = "用户名=" & "'" & Trim(Text1.Text) & "' and " + "密码=" & "'" & Trim(Text2.Text) & "'"

               Data1.Recordset.FindFirst user

                    If Data1.Recordset.NoMatch Then

                       MsgBox "没有该用户，或密码错误！"

                       Exit Sub

                       Else

                       MDIForm1.Show

                       Form3.Show

                       Form19.Label3.Caption = Text1.Text

                       Unload Me

                    End If

        End If

    End If

End If

End Sub

Private Sub Command2_Click()

End

End Sub

5.主界面

Private Sub about_Click()

gy.Show

End Sub

Private Sub bxbb_Click()

Form14.Show

End Sub

Private Sub exit_Click() '退出系统

End

End Sub

Private Sub fwjzhzl_Click()

form2.Show

End Sub

Private Sub help1_Click()

Form18.Show

End Sub

Private Sub jfbb_Click()

Form22.Show

End Sub

Private Sub jlszl_Click()

Form17.Show

End Sub

Private Sub jzszl_Click()

Form16.Show

End Sub

Private Sub kfszl_Click()

Form15.Show

End Sub

Private Sub klxg_Click()

Form19.Show

End Sub

Private Sub MDIForm_Load()

Form3.Show

End Sub

Private Sub qfgl_Click()

Form9.Show

End Sub

Private Sub sbwxgl_Click()

Form6.Show

End Sub

Private Sub sfgl_Click()

Form12.Show

End Sub

Private Sub tc_Click() '退出系统

End

End Sub

Private Sub tsbb_Click()

Form13.Show

End Sub

Private Sub wxtjbb_Click()

Form21.Show

End Sub

Private Sub wyshxmgl_Click()

Form8.Show

End Sub

Private Sub yhgl_Click()

Form20.Show

End Sub

Private Sub zhbxgl_Click()

Form5.Show

End Sub

Private Sub zhcwgl_Click()

Form7.Show

End Sub

Private Sub zhtsgl_Click()

Form4.Show

End Sub

6.用户口令修改

Private Sub Command2_Click()

Unload Me

End Sub

Private Sub Form_Load()

Data1.DatabaseName = App.Path + "\db.mdb"

Data1.RecordSource = "用户管理"

Me.Height = 3945

Me.Width = 5475

End Sub

Private Sub Command1_Click()

If Text1.Text = "" And Text2.Text = "" And Text3.Text = "" Then

   MsgBox "你没有输入更新信息！"

   Else

      If Text1.Text = "" Then

         MsgBox "请输入原密码！"

         Else

            If Text2.Text = "" Then

               MsgBox "你没有输入新密码！"

               Else

                  If Text3.Text = "" Then

                     MsgBox "请确认你的新密码！"

                     Else

                        If Text2.Text <> Text3.Text Then

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

                           Text2.Text = ""

                           Text3.Text = ""

                           Text2.SetFocus

                           Else

                           Dim password As String

                           password = "密码=" & "'" & Trim(Text1.Text) & "'"

                           Data1.Recordset.FindFirst password

                               If Data1.Recordset.NoMatch Then

                                  MsgBox "你输入的原密码有误！"

                                  Else

                                  Data1.Recordset.AddNew

                                  Data1.Recordset.Fields("用户名") = Label3.Caption

                                  Data1.Recordset.Fields("用户编号") = Label3.Caption

                                  Data1.Recordset.Fields("密码") = Text2.Text

                                  Data1.Recordset.Update

                                  Data1.Recordset.Delete

                                  MsgBox "你已经成功的更换了新密码，请使用新密码！"

                               End If

                        End If

                   End If

            End If

        End If

End If

End Sub

7.住户投诉管理

Private Sub Command1_Click()

If Command1.Caption = "添  加" Then

   Command1.Caption = "保  存"

   Data1.Recordset.AddNew

    Text1.Locked = False

    Text2.Locked = False

    Text3.Locked = False

    Text4.Locked = False

    Text5.Locked = False

    Text6.Locked = False

    Text7.Locked = False

    Text8.Locked = False

    Text9.Locked = False

    Text10.Locked = False

    Text1.SetFocus

  

   Command2.Enabled = False

    Command3.Enabled = False

    Command4.Enabled = False

    Exit Sub

   Else

    Text1.Locked = True

    Text2.Locked = True

    Text3.Locked = True

    Text4.Locked = True

    Text5.Locked = True

    Text6.Locked = True

    Text7.Locked = True

    Text8.Locked = True

    Text9.Locked = True

    Text10.Locked = True

    Data1.Recordset.Update

    Data1.Recordset.MoveLast

    Command1.Caption = "添  加"

    Data1.Refresh

    Command2.Enabled = True

    Command3.Enabled = True

    Command4.Enabled = True

End If

End Sub

Private Sub Command2_Click()

Dim d

d = MsgBox("是否真的删除吗?", vbYesNo + vbQuestion, "删除")

If d = vbYes Then

   Data1.Recordset.Delete

   Data1.Recordset.MoveNext

    If Data1.Recordset.EOF = True Then

       Command4.Enabled = False

       Data1.Recordset.MovePrevious

       If Data1.Recordset.BOF = True Then

            Command3.Enabled = False

            Command2.Enabled = False

       End If

    End If

End If

Data1.Refresh

End Sub

Private Sub Command3_Click()

Data1.Recordset.MovePrevious

If Data1.Recordset.BOF Then

    Command3.Enabled = False

    Data1.Recordset.MoveNext

Else

    Command3.Enabled = True

End If

Command4.Enabled = True

End Sub

Private Sub Command4_Click()

Data1.Recordset.MoveNext

If Data1.Recordset.EOF Then

    Command4.Enabled = False

    Data1.Recordset.MovePrevious

Else

    Command4.Enabled = True

End If

Command3.Enabled = True

End Sub

Private Sub Command5_Click()

If Text1.Locked = True Or Text2.Locked = True Or Text3.Locked = True Or Text4.Locked = True Or Text5.Locked = True Then

    Text1.Locked = False

    Text2.Locked = False

    Text3.Locked = False

    Text4.Locked = False

    Text5.Locked = False

    MsgBox "请输入查找编号"

    Text1.Text = ""

    Text2.Text = ""

    Text3.Text = ""

    Text4.Text = ""

    Text5.Text = ""

    Text1.SetFocus

    Else

    Dim a

    a = "投诉编号=" & "'" & Text1.Text & "'"

    Data1.Recordset.FindFirst a

    If Data1.Recordset.NoMatch Then

       MsgBox "没有此记录"

       Else

           Text1.Locked = True

           Text2.Locked = True

           Text3.Locked = True

           Text4.Locked = True

           Text5.Locked = True

    End If

End If

End Sub

Private Sub Form_Load()

Data1.DatabaseName = App.Path & "\db.mdb"

Data1.Refresh

Me.Width = 10560

Me.Height = 7575

If Data1.Recordset.EOF Then

    Command2.Enabled = False

    Command3.Enabled = False

    Command4.Enabled = False

End If

    Text1.Locked = True

    Text2.Locked = True

    Text3.Locked = True

    Text4.Locked = True

    Text5.Locked = True

    Text6.Locked = True

    Text7.Locked = True

    Text8.Locked = True

    Text9.Locked = True

    Text10.Locked = True

End Sub

8.住户保修管理

Private Sub Command1_Click()

If Command1.Caption = "添  加" Then

   Command1.Caption = "保  存"

   Data1.Recordset.AddNew

    Text1.Locked = False

    Text2.Locked = False

    Text3.Locked = False

    Text4.Locked = False

    Text5.Locked = False

    Text6.Locked = False

    Text7.Locked = False

    Text8.Locked = False

    Text9.Locked = False

    Text1.SetFocus

  

   Command2.Enabled = False

    Command3.Enabled = False

    Command4.Enabled = False

    Exit Sub

   Else

    Text1.Locked = True

    Text2.Locked = True

    Text3.Locked = True

    Text4.Locked = True

    Text5.Locked = True

    Text6.Locked = True

    Text7.Locked = True

    Text8.Locked = True

    Text9.Locked = True

    Data1.Recordset.Update

    Data1.Recordset.MoveLast

    Command1.Caption = "添  加"

    Data1.Refresh

    Command2.Enabled = True

    Command3.Enabled = True

    Command4.Enabled = True

End If

End Sub

Private Sub Command2_Click()

Dim d

d = MsgBox("是否真的删除吗?", vbYesNo + vbQuestion, "删除")

If d = vbYes Then

   Data1.Recordset.Delete

   Data1.Recordset.MoveNext

    If Data1.Recordset.EOF = True Then

       Command4.Enabled = False

       Data1.Recordset.MovePrevious

       If Data1.Recordset.BOF = True Then

            Command3.Enabled = False

            Command2.Enabled = False

       End If

    End If

End If

Data1.Refresh

End Sub

Private Sub Command3_Click()

Data1.Recordset.MovePrevious

If Data1.Recordset.BOF Then

    Command3.Enabled = False

    Data1.Recordset.MoveNext

Else

    Command3.Enabled = True

End If

Command4.Enabled = True

End Sub

Private Sub Command4_Click()

Data1.Recordset.MoveNext

If Data1.Recordset.EOF Then

    Command4.Enabled = False

    Data1.Recordset.MovePrevious

Else

    Command4.Enabled = True

End If

Command3.Enabled = True

End Sub

Private Sub Command5_Click()

If Text1.Locked = True Or Text2.Locked = True Or Text3.Locked = True Or Text4.Locked = True Or Text5.Locked = True Then

    Text1.Locked = False

    Text2.Locked = False

    Text3.Locked = False

    Text4.Locked = False

    Text5.Locked = False

    MsgBox "请输入查找编号"

    Text1.Text = ""

    Text2.Text = ""

    Text3.Text = ""

    Text4.Text = ""

    Text5.Text = ""

    Text1.SetFocus

    Else

    Dim a

    a = "单据编号=" & "'" & Text1.Text & "'"

    Data1.Recordset.FindFirst a

    If Data1.Recordset.NoMatch Then

       MsgBox "没有此记录"

       Else

           Text1.Locked = True

           Text2.Locked = True

           Text3.Locked = True

           Text4.Locked = True

           Text5.Locked = True

    End If

End If

End Sub

Private Sub Form_Load()

Data1.DatabaseName = App.Path & "\db.mdb"

Data1.Refresh

Me.Width = 10560

Me.Height = 7650

If Data1.Recordset.EOF Then

    Command2.Enabled = False

    Command3.Enabled = False

    Command4.Enabled = False

End If

    Text1.Locked = True

    Text2.Locked = True

    Text3.Locked = True

    Text4.Locked = True

    Text5.Locked = True

    Text6.Locked = True

    Text7.Locked = True

    Text8.Locked = True

    Text9.Locked = True

End Sub