(精品)小区物业管理系统(2013年优秀毕业设计)

【摘要】本文通过用VB 6.0编写小区物业管理系统，利用软件工程原理，采用生命周期方法学，其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面，实现了小区信息数据库的创建及各种费用的收取、统计、汇总。本文还简单介绍了vB6.0软件的界面及操作方法。简要介绍了窗体的制作过程，程序的编写，添加，最后的编译过程。并且叙述了作者在软件开发过程中的心得体会。本系统可以实现如下功能：1系统登录：包括用户登录，修改密码，添加用户,退出系统。1 基本资料：包括住户资料和财产资料信息管理2 物业管理：包括物业设备,仪表数据,停车场管理,收费管理,住户投诉,住户报修管理,设备维修管理等.3 数据报表统计：包括物业设备,仪表数据统计,收费统计,住户投诉统计,住户报修统计,设备维修统计等.本系统投入使用后，改变了以往小区物业管理过程中的手工操作方式，提高了小区物业管理的效率，起到了良好的社会效果和经济效益。关键词：小区物业管理 数据库 统计 汇总【Abstract】This text passes and uses VB 6. 0 writes the administrative system of the property, utilize the soft project principle , adopt the cycle method of the life to study, it develops two respects of main development including setting-up and maintenance and front application program of backstage supporters database , realized the establishment of the information database of the district and collecting , statistics , gathering of different expenses.This text has also introduced vfp6 briefly. The interface of 0 software and working technique. Having introduced the making course of the form briefly, the writing of the procedure, add , the last course of compiling. And has narrated authors gains in depth of comprehension in the course of software development。This system can carry out as follows function:1. system login :Include the customer logging, the modification password, increase the customer, withdraw the system.1.Basic data :Include inhabitants data and the property data information management2.Thing industry management :Include the thing industry equipments, the appearance data, parking lot management, charge the management, inhabitant the hurl tell, inhabitant the report fix the management, the equipments maintains the management etc.3.Data statement Statistics: Include the thing industry equipments, the appearance data statistics, charging the covariance, inhabitant the hurl tells the covariance, inhabitant the report fixs the covariance, the equipments maintains to statistics etc.After putting this system into use, it changed former small area industry management handicraft within process operation method, raised the small area thing industry management of efficiency, rose the good social result and economic performances.Keyword : Estate management Database Statistics Gather目录第一章 引言4第二章 系统分析52.1开发背景52.2需求分析52.3概要72.4 Microsoft Visual Basic 6.0软件简介7第三章 系统设计183.1业务流程图183.2数据库设计193.3系统详细设计233.4其他窗体详细设计243.4.1系统登录界面设计253.4.2基本资料模块的设计353.4.3物业管理模块的设计353.4.4数据报表统计模块的设计36第四章 主菜单的设计及系统实现.36结 论38参考文献39第一章 引言本软件使用Microsoft Visual Basic 6.0进行编写。数据库技术的产生与发展源于对于数据的组织和管理。数据库技术是数据管理的技术，它随着数据管理任务的需要而产生于20世纪60年代中期。这是一门综合性技术，涉及操作系统，数据结构，算法设计和程序设计等知识。数据库技术的基本思想是对数据实行集中，统一，独立的管理，用户可以最大限度的共享数据资源。数据库系统实际上是一个应用系统，它是在计算机硬，软件系统支持下，由用户，数据库管理系统，存储在存储设备上的数据和数据库应用程序构成的数据处理系统。数据库系统是由数据，数据库管理系统，应用程序，用户组成。数据库的特点：1.实现数据共享 2.实现数据独立3.减少了数据冗余度 4.避免了数据不一致性5.加强了对数据的保护。数据库应用系统（DATABASE APPLICATION SYSTEMS DBAS）1 管理信息系统2 开放式信息服务系统一个数据库应用系统通常是由数据库和应用程序两部分组成，它们是在数据库管理系统支持下设计和开发出来的。第二章 系统分析2.1开发背景随着我国市场经济的快速发展和人们生活水平的不断提高，简单的社区服务已经不能满足人们的需求。如何利用先进的管理手段，提高物业管理水平，是当今社会所面临的一个重要课题。要想提高物业管理水平，必须全方位地提高物业管理意识。只有高标准、高质量的社区服务才能满足人们的需求。面对信息时代的挑战，利用高科技手段来提高物业管理无疑是一条行之有效的途径。在某种意义上，信息与科技在物业管理与现代化建设中显现出越来越重要的地位。物业管理方面的信息化与科学化，已成为现代化生活水平步入高台阶的重要标志。2.2需求分析 某小区位于我市西郊，绿化面积1200多平方米，占地面积100000，建筑面积680000多平方米，24小时保安巡逻，环境幽雅、周边配套设施完善，实行封闭式管理，小区现居住约2万人。由于管理面积大，户数多，物业管理范围广，管理内容繁杂，小区物业管理混乱的问题一直无法解决。再者，小区物业管理中一项重要的工作是计算、汇总各项费用，由于费用项目较多，计算方法繁重，手工处理差错率较高。同时查询某房产资料或业主资料往往也需要较长时间，给物业管理者的工作带来了诸多弊端。因此该物业公司决定采用计算机进行物业管理。根据该小区具体情况，该系统在实施后，能够满足对小区住户资料、财产资源统计、小区投诉、装修、维修、等进行管理，能够满足对水、电表抄收、统计、核算、各项费用统计汇总。该系统的实施为小区日后发展奠定了新的台阶。根据该物业的具体情况，系统主要包括以下4个模块：系统登录,基本资料,物业管理,数据报表统计等.2.3概要Visual Basic是美国微软公司的第一个编程工具和系统开发的第一个产品，Visual Basic以优良的性能、较强的系统开发功能、完美的视觉界面和简单易学的特点，已经赢得了全世界广大用户的偏爱。Visual Basic的编程环境包含了快速有效的开发功能，尤其是数据窗口这一方便而简洁操纵数据库的智能化对象，使系统的开发更人性化，操作更简便。作为管理信息系统的开发，Visual Basic是一个非常理想选择。Visual Basic是一种可视化的、面对对象和条用事件驱动方式的结构化高级程序设计，可用于开发Windows环境下的种类应用程序。它简单易学、效率高，且功能强大，可以与Windows的专业开发工具SDK相媲美，而且程序开发人员不必具有C/C+编程基础。在Visual Basic环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，使用Windows内部的应用程序接口(API)函数，以及动态链接库(DLL)、动态数据交换(DDE)、对象的链接与嵌入(OLE)、开放式数据访问(ODBC)等技术，可以高效、快速地开发出Windows环境下功能强大、图形界面丰富的应用软件系统。2.4 Microsoft Visual FoxPro 6.0软件简介 现在，市场上可以选购的应用开发产品很多，流行的也有数十种。目前在我国市场上最为流行、使用最多、最为先进的可用作做作企业级开发工具的产品有：Microsoft公司的Visual BasicMicrosoft公司的Visual CBorland公司的Delphi Powersoft公司的PowerBuliderJava等等在目前市场上这些众多的程序开发工具中，有些强调程语言的弹性与执行效率；有些则偏重于可视化程序开发工具所带来的便利性与效率的得高，各有各的优点和特色，也满足了不同用户的需求。然而，语言的弹性和工具的便利性是密不可分的，只有便利的工具，却没有弹性的语言作支持，许多特殊化的处理动作必需要耗费数倍的工夫来处理，使得原来所标榜的效率提高的优点失去了作用；相反，如果只强调程语言的弹性，却没有便利的工具作配合，会使一些即使非常简单的界面处理动作，也会严重地浪费程序设计师的宝贵时间。作为数据库系统的开发，Visual Basic是一个非常理想选择。数据库是MIS中的重要支持技术，在MIS开发过程中，如何选择数据库管理是一个重要的问题，目前，数据库产品较多，每种产品都具有各自的特点和适用范围，因此，在选择数据库时，应考虑数据库应用的特点及适用范围，本系统选用的数据库语言Visual Basic语言，该开发工具具有很多长处：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所具有的功能第三章 系统设计3.1 业务流程图 根据该小区物业管理的特点和该小区的实际情况，物业管理系统流程如下图所示。交水电气费、业主 通知房屋签约 业主入户 水电气读表 物业管理 申请装修 填写收费通知单 装修 系统主要功能包括4 系统登录：包括用户登录，修改密码，添加用户,退出系统。5 基本资料：包括住户资料和财产资料6 物业管理：包括物业设备,仪表数据,停车场管理,收费管理,住户投诉,住户报修管理,设备维修管理等.7 数据报表统计：包括物业设备,仪表数据统计,收费统计,信户投诉统计,信户报修统计,设备维修统计等.3.2数据库设计根据该公司业务情况和行业特点，本系统采用了ACCESS数据库，数据库名称为XiaoQuGuanLi,包含以下几个表：报修表(BaoXiu)，Client表，Emp表，Equipment表，Gas表,House表,Park表,Power表,Repair表,Tousu表,UserTable表,Water表,WuyeFee表,YiBiaoFee表.现将各表的结构说明如下:3.3 系统的详细设计主程序界面设计3.4其他窗体设计(因本设计涉及的窗体比较多,故我们只选取有代表性的窗体加以重点描述)3.4.1 系统登陆界面设计 如图所示,新建一个窗体,在窗体中添加二个Lable控件，二个TextBox控件,二个commandButton控件,设置其属性。然后添加程序代码。其中登录按钮的源码如下:Private Sub cmdLogin_Click() 首先检查用户是否输入了用户名和密码 If txtUser.Text = Then MsgBox 请输入用户名！, vbOKOnly + vbInformation, 注意 txtUser.SetFocus Exit Sub ElseIf txtPwd.Text = Then MsgBox 请输入密码！, vbOKOnly + vbInformation, 注意 txtPwd.SetFocus Exit Sub End If Dim sqluser As String 构造查询该用户名和密码的sql语句 sqluser = select * from UserTable where Username = & txtUser.Text _ & and Password = & txtPwd.Text & rs_user.CursorLocation = adUseClient 打开数据游标 rs_user.Open sqluser, conn, adOpenKeyset, adLockPessimistic If rs_user.EOF = True Then MsgBox 用户名或密码不正确！, vbOKOnly + vbInformation, 注意 rs_user.Close 清空txtUser和txtPwd文本框 txtUser.Text = txtPwd.Text = Exit Sub Else 还需使其他菜单可用 MDIfrmMain.mnAddUser.Enabled = True MDIfrmMain.mnBasicData.Enabled = True MDIfrmMain.mnWuYe.Enabled = True MDIfrmMain.mnDataTg.Enabled = True 提示用户登录成功并关闭游标和登录窗口 MsgBox 登录成功！, vbOKOnly + vbInformation, 注意 rs_user.Close Unload Me End If End Sub3.4.2基本资料模块的设计 同理窗体中的控件的添加比较直接,参照登录窗体的设计,并添加相关代码.其中重点分析按钮源码如下:。添加按钮的代码：Private Sub cmdAdd_Click() 设置除保存和取消按钮外的其他按钮不可用 cmdAdd.Enabled = False cmdEdit.Enabled = False cmdDel.Enabled = False cmdSave.Enabled = True cmdCancel.Enabled = True cmdFirst.Enabled = False cmdPrev.Enabled = False cmdNext.Enabled = False cmdLast.Enabled = False cmdQuery.Enabled = False 需要清空所有text框，并且设置它们可写 For i = 0 To 14 Text1(i).Text = Text1(i).Enabled = True Next i Combo1.Enabled = True add变量用于保存时判断是从添加还是修改后保存 add = 1 Text1(0).SetFocus Text1(13).Text = DateEnd Sub修改按钮的源码:Private Sub cmdEdit_Click() 设置除保存和取消按钮外的其他按钮不可用 cmdAdd.Enabled = False cmdEdit.Enabled = False cmdDel.Enabled = False cmdSave.Enabled = True cmdCancel.Enabled = True cmdFirst.Enabled = False cmdPrev.Enabled = False cmdNext.Enabled = False cmdLast.Enabled = False cmdQuery.Enabled = False 需要设置除主键之外的text框可写 For i = 1 To 14 Text1(i).Enabled = True Next i Combo1.Enabled = True add = 0End Sub删除按钮的源码如下:Private Sub cmdDel_Click() 当单击删除记录时，需要弹出一个提示框，警告用户 Dim answer As String answer = MsgBox(确定要删除吗？, vbYesNo, ) 确实删除 If answer = vbYes Then rs_client.Delete 删除当前记录 rs_client.Update 更新删除 MsgBox 成功删除！, vbOKOnly + vbExclamation, Else Exit Sub End If 删除之后，显示总信息条数需要减 1 Text2.Text = Val(Text2.Text) - 1 删除当前记录后，需要显示下一条记录，如果删除的是最后一条记录，则显示上一条记录 先移动rs_client记录到后一条 rs_client.MoveNext If rs_client.EOF Then rs_client.MovePrevious 如果没有到记录首则显示改记录 If Not rs_client.BOF Then For i = 0 To 14 Text1(i).Text = rs_client.Fields(i) Next i If rs_client.Fields(15) = 男 Then Combo1.ListIndex = 0 Else Combo1.ListIndex = 1 End If 如果到记录首，则表格已经为空，置所有text框显示为空 ElseIf rs_client.BOF Then For i = 0 To 14 Text1(i).Text = Next i End If 如果删除的不是首尾记录，则显示当前记录即可 Else For i = 0 To 14 Text1(i).Text = rs_client.Fields(i) Next i If rs_client.Fields(15) = 男 Then Combo1.ListIndex = 0 Else Combo1.ListIndex = 1 End If End If End Sub保存按钮的源码如下:Private Sub cmdSave_Click() 检测数据是否完整 If Text1(0).Text = Then MsgBox 住户编号不可为空！, vbOKOnly + vbInformation, 注意 Text1(0).SetFocus Exit Sub ElseIf Text1(1).Text = Then MsgBox 物业地址不可为空！, vbOKOnly + vbInformation, 注意 Text1(1).SetFocus Exit Sub ElseIf Text1(3).Text = Or IsNumeric(Text1(3).Text) = False Then MsgBox 建筑面积应为数字！, vbOKOnly + vbInformation, 注意 Text1(3).SetFocus Exit Sub ElseIf Text1(4).Text = Or IsNumeric(Text1(4).Text) = False Then MsgBox 使用面积应为数字！, vbOKOnly + vbInformation, 注意 Text1(4).SetFocus Exit Sub ElseIf Text1(5).Text = Then MsgBox 业主姓名不可为空！, vbOKOnly + vbInformation, 注意 Text1(5).SetFocus Exit Sub ElseIf IsDate(Text1(13).Text) = False Then MsgBox 入住日期书写不对，应为2000-1-1这样的格式！, vbOKOnly + vbInformation, 注意 Text1(13).SetFocus Exit Sub ElseIf Not Text1(14).Text = And IsDate(Text1(14).Text) = False Then MsgBox 迁出时间应为空或2000-1-1这样的格式！, vbOKOnly + vbInformation, 注意 Text1(14).SetFocus Exit Sub End If 添加数据后保存 If add = 1 Then 检测住户编号这个主键是否已经在表中存在 Dim rs_check As New ADODB.Recordset Dim sqlCheck As String sqlCheck = select * from Client where 住户编号= & (Text1(0).Text) & rs_check.Open sqlCheck, conn, adOpenStatic, adLockOptimistic If Not rs_check.EOF And Not rs_check.BOF Then MsgBox 该住户编号已经存在，请重填一个！, vbOKOnly + vbInformation, 注意 rs_check.Close Text1(0).SetFocus Text1(0).Text = Exit Sub End If rs_check.Close 主键不重复，可以加入表中 rs_client.AddNew For i = 0 To 14 rs_client.Fields(i) = Text1(i).Text Next i rs_client.Fields(15) = Combo1.Text rs_client.Update 添加保存之后，显示总信息条数需要加1 Text2.Text = Val(Text2.Text) - 1 修改数据后的保存 Else rs_client.Update End If MsgBox 保存数据成功！, vbOKOnly + vbInformation, 祝贺 保存后需要设置其他按钮可用，以及各个text框不可写 cmdAdd.Enabled = True cmdEdit.Enabled = True cmdDel.Enabled = True cmdSave.Enabled = False cmdCancel.Enabled = False cmdFirst.Enabled = True cmdPrev.Enabled = True cmdNext.Enabled = True cmdLast.Enabled = True cmdQuery.Enabled = True For i = 0 To 14 Text1(i).Enabled = False Next i Combo1.Enabled = FalseEnd Sub3.4.3物业管理模块设计其中添加,修改,删除按包的源码设计同上,重点分析保存按钮的源码如下:Private Sub cmdSave_Click() 检测数据是否完整 If Text1(0).Text = Then MsgBox 设备编号不可为空！, vbOKOnly + vbInformation, 注意 Text1(0).SetFocus Exit Sub ElseIf Text1(1).Text = Then MsgBox 设备名称不可为空！, vbOKOnly + vbInformation, 注意 Text1(1).SetFocus Exit Sub ElseIf IsDate(Text1(5).Text) = False Then MsgBox 购买日期书写不对，应为2000-1-1这样的格式！, vbOKOnly + vbInformation, 注意 Text1(5).SetFocus Exit Sub End If 添加数据后保存 If add = 1 Then 检测房间编号这个主键是否已经在表中存在 Dim rs_check As New ADODB.Recordset Dim sqlCheck As String sqlCheck = select * from Equipment where 设备编号= & (Text1(0).Text) & rs_check.Open sqlCheck, conn, adOpenStatic, adLockOptimistic If Not rs_check.EOF And Not rs_check.BOF Then MsgBox 该设备编号已经存在，请重填一个！, vbOKOnly + vbInformation, 注意 rs_check.Close Text1(0).SetFocus Text1(0).Text = Exit Sub End If rs_check.Close 主键不重复，可以加入表中 rs_equip.AddNew For i = 0 To 6 rs_equip.Fields(i) = Text1(i).Text Next i rs_equip.Update 添加之后显示总共条数信息加 1 Text2.Text = Val(Text2.Text) + 1 修改数据后的保存 Else rs_equip.Update End If MsgBox 保存数据成功！, vbOKOnly + vbInformation, 祝贺 保存后需要设置其他按钮可用，以及各个text框不可写 cmdAdd.Enabled = True cmdEdit.Enabled = True cmdDel.Enabled = True cmdSave.Enabled = False cmdCancel.Enabled = False cmdFirst.Enabled = True cmdPrev.Enabled = True cmdNext.Enabled = True cmdLast.Enabled = True cmdQuery.Enabled = True For i = 0 To 6 Text1(i).Enabled = False Next i End Sub(该模块其它几个窗体的设计跟此窗体的设计雷同)3.4.4数据报表统计的设计物业设备统计其中排序按钮的源码如下:Private Sub cmdOrder_Click() Dim sql As String If rs_order.State = adStateOpen Then rs_order.Close End If sql = select * from Equipment order by & Combo1.Text rs_order.CursorLocation = adUseClient rs_order.Open sql, co