菜单
　　

        With adoUser
            .CommandType = adCmdText
            .RecordSource = strSQL
            .Refresh
            If .Recordset.EOF And .Recordset.BOF Then
                interr = interr + 1
                If interr >= 3 Then
                    MsgBox "对不起，您无权使用本系统。", vbExclamation, "提示"
                    End
                Else
                    MsgBox "用户名或密码错误，请重新输入！", vbExclamation, "提示"
                    Call FocusBack(txtUserID)
                    End If
            Else
                gstrUser = strUser
                If .Recordset("权限") = "管理员" Then
                    gblnPurview = True
                Else
                    gblnPurview = False
                End If
                frmMain.Show
                Unload Me
            End If
        End With
    End Sub
    4.2    系统主窗体的实现
     
    图 4.2 系统主窗体实现
    当用户单击某一菜单时，显示对应窗体。系统菜单中的添加用户、删除用户和更改权限3个菜单项的功能进攻权限为管理员的用户使用。因此，在窗体加载时会根据保存在全局变量中的用户权限来确定是否显示这3个菜单项。
    系统主窗体的代码实现：
    Private Sub Form_Load()
    '根据用户权限确^是否显示用户管理各菜单项
        mnuAddUser.Visible = gblnPurview
        mnuDelUser.Visible = gblnPurview
        mnuModiPurview.Visible = gblnPurview
        Call CreateConnection     '调用标准模块中的过程建立连接
    End Sub

    Private Sub mnuAbout_Click() '关于
        MsgBox Space(6) & "公司合同管理系统" & Space(6) & vbCr & vbCr & Space(9) & "版本：1.0", vbOKOnly, "公司合同管理系统"
    End Sub
    Private Sub mnuAddUser_Click() '添加用户
        frmUser.Show 1
    End Sub

    Private Sub mnuDelUser_Click() '删除用户
        frmDelUser.Caption = "删除用户"
        frmDelUser.Show 1
    End Sub

    Private Sub mnuModiPurview_Click() '更改用户权限 .
        frmDelUser.Caption = "更改权限"
        frmDelUser.Show 1
    End Sub

    Private Sub mnuExit_Click() '退出
        Unload Me
    End Sub

    Private Sub mnuPassWord_Click() '修改密码
  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

关闭返回