莆田学院课程设计
属性 车牌 车型 出租价格 出租状态
数据类型 文本 文本 文本 文本
字段长度 50 8 50 50
是否主键 是 否 否 否
说 明 录入车辆车牌号 录入车辆车型
(2)客户属性表 如表9所示：
表9 客户属性表
属性 身份证 联系电话 联系地址 出租汽车 汽车类型 出租日期 已交押金
数据类型 文本 文本 文本 文本 文本 文本 文本
字段长度 50 50 50 50 50 50 50
是否主键 是 否 是 否 是 否 否
说 明 类型的编号
类型的编号
(3)管理员表 如表10所示：
表10 管理员表
属性 用户名 密码
数据类型 文本 文本
字段长度 50 50
是否主键 是 否
说 明
15
莆田学院课程设计
6 系统实现及测试
6.1 主要功能模块设计与实现
6.1.1 登陆模块的界面
(1)用户登录进系统中，进入出租信息显示界面，出租信息的显示显示出所租车辆的车牌、租车的时间等信息。点击所选择的一条信息，在界面右面会出现更加详细的信息(包括车牌、类型、租赁费用、租车时间、押金)。如图11所示：
图11 出租模块显示界面
(2)出租信息部分源代码如下：
UserName = \
If Trim(txtUserName.Text = \\
MsgBox \请输入用户名！\Information + vbOKOnly, \提示\ txtUserName.SetFocus Else
strsql = \T * FROM 管理员 WHERE 用户名 = \'\ txtUserName.Text & \'\ Set rs = QueryExt(strsql) If rs.EOF Then
MsgBox \该用户无权操作本系统，请重新输入用户名!\Information + vbOKOnly, \提示\ txtUserName.SetFocus Else
If Trim(rs.Fields(1)) = Trim(txtPassword.Text) Then '检查密码 OK = True
16
莆田学院课程设计
账户 = Trim(txtUserName.Text) rs.Close Me.Hide Form1.Show Else
MsgBox \输入密码不正确，请重新输入！\, vbInformation + vbOKOnly, \提示\ txtPassword.SetFocus txtPassword.Text = \ End If End If End If
6.1.2 汽车管理模块的界面
(1)管理员登录进入系统中，菜单栏中有一项汽车管理，在汽车管理下拉菜单中选择管总汽车状况、已租出汽车状况、未租出汽车状况，在显示的界面中可以显示的信息(包括车牌、车型、出租价格、出租状态)。如图12所示：
图12租赁管理模块界面
17
莆田学院课程设计
(2)汽车管理中的部分源代码如下：
Private Sub Command2_Click() temp = Adodc1.Recordset.Fields(\出租状态\ If Adodc1.Recordset.Fields(\出租状态\已出租\ MsgBox \此车未归还，不可删！\ Exit Sub Else temp = Adodc1.Recordset.Fields(\车牌\ If MsgBox(\是否删除 \删除\ strsql1 = \汽车表] WHERE 车牌='\ SQLExt (strsql1) MsgBox \删除成功！\ End If End If strsql1 = \汽车表]\ Adodc1.RecordSource = strsql1 Adodc1.Refresh Set DataGrid1.DataSource = Adodc1 End Sub
6.1.3 汽车查询界面
(1)管理员进入系统中，进入汽车查询界面，可以根据车牌，车辆类型，出租状态和出租价格四个条件进行车辆的查询。可以选择一个查询条件（模糊查
18
莆田学院课程设计
询）。如图13所示：
图13 汽车查询界面
19