找了论坛很久,没发现一个很快上手的权限实例,我理了一下思路,根据帮助里的树型权限分配实例进行梳理。
1、菜单导航做一个表,按登录用户和分组来过滤,并形成树型菜单。这一点感谢 有点甜 老师帮忙指正,已达效果:
以下是菜单过滤代码:
Dim dj As WinForm.TreeView = e.Form.Controls("单据查询菜单")
dj.BuildTree("菜单","子模块|菜单","[用户] Like '*" & User.group & "*' or [用户] Like '*" & User.name & "*'")
2、然后做一个按用户分配菜单权限,如下图所示:
此主题相关图片如下:未命名4.jpg
我看了帮助上的树形分配权限这个例子,实际就是这个功能,但是我想完全对调一下,按用户来进行分配菜单权限会更适应刚入门的用户。做到以下几个功能会更直观:
1)点用户(这里也可以延伸设分组),直接查看该用户所有的菜单权限,相当于做个选择节点查询。
2)在分配权限时,直观,勾选即把该用户添加到菜单对应用的用户栏里,去掉勾选就从用户栏里清除,一切都以保存按钮做结束。
只可惜我是新手,还没弄明白怎么弄,希望老师帮个忙,因为这个权限实例搞定了,会给入门的一个很直观的学习成就感。以下上传实例。
[此贴子已经被作者于2013-8-26 9:26:40编辑过]