- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]导航下的表 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=33986)
-- 发布时间：2013/5/28 12:01:00
-- [求助]导航下的表
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:目录树授权57.table |
导航下面的表 “学员管理” 想加个权限 让登录者打不开，一直没弄明白，求帮助
-- 发布时间：2013/5/28 14:11:00
--
是想让普通登录者打不开吧？
Case "学员管理"
If User.Type = UserTypeEnum.Administrator OrElse User.Type = UserTypeEnum.Developer Then
Forms("学员管理").Show()
MainTable = Tables("学员管理")
End If
-- 发布时间：2013/5/28 14:20:00
--
是呀 窗口已经加了权限 这个学员管理 表 如何加权限？
-- 发布时间：2013/5/28 14:50:00
--
你代码根本就是直接打开的,都没加权限控制肯定不可以啊,让你参考一下我发给你的那个例子,为什么就是不愿意呢?
-- 发布时间：2013/5/28 15:11:00
--
例子看好几遍了，就是打开表的地方 没看明白
-- 发布时间：2013/5/28 15:16:00
--
If User.Type <> UserTypeEnum.User Then \' 如果是开发者或者管理员
Return True \'则具备所有权限
End If
Dim dr As DataRow
dr = DataTables("权限表").Find("用户ID=\'" & User.Name & "\'And 模块名称 =\'" & Args(0) & "\' And 是否授权=True")
If dr IsNot Nothing Then
Return True
End If
MessageBox.Show("此模块你不存在操作权限!", "警告!", MessageBoxButtons.Ok, MessageBoxIcon.Warning)
Return False
权限控制代码在内部函数里.
-- 发布时间：2013/5/28 15:36:00
--
表如何调用这个函数？ 在那个事件里调用？
-- 发布时间：2013/5/28 15:40:00
--
以下是引用anxue在2013-5-28 15:36:00的发言：
表如何调用这个函数？ 在那个事件里调用？
表如何调用这个函数？ 在那个事件里调用？
例子中都有,你想放到点击按钮事件也可以.放到窗口加载事件也可以 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=32903&skin=0
-- 发布时间：2013/5/28 16:40:00
--
窗口权限都明白了，就是在导航上直接打开表的权限没弄明白，表的函数不会调用。
-- 发布时间：2013/5/28 16:46:00
--
一样的 代码放在点击导航链接事件中即可.