[分享]批量设置窗口菜单权限 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [分享]批量设置窗口菜单权限

共有3223人关注过本帖树形打印复制链接主题：[分享]批量设置窗口菜单权限

scofields

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

等级：二尾狐帖子：550 积分：4405 威望：0 精华：0 注册：2016/4/17 20:05:00

[分享]批量设置窗口菜单权限 发帖心情

Post By：2017/10/14 20:22:00 [显示全部帖子]

应用场景：窗口菜单通过目录树形式的权限进行控制，在设置窗口菜单权限时，传统方法是：

e.Form.Strips("主菜单").Items("新增").enabled = Functions.Execute("ShouQuan","信息识别组","新增")

e.Form.Strips("主菜单").Items("删除").enabled = Functions.Execute("ShouQuan","信息识别组","删除")

.......

......

这就是说窗口菜单MenuItem有多少个组，有多少个权限，就要写多少个上面的长代码，显然是很繁琐的，三句代码，一次性搞定，这就是foxtable的魅力：

For Each sit As WinForm.StripItem In e.Form.Strips("主菜单").Items

e.Form.Strips("主菜单").Items(sit.name).enabled = Functions.Execute("ShouQuan","信息识别组",sit.name) ‘这段代码是蓝老师提供，感谢

只需要控住权限组就行了。

scofields

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

等级：二尾狐帖子：550 积分：4405 威望：0 精华：0 注册：2016/4/17 20:05:00

Post By：2017/10/16 11:19:00 [显示全部帖子]

甜老师，我发现这种模式下控制不了图示的权限，我想实现对下拉的窗口菜单进行权限控制，而不是整个控制啊

此主题相关图片如下：112.png

scofields

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

等级：二尾狐帖子：550 积分：4405 威望：0 精华：0 注册：2016/4/17 20:05:00

Post By：2017/10/16 22:11:00 [显示全部帖子]

老师，还是反反复复的报错啊

For Each sit As WinForm.StripItem In e.Form.Strips("主菜单").Items

sit.enabled = Functions.Execute("ShouQuan","主菜单",sit.name) '这段代码是蓝老师提供,感谢

For Each ssit As WinForm.StripItem In sit.Items

ssit.enabled = Functions.Execute("ShouQuan","人像管理",ssit.name) '这段代码是蓝老师提供,感谢

For Each ssitt As WinForm.StripItem In sit.Items

ssitt.enabled = Functions.Execute("ShouQuan","IC卡管理",ssitt.name) '这段代码是蓝老师提供,感谢

主题：[分享]批量设置窗口菜单权限