Foxtable(狐表)用户栏目专家坐堂 → [求助]


  共有8861人关注过本帖树形打印复制链接

主题:[求助]

帅哥哟,离线,有人找我吗?
sanyotaiyo
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:134 积分:1398 威望:0 精华:0 注册:2011/9/14 7:27:00
[求助]  发帖心情 Post By:2013/1/23 8:37:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
点击浏览该文件:多角色权限控制问题0.foxdb

 下载信息  [文件大小:   下载次数: ]
点击浏览该文件:多角色权限控制问题1.foxdb

 

 

Select Case User.Roles

    Case "XXX"

        e.Form.Controls("Button1").Visible = False

    Case Else

        e.Form.Controls("Button1").Visible = True

End Select

 

AAA(A):XXXYYY

BBB(B):XXX

 

多角色权限控制问题0:AAA登录时(AB可见)应该是看不到的,可是还是看到了。

 

Select Case User.Roles

    Case "XXX"

        e.Form.Controls("Button1").Visible = True

    Case Else

        e.Form.Controls("Button1").Visible = False

End Select

 

AAA(A):XXXYYY

BBB(B):XXX

 

多角色权限控制问题1:AAA登录时(AB可见)应该是看得到,可是还是看不到了。

 

 

我的目的是要达到:当满足多角色中得一个角色,则为满足条件。也只有这样,多角色测有意义。不知道这样是否可以达到目的,请多多指教,谢谢!


 


 回到顶部
帅哥哟,离线,有人找我吗?
lin_hailun
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:6708 积分:34304 威望:0 精华:11 注册:2012/8/18 23:10:00
  发帖心情 Post By:2013/1/23 9:04:00 [只看该作者]

 代码改一下,因为你的Roles的值是 xxx,yyy

If User.Roles Like "XXX,*" OrElse User.Roles Like "*,XXX,*" OrElse User.Roles Like "*,XXX" Then
    e.Form.Controls("Button1").Visible = False
Else
    e.Form.Controls("Button1").Visible = True
End If

 回到顶部
帅哥哟,离线,有人找我吗?
sanyotaiyo
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:134 积分:1398 威望:0 精华:0 注册:2011/9/14 7:27:00
  发帖心情 Post By:2013/1/23 14:35:00 [只看该作者]

Very Good!  Thanks!


 回到顶部