TopicBar角色权限 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → TopicBar角色权限

共有1922人关注过本帖树形打印复制链接主题：TopicBar角色权限

yifan3429

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2482 积分：22932 威望：0 精华：0 注册：2011/3/29 17:14:00

TopicBar角色权限 发帖心情

Post By：2017/12/28 14:42:00 [只看该作者]

管理员可以见到全部

录入员和检查员可以看到增加，修改

跟单员可以看到移动，增加主页等

三个角色权限不一样

下面的代码怎么控制

Select Case e.Link.Name

Case "增加"
'在此加入相应的代码

Case "修改"
'在此加入相应的代码
Case "移动"
'在此加入相应的代码
Case "删除"
'在此加入相应的代码
Case "主页"
'在此加入相应的代码
End Select
'MessageBox.Show(e.Page.Name & "|" & e.Link.Name)

[此贴子已经被作者于2017/12/28 14:41:49编辑过]

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/12/28 14:56:00 [只看该作者]

窗口AfterLoad事件，参考代码

Dim p = Forms("窗口1").Controls("TopicBar1").Pages(0)

If user.Roles = "跟单员" Then
    Dim tl1 As WinForm.TopicLink
    tl1 = p.Links("增加")
    tl1.Visible = True
    tl1 = p.Links("删除")
    tl1.Visible = False
ElseIf user.Roles = "录入员" OrElse user.roles = "检查员" Then
    Dim tl1 As WinForm.TopicLink
    tl1 = p.Links("增加")
    tl1.Visible = False
    tl1 = p.Links("删除")
    tl1.Visible = False
End If

下一主题 >> << 上一主题

主题：TopicBar角色权限