菜单
　　

            .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
  1. 上一篇：ASP.net实验室建设与实习基地信息库系统的建设与实施
  2. 下一篇：Flash俄罗斯方块游戏设计+文献综述

  1. JAVA基于安卓平台的医疗护工管理系统设计

  2. java+mysql酒店管理系统设计与实现

  3. Ruby+mysql就业信息管理系统的设计与实现

  4. php进销存管理系统的设计与实现

  5. jsp医药连锁店管理系统的设计与实现

  6. jsp+mysql学生实践创新项目管理系统设计与实现

  7. jsp+mysql停车场车辆管理系统的设计与实现

  8. 十二层带中心支撑钢结构...

  9. 河岸冲刷和泥沙淤积的监测国内外研究现状

  10. 中考体育项目与体育教学合理结合的研究

  11. 大众媒体对公共政策制定的影响

  12. 酸性水汽提装置总汽提塔设计+CAD图纸

  13. 电站锅炉暖风器设计任务书

  14. 乳业同业并购式全产业链...

  15. java+mysql车辆管理系统的设计+源代码

  16. 当代大学生慈善意识研究+文献综述

  17. 杂拟谷盗体内共生菌沃尔...

　　

About

751论文网手机版...

主页：http://www.751com.cn

关闭返回