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

1、1．1 课题背景管理信息系统（MIS，Management Information System），是一个由人、计算机等组成的能进行信息的收集、传送、储存、维护和使用的系统，能够实测企业的各种运行情况，并利用过去的历史数据预测未来，从企业全局的角度出发辅助企业进行决策，利用信息控制企业的行为，帮助企业实现其规划目标。这里给出的定义强调了管理信息系统的功能和性质，也强调了管理信息系统中的计算机对企业管理而言只是一种工具。管理信息系统是信息系统的重要分支之一，经过30多年的发展，已经成为一个具有自身概念、理论、结构、体系和开发方法的覆盖多学科的新学科。1．1．1 管理信息系统的组成部分　　从概念上，管理信息系统由四个部件构成：信息源、信息处理器、信息用户和信息管理者。它们的联系如图4.2.1所示。 信息源是信息的产生地；信息处理器负担信息的传输、加工、保存等任务；信息用户是信息的使用者，利用信息进行决策；信息管理者负责信息系统的设计、实现和维护。 　　管理信息系统一般被看作一个金字塔形的结构，分为从底层的业务处理到运行控制、管理控制、最高层的战略计划。最基层由任务巨大处理繁杂的事务信息和状态信息构成。层次越往上，事务处理的范围越小，针对的也是比较特殊和非结构化的问题。 　　一个组织的管理信息系统可分解为四个基本部分： 　　(1)、EDPS部分，主要完成数据的收集、输入，数据库的管理、查询、基本运算、日常报表的输出等。 　　(2)、分析部分，主要在EDPS基础之上，对数据进行深加工，如运用各种管理模型、定量化分析手段、程序化方法、运筹学方法等对组织的生产经营情况进行分析。 　　(3)、决策部分，MIS的决策模型多限于以解决结构化的管理决策问题为主，其决策结果要为高层管理者提供一个最佳的决策方案。 　　(4)、数据库部分，主要完成数据文件的存贮、组织、备份等功能，数据库是管理信息系统的核心部分。

5、4．3 数据库的设计(1) 用户表用户表存放登陆系统所需要的用户名和密码，需要访问此表。表4.1　用户表

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

8、登录版面

11、本模块代码如下：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(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.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 Sub

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

15、本模块代码如下：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 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 & "','" & Text6.Text & "','" & Text7.Text & "')"db.Execute strsqldb.CloseText1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text = ""Text5.Text = ""Text6.Text = ""Text7.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 + "',电费 = '" + Text3.Text + "',宽带 = '" + Text4.Text + "',垃圾清运费 ='" + Text5.Text + "',物业管理费 = '" + Text6.Text + "',收费时间 = '" + Text7.Text + "'"End Ifdb.Execute strsqldb.CloseText1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text = ""Text5.Text = ""Text6.Text = ""Text7.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 = ""Text6.Text = ""Text7.Text = ""MsgBox "删除成功"End SubPrivate Sub Command5_Click()Form7.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 Sub