以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关于可视化授权的实现的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=16850)
--  作者：ido
--  发布时间：2012/2/25 14:50:00
--  关于可视化授权的实现的问题
我按帮助的设置了。自定义用户与权限管理

但我现在想用目录树把。自定义的用户读取出来。
要怎么实现呢。
除了把 User.Name User.Group
换成_UserName   _UserGroup

------
帮助里的：目录树形式的授权
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 Users
    If u.Type = UserTypeEnum.User Then
        If trv2.Nodes.Contains(u.Group) = False Then
            trv2.Nodes.Add(u.Group)
        End If
        trv2.Nodes(u.Group).Nodes.Add(u.Name)
    End If
Next
Trv1.Nodes(0).Expand()
trv2.ExpandAll()
----------------------
这个遍历要如何改才能指向外部数据源
[此贴子已经被作者于2012-2-25 14:53:33编辑过]
--  作者：blackzhu
--  发布时间：2012/2/25 15:12:00
--  
u.Group=_UserGroup  这样的修改方式
--  作者：ido
--  发布时间：2012/2/25 21:35:00
--  
还是不行。提示。。对象没载入。。。~~
--  作者：狐狸爸爸
--  发布时间：2012/2/26 8:40:00
--  

下面的代码是针对系统用户的:
 
For Each u As UserInfo In Users
   If u.Type = UserTypeEnum.User Then
            If trv2.Nodes.Contains(u.Group) = False Then
                 trv2.Nodes.Add(u.Group)
            End If
           trv2.Nodes(u.Group).Nodes.Add(u.Name)
    End if
next

 

你应该根据自己的用户表来生成目录树。

看看：

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


 
--  作者：ido
--  发布时间：2012/2/29 0:04:00
--  
接上面的问题，自定义用户的目录授权。

目录树的授权，的自定义函数一开头的地方，有必要修改吗

If User.Type <> UserTypeEnum.User Then \' 如果是开发者或者管理员
改 If _UserGroup  <> UserTypeEnum.User Then 
    Return True 

如果修改了,那开发者和管理员。也要自定义了？还是跟着系统走。不用改？
因为登陆的用户。不会涉及到开发者。？
[此贴子已经被作者于2012-2-29 0:04:11编辑过]
--  作者：狐狸爸爸
--  发布时间：2012/2/29 7:57:00
--  
这个没有定式的，一般来说使用自定义用户管理，会设置一个默认用户，而这个用户一般是普通用户，不会是开发者或管理员。