应用场景:窗口菜单通过目录树形式的权限进行控制,在设置窗口菜单权限时,传统方法是:
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
只需要控住权限组就行了。