数据库论文-小区物业管理系统.doc

1、精品摘 要对于小区物业管理来说，其工作流程的繁杂性、多样化、管理复杂、收缴费用与设备维护繁琐。计算机已完全能够胜任物业管理工作，而且更加准确、方便、快捷、高效、清晰、透明，它完全可以克服以上所述的不足之处。这将给项目查询和管理带来很大的方便，从而给物业管理工作带来更高的效率，这也是物业管理正规化、现代化的重要标志。因此，开发一套高效率、无差错的小区物业管理系统软件十分必要。本文的主要运用SQL和VB,开发一个物业信息管理系统，目的是告别纸质账本，安全、快捷的保存数据信息。由于小区物业管理涉及到费用问题，为了增强系统的保密性，使业主利益不受损害，使业主能够对自家的物业费用和投诉等情况提供透明化、

2、直观的了解。关键词：小区物业；管理系统；SQL；VB；过程感谢下载载第1章 系统功能概述1.1 设计目的及意义 掌握数据库的创建方法。掌握用一种语言（如VB）开发数据库应用程序的方法。对于小区物业管理来说，其工作流程的繁杂性、多样化、管理复杂、收缴费用与设备维护繁琐。计算机已完全能够胜任物业管理工作，而且更加准确、方便、快捷、高效、清晰、透明，它完全可以克服以上所述的不足之处。这将给项目查询和管理带来很大的方便，从而给物业管理工作带来更高的效率，这也是物业管理正规化、现代化的重要标志。因此，开发一套高效率、无差错的小区物业管理系统软件十分必要。本系统的主要目的是告别帐本，安全、快捷的保存数据信

3、息。由于小区物业管理涉及到费用问题，为了增强系统的保密性，使业主利益不受损害，本系统具有仅管理员式的保密功能，还有查询、录入、修改、删除、以及对物业设备统计等功能，使业主能够对自家的物业费用和投诉等情况提供透明化、直观的了解。本系统采用SQL server 2008作为后台数据库，这样是数据能够得到统一，并增强了管理的安全性。1.2 功能模块划分对高圆寺小区物业的相关业务进行分析后，确定房高圆寺小区物业信息管理系统应该实现的功能如下：（1） 用户登录，用于小区用户登录此系统。（2） . 管理员登陆，用于物业管理员登陆此系统。（3） 注册页面，用于注册新用户。（4） 编辑模块，主要实现基本信息的

4、管理及系统参数的设置，包括：业主、费用、服务等信息的登记管理、浏览、添加、删除等功能，还有退出系统等一些基本操作。 （5） 查询模块，用于业主、费用、服务信息的查询。（6） 用户评价模块，用于该小区用户对物业管理漏洞的投诉与建议的提出。（7） . 相关信息模块，该模块显示一些小区的基本信息。 第2章 数据库设计2.1 需求分析物业信息管理系统文件数据管理查询用户评价关于注册新用户退出业主信息费用信息服务信息交费信息服务反馈信息业主信息查询费用信息查询服务信息查询建议投诉关于系统帮助图2.1 功能模块结构2.2 E-R模型实体E-R图： 业主信息姓名面积业主编号性别门牌号电话 图2.21 业主信

5、息E-R图收费信息收费编号收费名称单价说明图2.22 收费信息E-R图项目名称负责人项目编号服务信息图2.23 服务信息E-R图关系E-R图： 业主信息服务信息收费信息收费服务反馈业主编号姓名门牌号性别面积电话费用编号单价说明费用名称收款人金额用量日期负责人项目名称项目编号时间效果 图2.24 关系E-R图2.3 关系模型登陆（用户名、密码、投诉、建议）管理员（管理员、密码）业主信息（业主编号、姓名、性别、面积、门牌号、电话）收费信息（收费编号、收费名称、单价、说明）服务信息（项目编号、项目名称、负责人）业主交费（收费编号、业主编号、金额、日期、收款人、用量）其中，“收费编号、业主编号”是外码

6、，“收费编号”参照收费信息表主码“收费编号”，“业主编号”参照业主信息表主码“业主编号”。业主服务（项目编号、业主编号、时间、服务效果）其中，“项目编号、业主编号”是外码，“项目编号”参照收费信息表主码“项目编号”，“业主编号”参照业主信息表主码“业主编号”。2.4 表结构设计登陆表：登陆表里输入的结果如下：管理员账户表：管理员账户表输入的信息：业主信息表：业主信息表里输入的结果如下：收费信息表：收费信息表里输入的结果如下：服务信息表：服务信息表里输入的结果如下：业主交费表：业主交费表输入的信息：业主服务表：业主服务表输入的信息：第3章 系统各功能模块的详细设计3.1 进入系统页面：运行时的界

7、面如下图，其中的进入系统按钮的功能是进入登陆页面。图3.1 进入系统页面3.2 登录页面：进入登陆页面后如下图，其中登陆按钮功能如下：（1）检测数据库中有无管理员帐号,如果有,则等待用户输入用户名和密码,否则不能进入系统。（2）验证用户名和密码是否正确,错误次数不能超过三次,超过三次则退出系统登陆界面。（3）当验证通过后,检测该登录用户的管理权限,并设置变量传值给主窗体。点击“进入系统”便可以进入房产管理系统了。登录代码：Dim miCount As Integer 用于记录输入密码次数Private Sub CmdLand_Click()Dim sqlstr As Stringsqlstr

8、= Select * From 系统信息 Where 用户名= & Text1.Text & Adodc1.RecordSource = sqlstrAdodc1.RefreshIf Adodc1.Recordset.BOF Then 若没找到符合Where条件的记录MsgBox 用户名错误，重新输入, vbExclamation, 警告Text1.Text = Text1.SetFocus Text1获得焦点Else 判断密码是否正确If Adodc1.Recordset.Fields(密码) = Text2.Text Then主控页面.ShowUnload MeElseMsgBox 密码错

9、误，重新输入 , vbExclamation, 警告Text2.Text = Text2.SetFocusEnd IfEnd IfmiCount = miCount + 1If miCount = 3 Then Unload MeForm3.ShowEnd Sub 图3.2 登录页面3.3 注册页面：注册代码：Private Sub CmdOk_Click()Dim sqlstr As StringIf Text1 = ThenMsgBox 请输入用户名！, vbExclamation, 确认用户名 Text1.SetFocus Exit SubElse sqlstr = Select * f

10、rom 系统信息 where 用户名= & Text1.Text & Adodc1.RecordSource = sqlstr Adodc1.Refresh If Adodc1.Recordset.EOF = False Then MsgBox 用户名已存在，请重新输入！, vbExclamation, 检验用户名 Text1 = Text1.SetFocus Exit Sub End IfEnd If判断二次输入密码是否一致：If Text2.Text Text3.Text Then MsgBox 二次输入的密码不一致，请重新输入, vbExclamation, 检验密码 Text2 = :

11、 Text3 = Text2.SetFocus Exit SubElseIf Text2 = Then MsgBox 密码不能为空！, vbExclamation, 检验密码 Text2.SetFocusElse Adodc1.Recordset.AddNew Adodc1.Recordset.Fields(用户名) = Trim(Text1) Adodc1.Recordset.Fields(密码) = Trim(Text2) Adodc1.Recordset.Update Me.Hide MsgBox 成功注册新用户！, vbInformation, 添加用户End IfEnd Sub操作如

12、下：注册新用户“11”，再使用这个新用户登录。图3.2 注册页面3.4 主控页面：登录后便进入了主控页面，在这里可以进行添加，删除，查询，打印报表等功能。主控页面所有代码：Private Sub exit_Click()Unload MeEnd SubPrivate Sub fankui_Click()Formfankui.ShowEnd SubPrivate Sub feiyong_Click()Formshoufei.ShowEnd SubPrivate Sub fuwu_Click()Formfuwuxinxi.ShowEnd SubPrivate Sub gaunyu_Click()F

13、ormguanyu.ShowEnd SubPrivate Sub install_Click()Formzhuce.ShowEnd SubPrivate Sub jianyi_Click()Formjianyi.ShowEnd SubPrivate Sub jiaofei_Click()Formjiaofei.ShowEnd SubPrivate Sub MDIForm_Load()End SubPrivate Sub searchc_Click()Formsearchc.ShowEnd SubPrivate Sub searchp_Click()Formsearchp.ShowEnd Sub

14、Private Sub searchs_Click()Formsearchs.ShowEnd SubPrivate Sub tousu_Click()Formtousu.ShowEnd SubPrivate Sub yezhu_Click()Formyezhu.ShowEnd Sub图3.4 主控页面主控页面中包括文件，数据管理，查询，用户评价、帮助等菜单；文件的子菜单有注册新用户，退出；数据管理的子菜单有业主信息，费用信息，服务信息、交费信息、服务反馈信息；数据查询的子菜单有查询业主信息信息及与业主相关的交费信息，查询费用信息及与费用相关的交费信息，查询服务信息及相关服务反馈信息；用户评价的

15、子菜单有投诉和建议；菜单设计如下：3.5 编辑页面：这个页面上可以显示所有的记录数，同时还可以进行添加，删除，前后移动记录数的功能。添加按钮代码： Private Sub CmdAdd_Click() 添加按钮的单击事件 Adodc1.Recordset.AddNew CmdAdd.Enabled = False CmdDel.Enabled = False CmdOk.Enabled = True CmdEsc.Enabled = TrueEnd Sub确认按钮代码：Private Sub CmdOk_Click() 单击确认按钮Adodc1.Recordset.UpdateCmdAdd.E

16、nabled = TrueCmdDel.Enabled = TrueCmdOk.Enabled = FalseCmdEsc.Enabled = FalseEnd Sub删除按钮代码：Private Sub CmdDel_Click() 单击删除按钮x = MsgBox(确实要删除当前记录吗？, vbYesNo + vbQuestion, 确认)If x = vbYes ThenAdodc1.Recordset.DeleteAdodc1.Recordset.MoveNextIf Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLastEnd If取消

17、按钮代码： Private Sub CmdEsc_Click() 取消按钮Adodc1.RefreshCmdAdd.Enabled = TrueCmdDel.Enabled = TrueCmdOk.Enabled = FalseCmdEsc.Enabled = FalseEnd Sub首记录按钮代码：Private Sub CmdFirst_Click()Adodc1.Recordset.MoveFirst 记录指针移到首记录（显示首记录）CmdFirst.Enabled = False 让首记录按钮无效CmdPre.Enabled = False 让前移按钮无效CmdNext.Enabled

18、 = True 让后移按钮有效CmdLast.Enabled = True 让末记录按钮有效在Label6上显示当前记录号/记录总数：Label6.Caption = 记录： & Adodc1.Recordset.AbsolutePosition & / & Adodc1.Recordset.RecordCountEnd Sub前移按钮代码：Private Sub CmdPre_Click()Adodc1.Recordset.MovePrevious 记录指针移到前一条记录CmdNext.Enabled = TrueCmdLast.Enabled = TrueIf Adodc1.Records

19、et.BOF Then 如果记录指针移到首记录之前,Adodc1.Recordset.MoveFirst 则记录指针移到首记录上CmdFirst.Enabled = FalseCmdPre.Enabled = FalseEnd IfLabel6.Caption = 记录： & Adodc1.Recordset.AbsolutePosition & / & Adodc1.Recordset.RecordCountEnd Sub后移按钮代码：Private Sub CmdNext_Click()Adodc1.Recordset.MoveNext 记录指针移到下一条记录CmdFirst.Enable

20、d = TrueCmdPre.Enabled = TrueIf Adodc1.Recordset.EOF Then 如果记录指针移到了末记录之后 Adodc1.Recordset.MoveLast 则记录指针移到末记录上 CmdNext.Enabled = False CmdLast.Enabled = FalseEnd IfLabel6.Caption = 记录： & Adodc1.Recordset.AbsolutePosition & / & Adodc1.Recordset.RecordCountEnd Sub末记录按钮代码：Private Sub CmdLast_Click() Ad

21、odc1.Recordset.MoveLast 移到末记录 CmdFirst.Enabled = True CmdPre.Enabled = True CmdNext.Enabled = False CmdLast.Enabled = FalseLabel6.Caption = 记录： & Adodc1.Recordset.AbsolutePosition & / & Adodc1.Recordset.RecordCountEnd Sub移动记录数按钮代码：Private Sub CmdN_Click()Dim n As Integern = Text7.TextAdodc1.Recordse

22、t.Move nIf Adodc1.Recordset.BOF Then 如果记录指针移到首记录之前,Adodc1.Recordset.MoveFirst 则记录指针移到首记录上CmdFirst.Enabled = FalseCmdPre.Enabled = FalseEnd IfIf Adodc1.Recordset.EOF Then 如果记录指针移到了末记录之后 Adodc1.Recordset.MoveLast 则记录指针移到末记录上 CmdNext.Enabled = False CmdLast.Enabled = FalseEnd IfLabel7.Caption = 记录： & A

23、dodc1.Recordset.AbsolutePosition & / & Adodc1.Recordset.RecordCountAdodc1.RefreshEnd Sub业主信息，费用信息，服务信息，交费信息和服务反馈信息的编辑如下：图3.51 业主信息图3.52 费用信息图3.53 服务信息图3.54 业主交费图3.55 服务反馈3.6 查询页面：查询页面可以通过各种查询条件对所需要的结果进行筛选，从而得到自己所需要的结果。在得到的结果中还可以进一步查询与结果相关的其他信息业主信息的查询代码：Private Sub Command1_Click()Dim str As StringAd

24、odc1.CommandType = adCmdTextAdodc1.RecordSource = select * from 业主信息 where 业主信息. & Combo1.Text & like % & Text1.Text & %Adodc1.RefreshDataGrid1.Visible = TrueEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub DataGrid1_Click()Dim sqlstr As Stringsqlstr = Select * from 业主交费 where 业主编号 = &

25、 Adodc1.Recordset.Fields(业主编号) & Adodc2.RecordSource = sqlstr 设置Adodc 2连接的记录源Adodc2.RefreshDataGrid2.Visible = TrueEnd SubPrivate Sub Form_Load()Me.Height = 8400Me.Width = 10200Combo1.AddItem 姓名Combo1.AddItem 业主编号Combo1.AddItem 门牌号Combo1.AddItem 面积Combo1.AddItem 性别End Sub图3.61 业主信息查询当点击结果表时如图：图3.62

26、业主的交费信息户型信息表的查询代码如下：Private Sub Command1_Click()Dim str As StringAdodc1.CommandType = adCmdTextAdodc1.RecordSource = select * from 收费信息 where 收费信息. & Combo1.Text & like % & Text1.Text & %Adodc1.RefreshDataGrid1.Visible = TrueEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub DataGrid1_Cl

27、ick()Dim sqlstr As Stringsqlstr = Select * from 业主交费 where 收费编号 = & Adodc1.Recordset.Fields(收费编号) & Adodc2.RecordSource = sqlstr 设置Adodc 2连接的记录源Adodc2.RefreshDataGrid2.Visible = TrueEnd SubPrivate Sub Form_Load()Combo1.AddItem 收费编号Combo1.AddItem 收费名称Me.Height = 8400Me.Width = 10200End Sub图3.62 收费信息查询楼房查询代码如下：Private Sub Command1_Click()Dim str As StringA