以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 有关授权的问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=56670) |
-- 作者:jswjyjf -- 发布时间:2014/9/10 16:20:00 -- 有关授权的问题 帮助中有个目录树授权案例,我看了后认为有点复杂,我自己简化了一下 数据库结构如下
只需在全局事件click 中,用户在数据库组能找到,就能执行下去,找不到就无权,不知道代码如何写,请狐爸帮个忙 |
-- 作者:Bin -- 发布时间:2014/9/10 16:26:00 -- 不明白你的意思. |
-- 作者:jswjyjf -- 发布时间:2014/9/10 16:27:00 -- 权限的问题,用户能找到自己就能继续下去,否则无权退出
|
-- 作者:有点甜 -- 发布时间:2014/9/10 16:28:00 -- 查找内容参考 http://www.foxtable.com/help/topics/0396.htm
|
-- 作者:jswjyjf -- 发布时间:2014/9/10 16:30:00 -- 我指的是判断user.name 是不是在用户里面 |
-- 作者:jswjyjf -- 发布时间:2014/9/10 16:36:00 -- 说的通俗点,就是判断某个字符串在不在用户字段内 |
-- 作者:有点甜 -- 发布时间:2014/9/10 16:38:00 -- If DataTables("表A").Find("用户 like \'%" & user.Name & "%\'") Is Nothing Then msgbox("不存在") End If |
-- 作者:jswjyjf -- 发布时间:2014/9/10 16:42:00 -- 有点理解错了,记录已经定位了,判断这个条件 |
-- 作者:有点甜 -- 发布时间:2014/9/10 16:46:00 -- 什么意思?看7楼。 |
-- 作者:有点甜 -- 发布时间:2014/9/10 16:47:00 -- 判断单元格的值,参考
If dr("用户") like "*" & user.Name & "*" Then Msgbox("存在") End If |