- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]关于目录树角色授权问题【已解决】 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=89652)
-- 发布时间：2016/8/26 10:44:00
-- [求助]关于目录树角色授权问题【已解决】
上传例子 下载信息 [文件大小： 下载次数： ] 
点击浏览该文件:目录树形式的授权.foxdb
想实现左边是角色，右边选择控件，最后将控件放在角色管理的控件列里面，麻烦老师帮帮忙，我转换不来，先谢谢了
窗口表事件
窗口与控件事件
授权_AfterLoad
Dim trv1 As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim trv2 As WinForm.TreeView = e.Form.Controls("TreeView2")
trv1.BuildTree("授权","分组|权限")
For Each u As UserInfo In _Username \'该代码有错，不会做了
If trv2.Nodes.Contains(u.Group) = False Then
trv2.Nodes.Add(u.Group)
End If
Next
Trv1.Nodes(0).Expand()
trv2.ExpandAll()
\'由于我采用了默认用户，使用了全局代码如下：
\'=============用户管理===============
\'Public _UserName As String \'登录名
\'Public _UserName1 As String \'用户名
\'Public _UserGroup As String \'用户分组
\'Public _UserTable As DataTable \'
\'现在我想TreeView2 加载的数据是表“用户管理”的“姓名”,“group”列
请问该如何修改目录树授权
[此贴子已经被作者于2016/8/26 17:32:20编辑过]
-- 发布时间：2016/8/26 10:49:00
--
请上传例子
For Each u As DataRow In _UserTable.DataRows \'该代码有错,不会做了
If trv2.Nodes.Contains(u("Group")) = False Then
trv2.Nodes.Add(u("Group"))
End If
Next
-- 发布时间：2016/8/26 11:50:00
--
上传例子
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:目录树形式的授权.foxdb |
-- 发布时间：2016/8/26 14:18:00
--
请问有谁能帮帮我，卡在这里几天了
-- 发布时间：2016/8/26 14:50:00
--
你把分组改成窗口名，权限改成窗口控件名，即可啊。
-- 发布时间：2016/8/26 15:20:00
--
我想
此主题相关图片如下：001.png
此主题相关图片如下：002.png
-- 发布时间：2016/8/26 15:25:00
--
我想做成一个由角色来选在控件名称，例子已上传，麻烦老师帮帮忙
-- 发布时间：2016/8/26 15:41:00
--
做出来的效果是
此主题相关图片如下：003.png
Dim trv1 As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim trv2 As WinForm.TreeView = e.Form.Controls("TreeView2")
trv1.BuildTree("角色管理","角色名称")
trv2.BuildTree("授权","分组|权限")
但是我想比如左边选择员工，右边把“角色管理”“授权集合”列的内容相应的选上，最后保存的时候将打上勾的项保存在“角色管理”相应角色行的“授权集合”列里面
员工
订单管理,下料
经理
订单管理,业务管理
超级经理
订单管理,业务管理,生产管理
-- 发布时间：2016/8/26 15:48:00
--
参考
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:目录树形式的授权.foxdb |
-- 发布时间：2016/8/26 16:37:00
--
大红袍老师，请问如何在按钮中设置将相同角色的授权集合同步更新到用户表的授权集合中去呢2
此主题相关图片如下：006.png
此主题相关图片如下：005.png