VB公司合同管理系统开发与设计(12)

    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() '修改密码 VB公司合同管理系统开发与设计(12):http://www.youerw.com/jisuanji/lunwen_4550.html