以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  菜单问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=103334)
--  作者：实话实说
--  发布时间：2017/7/6 9:25:00
--  菜单问题
菜单配置栏有一按钮，我想只有管理员角色的用户才显示，对于其它用户则隐藏不显示。代码怎写？写在哪？
--  作者：有点甜
--  发布时间：2017/7/6 9:28:00
--  

LoadUserSetting或AfterOpenProject

 

If user.roles = "管理员" Then

    ConfigBar.Items("BrowseMode").visible = true

Else

    ConfigBar.Items("BrowseMode").visible = False

End If
--  作者：实话实说
--  发布时间：2017/7/6 10:34:00
--  
加了上面代码,项目打不开了
--  作者：有点甜
--  发布时间：2017/7/6 10:36:00
--  

2楼代码没问题。

 

贴出你写的。

 

请认真测试。
--  作者：实话实说
--  发布时间：2017/7/6 10:53:00
--  

\'配置栏保存按钮是否显示
If _UserRole.Contains("管理员") Then
\'If user.roles = "管理员" Then
    ConfigBar.Items("保存").visible = True
Else
    ConfigBar.Items("保存").visible = False
End If

保存是配置栏其中的1个按钮,_UserRole是全局代码定义的
--  作者：有点甜
--  发布时间：2017/7/6 10:57:00
--  

代码写到登陆按钮去

 

msgbox(_UserRole)

If _UserRole.Contains("管理员") Then
    ConfigBar.Items("保存").visible = True
Else
    ConfigBar.Items("保存").visible = False
End If
--  作者：实话实说
--  发布时间：2017/7/6 11:15:00
--  
谢谢,没问题了.