主题：分享：目录树权限管理示例

狐爸我提议把权限管理这一块直接加到狐表里面好了

用户管理和权限管理相结合

新建多少用户，多少张表、表内的列，新建了多少窗口，窗口中的每个控件，权限表自动更新。做好项目之后权限管理这一块就不用问了，可以直接让客户在权限管理窗口中直接设置权限了。

这其实是偷懒

不过咱们狐表的初衷就是在偷懒的基础上做出色的产品

foxtable已经有分组和角色功能了，特别是角色功能，不就是打勾就行了吗？

可以试试看，你是否给一个图样？

初步的想法：如是多人，是否可以加一个用户组列？然后对同一个组的多个人进行设置

此主题相关图片如下：qq截图20110825160125.png

看楼上的东东，头都晕了，呵

不好意思，杨老师是我写的不明确吗

我是初学者还望见谅

感觉一楼的项目存在一些设计上的问题。

比如每次都清空表，再生成，好像没这个必要，理由，用户表的列是固定的，没必要动态生成。

再则，这样会造成闪屏，感觉不舒服。

 

另外目录树控件的AfterCheckNode事件代码好像优化空间非常大。

一家之言，杨版莫怪。

我到倾向于狐爸的可视化授权

改了一下。

 

ComboBox1控件SelectedIndexChanged事件代码

 

If e.Sender.Value = "" Then
    Return
End If

Dim dr As DataRow = DataTables("用户").Find("用户名 = '" & e.Sender.Value & "'")
If dr IsNot Nothing Then
    For Each dr1 As DataRow In DataTables("权限管理").DataRows
        dr1("A") = dr(dr1("权限细目").Replace("\","_"))
    Next
End If

Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
tr.CreateTree("权限管理","权限细目","\","","_Identify")
For Each nd As WinForm.TreeNode In tr.AllNodes
    For Each dr2 As Row In Tables("权限管理").Rows
        Dim Parts() As String = dr2("权限细目").Split("\")
        If nd.Text = Parts(1) And dr2("A") = True Then
            nd.Checked = True
        End If
    Next
Next
tr.ExpandAll()

 

TreeView1控件，AfterCheckNode事件代码：

 

e.Form.StopRedraw()
Dim r As DataRow = DataTables("用户").Find("用户名 = '" & e.Form.Controls("ComboBox1").Value & "'")
If r IsNot Nothing Then
    r(e.Node.FullPath.Replace("\","_")) = e.Node.Checked
End If
e.Form.ResumeRedraw()
 

项目在这：

 

 

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

点击浏览该文件:管理项目1.table

谢谢ＣＺＹ版主，呵！好好研究一下.