对应代码：
Private Sub Command1_Click()
Dim txtsql As String
Dim msgtext As String
Dim dd(4) As Boolean
txtsql = "select * from 报修文修表 where 0=0 "
Adodc2.CommandType = adCmdText
If Check1.Value Then
If Trim(Combo4.Text) = "" Then
MsgBox "查询类型不能为空", vbOKOnly + vbExclamation, "警告"
Combo4.SetFocus
Exit Sub
Else
nam = Text1.Text
Select Case Combo4.ListIndex
Case 0
Adodc2.CommandType = adCmdText
Adodc2.RecordSource = "select * from 报修文修表 where 文修人 ='" & nam & "'"
Adodc2.Refresh
Case 1
Adodc2.CommandType = adCmdText
Adodc2.RecordSource = "select * from 报修文修表 where 申报事件 ='" & nam & "'"
Adodc2.Refresh
Case 2
Adodc2.CommandType = adCmdText
Adodc2.RecordSource = "select * from 报修文修表 where 房间号='" & nam & "'"
Adodc2.Refresh
Case 3
Adodc2.CommandType = adCmdText
Adodc2.RecordSource = "select * from 报修文修表 where 用户评价 = '" & nam & "'"
Adodc2.Refresh
Case 4
Adodc2.CommandType = adCmdText
Adodc2.RecordSource = "select * from 报修文修表 where 文修结果='" & nam & "'"
Adodc2.Refresh
End Select
'Adodc1.Refresh
Text1.Text = ""
Combo4.Text = ""
End If
End If
If Check3.Value Then
If Trim(Text1.Text) = "" Then
MsgBox "查询内容不能为空", vbOKOnly + vbExclamation, "警告"
Text1.SetFocus
Exit Sub
End If
End If
If (Check1.Value + Check3.Value = 0) Then
MsgBox "请设置查询方式！", vbOKOnly + vbExclamation, "警告"
Exit Sub
Else
txtsql = txtsql
'Set mrc = ExecuteSQL(txtsql, msgtext)
'Set DataGrid1.DataSource = mrc
Adodc2.RecordSource = txtsql
Adodc2.Refresh
datagrid1.ReBind
MsgBox txtsql, vbOKOnly, "s"
End If
End Sub
2、文修管理统计：
二、房屋管理模块
1、房间查询：
2、房产所有权
三、收费管理模块
1、收费类别添加：
对应代码：
Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox "请完整添写收费项目的信息!"
Else
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields(0) = Text1.Text
Adodc1.Recordset.Fields(1) = Text2.Text
Adodc1.Recordset.Fields(2) = Text3.Text
Adodc1.Recordset.Fields(3) = Text4.Text
Adodc1.Recordset.Fields(4) = Text5.Text
Adodc1.Recordset.Fields(5) = Combo1.Text
Adodc1.Recordset.Fields(6) = Combo2.Text
Adodc1.Recordset.Fields(7) = Text6.Text
Adodc1.Recordset.Fields(8) = Combo3.Text
Adodc1.Recordset.Update
MsgBox "收费类别信息添加成功！"
Text1.Text = ""
Text2.Text = ""
Combo1.Text = ""
Text3.Text = ""
Combo2.Text = ""
Text4.Text = ""
Text5.Text = ""
Combo3.Text = ""
Text6.Text = ""
End If
End Sub
2、收费查询：
四、业主管理模块
1、业主修改：
2、业主查询：
五、员工管理模块
1、员工资料修改：
辣、出入信息模块
1、出去
对应代码：
Private Sub Command3_Click()
Adodc1.Recordset.AddNew
Text7.SetFocus
End Sub
2、查询：
谢 辞
作为一个学VB开发工具只有半年多时间的新手来说，能做出以上系统项目的分析设计以及实施，并在一定的环境下运行起来，我感到十分的欣慰，我为我的学习和开发能力感到骄傲。
在从这个小区物业管理系统中，我们可以看到，我所开发的系统完全符合现代物业管理的发展需要；无论从分析、设计、到使用，都很大程度上取决与实际的调查和个人的创作，从根本上来说，这个系统的实现，体现了我大学所学的知识，已经可以应用到实践中来，为我以后的工作或者创业之路打下了良好的基础，从而为我以后的人生形成了一笔无形的财富。从另一方面来看，我所开发的住宅小区物业管理系统实际上存在着很多的漏洞和缺点，如代码的编写，系统的分析等，还有很多的功能模块我还不太清楚，系统实现的效率也不是很高。
因此，在今后，我还需加倍的努力，无论从哪一方面来说，我都必须保持着谦虚、谨慎的态度去好好学习，不管是在学校还是以后出来工作，我都要以认真的态度去做好每一件事情。
最后，我在这里要感谢一直支持我，关心我的老师，特别是田艳老师，感谢您一直以来对我的教导与帮助！我以后会继续努力的。