小区物业管理系统源码 小区物业管理系统毕业论文加源码

对于小区物业管理来说，其工作流程的繁杂性、多样化、管理复杂、收缴费用与设备维护繁琐。计算机已完全能够胜任物业管理工作，而且更加准确、方便、快捷、高效、清晰、透明，它完全可以克服以上所述的不足之处。这将给项目查询和管理带来很大的方便，从而给物业管理工作带来更高的效率，这也是物业管理正规化、现代化的重要标志。

因此，开发一套高效率、无差错的小区物业管理系统软件十分必要。本系统的主要目的是告别帐本，安全、快捷的保存数据信息。由于小区物业管理涉及到费用问题，为了增强系统的保密性，使业主利益不受损害，使业主能够对自家的物业费用和投诉等情况提供透明化、直观的了解。

1．1 课题背景

管理信息系统（MIS，Management Information System），是一个由人、计算机等组成的能进行信息的收集、传送、储存、维护和使用的系统，能够实测企业的各种运行情况，并利用过去的历史数据预测未来，从企业全局的角度出发辅助企业进行决策，利用信息控制企业的行为，帮助企业实现其规划目标。这里给出的定义强调了管理信息系统的功能和性质，也强调了管理信息系统中的计算机对企业管理而言只是一种工具。管理信息系统是信息系统的重要分支之一，经过30多年的发展，已经成为一个具有自身概念、理论、结构、体系和开发方法的覆盖多学科的新学科。

1．1．1 管理信息系统的组成部分

　　从概念上，管理信息系统由四个部件构成：信息源、信息处理器、信息用户和信息管理者。它们的联系如图4.2.1所示。 信息源是信息的产生地；信息处理器负担信息的传输、加工、保存等任务；信息用户是信息的使用者，利用信息进行决策；信息管理者负责信息系统的设计、实现和维护。 　　管理信息系统一般被看作一个金字塔形的结构，分为从底层的业务处理到运行控制、管理控制、最高层的战略计划。最基层由任务巨大处理繁杂的事务信息和状态信息构成。层次越往上，事务处理的范围越小，针对的也是比较特殊和非结构化的问题。 　　一个组织的管理信息系统可分解为四个基本部分： 　　(1)、EDPS部分，主要完成数据的收集、输入，数据库的管理、查询、基本运算、日常报表的输出等。 　　(2)、分析部分，主要在EDPS基础之上，对数据进行深加工，如运用各种管理模型、定量化分析手段、程序化方法、运筹学方法等对组织的生产经营情况进行分析。 　　(3)、决策部分，MIS的决策模型多限于以解决结构化的管理决策问题为主，其决策结果要为高层管理者提供一个最佳的决策方案。 　　(4)、数据库部分，主要完成数据文件的存贮、组织、备份等功能，数据库是管理信息系统的核心部分。

1．1．2 信息管理的主要任务

　　管理信息系统辅助完成企业日常结构化的信息处理任务，一般认为MIS的主要任务有如下几方面： 　　(1)、对基础数据进行严格的管理，要求计量工具标准化、程序和方法的正确使用，使信息流通渠道顺畅。有一点要明确，“进去的是垃圾，出来的也是垃圾”，必须保证信息的准确性、一致性。 　　(2)、确定信息处理过程的标准化，统一数据和报表的标准格式，以便建立一个集中统一的数据库。 　　(3)、高效低能地完成日常事务处理业务，优化分配各种资源，包括人力、物力、财力等。 　　(4)、充分利用已有的资源，包括现在和历史的数据信息等，运用各种管理模型，对数据进行加工处理，支持管理和决策工作，以便实现组织目标。

1．1．3 管理信息系统的特点

　　管理信息的特点可以从七个方面来概括： 　　(1)、MIS是一个人机结合的辅助管理系统。管理和决策的主体是人，计算机系统只是工具和辅助设备。 　　(2)、主要应用于结构化问题的解决。 　　(3)、主要考虑完成例行的信息处理业务，包括数据输入、存储、加工、输出，生产计划，生产和销售的统计等。 　　(4)、以高速度低成本完成数据的处理业务，追求系统处理问题的效率。 　　(5)、目标是要实现一个相对稳定的、协调的工作环境。因为系统的工作方法、管理模式和处理过程是确定的，所以系统能够稳定协调地工作。 　　(6)、数据信息成为系统运作的驱动力。因为信息处理模型和处理过程的直接对象是数据信息，只有保证完整的数据资料的采集，系统才有运作的前提。 　　(7)、设计系统时，强调科学的、客观的处理方法的应用，并且系统设计要符合实际情况。

1．1．4 管理信息系统的问题

　　管理信息系统的开发是一个复杂的系统工程，它涉及到计算机处理技术、系统理论、组织结构、管理功能、管理知识等各方面的问题，至今没有一种统一完备的开发方法。但是，每一种开发方法都要遵循相应的开发策略。任何一种开发策略都要明确以下问题： 　　(1)、系统要解决的问题，如采取何种方式解决组织管理和信息处理方面的问题，对企业提出的新的管理需求该如何满足等。 　　(2)、系统可行性研究，确定系统所要实现的目标。通过对企业状况的初步调研得出现状分析的结果，然后提出可行性方案并进行论证。系统可行性的研究包括目标和方案卸可行性、技术的可行性、经济方面的可行性和社会影响方面的考虑。 　　(3)、系统开发的原则。在系统开发过程中，要遵循领导参与、优化创新、实用高效、处理规范化的原则。 　　(4)、系统开发前的准备工作，作好开发人员的组织准备和企业基础准备工作。 　　(5)、系统开发方法的选择和开发计划的制定。针对己经确定的开发策略选定相应的开发方法，是结构化系统分析和设计方法，还是选择原型法或面向对象的方法。开发计划的制定是要明确系统开发的工作计划、投资计划、工程进度计划和资源利用计划。 　　MIS开发方法主要有：结构化生命周期开发方法、原型法、面向对象的开发方法等。

1．1．5 信息管理的开发方法

（１）、结构化生命周期开发方法 　　目前较为流行的MIS开发方法是结构化生命周期开发方法，其基本思想是：用系统的思想和系统工程的方法，按用户至上的原则，结构化、模块化地自上而下对生命周期进行分析与设计。 　　用结构化生命周期开发方法开发一个系统，将整个开发过程划分为五个依次连接的阶段： 　　① 系统规划阶段，主要任务是明确系统开发的请求，并进行初步的调查，通过可行性研究确定下一阶段的实施。系统规划方法有战略目标集转化法（SST，Strategy Set Transformation）、关键成功因素法（CSF，Critical Success Factors）和企业规划法（BSP，Business System Planning）。 　　② 系统分析阶段，主要任务是对组织结构与功能进行分析，理清企业业务流程和数据流程的处理，并且将企业业务流程与数据流程抽象化，通过对功能数据的分析，提出新系统的逻辑方案。 　　③ 系统设计阶段，主要任务是确定系统的总体设计方案，划分子系统功能，确定共享数据的组织，然后进行详细设计，如处理模块的设计、数据库系统的设计、输入输出界面的设计和编码的设计等。该阶段的成果为下一阶段的实施提供了编程指导书。 　　④ 系统实施阶段，主要任务是讨论确定设计方案、对系统模块进行调试、进行系统运行所需数据的准备、对相关人员进行培训等。 　　⑤ 系统运行阶段，主要任务是进行系统的日常运行管理，评价系统的运行效率，对运行费用和效果进行监理审计，如出现问题则对系统进行修改、调整。 　　这五个阶段共同构成了系统开发的生命周期。结构化生命周期开发方法严格区分了开发阶段，非常重视文档工作，对于开发过程中出现的问题可以得到及时的纠正，避免了出现混乱状态。但是，该方法不可避免地出现开发周期过长、系统预算超支的情况，而且在开发过程中用户的需求一旦发生变化，系统将很难作出调整。 　　(2)、原型法 原型法在系统开发过程中也得到不少应用。原型法的基本思想是系统开发人员凭借自己对用户需求的理解，通过强有力的软件环境支持，构造出一个实在的系统原型，然后与用户协商，反复修改原型直至用户满意。 原型法的应用使人们对需求有了渐进的认识，从而使系统开发更有针对性。另外，原型法的应用充分利用了最新的软件工具，使系统开发效率大为提高。 　　(3)、面向对象系统开发方法 面向对象的系统开发方法（OO，Object Oriented），是近年来受到关注的一种系统开发方法。面向对象的系统开发方法的基本思想是将客观世界抽象地看成是若干相互联系的对象，然后根据对象和方法的特性研制出一套软件工具，使之能够映射为计算机软件系统结构模型和进程，从而实现信息系统的开发。

1．1．6 管理信息系统的经济效益评价

　　管理信息系统的效益评价分为直接经济效益评价和间接经济效益评价。 　　1、直接经济效益评价 直接经济效益评价是指企业运行MlS之后，使用计算机管理所节约的开支与企业在MIS实施过程中一次性投资（包括软件、硬件投资）的折旧和运行费用相比较的结果。 　　2、间接经济效益评价 间接经济效益的评估是指企业在运行MIS之后，在提高管理效率方面和数据集中管理方面，以及在建立网络系统之后数据的共享和数据传递的及时性、准确性方面，可以实现实时、定量的管理方面，提高了企业竞争力而带来的效益的评价。

1.2国内外现状

1．2．1 信息管理系统产生的背景

在过去，各行各业往往都有不少管理人员孤立地看待数据处理和计算机。造成这种看法的原因是，数据处理和信息服务人员不愿使用容易计算机用户理解的语言同用户进行交流。管理人员对这种交流缺乏兴趣和无能为力，导致延缓了计算机系统的开发，从而在许多其他方面助长了自守和冗余劳动的现象。

在用户同信息服务人员的交流方面，没有一个单位能做到尽善尽美，但是，确有某些单位已经取得了比较好的成功经验。用户同信息服务人员配合默契的一些单位认为：这种成功的原因在于，用户已经掌握了计算机和信息资源管理方面的基本知识。可见，用户管理人员掌握这方面的知识是非常必要的。诚然，信息服务专业人员是具备这方面的知识的，但是要使用户管理人员获得这些知识，就必须通过正规的学习、阅读和实践。

妥善处理用户同信息服务人员之间的关系，可以加强双方的互相配合。为了建立和维护一个高质量的信息系统，各方都必须尊重对方的意愿。系统质量的优劣是直接与用户同信息服务人员之间互相配合的好坏成正比的。

1．2．2 我国现有MIS系统分析

凡是那些不愿意掌握有关计算机和信息管理反面基本知识的用户管理人员，必将成为落伍者，特别是在当前这种鼓励用户直接参与信息系统开发过程的发展趋势下。过去，用户管理人员在很大程度上是依靠信息服务人员来推荐、开发和实现所需的信息系统的。鉴于信息服务需要不断的发展变化，现在把鉴别和提高系统的责任留给了用户，这也是理所应当的。用户更多地参与信息系统的开发，这种趋势早在70年代中期就开始了，而且，自那时以后不断地发展，现在已进入了信息服务人员同用户合作的时代。因为只有用户更了解他们自己想从信息系统中得到什么。

用户参与信息资源管理（IRM）的典型事例表现在分布式数据处理（DDP）方面。在这方面，用户不仅要参加系统的开发，而且还要负责管理系统运行所需要的硬件设备和人员。

1．2．3 我国MIS的发展策略

直到最近几年，人们才认识到：信息是一种资源，必须把这种有价值的资源加以利用，不使其白白浪费掉。在竞争激烈的环境里，管理人员必须有效地利用信息，不然就难以立足与不败之地。过去，管理人员仅仅把计算机看成是省钱的工具，而现在，计算机被看成是创造利润的工具。每个公司都有大量的、尚未发掘的、可利用计算机和信息资源的潜力。发掘这种潜力所需要具有的计算机和信息处理的知识水平，这是大多数管理人员力所能及的。

第二章　系统规划的可行性研究

2．1初步调查

物业管理公司作为房地产开发公司的附属单位，担负着整个小区的各家各户的繁杂的服务和承载着开发商信誉的重要任务。由于物业管理业务的复杂性，再加上智能化小区这个概念的引入，物业管理逐渐趋于信息化高效率化，因此上海的许多物业管理公司已引入了“物业管理信息系统”，即通过计算机网络和专业软件对物业实施即时、规范、高效的管理。在引入该系统后住户档案将由电脑管理，通过在水、电、煤气上设置读数装置可以实现远程自动抄表，减少了业主的麻烦。服务中心在接到业主报修后，会立刻打出工程部的报修单，提高了日常维修的服务质量。每月电脑会自动将各项费用汇总，并打印出统一的收费通知，大大节省了物业管理公司的人力、物力投入，降低了成本。

2．1．1 背景及现状

目前国家建设部房地产业司已将是否使用计算机进行管理列入了物业管理公司评定级别的项目之中。此举大大推动了“物业管理信息系统”的发展。沪上的中海、古北、万科、卓越、永业、西部、金桥、船舶大厦、魏理仕、香港广场、太平洋中心、华都大厦等近200家物业管理公司已部分或全部在某所管理的楼盘引入了物业管理信息系统。随着人们生活水平的提高和房地产业的不断的完善，大型的房地产企业结构（如图2.1）中，物业管理的部门结构（如图2.2）成为其中的一个细化。而物业管理部门成为与业户零距离接触的终端部门，物业管理系统的作用不但使得繁重的手工工作变的简单化，并且能够使得业户对物业的了解更加透明化。

2．2 开发的可行性研究

可行性分析（Feasibility Analysis）也称为可行性研究，是在系统调查的基础上，针对新系统的开发是否具备必要性和可能性，对新系统的开发从技术、经济、社会的方面进行分析和研究，以避免投资失误，保证新系统的开发成功。可行性研究的目的就是用最小的代价在尽可能短的时间内确定问题是否能够解决

2．2．1 技术的可行性

小区物业管理系统采用了当前的主流计算结构模式进行开发，前台开发工具选用Microsoft Visual Basic 6.0。Microsoft Visual Basic 6.0是一种可视化的、面向对象的Windows开发语言，Microsoft Visual Basic 6.0具有易用、通用和开发效率高的特点。后台的数据库开发工具选用了Access 2000，它能够处理大量数据，同时保持数据完整性并提供许多高级管理和数据分配功能。这两种开发工具功能强大，有较好的接口，作为本系统开发工具是可行的。

(1) Visual Basic 6.0的简介

Visual Basic（简称VB）是Microsoft公司开发的一种通用的基于对象的程序设计语言。VB6.0是与WIN98配合于1998年推出的，进一步加强了数据库、Internet和创建控件方面的功能。VB可以用于可以开发多媒体、数据库、网络、图形等方面的应用程序。数据访问特性允许对包括 Microsoft SQL Server 和其它企业数据库在内的大部分数据库格式建立数据库和前端应用程序，以及可调整的服务器端部件。VB中提供大量的控件，这些控件可帮助我们设计界面和实现功能，减少了编程人员的很多麻烦，提高了编程的效率和可靠性。所以我选择Visual Basic 6.0作为我这套系统的开发环境。

(2)面向对象编程的概念

面向对象的程序设计(Object-Oriented Programming，简记为OOP)是Visual Basic6.0诞生的基础。OOP立意于创建软件重用代码，具备更好地模拟现实世界环境的能力，这使它被公认为是自上而下编程的优胜者。它通过给程序中加入扩展语句，把函数“封装”进Windows编程所必需的“对象”中。面向对象的编程语言使得复杂的工作条理清晰、编写容易。说它是一场革命，不是对对象本身而言，而是对它们处理工作的能力而言。对象并不与传统程序设计和编程方法兼容，只是部分面向对象反而会使情形更糟。除非整个开发环境都是面向对象的，否则对象产生的好处还没有带来的麻烦多。而Visual Basic6.0是完全面向对象的，这就使得Visual Basic6.0成为一种触手可及的促进软件重用的开发工具，从而具有强大的吸引力。

(3)Access简介

Access是Office办公套件中一个极为重要的组成部分。刚开始时微软公司是将Access单独作为一个产品进行销售的，自Office 97开始将Access捆绑到其中，成为Office套件中的一个重要成员。现在它已经成为Office办公套件中不可缺少的部件了。Microsoft 公司在Access 95 的基础上陆续推出了 Access 97、Access 2000，成为世界上最流行的桌面数据库管理系统之一。

Access是一种关系型数据库管理系统，不但能存储和管理数据，还能编写数据库管理软件，用户可以通过Access提供的开发环境及工具方便地构建数据库应用程序，大部分是直观的可视化的操作，无需编写程序代码，是一种使用方便、功能较强的数据库开发工具。

2．2．2 经济可行性

随着计算机技术的飞速发展，计算机在企业管理中应用的普及，利用计算机实现企业人事管理势在必行。21世纪是一个充满竞争和挑战的世纪。在这个世纪中，高效化、系统化、规范化、自动化已成为现代企业的代名词。做为我国支柱产业之一的房地产业在当今智能化小区的发展的驱动下，在当今信息时代的推动下，拥有自己的一套特色的小区物业管理系统是非常必要的，与小区内繁多的硬件设施相比较，传统的手工式的管理方式已经无法适合当今的庞大的数据处理和精确的运算需求，所以一套精美完善的小区物业管理系统是提高工作效率节省人力物力的有效解决方案。传统的管理方式，对物业管理人员要求数量多，耗资高，错误率高，工作人员流动和对新人的培训经费也是不小的开支。一套完善的小区物业管理系统可持续使用并能随着时代和工作的需求不断更新，一期投入终身受用，按长期的使用计算，开发系统的造价平均到每年与传统式的管理方式的年耗资本相对比，性价比是可行的。开发这套系统的经济可行性是很高的。

2．2．3 操作可行性

对于这套小区物业管理系统而言，在投入使用前，会由开发并能熟练操作本系统的工程人员对用户群进行专业系统的培训。培训内容应包括，熟练掌握系统的各个功能和简单的系统维护，在开发设计程序的过程中直观的界面和控件的文字解释完全能使得用户充分理解起功能和意义，在计算机普及的今天，用户对本系统的操作完全可以看做是一种简单的，配合形式的手工操作，因为本系统最适合用于微型机，可以说几乎任何人都可以使用和管理。所以本系统的操作是完全可行的。

2．2．4 调度可行性

调度可行性指的是建议的计算机系统能否在规定的期限内交付给用户。由于合同的规定，能否预期的交付涉及到开发人员的信誉等等。所以开发期限的选定也是非常重要的因素，根据小区物业管理的日常的正常的业务运作规律和工作性质，可以看出这些内容是我们平时常见的工作，所以开发人员在开发起来比较容易入手，所以可以判断开发本系统的周期比较短，开发中的不可预见问题会比较容易解决，在开发小组的分析后应该容易做出相对准确的，误差微小的开发期限，应该可以在规定时间内，快速的、完整的交付给用户使用。

小区物业管理系统部分实体E-R图如下所示:

4.2 系统结构图

小区物业管理系统毕业论文加源码_小区物业管理系统

4．3 数据库的设计

(1) 用户表

用户表存放登陆系统所需要的用户名和密码，需要访问此表。

表4.1　用户表

(2) 住户基本信息表

住户表存放小区内所有的住户信息，这些信息也是小区物业管理的基本信息，在实现系统的各个功能中起真非常重要的作用。

表4.2　住户基本信息表表

5.2 用户登陆部分

启动系统程序后,首先进入系统登陆界面,在登陆进入主体平台的时候，系统会要求用户输入用户名及密码作为验证信息，为了防止非用户在使用,输入正常信息后便可以使用本系统。

界面截图如下:

登录版面

小区物业管理系统毕业论文加源码_小区物业管理系统

本模块代码如下：

Private Sub Command1_Click()

Dim strUserName As String

Dim strPassword As String

Static intLoginTimes As Integer

If Trim(Text1.Text) = "" Then '如果用户名为空

MsgBox "用户名不能为空！", vbOKOnly + 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 = 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 intLoginTimes >= 3 Then '超过三次

Adodc1.Recordset.Close '关闭数据库中的 用户表

End '退出整个程序

End If

Text2.SetFocus '重新输入密码

SendKeys "{HOME}+{END}"

End If

End Sub

5.3 小区住户信息管理模块

住户资料主要是对住户的基本信息如 (住户电话、住户姓名、物业地址、身份证号、入住时间等信息)和另外两个标签的信息进行添加、修改、删除、查询。添加、修改、删除这些操作必须保存后才能生效。当记录较多，通过简单的查询可以方便的找的目标记录，查询结果已表格方式显示。表格显示结果的同时，如果还出现多条记录，可以根据某个字段对记录进行排序，这样可以给用户带来更大的方便和提高查找效率。

界面截图如下:

本模块代码如下：

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 If

End Sub

Private Sub Command2_Click()

Dim strql As String

Set db = OpenDatabase(App.Path + "db1.mdb")

strsql = "Insert Into 住户基本信息表 (户主,住址,电话,入住时间,身份证号码) values ('" + Text1.Text + "','" & Text2.Text & "','" & Text3.Text & "','" & Text4.Text & "','" & Text5.Text & "')"

db.Execute strsql

db.Close

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

MsgBox "添加成功"

End Sub

Private Sub Command3_Click()

Dim strsql As String

If MsgBox("是否要修改此记录", 32 + 1, "修改") = 1 Then

Set db = OpenDatabase(App.Path + "db1.mdb")

strsql = "update 住户基本信息表 set 住址 = '" + Text2.Text + "' ,户主 = '" + Text1.Text + "',电话 = '" + Text3.Text + "',入住时间 = '" + Text4.Text + "' where 身份证号码='" + Text5.Text + "'"

End If

db.Execute strsql

db.Close

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

MsgBox "修改成功"

End Sub

Private Sub Command4_Click()

Dim strqsl As String

Set db = OpenDatabase(App.Path + "db1.mdb")

strsql = "delete * from 住户基本信息表 where 住址 = '" + Text1.Text + "'"

db.Execute strsql

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

MsgBox "删除成功"

End Sub

Private Sub Command5_Click()

Form3.Show

Unload Me

End Sub

Private Sub Command6_Click()

frmMain.Show

Unload Me

End Sub

Private Sub Form_Load()

Dim strsql As String

Set db = OpenDatabase(App.Path + "db1.mdb")

strsql = "select * from 住户基本信息表"

Set rs = db.OpenRecordset(strsql)

End Sub

5.4 房屋信息管理模块

房产资料主要是对住户的基本信息如 (物业地址、使用面积、房屋结构、设备、出售信息等信息)的添加、修改、删除、查询及统计记录个数。添加、修改、删除这些操作必须保存后才能生效。当记录较多，通过简单的查询可以方便的找的目标记录，查询结果已表格方式显示。表格显示结果的同时，如果还出现多条记录，可以根据某个字段对记录进行排序，这样可以给用户带来更大的方便和提高查找效率。

界面截图如下:

本模块代码如下：

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 If

End Sub

Private Sub Command2_Click()

Dim strql As String

Set db = OpenDatabase(App.Path + "db1.mdb")

strsql = "Insert Into 房屋基本信息 (住址,设备,房屋结构,房屋面积,出售信息) values ('" + Text1.Text + "','" & Text2.Text & "','" & Text3.Text & "','" & Text4.Text & "','" & Text5.Text & "')"

db.Execute strsql

db.Close

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

MsgBox "添加成功"

End Sub

Private Sub Command3_Click()

Dim strsql As String

If MsgBox("是否要修改此记录", 32 + 1, "修改") = 1 Then

Set db = OpenDatabase(App.Path + "db1.mdb")

strsql = "update 房屋基本信息 set 住址 = '" + Text1.Text + "' ,设备 = '" + Text2.Text + "',房屋结构 = '" + Text3.Text + "',房屋面积 = '" + Text4.Text + "' where 出售信息='" + Text5.Text + "'"

End If

db.Execute strsql

db.Close

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

MsgBox "修改成功"

End Sub

Private Sub Command4_Click()

Dim strqsl As String

Set db = OpenDatabase(App.Path + "db1.mdb")

strsql = "delete * from 房屋基本信息 where 住址 = '" + Text1.Text + "'"

db.Execute strsql

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

MsgBox "删除成功"

End Sub

Private Sub Command5_Click()

Form5.Show

Unload Me

End Sub

Private Sub Command6_Click()

frmMain.Show

Unload Me

End Sub

Private Sub Form_Load()

Dim strsql As String

Set db = OpenDatabase(App.Path + "db1.mdb")

strsql = "select * from 房屋基本信息"

Set rs = db.OpenRecordset(strsql)

End Sub

5.5 物业收费管理模块

物业收费管理用是对小区内物业收费的总管理，主要功能也是对如 (住址、水费、电费、宽带费、物业管理费、收费时间等信息) 的添加、修改、删除、查询及统计记录个数。添加、修改、删除这些操作必须保存后才能生效。记录较多，通过简单的查询可以方便的找的目标记录，查询结果已表格方式显示。表格显示结果的同时，如果还出现多条记录，可以根据某个字段对记录进行排序，这样可以给用户带来更大的方便和提高查找效率。

界面截图如下:

小区物业管理系统毕业论文加源码_小区物业管理系统

本模块代码如下：

Private Sub Command1_Click()

If rs.EOF = False Then

Text1.Text = rs("住址")

Text2.Text = rs("水费")

Text3.Text = rs("电费")

Text4.Text = rs("宽带")

Text5.Text = rs("垃圾清运费")

Text6.Text = rs("物业管理费")

Text7.Text = rs("收费时间")

rs.MoveNext

End If

End Sub

Private Sub Command2_Click()

Dim strql As String

Set db = OpenDatabase(App.Path + "db1.mdb")

strsql = "Insert Into 收费信息表 (住址,水费,电费,宽带,垃圾清运费,物业管理费,收费时间) values ('" + Text1.Text + "','" & Text2.Text & "','" & Text3.Text & "','" & Text4.Text & "','" & Text5.Text & "','" & Text6.Text & "','" & Text7.Text & "')"

db.Execute strsql

db.Close

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

Text6.Text = ""

Text7.Text = ""

MsgBox "添加成功"

End Sub

Private Sub Command3_Click()

Dim strsql As String

If MsgBox("是否要修改此记录", 32 + 1, "修改") = 1 Then

Set db = OpenDatabase(App.Path + "db1.mdb")

strsql = "update 收费信息表 set 住址 = '" + Text1.Text + "' ,水费 = '" + Text2.Text + "',电费 = '" + Text3.Text + "',宽带 = '" + Text4.Text + "',垃圾清运费 ='" + Text5.Text + "',物业管理费 = '" + Text6.Text + "',收费时间 = '" + Text7.Text + "'"

End If

db.Execute strsql

db.Close

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

Text6.Text = ""

Text7.Text = ""

MsgBox "修改成功"

End Sub

Private Sub Command4_Click()

Dim strqsl As String

Set db = OpenDatabase(App.Path + "db1.mdb")

strsql = "delete * from 收费信息表 where 住址 = '" + Text1.Text + "'"

db.Execute strsql

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

Text6.Text = ""

Text7.Text = ""

MsgBox "删除成功"

End Sub

Private Sub Command5_Click()

Form7.Show

Unload Me

End Sub

Private Sub Command6_Click()

frmMain.Show

Unload Me

End Sub

Private Sub Form_Load()

Dim strsql As String

Set db = OpenDatabase(App.Path + "db1.mdb")

strsql = "select * from 收费信息表"

Set rs = db.OpenRecordset(strsql)

End Sub

爱华网本文地址 » http://www.413yy.cn/a/8104060103/165177.html