汽车租赁管理信息系统01(1)(7)

莆田学院课程设计

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

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库汽车租赁管理信息系统01(1)(7)在线全文阅读。