Foxtable(狐表) → 用户栏目 → 专家坐堂 → 权限设计问题.


  共有3739人关注过本帖树形打印复制链接

主题：权限设计问题.
帅哥哟，离线，有人找我吗？
夜点蚊香
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：641 积分：4920 威望：0 精华：0 注册：2020/4/15 19:53:00 		权限设计问题.  发帖心情 Post By：2020/12/16 7:32:00 [显示全部帖子]

这个问题比较多,先问大神第一个问题.
1.如何在把导航窗口中 topicbar(任务栏)中的页面和任务生成带多选勾选框的导航树.
2.我想根据生成的导航树进行可见或者不可见的权限分配.
请指教.
[此贴子已经被作者于2020/12/16 7:42:01编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
夜点蚊香
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：641 积分：4920 威望：0 精华：0 注册：2020/4/15 19:53:00 		  发帖心情 Post By：2020/12/16 14:38:00 [显示全部帖子]

我试一下

 回到顶部
帅哥哟，离线，有人找我吗？
夜点蚊香
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：641 积分：4920 威望：0 精华：0 注册：2020/4/15 19:53:00 		求助,如何遍历Forms("导航").Controls("TopicBar1")  发帖心情 Post By：2020/12/18 7:16:00 [显示全部帖子]

If _username = "叶嘉程"
Forms("导航").Controls("TopicBar1").Pages("缴费管理").visible = True
End If
上面是大神给的代码

下面代码是想根据事先设置好的授权表,根据里面的内容进行权限分配.偏历导航栏怎么标识.请指教.
For Each t As Table In Tables
    t.Visible = True
    t.AllowEdit = True
    For Each c As Col In t.Cols
        c.Visible = True
        c.AllowEdit = True
    Next
Next
Forms("导航").Controls("TopicBar1").Pages("授权表").Visible = (User.Type <> UserTypeEnum.User )
If User.Type = UserTypeEnum.User Then
    For Each dr As DataRow In DataTables("授权表").Select("用户组 = '" & _UserGroup & "'" )
            Forms("导航").Controls("TopicBar1").Pages(dr("表名")).Visible = Not dr("不可见")
    Next
End If
 回到顶部
帅哥哟，离线，有人找我吗？
夜点蚊香
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：641 积分：4920 威望：0 精华：0 注册：2020/4/15 19:53:00 		帮忙看一下代码,报错  发帖心情 Post By：2020/12/18 9:06:00 [显示全部帖子]

下面代码报错,(无法将类型为“Foxtable.WinForm.TopicBar”的对象强制转换为类型“System.Collections.IEnumerable”。)

For Each c As Winform.Control In Forms("导航").Controls("TopicBar1")
   c.Visible = False
Next

Forms("导航").Controls("TopicBar1").Pages("授权表").Visible = (User.Type <> UserTypeEnum.User )
If User.Type = UserTypeEnum.User Then
    For Each dr As DataRow In DataTables("授权表").Select("用户组 = '" & _UserGroup & "'" )
            Forms("导航").Controls("TopicBar1").Pages(dr("表名")).Visible = Not dr("不可见")
    Next
End If
 回到顶部
帅哥哟，离线，有人找我吗？
夜点蚊香
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：641 积分：4920 威望：0 精华：0 注册：2020/4/15 19:53:00 		报错 未设置对象变量或 With 块变量。  发帖心情 Post By：2020/12/18 9:15:00 [显示全部帖子]

报错 未设置对象变量或 With 块变量。

 回到顶部
帅哥哟，离线，有人找我吗？
夜点蚊香
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：641 积分：4920 威望：0 精华：0 注册：2020/4/15 19:53:00 		MessageBox.Show(1) 报错  发帖心情 Post By：2020/12/18 9:32:00 [显示全部帖子]

For Each c As Winform.TopicPage In Forms("导航").Controls("TopicBar1").Pages
MessageBox.Show(11)
   c.Visible = True
MessageBox.Show(12)
Next
MessageBox.Show(1)
Forms("导航").Controls("TopicBar1").Pages("授权表").Visible = (User.Type <> UserTypeEnum.User )
MessageBox.Show(2)
If User.Type = UserTypeEnum.User Then
MessageBox.Show(3)
    For Each dr As DataRow In DataTables("授权表").Select("用户组 = '" & _UserGroup & "'" )
MessageBox.Show(4)
            Forms("导航").Controls("TopicBar1").Pages(dr("表名")).Visible = Not dr("不可见")
MessageBox.Show(5)
    Next
End If
 回到顶部
帅哥哟，离线，有人找我吗？
夜点蚊香
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：641 积分：4920 威望：0 精华：0 注册：2020/4/15 19:53:00 		报错问题找到了.现在权限显示问题,还是没有解决,  发帖心情 Post By：2020/12/18 9:54:00 [显示全部帖子]

代码如下
For Each c As Winform.TopicPage In Forms("导航").Controls("TopicBar1").Pages
    c.Visible = True
Next

'Forms("导航").Controls("TopicBar1").Pages("授权表").Visible = (User.Type <> UserTypeEnum.User )

If User.Type = UserTypeEnum.User Then
    For Each dr As DataRow In DataTables("授权表").Select("用户组 = '" & _UserGroup & "'" )
        If dr.IsNull("列名") Then
            Forms("导航").Controls("TopicBar1").Pages(dr("表名")).Visible = Not dr("不可见")
        End If
    Next
End If

在授权表里面 设置 用户组(_usergroup) 为 经理  表名 (结算管理) 不可见(打钩)

启动导航栏以后, 还是可以看到 结算管理
 回到顶部
帅哥哟，离线，有人找我吗？
夜点蚊香
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：641 积分：4920 威望：0 精华：0 注册：2020/4/15 19:53:00 		大神,这个代码用了,什么都弹出来  发帖心情 Post By：2020/12/18 10:51:00 [显示全部帖子]

大神,这个代码用了,没有对话框弹出来
[此贴子已经被作者于2020/12/18 10:51:08编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
夜点蚊香
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：641 积分：4920 威望：0 精华：0 注册：2020/4/15 19:53:00 		搞定了.找到原因了  发帖心情 Post By：2020/12/18 13:36:00 [显示全部帖子]

搞定了,找到原因了.谢谢大神指点.
[此贴子已经被作者于2020/12/18 13:40:52编辑过]
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05859 秒, 5 次数据查询