(完整版)小区物业管理系统毕业论文

Text7.Text = rs(\收费时间\ rs.MoveNext End If End Sub

Private Sub Command2_Click() Dim strql As String

Set db = OpenDatabase(App.Path + \

strsql = \收费信息表 (住址,水费,电费,宽带,垃圾清运费,物业管理费,收费时间) values ('\& \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(\是否要修改此记录\修改\Set db = OpenDatabase(App.Path + \

strsql = \收费信息表 set 住址 = '\水费 = '\电费 = '\+ Text3.Text + \宽带 = '\垃圾清运费 ='\物业管理费 = '\Text6.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 + \

strsql = \收费信息表 where 住址 = '\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 + \ strsql = \收费信息表\ Set rs = db.OpenRecordset(strsql) End Sub

总 结

至此，小区物业管理系统设计与实现顺利完成。在几天的试运行的过程中，在连接数据库时一度出现过错误，经过调试改正后错误点全部清楚，此系统可以按着设计思想和需求功能正常运行。

由于当今的物业管理部门还不能有一个很统一的模式化，所以本系统仅考虑到一般小区所需要的物业管理的基本和主要的几项功能，一个完好的小区物业管理系统还需要更多更复杂的功能要求。由于开发周期短和开发人员等局限性，不能将本套系统尽善尽美。希望在以后能够对小区的物业做更深一步的调研，在原由系统的基础上不断添加新功能。最终能够开发出一套完善的小区物业管理系统。

本系统在开发过程中，在固定的物业管理要求的模式下还添加了一些人性化的，个人的构思和创意。本套小区物业管理系统符合基本需求功能，易于操作，应该可以在简单化模式下的小区内应用，存在要改进的地方再以后会进一步完善。希望本系统能够给用户带来方便。