Question

VB权限设置，我是通过VB和ACCESS做的一块小软件，

我想通过登录按钮实现管理员和普通用户的权限问题！很急…同一个登录界面，登录分管理员和普通用户， 进去之后管理员能进行所有操作 而普通职员只能进行部分操作,其他菜单都是灰色的，禁用的……谁以前做过

Answer 1

假如管理员对应开放的菜单名称都在一个字符串StrMenus里（这个事先保存在你数据库里的），主窗体为 MainF，则代码如下：

For Each V In MainF.Controls
Vname = UCase(V.Name)
If UCase(TypeName(V)) = "MENU" Then
If InStr(StrMenus, Vname) > 0 Then
V.Enabled = True
Else
V.Enabled = False
End If
End If
Next

Answer 2

vb2008做的： userpri = ComboBox1.Text.ToString.Trim
username = TextBox1.Text.ToString.Trim
password = TextBox2.Text.ToString.Trim
Dim n As Integer = judgeVege()
If (username = "" And password = "") Then
MessageBox.Show("用户名密码不能为空!!")
Else
If (userpri = "操作员") Then
If n >= 1 Then
Form1.Show()

Else
MessageBox.Show("用户名或密码错误")
End If
ElseIf (userpri = "管理员") Then
If n >= 1 Then
Manager.Show()

Else
MessageBox.Show("用户名或密码错误")
End If
End If
End If
TextBox1.Text = ""
TextBox2.Text = ""