小区物业管理系统准考证号:姓名：专业：管理系统中信息技术的应用作业名称：小区物业管理信息系统的开发完成本模块作业的计算机硬、软件环境：硬件 CPU：奔腾4 1.7内存：512MB硬盘：80GB软件操作系统：WïndowsXP（中文版）数据库管理系统：Visual FoxPro 6.0文字处理软件：Word 2003作业内容：一、课题的提出随着人们生活水平的提高和房地产业的不断的完善，大型的房地产企业结构中，物业管理的部门结构成为其中的一个细化，目前国家建设部房地产业司已将是否使用计算机进行管理列入了物业管理公司评定级别的项目之中。
此举大大推动了“物业管理信息系统”的发展。
而物业管理部门成为与业户零距离接触的终端部门，物业管理系统的作用不但使得繁重的手工工作变的简单化，并且能够使得业户对物业的了解更加透明化。
二．物业管理系统开发概述在开发系统时，我们分析并比较了当前流行的几种系统开发方法。
我们认为，“生命周期法”是MIS开发的基本方法。
尽管这种方法也有许多不足之处，但它的基本思想、开发步骤、开发工具是可以遵循和使用的。
基于本系统规模较小、功能比较简单、信息量不大的特点，所以仅使用了生命周期法中的核心环节，即：系统调查，进行业务分析系统分析，运用结构分析法、数据流程、数据字典等工具，确定系统功能系统物理（或详细）设计，根据确定的系统功能，选择合适的软硬件环境，确定模块结构与数据库的建立程序设计，选用Visual FoxPro 6.0为开发工具，编制相应的应用程序。
三．业务分析1. 业务范围和工作流程小区物业管理系统主要考虑小区物业管理的普遍要求，小区物业管理系统主要包括：(1) 对小区所有房屋资料的录入和增、删、改、查询等功能实现，在基于这些小区的房产资源对小区进行管理。
(2) 对小区内住户的详细资料的管理，包括增、删、改、查询等功能的实现，这些也是一个小区的基本资源，毕竟物业管理最后是针对小区的所有住户而言的。
(3) 在具有了所有的基本资料信息后，需要实现实质性的物业管理。
主要的管理业务包括：物业设备管理、仪表（水、电、宽带）数据管理、收费管理、住户投诉管理、故障管理等。
这些成为小区物业管理的主体。
这样就可以便于物业公司对小区进行全面的了解和管理了。
2. 功能分析（1）系统用户管理功能系统用户的添加，包括用户名、密码信息。
住户基本信息的录入，包括住户电话、住户姓名、物业地址、身份证号、入住时间等信息。
住户基本信息的修改。
住户基本信息的删除。
住户基本信息的查询。
小区房产信息管理功能房产基本信息的录入，包括物业地址、使用面积、房屋结构、设备、出售信息等信息。
房产基本信息的修改。
（4）小区收费管理功能其中包括物业收费和仪表收费两大类信息的录入，包括收费住址、水费、电费、宽带费、物业管理费、收费时间等信息。
收费基本信息的修改。
收费基本信息的删除。
收费基本信息的查询。
小区住户故障处理管理功能住户报修基本信息的录入，包括住址、报修故障、经办人、处理时间、查询等信息。
住户故障基本信息的修改。
住户故障基本信息的删除。
住户故障基本信息的查询。
（6）退出退出小区物业管理系统。
3. 有关本系统的功能、数据存储和功能模块的划分，见下面图2所示。
图2 系统总体结构图4. 数据收集良好的数据系统设计：所小区物业管理系统应充分具备数据库的维护功能，可以及时根据用户的需求对数据库中的信息进行添加、删除、修改等操作。
完备的信息查询统计：为满足管理和决策工作的需要，在查询基础上应具备一定的统计功能。
后期维护：所开发的小区物业管理系统应采用模块化程序设计方法，收到既便于系统功能的各种组合和修改，又便于未参与开发的技术维护人员补充、维护的效果。
以上是对本信息管理系统进行的基本的需求分析，也就是本系统所要实现的基本功能。
但是，这并不是整个系统的全部需求，对系统不断出现的新需求，需要系统在日后的使用中通过系统的更新与维护来实现。
这样，才能使系统得到不断的完善，功能更加强大，与用户的交互性更强。
数据分析与数据字典数据分析的目的是把有关数据的各种材料进行汇总整理，以便得到具体的完整的认识并为以后的编程所用。
注：有关本统组项数据字典和基本项数据字典，见下面表1、表2。
表注：其它数据项略。
四. 功能模块的划分1.数据库的设计(1) 用户表用户表存放登陆系统所需要的用户名和密码，需要访问此表。
(2) 住户基本信息表住户表存放小区内所有的住户信息，这些信息也是小区物业管理的基本信息，在实现系统的各个功能中起真非常重要的作用。
(3) 房屋基本信息房产表存放小区内的所有房屋的信息，其中包括已售出的房屋和未售出的房屋。
(4) 处理故障表住户处理故障表存放小区内住户的各种故障的所有信息。
(5) 收费信息表物业收费表存放小区内住户的各种收费信息。
创建数据库1.利用菜单选项或工具栏按钮打开“新建”对话框，指定建立数据库文件，单击“新建”按钮，并给出数据库文件名为：BB-DAD.DBC.在表设计器窗口中的形式：2界面设计与功能经过以上的分析及建摸模，已经完成了数据库的后台工作。
下面要完成的是人机交互的界面。
本系统分为以下三部分：(1) 用户登陆；(2) 系统主体平台；(3) 通过主体平台调用的功能模块。
接下来即对各部分作详细介绍：2 用户登陆部分启动系统程序后,首先进入系统登陆界面,在登陆进入主体平台的时候，系统会要求用户输入用户名及密码作为验证信息，为了防止非用户在使用,输入正常信息后便可以使用本系统。
在数据库中用“数据库”菜单项，或者快捷菜单的“新建表”选项打开表设计器，在设计器窗口中分别键入各字段名、类型、宽度及小数位数值。
结果如下图所示。
界面截图如下:本模块代码如下：Private Sub Command1_Click()Dim strUserName As StringDim strPassword As StringStatic intLoginTimes As IntegerIf Trim(Text1.Text) = "" Then '如果用户名为空MsgBox "用户名不能为空！", vbOKOnly + vbCritical, "错误"Text1.SetFocusExit SubEnd 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 IfIf strUserName = Text1.Text And strPassword = Text2.Text Then Adodc1.Recordset.Close '关闭数据库中的用户表Unload Me '关闭窗体frmMain.Show '显示主窗体Else'用户名或密码不对MsgBox "用户名或密码不对！", vbOKOnly + vbInformation, "提示"Text1 = ""Text2 = ""intLoginTimes = intLoginTimes + 1If intLoginTimes >= 3 Then '超过三次Adodc1.Recordset.Close '关闭数据库中的用户表End '退出整个程序End IfText2.SetFocus '重新输入密码SendKeys "{HOME}+{END}"End IfEnd Sub3 小区住户信息管理模块住户资料主要是对住户的基本信息如 (住户电话、住户姓名、物业地址、身份证号、入住时间等信息)和另外两个标签的信息进行添加、修改、删除、查询。
添加、修改、删除这些操作必须保存后才能生效。
当记录较多，通过简单的查询可以方便的找的目标记录，查询结果已表格方式显示。
表格显示结果的同时，如果还出现多条记录，可以根据某个字段对记录进行排序，这样可以给用户带来更大的方便和提高查找效率。
系统以菜单方式操作，主操作界面如下：本模块代码如下：Private Sub Command1_Click()If rs.EOF = False ThenText1.Text = rs("户主")Text2.Text = rs("住址")Text3.Text = rs("电话")Text4.Text = rs("入住时间")Text5.Text = rs("身份证号码")rs.MoveNextEnd 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.Execute 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 住址 = '" + Text2.Text + "' ,户主 = '" + Text1.Text + "',电话 = '" + 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 = ""Text3.Text = ""Text4.Text = ""Text5.Text = ""MsgBox "删除成功"End SubPrivate Sub Command5_Click()Form3.ShowUnload MeEnd SubPrivate Sub Command6_Click()frmMain.ShowUnload MeEnd SubPrivate Sub Form_Load()Dim strsql As StringSet db = OpenDatabase(App.Path + "\db1.mdb")strsql = "select * from 住户基本信息表"Set rs = db.OpenRecordset(strsql)End Sub4物业收费管理模块物业收费管理用是对小区内物业收费的总管理，主要功能也是对如 (住址、水费、电费、宽带费、物业管理费、收费时间等信息) 的添加、修改、删除、查询及统计记录个数。