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