.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 VB公司合同管理系统开发与设计(14):http://www.751com.cn/jisuanji/lunwen_4550.html