VB公司合同管理系统开发与设计(14)
.Update
MsgBox "添加用户成功！", vbInformation
Else
MsgBox "此用户已存在！", vbExclamation
Call FocusBack(txtUserName) '焦点返回用户框
Exit Sub
End If
End With
End Sub
（2）删除用户模块的实现
图 4.4 删除用户模块实现
首先用户在DataGrid空间中选择需要删除的对象，然后点击删除用户，MsgBox提示是否删除。如果已经选删除了一个用户但是还没有推出删除用户床提前，点击取消删除按钮可以撤销刚才的删除操作，如果直接推出此窗体则删除操作成功，程序将在数据表中删除指定的用户。
删除用户模块的代码实现：
Private Sub cmdCancel_Click() '取消删除
adoUser.Recordset.CancelBatch
adoUser.Refresh
End Sub
Private Sub cmdDelete_Click() '删除按钮
If UCase$(adoUser.Recordset("用户名")) = "admin" Then
MsgBox "不能删除“admin”用户。", vbExclamation, "提示"
Exit Sub
End If
Dim intRsp As Integer
Dim strQst As String
strQst = "是否删除用户“" & adoUser.Recordset("用户名") & "”？"
intRsp = MsgBox(strQst, vbQuestion + vbYesNo, "询问")
If intRsp = vbYes Then
adoUser.Recordset.Delete '不执行更新操作，可以取消删除
End If
End Sub
Private Sub cmdExit_Click()
Unload Me
End Sub
（3）更改权限模块的实现
图 4.5 更改权限模块实现
用户首先在DataGrid控件中选择需要修改的对象，然后在选择权限的组合框中选择权限，如果希望修改则点击确认修改，那么权限信息的修改会保存到数据表中。
更改权限模块的代码实现：
Private Sub cmdExit2_Click()
Unload Me
End Sub
Private Sub cmdValidate_Click() '确认对权限的修改
adoUser.Recordset("权限") = cboPurview.Text
End Sub
（4）修改密码模块的实现
图 4.6 修改密码模块实现
当用户单击确认按钮后，首先判定文本框是否为空，如果为空则MsgBox提示，然后在检查两次输入的密码是否一致，如果一致，则根据保存在全局变量中的用户名查询用户表，将当前用户的新密码存入“用户”数据表。
修改密码模块的代码实现：
Private Sub cmdExit_Click()
Unload Me
End Sub
Private Sub cmdOk_Click() '确认
If Trim$(txtPassword1.Text) = "" Then '检査各文本框是否为空
MsgBox "请输入新密码！", vbExclamation
txtPassword1.SetFocus
Exit Sub
End If
If Trim$(txtPassword2.Text) = "" Then
MsgBox "请确认新密码！", vbExclamation
txtPassword2.SetFocus