以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]根据授权表窗口名称,在菜单中设定打开窗口权限 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=91147) |
-- 作者:liuyixin662 -- 发布时间:2016/9/30 13:54:00 -- [求助]根据授权表窗口名称,在菜单中设定打开窗口权限 老师你好,如何根据授权表窗口名称,在菜单中设定打开窗口权限,麻烦老师改一下菜单的click事件: For Each dr As DataRow In DataTables("授权表").Select("\',\' + 用户名 + \',\' like \'%," & User.Name & ",%\'" )
For Each f As WinForm.Form In Forms If User.Name = dr("用户名") And f.Name = dr("窗口名") Then Forms("仓库资料").Open() Else If User.Name = dr("用户名") And f.Name <> dr("窗口名") Then Return End If End If Next Next |
-- 作者:有点蓝 -- 发布时间:2016/9/30 15:16:00 -- 不明白你的用法是怎么样的。一般都是一个菜单按钮对应一个窗口,直接控制菜单的权限就可以了 |
-- 作者:liuyixin662 -- 发布时间:2016/9/30 15:48:00 -- 菜单按钮对应的窗口名 ![]() ![]() |
-- 作者:liuyixin662 -- 发布时间:2016/9/30 16:12:00 -- 授权表 ![]() ![]() |
-- 作者:有点蓝 -- 发布时间:2016/9/30 16:41:00 -- 直接控制菜单http://www.foxtable.com/webhelp/scr/2438.htm |