以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  在登录时加载角色权限  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=99878)
--  作者：k931931
--  发布时间：2017/4/28 15:11:00
--  在登录时加载角色权限
老师你好，除了在菜单按钮中直接增加判断条件，确认是否有权限外，我看到帮助文件中的group权限,role权限好像都是通过在用户登录时加载进来的权限
结合帮助文件，我在全局代码中增加了Public _UserRole As String 及在登录click时增加了_UserRole = dr("Role")
参考帮助文件，在审核按钮下增加了以下代码，像是确认是否包含有"",但是没有生效（感觉这种代码更简洁）,
请老师指教一下类似包含代码怎么写

If _User.IsRole("主管") Then
     MessageBox.Show("OK!")
Else
    MessageBox.Show("你无审核权限!")
End If
--  作者：有点色
--  发布时间：2017/4/28 15:12:00
--  
If _userRole.Contains("主管") Then
     MessageBox.Show("OK!")
Else
    MessageBox.Show("你无审核权限!")
End If
--  作者：k931931
--  发布时间：2017/4/28 15:42:00
--  
谢谢