1、景德镇高等专科学校毕业设计小区物业管理系统王 璐二零一一年十二月五日I景德镇高等专科学校数学与计算机系毕业设计(2012届)课题名称: 小区物业管理系统 姓名: 王 璐 学号: 200901040142 专业: 计算机及其应用 所在班级: 09计算机应用(1)班 指导教师:姓名: 席 奇 职称: 讲师 时间:二零一一年十二月五日摘 要科学技术日新月异,信息化时代的来临,以计算机为基础的信息科学在经济和社会生活各个领域得到了极为广泛的应用,尤其在信息管理方面,计算机已是必不可少的管理工具。对于小区物业管理来说,其工作流程的繁杂性、多样化、管理复杂、收缴费用与设备维护繁琐。计算机已完全能够胜任物业
2、管理工作,而且更加准确、方便、快捷、高效、清晰、透明,它完全可以克服以上所述的不足之处。这将给项目查询和管理带来很大的方便,从而给物业管理工作带来更高的效率,这也是物业管理正规化、现代化的重要标志。因此,开发一套高效率、无差错的小区物业管理系统软件十分必要。本系统的主要目的是告别帐本,安全、快捷的保存数据信息。由于小区物业管理涉及到费用问题,为了增强系统的保密性,使业主利益不受损害,使业主能够对自家的物业费用和投诉等情况提供透明化、直观的了解。关键字:小区物业,管理系统,VBAbstractScience and technology change rapidly, the advent of
3、 the information era, computer based Information Science in economy and social life in various fields has been widely used, especially in terms of information management, the computer is an essential management tool.As for the plot estate management that, its work flow numerous and diverse, the dive
4、rsification, the management complex, capture the expense and the maintenance of equipment is tedious. The computer could definitely be competent the estate management work, moreover more accurate, convenient, quick, highly effective, clear, is transparent above, it definitely may overcome the defici
5、ency which states. This will give the project inquiry and the management brings very big convenient, thus will bring a higher efficiency for the estate management work, this also will be the estate management standardization, the modernized important symbol.Therefore, develops set of high efficiency
6、, the non- mistake plot estate management system softwares is extremely essential. This system main goal is says goodbye to the account book, the security, the quick preservation data message. Because the plot estate management involves to the expense question, in order to strengthen the system the
7、secrecy, causes the owner benefit not to receive harms, enables the owner to situation and so on oneself property expense and suit provides, the direct-viewing understanding.Keyword:The plot property, the management system management system, VB目 录摘 要2Abstract3绪 论6第一章系统规划的可行性研究1511初步调查15111 背景及现状1512
8、 开发的可行性研究15121 技术的可行性16122 经济可行性17123 操作可行性18124 调度可行性18125 硬件配置18第二章 系统分析2021需求分析20211系统需求功能概括20212系统操作设计内容202.2 功能分析21221系统用户管理功能21222 小区住户信息管理功能21222 小区房产信息管理功能21223 小区收费管理功能22第三章 系统总体设计2331系统总体结构设计233.2 系统结构图2433 数据库的设计24第四章 系统详细设计264.1界面设计与功能264.2 用户登陆部分264.3 小区住户信息管理模块274.4 房屋信息管理模块304.5 物业收费管
9、理模块33总 结37致 谢38参考文献39绪 论由于种种原因,我国的信息资源建设水平远远落后于信息基础设施的建设的水平。长期以来,我国信息资源的开发管理未能与信息资源的增长同步进行。我国的计算机应用要比西方国家落后十几年。因此,现在信息资源的开发和利用已被确立为国民经济信息的核心内容,利用现有的信息基础设施,重点开发和推广应用于各类科技、经济等数据库和网络资源服务系统,已经取得巨大的社会效益和经济效益。对于小区物业管理来说,其工作流程的繁杂性、多样化、管理复杂、收缴费用与设备维护繁琐。计算机已完全能够胜任物业管理工作,而且更加准确、方便、快捷、高效、清晰、透明,它完全可以克服以上所述的不足之处
10、。这将给项目查询和管理带来很大的方便,从而给物业管理工作带来更高的效率,这也是物业管理正规化、现代化的重要标志。因此,开发一套高效率、无差错的小区物业管理系统软件十分必要。本系统的主要目的是告别帐本,安全、快捷的保存数据信息。由于小区物业管理涉及到费用问题,为了增强系统的保密性,使业主利益不受损害,本系统具有仅管理员式的保密功能,还有查询、录入、修改、删除、以及对物业设备统计等功能,使业主能够对自家的物业费用和投诉等情况提供透明化、直观的了解。第一章系统规划的可行性研究11初步调查物业管理公司作为房地产开发公司的附属单位,担负着整个小区的各家各户的繁杂的服务和承载着开发商信誉的重要任务。由于物
11、业管理业务的复杂性,再加上智能化小区这个概念的引入,物业管理逐渐趋于信息化高效率化,因此上海的许多物业管理公司已引入了“物业管理信息系统”,即通过计算机网络和专业软件对物业实施即时、规范、高效的管理。在引入该系统后住户档案将由电脑管理,通过在水、电、煤气上设置读数装置可以实现远程自动抄表,减少了业主的麻烦。服务中心在接到业主报修后,会立刻打出工程部的报修单,提高了日常维修的服务质量。每月电脑会自动将各项费用汇总,并打印出统一的收费通知,大大节省了物业管理公司的人力、物力投入,降低了成本。111 背景及现状目前国家建设部房地产业司已将是否使用计算机进行管理列入了物业管理公司评定级别的项目之中。此
12、举大大推动了“物业管理信息系统”的发展。沪上的中海、古北、万科、卓越、永业、西部、金桥、船舶大厦、魏理仕、香港广场、太平洋中心、华都大厦等近200家物业管理公司已部分或全部在某所管理的楼盘引入了物业管理信息系统。随着人们生活水平的提高和房地产业的不断的完善,大型的房地产企业结构(如图2.1)中,物业管理的部门结构(如图2.2)成为其中的一个细化。而物业管理部门成为与业户零距离接触的终端部门,物业管理系统的作用不但使得繁重的手工工作变的简单化,并且能够使得业户对物业的了解更加透明化。12 开发的可行性研究可行性分析(Feasibility Analysis)也称为可行性研究,是在系统调查的基础上
13、,针对新系统的开发是否具备必要性和可能性,对新系统的开发从技术、经济、社会的方面进行分析和研究,以避免投资失误,保证新系统的开发成功。可行性研究的目的就是用最小的代价在尽可能短的时间内确定问题是否能够解决121 技术的可行性小区物业管理系统采用了当前的主流计算结构模式进行开发,前台开发工具选用Microsoft Visual Basic 6.0。Microsoft Visual Basic 6.0是一种可视化的、面向对象的Windows开发语言,Microsoft Visual Basic 6.0具有易用、通用和开发效率高的特点。后台的数据库开发工具选用了Access 2000,它能够处理大量
14、数据,同时保持数据完整性并提供许多高级管理和数据分配功能。这两种开发工具功能强大,有较好的接口,作为本系统开发工具是可行的。(1) Visual Basic 6.0的简介Visual Basic(简称VB)是Microsoft公司开发的一种通用的基于对象的程序设计语言。VB6.0是与WIN98配合于1998年推出的,进一步加强了数据库、Internet和创建控件方面的功能。VB可以用于可以开发多媒体、数据库、网络、图形等方面的应用程序。数据访问特性允许对包括 Microsoft SQL Server 和其它企业数据库在内的大部分数据库格式建立数据库和前端应用程序,以及可调整的服务器端部件。VB
15、中提供大量的控件,这些控件可帮助我们设计界面和实现功能,减少了编程人员的很多麻烦,提高了编程的效率和可靠性。所以我选择Visual Basic 6.0作为我这套系统的开发环境。 (2)面向对象编程的概念面向对象的程序设计(Object-Oriented Programming,简记为OOP)是Visual Basic6.0诞生的基础。OOP立意于创建软件重用代码,具备更好地模拟现实世界环境的能力,这使它被公认为是自上而下编程的优胜者。它通过给程序中加入扩展语句,把函数“封装”进Windows编程所必需的“对象”中。面向对象的编程语言使得复杂的工作条理清晰、编写容易。说它是一场革命,不是对对象本
16、身而言,而是对它们处理工作的能力而言。对象并不与传统程序设计和编程方法兼容,只是部分面向对象反而会使情形更糟。除非整个开发环境都是面向对象的,否则对象产生的好处还没有带来的麻烦多。而Visual Basic6.0是完全面向对象的,这就使得Visual Basic6.0成为一种触手可及的促进软件重用的开发工具,从而具有强大的吸引力。(3)Access简介Access是Office办公套件中一个极为重要的组成部分。刚开始时微软公司是将Access单独作为一个产品进行销售的,自Office 97开始将Access捆绑到其中,成为Office套件中的一个重要成员。现在它已经成为Office办公套件中不
17、可缺少的部件了。Microsoft 公司在Access 95 的基础上陆续推出了 Access 97、Access 2000,成为世界上最流行的桌面数据库管理系统之一。Access是一种关系型数据库管理系统,不但能存储和管理数据,还能编写数据库管理软件,用户可以通过Access提供的开发环境及工具方便地构建数据库应用程序,大部分是直观的可视化的操作,无需编写程序代码,是一种使用方便、功能较强的数据库开发工具。122 经济可行性随着计算机技术的飞速发展,计算机在企业管理中应用的普及,利用计算机实现企业人事管理势在必行。21世纪是一个充满竞争和挑战的世纪。在这个世纪中,高效化、系统化、规范化、自动
18、化已成为现代企业的代名词。做为我国支柱产业之一的房地产业在当今智能化小区的发展的驱动下,在当今信息时代的推动下,拥有自己的一套特色的小区物业管理系统是非常必要的,与小区内繁多的硬件设施相比较,传统的手工式的管理方式已经无法适合当今的庞大的数据处理和精确的运算需求,所以一套精美完善的小区物业管理系统是提高工作效率节省人力物力的有效解决方案。传统的管理方式,对物业管理人员要求数量多,耗资高,错误率高,工作人员流动和对新人的培训经费也是不小的开支。一套完善的小区物业管理系统可持续使用并能随着时代和工作的需求不断更新,一期投入终身受用,按长期的使用计算,开发系统的造价平均到每年与传统式的管理方式的年耗
19、资本相对比,性价比是可行的。开发这套系统的经济可行性是很高的。123 操作可行性对于这套小区物业管理系统而言,在投入使用前,会由开发并能熟练操作本系统的工程人员对用户群进行专业系统的培训。培训内容应包括,熟练掌握系统的各个功能和简单的系统维护,在开发设计程序的过程中直观的界面和控件的文字解释完全能使得用户充分理解起功能和意义,在计算机普及的今天,用户对本系统的操作完全可以看做是一种简单的,配合形式的手工操作,因为本系统最适合用于微型机,可以说几乎任何人都可以使用和管理。所以本系统的操作是完全可行的。124 调度可行性调度可行性指的是建议的计算机系统能否在规定的期限内交付给用户。由于合同的规定,
20、能否预期的交付涉及到开发人员的信誉等等。所以开发期限的选定也是非常重要的因素,根据小区物业管理的日常的正常的业务运作规律和工作性质,可以看出这些内容是我们平时常见的工作,所以开发人员在开发起来比较容易入手,所以可以判断开发本系统的周期比较短,开发中的不可预见问题会比较容易解决,在开发小组的分析后应该容易做出相对准确的,误差微小的开发期限,应该可以在规定时间内,快速的、完整的交付给用户使用。125 硬件配置(1) 硬件设备及操作系统服务器:Pentium4以上配置的高性能PC机,内存应在256M以上,硬盘在40G以上。确认该计算机已经安装数据库软件Microsoft Visual Basic 6
21、.0软件。操作系统:Windows 9x/Me、Windows 2000、Windows XP、Windows NT,分辨率:1024*768。客户端:Pentium233(或与此相当的CPU)以上配置的PC机,内存应在32M以上,硬盘在1G以上。Windows 9x以上操作系统。确认已安装BDE。(2) 开发平台前台开发工具:Microsoft Visual Basic 6.0前台开发工具:Microsoft Visual Basic 6.0后台数据库:Access 2000第二章 系统分析21需求分析211系统需求功能概括经过调研与可行性分析,出于对人们生活住房考虑,设计了这套小区物业管理
22、系统,本系统主要考虑到小区物业管理的普遍要求,小区物业管理系统主要包括:(1) 对小区所有房屋资料的录入和增、删、改、查询等功能实现,在基于这些小区的房产资源对小区进行管理。(2) 对小区内住户的详细资料的管理,包括增、删、改、查询等功能的实现,这些也是一个小区的基本资源,毕竟物业管理最后是针对小区的所有住户而言的。(3) 在具有了所有的基本资料信息后,需要实现实质性的物业管理。主要的管理业务包括:物业设备管理、仪表(水、电、宽带)数据管理、收费管理、住户投诉管理、故障管理等。这些成为小区物业管理的主体。这样就可以便于物业公司对小区进行全面的了解和管理了。212系统操作设计内容根据以上的操作需
23、要研究设计内容如下:(1) 模块功能的研究设计:尽量采用物业管理部门中现有的软硬件环境以及先进的管理系统开发方案,从而达到充分利用现有资源,提高系统开发水平和应用效果的目的。系统应完全符合物业管理员对业户管理的规定,满足对房产信息及住户信息等工作需要,并达到操作过程中的直观、方便、实用、安全等要求。通过调研情况进行需求分析,进行模块的划分和功能的界定,并对各个模块的具体管理流程进行控制和编码实现。(2) 良好的数据系统设计:所小区物业管理系统应充分具备数据库的维护功能,可以及时根据用户的需求对数据库中的信息进行添加、删除、修改等操作。(3) 完备的信息查询统计:为满足管理和决策工作的需要,在查
24、询基础上应具备一定的统计功能。(4) 后期维护:所开发的小区物业管理系统应采用模块化程序设计方法,收到既便于系统功能的各种组合和修改,又便于未参与开发的技术维护人员补充、维护的效果。以上是对本信息管理系统进行的基本的需求分析,也就是本系统所要实现的基本功能。但是,这并不是整个系统的全部需求,对系统不断出现的新需求,需要系统在日后的使用中通过系统的更新与维护来实现。这样,才能使系统得到不断的完善,功能更加强大,与用户的交互性更强。2.2 功能分析221系统用户管理功能(1) 系统用户的添加,包括用户名、密码信息。222 小区住户信息管理功能(1) 住户基本信息的录入,包括住户电话、住户姓名、物业
25、地址、身份证号、入住时间等信息。(2) 住户基本信息的修改。(3) 住户基本信息的删除。(4) 住户基本信息的查询。222 小区房产信息管理功能(1) 房产基本信息的录入,包括物业地址、使用面积、房屋结构、设备、出售信息等信息。(2) 房产基本信息的修改。(3) 房产基本信息的删除。(4) 房产基本信息的查询。223 小区收费管理功能(1) 其中包括物业收费和仪表收费两大类信息的录入,包括收费住址、水费、电费、宽带费、物业管理费、收费时间等信息。(2) 收费基本信息的修改。(3) 收费基本信息的删除。(4) 收费基本信息的查询。224 小区住户故障处理管理功能(1) 住户报修基本信息的录入,包
26、括住址、报修故障、经办人、处理时间、查询等信息。(2) 住户故障基本信息的修改。(3) 住户故障基本信息的删除。(4) 住户故障基本信息的查询。225 退出退出小区物业管理系统。第三章 系统总体设计31系统总体结构设计小区物业管理系统部分实体E-R图如下所示:小区住户基本信息实体 住户姓名入住时间 住户电话物业地址 图3.1 住户基本信息实体E-R图小区房产基本信息实体积 出售信息物业地址 房屋结构使用面积 图3.2 房产基本信息实体E-R图故障基本信息实体住 址报修故障处理时间经办人 图3.3 住户投诉基本信息实体E-R图3.2 系统结构图小区物业管理系统系统设置基本信息管理信息查询故障处理
27、退出系统添加用户住户管理房屋管理收费管理收费信息住户信息房屋信息故障查询故障处理33 数据库的设计(1) 用户表用户表存放登陆系统所需要的用户名和密码,需要访问此表。表3.1用户表字段名数据类型可否为空用户名(主键)Char(10)NOT NULL密码IntNOT NULL (2) 住户基本信息表住户表存放小区内所有的住户信息,这些信息也是小区物业管理的基本信息,在实现系统的各个功能中起真非常重要的作用。表3.2住户基本信息表表字段名数据类型可否为空住址(主键)Char(10)NOT NULL户主Char(10)NOT NULL身份证号码Varchar(50)NOT NULL电话Char(20
28、)NULL入住时间DatetimeNULL (3) 房屋基本信息房产表存放小区内的所有房屋的信息,其中包括已售出的房屋和未售出的房屋。表3.3房屋基本信息表字段名数据类型可否为空住址(主键)Char(10)NOT NULL房屋结构Varchar(50)NOT NULL设备Float(8)NOT NULL房屋面积Float(8)NOT NULL出售信息Char(20)NULL (4) 处理故障表住户处理故障表存放小区内住户的各种故障的所有信息。表3.4处理故障表字段名数据类型可否为空住址(主键)Char(10)NOT NULL处理故障DatetimeNOT NULL经办人Char(10)NULL
29、处理时间DatetimeNULL (5) 收费信息表物业收费表存放小区内住户的各种收费信息。表3.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 第四章 系统详细设计4.1界面设计与功能经过以上的分析及建摸模,已经完成了数据库的后台工作。下面要完成的是人机交互的界面。本系统分为以下三部分:(1) 用户登陆;(2) 系统主体平台;(
30、3) 通过主体平台调用的功能模块。接下来即对各部分作详细介绍:4.2 用户登陆部分启动系统程序后,首先进入系统登陆界面,在登陆进入主体平台的时候,系统会要求用户输入用户名及密码作为验证信息,为了防止非用户在使用,输入正常信息后便可以使用本系统。界面截图如下:本模块代码如下:Private Sub Command1_Click()Dim strUserName As StringDim strPassword As StringStatic intLoginTimes As Integer If Trim(Text1.Text) = Then 如果用户名为空 MsgBox 用户名不能为空!, v
31、bOKOnly + vbCritical, 错误 Text1.SetFocus Exit Sub End If 打开数据库中的 用户表 Adodc1.Refresh 查找用户名 Adodc1.Recordset.Find 用户名 = & Text1.Text & , , adSearchForward, 1 也可以用下面的过滤方式 Adodc1.Recordset.Filter = 用户名 = & Text1.Text & If Not Adodc1.Recordset.EOF Then 找到记录 strUserName = Adodc1.Recordset!用户名 strPassword =
32、 Adodc1.Recordset!密码 Else 没找到记录 Text1 = Text2 = End If If strUserName = Text1.Text And strPassword = Text2.Text Then Adodc1.Recordset.Close 关闭数据库中的 用户表 Unload Me 关闭窗体 frmMain.Show 显示主窗体 Else 用户名或密码不对 MsgBox 用户名或密码不对!, vbOKOnly + vbInformation, 提示 Text1 = Text2 = intLoginTimes = intLoginTimes + 1 If
33、intLoginTimes = 3 Then 超过三次 Adodc1.Recordset.Close 关闭数据库中的 用户表 End 退出整个程序 End If Text2.SetFocus 重新输入密码 SendKeys HOME+END End IfEnd Sub4.3 小区住户信息管理模块住户资料主要是对住户的基本信息如 (住户电话、住户姓名、物业地址、身份证号、入住时间等信息)和另外两个标签的信息进行添加、修改、删除、查询。添加、修改、删除这些操作必须保存后才能生效。当记录较多,通过简单的查询可以方便的找的目标记录,查询结果已表格方式显示。表格显示结果的同时,如果还出现多条记录,可以根
34、据某个字段对记录进行排序,这样可以给用户带来更大的方便和提高查找效率。界面截图如下:本模块代码如下:Private Sub Command1_Click()If rs.EOF = False Then Text1.Text = rs(户主) Text2.Text = rs(住址) Text3.Text = rs(电话) Text4.Text = rs(入住时间) Text5.Text = rs(身份证号码) rs.MoveNext End IfEnd SubPrivate Sub Command2_Click()Dim strql As StringSet db = OpenDatabase(
35、App.Path + db1.mdb)strsql = Insert Into 住户基本信息表 (户主,住址,电话,入住时间,身份证号码) values ( + Text1.Text + , & Text2.Text & , & Text3.Text & , & Text4.Text & , & Text5.Text & )db.Execute strsqldb.CloseText1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = MsgBox 添加成功End SubPrivate Sub Command3_Click()D
36、im strsql As StringIf MsgBox(是否要修改此记录, 32 + 1, 修改) = 1 ThenSet db = OpenDatabase(App.Path + db1.mdb)strsql = update 住户基本信息表 set 住址 = + Text2.Text + ,户主 = + Text1.Text + ,电话 = + Text3.Text + ,入住时间 = + Text4.Text + where 身份证号码= + Text5.Text + End Ifdb.Execute strsqldb.CloseText1.Text = Text2.Text = Te
37、xt3.Text = Text4.Text = Text5.Text = MsgBox 修改成功End SubPrivate Sub Command4_Click()Dim strqsl As StringSet db = OpenDatabase(App.Path + db1.mdb)strsql = delete * from 住户基本信息表 where 住址 = + Text1.Text + db.Execute strsqlText1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = MsgBox 删除成功End Su
38、bPrivate Sub Command5_Click()Form3.Show Unload MeEnd SubPrivate Sub Command6_Click()frmMain.Show Unload MeEnd SubPrivate Sub Form_Load()Dim strsql As String Set db = OpenDatabase(App.Path + db1.mdb) strsql = select * from 住户基本信息表 Set rs = db.OpenRecordset(strsql)End Sub4.4 房屋信息管理模块房产资料主要是对住户的基本信息如 (
39、物业地址、使用面积、房屋结构、设备、出售信息等信息)的添加、修改、删除、查询及统计记录个数。添加、修改、删除这些操作必须保存后才能生效。当记录较多,通过简单的查询可以方便的找的目标记录,查询结果已表格方式显示。表格显示结果的同时,如果还出现多条记录,可以根据某个字段对记录进行排序,这样可以给用户带来更大的方便和提高查找效率。界面截图如下:本模块代码如下:Private Sub Command1_Click()If rs.EOF = False Then Text1.Text = rs(住址) Text2.Text = rs(设备) Text3.Text = rs(房屋结构) Text4.Tex
40、t = rs(房屋面积) Text5.Text = rs(出售信息) rs.MoveNext End IfEnd SubPrivate Sub Command2_Click()Dim strql As StringSet db = OpenDatabase(App.Path + db1.mdb)strsql = Insert Into 房屋基本信息 (住址,设备,房屋结构,房屋面积,出售信息) values ( + Text1.Text + , & Text2.Text & , & Text3.Text & , & Text4.Text & , & Text5.Text & )db.Execu
41、te strsqldb.CloseText1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = MsgBox 添加成功End SubPrivate Sub Command3_Click()Dim strsql As StringIf MsgBox(是否要修改此记录, 32 + 1, 修改) = 1 ThenSet db = OpenDatabase(App.Path + db1.mdb)strsql = update 房屋基本信息 set 住址 = + Text1.Text + ,设备 = + Text2.Text + ,房屋
42、结构 = + Text3.Text + ,房屋面积 = + Text4.Text + where 出售信息= + Text5.Text + End Ifdb.Execute strsqldb.CloseText1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = MsgBox 修改成功End SubPrivate Sub Command4_Click()Dim strqsl As StringSet db = OpenDatabase(App.Path + db1.mdb)strsql = delete * from 房屋基本信息 where 住址 = + Text1.Text + db.Execute strsqlText1.Text = Text2.Text = T