| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- 请问狐爸，菜单导航栏中的页面，默认为：可见但不可用，代码如何写，谢谢。 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=144686) |
|
| -- 作者：发哥 -- 发布时间：2019/12/27 9:21:00 -- 请问狐爸，菜单导航栏中的页面，默认为：可见但不可用，代码如何写，谢谢。 请问狐爸，菜单导航栏中的页面，默认为：可见但不可用，代码如何修改，谢谢。
举例 ： Dim topic As WinForm.TopicBar = Forms("导航栏").Controls("TopicBar1") \'希望默认全部是可见但不可用 topic.Pages("市场管理").Visible = True \' ........ End If [此贴子已经被作者于2019/12/27 9:28:17编辑过]
|
|
| -- 作者：有点蓝 -- 发布时间：2019/12/27 9:29:00 -- 这个只能设置看见，无法设置是否可用。 或者您在点击的时候才判断是否有权限，再执行操作的代码。 个人理解，不能用的东西就没有必要给用户看到。不然用户会闹心的
|
|
| -- 作者：发哥 -- 发布时间：2019/12/27 9:39:00 -- 也是，谢谢您，请教您； 2、根据客户权限，可见的菜单及其任务项，只加载对应的表，能不能在此处实现。 [此贴子已经被作者于2019/12/27 9:43:28编辑过]
|
|
| -- 作者：有点蓝 -- 发布时间：2019/12/27 9:53:00 -- 1、可以建一个权限表，存储哪些用户可以看哪些菜单，然后查询这个用户可以使用的菜单，动态创建菜单 2、可以设置为一开始全部不加载表，在点击菜单的时候再加载表，加载后再打开窗口
|
|
| -- 作者：发哥 -- 发布时间：2019/12/27 10:03:00 -- 谢谢您，谢谢您，权限表，我会些， 动态创建菜单，我不会。（不好意思，使用狐表已过十年，只是部门自用，这次是为全公司搞，要求把各部门所有的表项集中在一个项目里管理和查阅，头都大了）
您能不能给个案例，我学习一下 [此贴子已经被作者于2019/12/27 10:03:18编辑过]
|
|
| -- 作者：有点蓝 -- 发布时间：2019/12/27 10:29:00 -- 参考：http://www.foxtable.com/webhelp/topics/0842.htm、http://www.foxtable.com/webhelp/topics/0860.htm Dim tp As WinForm.TopicBar = Forms("窗口1").Controls("TopicBar1") For Each s As String In DataTables("权限表").GetValues("导航页","用户=\'" & user.Name & "\'") Dim p As WinForm.TopicPage = tp.Pages.Add(s,s) For Each s2 As String In DataTables("权限表").GetValues("导航链接","用户=\'" & user.Name & "\' and 导航页=\'" & s & "\'") p.Links.Add(s2,s2) Next Next |
|
| -- 作者：发哥 -- 发布时间：2019/12/27 15:59:00 -- 万分感谢，谢谢。 1、可以建一个权限表，存储哪些用户可以看哪些菜单，然后查询这个用户可以使用的菜单，动态创建菜单 这第一项我做出来。谢谢。
2、可以设置为一开始全部不加载表，在点击菜单的时候再加载表，加载后再打开窗口
这第二项，试着做，没做成，麻烦您，也帮我写一下案例。。。
万分感谢，万分感谢。
还有一点，我这项目里，肯定会超过100个表以上，用户（我是部门名建的第一项），也有近20个部门，以此类推，这权限表，要有成百上千行的，（想想头都大了，）请问蓝老师有无更好的方法。
|
|
| -- 作者：有点蓝 -- 发布时间：2019/12/27 16:13:00 -- 开始不加载表：http://www.foxtable.com/webhelp/topics/2752.htm 权限设置，可以参考一下：http://www.foxtable.com/webhelp/topics/2405.htm 或者 |