Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]导航下的表


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

主题：[求助]导航下的表
帅哥哟，离线，有人找我吗？
Bin
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2013/5/28 14:50:00 [显示全部帖子]

你代码根本就是直接打开的,都没加权限控制肯定不可以啊,让你参考一下我发给你的那个例子,为什么就是不愿意呢?

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


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：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

权限控制代码在内部函数里.
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：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
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2013/5/28 16:46:00 [显示全部帖子]

一样的 代码放在点击导航链接事件中即可.

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