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


  共有3178人关注过本帖平板打印复制链接

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

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


加好友 发短信
等级:二尾狐 帖子:529 积分:4225 威望: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) ‘这段代码是蓝老师提供,感谢
Next

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

 回到顶部