Foxtable(狐表) → 用户栏目 → 专家坐堂 → 不同用户看到不同的表问题


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

主题：不同用户看到不同的表问题
帅哥哟，离线，有人找我吗？
冰是睡着的水
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：24 积分：272 威望：0 精华：0 注册：2019/10/6 11:19:00 		不同用户看到不同的表问题  发帖心情 Post By：2019/10/21 12:28:00 [只看该作者]

老师，我设置了不同用户登录项目看到不同表， 但是在左侧共有窗口那还是能看到表，怎么办。

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


加好友 发短信
等级：超级版主 帖子：105965 积分：538900 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/10/21 14:00:00 [只看该作者]

怎么设置的？写了什么代码？左侧共有窗口的表格又是怎么设置的？截图说明一下

 回到顶部
帅哥哟，离线，有人找我吗？
冰是睡着的水
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：24 积分：272 威望：0 精华：0 注册：2019/10/6 11:19:00 		  发帖心情 Post By：2019/10/22 9:46:00 [只看该作者]

老师，你看我这个图，就是代码设置了张三看不到园林固废配方表，但是在用张三登录进去在共有窗口那还能看到，点击之后也会显示表
图片点击可在新窗口打开查看此主题相关图片如下：4.jpg
图片点击可在新窗口打开查看

[此贴子已经被作者于2019/10/22 9:47:55编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：105965 积分：538900 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/10/22 9:49:00 [只看该作者]

左侧共有窗口的表名称是怎么添加上去的？在添加的时候，查询权限，只添加有权限的表名称，或者把没有权限的表名称隐藏掉

 回到顶部
帅哥哟，离线，有人找我吗？
冰是睡着的水
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：24 积分：272 威望：0 精华：0 注册：2019/10/6 11:19:00 		  发帖心情 Post By：2019/10/22 9:58:00 [只看该作者]

是在窗口设计器设置事件代码吗
图片点击可在新窗口打开查看此主题相关图片如下：5.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47448 积分：251048 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2019/10/22 10:01:00 [只看该作者]

至少应该贴贴出相关代码吧？ 
还有既然共有窗口的表名是自己加进去的，那么应该很简单就能实现啊：

if  有权限 Then
   加上配方表的条目
End if
 回到顶部
帅哥哟，离线，有人找我吗？
冰是睡着的水
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：24 积分：272 威望：0 精华：0 注册：2019/10/6 11:19:00 		  发帖心情 Post By：2019/10/22 10:27:00 [只看该作者]

谢谢老师了

 回到顶部
帅哥哟，离线，有人找我吗？
冰是睡着的水
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：24 积分：272 威望：0 精华：0 注册：2019/10/6 11:19:00 		  发帖心情 Post By：2019/10/22 20:13:00 [只看该作者]

老师，比如我现在想让张三登录只能看到园林固废配方表，在项目事件AfterOpenProject中设置了如下代码：

Select Case User.Name
    Case "张三"
        Tables("园林固废配方表").Visible = False
        
End Select

但是我那个共有窗口中的任务栏里面没有变化，那个AfterLoad中不知道怎么写权限代码，希望老师能帮我详细解答一下，谢谢了。

以下代码是在AfterLoad中写的任务栏窗口

Dim tpb As WinForm.TopicBar = e.Form.Controls("TopicBar1")
With tpb.Pages
    .Add("项目配方", "项目配方", "00022.ico").Collapsed = True
    .Add("配方数据", "配方数据", "09154.ico").Collapsed = True
    .Add("日志文件", "日志文件", "09148.ico").Collapsed = True
End With
With tpb.Pages("项目配方").Links
    .Add("园林固废配方表", "园林固废配方表","01773.ico")
    .Add("建筑垃圾配方表", "建筑垃圾配方表","01773.ico")
    .Add("鄂尔多斯砂配方表", "鄂尔多斯砂配方表","01773.ico")
    .Add("海砂配方表", "海砂配方表","01773.ico")
    .Add("风积砂配方表", "风积砂配方表","01773.ico")
    .Add("乐亭砂配方表", "乐亭砂配方表","01773.ico")
    .Add("泉州砂配方表", "泉州砂配方表","01773.ico")
    .Add("铅锌矿配方表", "铅锌矿配方表","01773.ico")
    .Add("铜尾矿配方表", "铜尾矿配方表","01773.ico")
    .Add("金尾矿配方表", "金尾矿配方表","01773.ico")
    .Add("铁尾矿配方表", "铁尾矿配方表","01773.ico")
    .Add("铬渣配方表", "铬渣配方表","01773.ico")
    .Add("碳铬渣配方表", "碳铬渣配方表","01773.ico")
    .Add("碱渣配方表", "碱渣配方表","01773.ico")
    .Add("广丰泥配方表", "广丰泥配方表","01773.ico")
    .Add("硼泥配方表", "硼泥配方表","01773.ico")
    .Add("赤泥配方表", "赤泥配方表","01773.ico")
    .Add("污泥配方表", "污泥配方表","01773.ico")
 
End With
With tpb.Pages("配方数据").Links
    .Add("园林固废数据表", "园林固废数据表","01774.ico")
    .Add("建筑垃圾数据表", "建筑垃圾数据表","01774.ico")
    .Add("鄂尔多斯砂数据表", "鄂尔多斯砂数据表","01774.ico")
    .Add("海砂数据表", "海砂数据表","01774.ico")
    .Add("风积砂数据表", "风积砂数据表","01774.ico")
    .Add("乐亭砂数据表", "乐亭砂数据表","01774.ico")
    .Add("泉州砂数据表", "泉州砂数据表","01774.ico")
    .Add("铅锌矿数据表", "铅锌矿数据表","01774.ico")
    .Add("铜尾矿数据表", "铜尾矿数据表","01774.ico")
    .Add("金尾矿数据表", "金尾矿数据表","01774.ico")
    .Add("铁尾矿数据表", "铁尾矿数据表","01774.ico")
    .Add("铬渣数据表", "铬渣数据表","01774.ico")
    .Add("碳铬渣数据表", "碳铬渣数据表","01774.ico")
    .Add("碱渣数据表", "碱渣数据表","01774.ico")
    .Add("广丰泥数据表", "广丰泥数据表","01774.ico")
    .Add("硼泥数据表", "硼泥数据表","01774.ico")
    .Add("赤泥数据表", "赤泥数据表","01774.ico")
    .Add("污泥数据表", "污泥数据表","01774.ico")
 
End With

With tpb.Pages("日志文件").Links
    .Add("日志文件表", "日志文件表","01676.ico")
End With
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：105965 积分：538900 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/10/22 20:19:00 [只看该作者]

Select Case User.Name
    Case "张三"
With tpb.Pages("项目配方").Links
    .Add("园林固废配方表", "园林固废配方表","01773.ico")
End With
    Case "李四"
With tpb.Pages("项目配方").Links
    .Add("建筑垃圾配方表", "建筑垃圾配方表","01773.ico")
End With
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
冰是睡着的水
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：24 积分：272 威望：0 精华：0 注册：2019/10/6 11:19:00 		  发帖心情 Post By：2019/10/23 9:22:00 [只看该作者]

谢谢老师，你这么一说我就懂了

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 4 次数据查询