莆田学院课程设计
Set DataGrid1.DataSource = Adodc1 c = DTPicker1.Value End Sub
6.1.6客户资料界面
(1)管理员进入系统中，进入客户资料界面，可以在该界面更改客户的个人资料。如图16所示：
图16
（2）客户资料界面的相关部分源码：
Private Sub Command2_Click() If Len(Text4.Text) <> 18 Then MsgBox \身份证不是18位！\ Exit Sub End If
If Len(Text2.Text) > 11 Then MsgBox \电话不能大于11位！\
25
莆田学院课程设计
Exit Sub End If
If MsgBox(\是否修改用户 \资料修改\ If Text2.Text <> Adodc1.Recordset.Fields(\联系电话\
strsql1 = \用户属性] Set 联系电话='\客户姓名='\ SQLExt (strsql1) End If
If Text3.Text <> Adodc1.Recordset.Fields(\联系地址\
strsql1 = \用户属性] Set 联系地址='\客户姓名='\ SQLExt (strsql1) End If
If Text4.Text <> Adodc1.Recordset.Fields(\身份证\
strsql1 = \用户属性] Set 身份证='\客户姓名='\ SQLExt (strsql1) End If
MsgBox \客户资料修改成功!\End If
Form_Load End Sub
Private Sub DataGrid1_Click()
Text1.Text = Adodc1.Recordset.Fields(\客户姓名\ Text2.Text = Adodc1.Recordset.Fields(\联系电话\ Text3.Text = Adodc1.Recordset.Fields(\联系地址\ Text4.Text = Adodc1.Recordset.Fields(\身份证\End Sub
Private Sub Form_Load()
Adodc1.ConnectionString = cnn '数据库连接字符串 strsql1 = \用户属性]\ Adodc1.RecordSource = strsql1 Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1 End Sub
26
莆田学院课程设计
6.1.7管理员信息界面
(1)用户登录进入汽车租赁管理系统中，菜单栏中有一项系统管理，在系统管理下拉菜单中选择添加管理员，进入添加管理员界面，添加管理员信息(包括用户名、密码)。如图17所示：
图17管理员添加界面
(2)添加管理员的部分源代码如下：
Private Sub cmdAdd_click()
Dim strName As String, strPWD As String, strPWD2 As String strName = Text1.Text strPWD = Text3.Text strPWD2 = Text4.Text If Trim(strName) = \
27
莆田学院课程设计
MsgBox \请输入用户名\警告\ Text1.SetFocus Exit Sub End If
If Len(strPWD) < 0 Then
MsgBox \密码不能为空！\警告\ Exit Sub End If
If strPWD <> strPWD2 Then
MsgBox \密码和确认密码不相同，请重新确认！\警告\ Exit Sub End If With myuser
If bModify = False Or strOldUser <> Trim(strName) Then If .ExistUser(strName) = True Then
MsgBox \用户名已经存在，请重新输入！\警告\ Text1.SelStart = 0
Text1.SelLength = Len(strName) Exit Sub End If End If
.strName = strName .strPWD = strPWD If bModify = False Then .AddUser Else
.UpdateUser (strOldUser)
'如果修改自身用户名，则更新CurUser对象
If strOldUser = CurUser.strName And Trim(strName) <> strOldUser Then CurUser.strName = Trim(strName) CurUser.GetInfo (CurUser.strName) End If End If End With Text3.Text = \ Text4.Text = \ Form_Load
28
莆田学院课程设计
End Sub
Private Sub cmdDel_Click() If dltUser.Text = \
MsgBox \请选择要删除的用户\警告\ Exit Sub End If
If MsgBox(\是否删除用户 \删除\ myuser.DeleteUser (dltUser.Text) AdoUserList.Refresh DataRefresh End If End Sub
Private Sub cmdModify_Click() Dim iRet As Integer If dltUser.Text = \
MsgBox \请选择要修改的用户！\警告\ Exit Sub End If
strsql = \管理员 WHERE 用户名 = \ Set rs = QueryExt(strsql) Text1.SetFocus
If Trim(rs.Fields(1)) <> Trim(Text2.Text) Then
MsgBox \原密码错误！\警告\ Exit Sub End If
If Text3.Text <> Text4.Text Then
MsgBox \密码和确认密码不相同，请重新确认！\警告\ Exit Sub Else With myuser
.strName = Text1.Text .strPWD = Text3.Text .UpdatePassword (Text1.Text) End With End If
AdoUserList.Refresh
29