以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]机构权限设置  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=86443)

--  作者:cd_tdh
--  发布时间:2016/6/17 13:56:00
--  [求助]机构权限设置

1、我通过自定义窗口登录,登录信息包括:分公司名称、用户名、密码,并将相关信息保存在表“账号密码”表内。


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

2、所有数据表中都有“所属机构”列,列内的机构名称不一致。


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

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

怎么设置权限,可以做到每个分公司登录后,只能看到自己分公司的内容。




--  作者:大红袍
--  发布时间:2016/6/17 14:32:00
--  

 参考

 

http://www.foxtable.com/help/topics/2256.htm

 

 


--  作者:cd_tdh
--  发布时间:2016/6/17 15:11:00
--  

我用的自定义的登录窗口登录,这段代码怎么修改呢?

If User.Name = "张经理"  Then
    DataTables("表A").LoadFilter = ""
 Else
      DataTables("表A").LoadFilter = "业务员 = \'" & User.Name & "\'"
 End  If
 DataTables("表A").Load()


--  作者:大红袍
--  发布时间:2016/6/17 15:19:00
--  

登陆的时候,记录一下User的那一行吧

 

vars("当前用户") = dr \'dr是你登陆按钮里查找到的行

 

然后加载条件就可以写

 

DataTables("表A").LoadFilter = "所属机构 = \'" & vars("当前用户")("分公司名称") & "\'"


--  作者:cd_tdh
--  发布时间:2016/6/17 15:44:00
--  

不对,直接就进去不系统了,还是上传示例,请老师指点。

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:项目1.table


--  作者:大红袍
--  发布时间:2016/6/17 16:54:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:项目1.table


--  作者:cd_tdh
--  发布时间:2016/6/17 17:01:00
--  

大红袍老师,你发的和我发的一样呢?


--  作者:大红袍
--  发布时间:2016/6/17 19:06:00
--  
 已修改啊。
--  作者:cd_tdh
--  发布时间:2016/6/20 11:39:00
--  
大红袍老师,还是不对啊,我下载你修改后的,里面没修改。
--  作者:大红袍
--  发布时间:2016/6/20 11:41:00
--  

1、可以打开

 

2、可以加载啊