授权 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

共有2171人关注过本帖树形打印复制链接主题：授权

有点甜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/11/7 8:42:00 [显示全部帖子]

下面代码，写到LoadUserSetting事件去

If Functions.Execute("ShouQuan","工资","装砖工工资")

RibbonTabs("业务管理").Groups("工资").Visible = True

Else

RibbonTabs("业务管理").Groups("工资").Visible = False

End If

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：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

主题：授权