以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  有关授权的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=56670)

--  作者:jswjyjf
--  发布时间:2014/9/10 16:20:00
--  有关授权的问题

帮助中有个目录树授权案例,我看了后认为有点复杂,我自己简化了一下

数据库结构如下

 


图片点击可在新窗口打开查看此主题相关图片如下:qq图片20140910161801.jpg
图片点击可在新窗口打开查看

只需在全局事件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