专家坐堂-借用程版的完美的同步操作目录树的角色授权Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  借用程版的完美的同步操作目录树的角色授权  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=67658)

--  作者：blsu33
--  发布时间：2015/4/28 15:56:00
--  借用程版的完美的同步操作目录树的角色授权
BIN，老师，
根据程版的 http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=42004，想要达到对角色的授权，下列代码，没有给角色列赋值
问题是下面黄色部分代码有问题，老师这个怎么弄。
“”
Dim nd,nd1 As WinForm.TreeNode
nd = e.node
If nd.Nodes.Count > 0
For Each nd1 In nd.AllNodes
nd1.Checked = nd.Checked
Next
End If
If e.node.Checked = False
Do While nd.parentnode IsNot Nothing
nd = nd.parentnode
If nd.Nodes.Count > 0
For i As Integer = 0 To nd.Nodes.Count -1
If nd.Nodes(i).Checked = True
Exit Do
End If
If i = nd.Nodes.Count -1
nd.Checked = False
End If
Next
End If
Loop
Else
Do While nd.parentnode IsNot Nothing
nd = nd.parentnode
nd.Checked = True
Loop
End If

Dim tr3 As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nd3 As WinForm.TreeNode = tr3.SelectedNode
Dim tr2 As WinForm.TreeView = e.Form.Controls("TreeView2")
Dim nd2 As WinForm.TreeNode = tr2.SelectedNode
Dim dr As DataRow
Dim Vals() As String = ND2.FullPath.Split("\\")
Dim dals() As String ={"功能主模块","一级模块","二级模块","权限"}
For Each Val As String In Vals
For Each dal As String In dals
DataTables("权限管理").Select(dal=val AndAlso dr(" & dal & ") =Val)
If dr IsNot Nothing Then
If nd.Checked = True Then
dr("角色") = nd3.Text + "\\" + dr("角色")
Else
dr("角色") = dr("角色").Replace(nd3.Text,"")
End If
dr("角色") = dr("角色").Trim("\\")
End If
Next
Next

[此贴子已经被作者于2015/4/28 16:12:56编辑过]

--  作者：blsu33
--  发布时间：2015/4/28 17:25:00
--
老师，
能否给看看这个。

--  作者：狐狸爸爸
--  发布时间：2015/4/28 17:40:00
--

For i As Integer = 0 To vals.lengrh - 1
        dr = DataTables("权限管理").Find(dals(i) & " = \'" & vals(i) "\'")
        If dr IsNot Nothing Then
            If nd.Checked = True Then
                dr("角色") = nd3.Text + "\\" + dr("角色")
            Else
                dr("角色") = dr("角色").Replace(nd3.Text,"")
            End If
            dr("角色") = dr("角色").Trim("\\")
        End If
    Next
Next

--  作者：blsu33
--  发布时间：2015/4/28 23:28:00
--

感谢狐爸，

代码正确，但是没有实现目标，希望右面的目录树选定部分，对应行的角色列全部被赋值，我做了太多的版本。都不正确，烦您在给看看。

下载信息  [文件大小：   下载次数： ]
点击浏览该文件:角色.foxdb

--  作者：程兴刚
--  发布时间：2015/4/29 0:05:00
--
您这样做授权，会累坏您的诸多脑细胞，文件结构不合理，导致您编写授权很麻烦，您进行角色管理时，首先要给角色授权，然后才是考虑给某个人员或职务授权，给职务或人员进行一个角色授权时，实际是将某个角色的所有权限调入到授权表，授权表和角色管理表结构大致相同，唯一不同的是角色名称变成了人员信息，这样才可以方便灵活地给某个人进行多个角色授权，或者增加或取消部分权限，狐表有单列目录树功能，何必搞这么多级别列？

--  作者：程兴刚
--  发布时间：2015/4/29 0:35:00
--

采用单列目录树。可以很方便地找到上级部门或本部门所有人员，在这里巧用：like （这一点我曾经在论坛提到过），结合狐表的单列目录树功能，非常方便地管理用户！

比如：人员信息列：

总公司\\工程部\\0001 张部长

总公司\\工程部\\0002 王会计

总公司\\财务部\\0003 李部长

总公司\\北京分公司\\第一项目部\\1001 张三

总公司\\北京分公司\\第一项目部\\1002 李四

总公司\\北京分公司\\第一项目部\\1003 王五

总公司\\北京分公司\\第二项目部\\2001 赵六

上述值通过人员添加或者目录树直接写入人员信息列即可，只要有一定的规则即可

查找某个人员：

datatables("用户管理"）.find("人员信息 like \'*1003 王五\'")

获取人员”李四“的上级部门：

dim s as string = "总公司\\北京分公司\\第一项目部\\1002 李四"

s = s.Replace("\\1002 李四","")  \'这里的s即为李四的上级部门

查找李四所属部门的全体人员：

dim s as string = "总公司\\北京分公司\\第一项目部\\1002 李四"

s = s.Replace("\\1002 李四","")  \'这里的s即为李四的上级部门

datatables("用户管理"）.Select("人员信息 like \'" & s & "*\'")

登录，在登录界面的确定按钮中，用代码将获得的用户名、用户ID、部门信息可以用全局变量保存，其他写代码需要引用的时候直接引用相应全局变量的值，避免授权工作中重复写代码，更换人员重新登录的时候，这些信息自然就改过来了！

角色管理和授权表也是如此，对权限管理尽可能采用多记录、而不是太多的列来管理，写代码就容易多了，个人心得，仅此分享！

--  作者：狐狸爸爸
--  发布时间：2015/4/29 8:48:00
--

我不太明白你的设计思路，你为什么不用帮助现成的例子，根据权限来选择用户：

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

这种形式的授权，你要完全自己重新设计的话，不仅代码功底要了得，而且业务逻辑也必须非常清晰。

以后帮助再加一个根据用户选择权限的例子算了。

--  作者：blsu33
--  发布时间：2015/4/29 9:31:00
--

多谢二位老师费心的讲解耐心的指导。

--  作者：程兴刚
--  发布时间：2015/4/29 9:43:00
--
我就是根据可视化授权例子改编的！