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

本模块代码如下：

Private Sub Command1_Click() Dim strUserName As String Dim strPassword As String Static intLoginTimes As Integer

If Trim(Text1.Text) = \如果用户名为空

MsgBox \用户名不能为空！\错误\ Text1.SetFocus Exit Sub End If

'打开数据库中的 用户表 Adodc1.Refresh '查找用户名

'Adodc1.Recordset.Find \用户名 ='\& Text1.Text & \\adSearchForward, 1

'也可以用下面的过滤方式

,

Adodc1.Recordset.Filter = \用户名 ='\ If Not Adodc1.Recordset.EOF Then '找到记录 strUserName = Adodc1.Recordset!用户名 strPassword = Adodc1.Recordset!密码 'Else '没找到记录 'Text1 = \ 'Text2 = \ End If

If strUserName = Text1.Text And strPassword = Text2.Text Then Adodc1.Recordset.Close '关闭数据库中的 用户表 Unload Me '关闭窗体 frmMain.Show '显示主窗体 Else

'用户名或密码不对

MsgBox \用户名或密码不对！\提示\ Text1 = \ Text2 = \

intLoginTimes = intLoginTimes + 1 If intLoginTimes >= 3 Then '超过三次

Adodc1.Recordset.Close '关闭数据库中的 用户表 End '退出整个程序 End If

Text2.SetFocus '重新输入密码 SendKeys \

End If End Sub

4.3 小区住户信息管理模块

住户资料主要是对住户的基本信息如 (住户电话、住户姓名、物业地址、身份证号、入住时间等信息)和另外两个标签的信息进行添加、修改、删除、查询。添加、修改、删除这些操作必须保存后才能生效。当记录较多，通过简单的查询可以方便的找的目标记录，查询结果已表格方式显示。表格显示结果的同时，如果还出现多条记录，可以根据某个字段对记录进行排序，这样可以给用户带来更大的方便和提高查找效率。

界面截图如下:

本模块代码如下：

Private Sub Command1_Click() If rs.EOF = False Then Text1.Text = rs(\户主\ Text2.Text = rs(\住址\ Text3.Text = rs(\电话\ Text4.Text = rs(\入住时间\ Text5.Text = rs(\身份证号码\