毕业论文-小区物业管理系统 

第五章 系统详细设计

5.1界面设计与功能

经过以上的分析及建摸模，已经完成了数据库的后台工作。下面要完成的是 人机交互的界面。本系统分为以下三部分：

(1) 用户登陆； (2) 系统主体平台；

(3) 通过主体平台调用的功能模块。 接下来即对各部分作详细介绍：

5.2 用户登陆部分

启动系统程序后,首先进入系统登陆界面,在登陆进入主体平台的时候，系统会要求用户输入用户名及密码作为验证信息，为了防止非用户在使用,输入正常信息后便可以使用本系统。

界面截图如下:

本模块代码如下：

Private Sub Command1_Click() Dim strUserName As String Dim strPassword As String

Static intLoginTimes As Integer

26

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

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

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

'Adodc1.Recordset.Find \用户名 ='\ '也可以用下面的过滤方式

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

5.3 小区住户信息管理模块

住户资料主要是对住户的基本信息如 (住户电话、住户姓名、物业地址、身份证号、入住时间等信息)和另外两个标签的信息进行添加、修改、删除、查询。

27

添加、修改、删除这些操作必须保存后才能生效。当记录较多，通过简单的查询可以方便的找的目标记录，查询结果已表格方式显示。表格显示结果的同时，如果还出现多条记录，可以根据某个字段对记录进行排序，这样可以给用户带来更大的方便和提高查找效率。

界面截图如下:

本模块代码如下：

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 End If End Sub

28

Private Sub Command2_Click() Dim strql As String

Set db = OpenDatabase(App.Path + \

strsql = \住户基本信息表 (户主,住址,电话,入住时间,身份证号码) values ('\Text2.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 住址 = '\+ Text2.Text + \,户主 = '\+ Text1.Text + \电话 = '\+ Text3.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 \删除成功\

29

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

5.4 房屋信息管理模块

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

界面截图如下:

30