找了论坛很久，没发现一个很快上手的权限实例，我理了一下思路，根据帮助里的树型权限分配实例进行梳理。

1、菜单导航做一个表，按登录用户和分组来过滤，并形成树型菜单。这一点感谢 有点甜 老师帮忙指正，已达效果：

以下是菜单过滤代码：
Dim dj As WinForm.TreeView = e.Form.Controls("单据查询菜单")
dj.BuildTree("菜单","子模块|菜单","[用户] Like \'*" & User.group & "*\' or [用户] Like \'*" & User.name & "*\'")

2、然后做一个按用户分配菜单权限，如下图所示：

此主题相关图片如下：未命名4.jpg

我看了帮助上的树形分配权限这个例子，实际就是这个功能，但是我想完全对调一下，按用户来进行分配菜单权限会更适应刚入门的用户。做到以下几个功能会更直观：
1）点用户（这里也可以延伸设分组），直接查看该用户所有的菜单权限，相当于做个选择节点查询。
2）在分配权限时，直观，勾选即把该用户添加到菜单对应用的用户栏里，去掉勾选就从用户栏里清除，一切都以保存按钮做结束。

只可惜我是新手，还没弄明白怎么弄，希望老师帮个忙，因为这个权限实例搞定了，会给入门的一个很直观的学习成就感。以下上传实例。 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:权限分配实例.foxdb

在线等,因为我的作品就差这一步了!

此主题相关图片如下：未命名2.jpg

以下是引用有点甜在2013-8-25 21:36:00的发言：
 添加的例子，至于删除的例子，不适合你这个例子。

 

下载信息  [文件大小：448.0 KB  下载次数：3]

点击浏览该文件:xxx2013年8月25日.foxdb

 参考目录树授权。

http://www.foxtable.com/help/topics/2405.htm

我已经自己搞定了,全部用的是SQL语句来执行的,效果图如下:

此主题相关图片如下：未命名1.jpg