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

End If End Sub

Private Sub Command2_Click() Dim strql As String

Set db = OpenDatabase(App.Path + \

strsql = \房屋基本信息 (住址,设备,房屋结构,房屋面积,出售信息) values ('\Text1.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(\是否要修改此记录\修改\Set db = OpenDatabase(App.Path + \

strsql = \房屋基本信息 set 住址 = '\设备 = '\\房屋结构 = '\房屋面积 = '\出售信息='\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 + \

strsql = \房屋基本信息 where 住址 = '\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 + \ strsql = \房屋基本信息\ Set rs = db.OpenRecordset(strsql) End Sub

4.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(\物业管理费\