主题：[讨论]从导航栏开始学习权限管理

你....完全没看我楼上19楼的代码吗???????????????????????????????????

.

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

点击浏览该文件:权限管理 (1) (1).table

找错：

For Each tp As WinForm.TopicPage In e.Form.Controls("TopicBar1").TopicPage
应为：For Each tp As WinForm.TopicPage In e.Form.Controls("TopicBar1").Page

另多字段需加以下代码：

For Each s As String In dr("Links").split(",")
                For Each lk As WinForm.TopicLink In tp.Links
                    If lk.Text= s Then
                        lk.Visible=True

 

完整代码：

For Each tp As WinForm.TopicPage In e.Form.Controls("TopicBar1").Pages
    tp.Visible=False
    For Each lk As WinForm.TopicLink In tp.Links
        lk.Visible=False
    Next
   
Next
For Each dr As DataRow In DataTables("任务权限").Select("可见 = '" & User.name & "' or 可见 like '" & User.name & ",*' or 可见 like '*," & User.name & ",*' Or 可见 like '*," & User.name & "'")
    For Each tp As WinForm.TopicPage In e.Form.Controls("TopicBar1").pages
        If tp.Text=dr("TopicPage") Then
            tp.Visible=True
            For Each s As String In dr("Links").split(",")
               
                For Each lk As WinForm.TopicLink In tp.Links
                    If lk.Text= s Then
                        lk.Visible=True
                    End If
                Next
            Next
        End If
    Next
Next

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

点击浏览该文件:权限管理 (2).table

表,导航栏,任务栏权限都有了,还缺菜单,中场休息先.

想改进代码,提示错误,试了几次,还是没能够将"elseif"搁在正确的位置.

For Each tp As WinForm.TopicPage In e.Form.Controls("TopicBar1").Pages
    tp.Visible=False
    For Each lk As WinForm.TopicLink In tp.Links
        lk.Visible=False
    Next
   
Next
For Each dr As DataRow In DataTables("任务权限").Select("可见 = '" & User.name & "' or 可见 like '" & User.name & ",*' or 可见 like '*," & User.name & ",*' Or 可见 like '*," & User.name & "'")
    For Each tp As WinForm.TopicPage In e.Form.Controls("TopicBar1").pages
        For Each lk As WinForm.TopicLink In tp.Links
            If dr.Isnull("TopicPage") AndAlso dr.Isnull("Links") Then   '如果权限表 TopicPage和Links为空值
                tp.Visible=True
                lk.Visible=True
            End If
        Next
    Else If dr.isnull("Links") Then
        Tables(dr("TopicPage")).Visible = True
       For Each c As WinForm.TopicLink In Tables(dr("TopicPage")).Links
            c.Visible = True
       
    Next
Else
    Tables(dr("TopicPage")).Visible = True
    For Each s As String In dr("Links").split(",")
       
        For Each lk As WinForm.TopicLink In tp.Links
            If lk.Text= s Then
                lk.Visible=True
            End If
        Next
    Next
End If
Next
Next

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

点击浏览该文件:权限管理 3.table

此主题相关图片如下：as.jpg

我建议你,先踏踏实实学习先.  或者直接找人有偿帮你开发算了.  整个项目都是我写的你这样.

http://www.foxtable.com/bbs/dispbbs.asp?boardid=23&Id=47083

看起来不错!视频能下吗?在网页上看太小,不太看得清楚.