- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 授权 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=127153)
-- 发布时间：2018/11/6 23:04:00
-- 授权
此主题相关图片如下：123_爱奇艺.jpg
If Functions.Execute("ShouQuan","工资","装砖工工资")
Forms("新增装砖工工资").open
Else
RibbonTabs("业务管理").Groups("工资").Visible = False
End If
这是一个菜单授权代码，有权限的人可以点开，当没有权限时登录的时候就不要看见，现在的问题是，当这个人没有权限，登录的时候可以看见，当点了之后才会消失，这个怎么处理呀
-- 发布时间：2018/11/7 8:42:00
--
下面代码，写到LoadUserSetting事件去
If Functions.Execute("ShouQuan","工资","装砖工工资")
RibbonTabs("业务管理").Groups("工资").Visible = True
Else
RibbonTabs("业务管理").Groups("工资").Visible = False
End If
-- 发布时间：2018/11/8 8:47:00
--
此主题相关图片如下：dd.png
If Functions.Execute("ShouQuan","单位信息","赊账客户维护")
RibbonTabs("系统维护").Groups("单位信息").Items("赊账客户维护").Visible = True
Else
RibbonTabs("系统维护").Groups("单位信息").Items("赊账客户维护").Visible = False
End If
If Functions.Execute("ShouQuan","单位信息","往来单位维护")
RibbonTabs("系统维护").Groups("单位信息").Items("往来单位维护").Visible = True
Else
RibbonTabs("系统维护").Groups("单位信息").Items("往来单位维护").Visible = False
End If
If Functions.Execute("ShouQuan","单位信息","往来单位维护") AndAlso Functions.Execute("ShouQuan","单位信息","赊账客户维护")
RibbonTabs("系统维护").Groups("单位信息").Visible = True
ElseIf Functions.Execute("ShouQuan","单位信息","往来单位维护") OrElse Functions.Execute("ShouQuan","单位信息","赊账客户维护")
RibbonTabs("系统维护").Groups("单位信息").Visible = True
ElseIf ---------------------
RibbonTabs("系统维护").Groups("单位信息").Visible = False
End If
老师，我这上面连个代码，没有哪个权限不显示哪个权限，可以成功，后面这个代码是判断功能组，当都有权限或者，或者有一个权限功能组就显现，当权限都没有的情况下才是功能组不显示，这个条件怎么写呀，还有就是功能组下有很多的权限怎么判断，想写CASE语句，可是不知道怎么写，请教了
-- 发布时间：2018/11/8 8:51:00
--
比如，先把功能组全部隐藏起来，然后，参考红色代码
If Functions.Execute("ShouQuan","单位信息","赊账客户维护")
RibbonTabs("系统维护").Groups("单位信息").Items("赊账客户维护").Visible = True
RibbonTabs("系统维护").Groups("单位信息").Visible = True
Else
RibbonTabs("系统维护").Groups("单位信息").Items("赊账客户维护").Visible = False
End If