请问VB.NET 如何做权限菜单呢?
请问VB.NET 如何做权限菜单呢? 有没有小小的示例? 哪位好心人帮帮忙,谢谢了
[解决办法]
在我的资源里有一个小的仓库管理系统,里面有一块是权限管理的,你可以去下载来看一下,不明白的地方可以给我发邮件(yjw0923@163.com)
[解决办法]
menu中menuid，menuname,menustrs,pmenuid
userrights中menuid,username
根据用户名在数据库中查找相应的菜单使用权
Private Sub Setright(ByVal sUserName As String)
Dim mysql As String
mysql = "Select menuname, Menu.menustr FROM userrights,menu WHERE userrights.menuid=menu.menuid and userrights.username = '" + sUserName + "'"
If myDataObj.ExecuteSQL(mysql, drSqlServer) Then'从数据库中返回记录集
While drSqlServer.Read()
GetMenuItemByName(Me, drSqlServer("menuname")).Enabled = True
End While
drSqlServer.Close()
End If
End Sub
' 依据菜单名称返回菜单对象
Private Function GetMenuItemByName(ByVal FormIstance As Form, ByVal MenuItemName As String) As MenuItem
Dim MenuItemFieldInfo As FieldInfo
Const FindBinding As BindingFlags = BindingFlags.Instance Or BindingFlags.NonPublic Or BindingFlags.Public
MenuItemFieldInfo = FormIstance.GetType.GetField("_" & MenuItemName, FindBinding)
If MenuItemFieldInfo Is Nothing Then
Return Nothing
Else
Return CType(MenuItemFieldInfo.GetValue(FormIstance), MenuItem)
End If
End Function
