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

rs.MoveNext End If End Sub

Private Sub Command2_Click() Dim strql As String

Set db = OpenDatabase(App.Path + \

strsql = \Into 住户基本信息表 (户主,住址,电话,入住时间,身份证号码) values ('\+ Text1.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 住址 = '\户主 = '\电话 = '\入住时间 = '\身份证号码='\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() Form3.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.4 房屋信息管理模块

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

界面截图如下:

本模块代码如下：

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