Question

VB菜单权限问题

我做了一个权限表，里面有用户名，菜单名，权限．表在SQL里。我想调用里面的权限，比如：用户名admin 菜单名system 权限true
用户名user 菜单名system 权限false
我在VB里怎么进行判定以后system.enadble=true/false
对不同用户，进行菜单的权限管理。给全部代码，，，谢谢

Answer 1

If 权限="False" Then
system.enable=false
Else
system.enable=true
End if

追问

If 权限 中的权限应怎么引用过来

追答

你可以用sql...
sql="select * from 表 where 用户名='admin' "
然后用dataset或datatable保存。。

追问

能不能详细的代码说明一下,非常感谢.
主要就是调用数据库表中的权限,
Dim a As String
a = "select * from 权限管理 where 用户名='" & Trim(UserName.Text) & "' and 权限=1"
查询出来了,但是怎么引用查询出来的菜单名和权限true/false

追答

Dim a As String
a = "select * from 权限管理 where 用户名='" & Trim(UserName.Text) & "' and 权限=1"
dim adapter as oledbadapter(a) //oledbadapter是我连接数据库的方法，你更换你的方法
dim datatable as new datatable
adapter.fill(datatable)

if datatable.rows(0)("权限").tostring=1 then
//你的执行代码
end if

追问

这是我的连接，我连接的是SQL2005

Dim cnn As New ADODB.Connection '声明
Set cnn = New ADODB.Connection '建立无源数据库连接
cnn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=date;Data Source=WELCOMEWORK"
cnn.ConnectionTimeout = 50
cnn.Open

追答

你的方法和我一样，就直接拷贝到你的程式。

追问

后面怎么进行呀？？？？？？？？

追答

if 权限='"false" then
Toolbar1.Buttons(1).Enabled = False
end if

追问

就是这句：if 权限='"false" then
这个条件的前面语句是什么。因为要引用SQL数据表中含有权限=true/false.
如果你有管理用户菜单权限完整代码，请给一份详细的。非常感谢。
我主要纠结在查询出来用户可用菜单名，怎么引用这些菜单名再设置Enabled=true
这句我的理解Toolbar1.Buttons(1).Enabled = False ，假设我菜单名为system。那我就写为system.Enabled=false。是否是一个意思？

追答

这个条件的前面语句是什么？？？我不明白你的意思？？

Answer 2

如果想让第一个按钮不可用 Toolbar1.Buttons(1).Enabled = False ,GnyDth

追问

权限判定语句，详细？？？？？

Answer 3

其实设置权限的做法有很多方式,比如:菜单名system 下有5个子菜单,那么权限你可以记录为"11111",可用为1,不可用为0,系统登录时你用控件或字符串记录该用户的权限记录
Private Sub d2_Click() '点击第2个菜单,"d2"是菜单名称
If Mid(权限字符串, 2, 1) = 1 Then '判断第2个菜单的权限
''够权限时你的执行代码
Else
MsgBox "你没有权限使用此功能",,""
End If
End Sub

Answer 4

如果想让第一个按钮不可用 Toolbar1.Buttons(1).Enabled = False ~

追问

权限判定语句，详细？？？？？