以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  动态加载表后目录树如何设计  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=121906)

--  作者:susu312
--  发布时间:2018/7/15 15:28:00
--  动态加载表后目录树如何设计

 

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

 

If _UserRole ="超级管理员" Then
    DataTables("person").LoadFilter = ""
    DataTables("organList").LoadFilter = ""
    DataTables("history").LoadFilter = ""
    DataTables("user").LoadFilter = ""
ElseIf _UserRole ="管理员" Then
    DataTables("person").LoadFilter = "organ = \'" & _UserOrgan & "\'"
    DataTables("organList").LoadFilter = "organName = \'" & _UserOrgan & "\'"
    DataTables("history").LoadFilter = "organ= \'" & _UserOrgan & "\'"
    DataTables("user").LoadFilter = "userOrgan = \'" & _UserOrgan & "\'"
ElseIf(_UserRole ="操作员")Then
    DataTables("person").LoadFilter = "organ = \'" & _UserOrgan & "\'"
    DataTables("organList").LoadFilter = "organName = \'" & _UserOrgan & "\'"
    DataTables("history").LoadFilter = "organ= \'" & _UserOrgan & "\'"
    DataTables("user").LoadFilter = "userOrgan = \'" & _UserOrgan & "\'"
Else
      Messagebox.show("当前用户角色为空!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

DataTables("person").Load()
DataTables("organList").Load()
DataTables("history").Load()
DataTables("user").Load()

 

上面是用户登录窗口确定按钮的代码,当选择西安分行的管理员后,单位表就只动态加载那一行,切换用户时,单位是下拉目录树为空?

 


--  作者:有点甜
--  发布时间:2018/7/15 15:45:00
--  

1、单位表,有必要动态加载么?如果需要正常使用的表格,数据都加载出来吧。

 

2、你可以用临时表处理,比如 http://www.foxtable.com/webhelp/scr/2054.htm

 


--  作者:susu312
--  发布时间:2018/7/15 16:24:00
--  

进行权限控制,本单位的管理员只能看到本单位的数据,包括干部信息,单位信息,用户信息

 

如果本单位管理员可以看到本单位和下级单位的数据,操作员只能看到本单位的数据?这咋设置


--  作者:有点甜
--  发布时间:2018/7/15 19:07:00
--  

你本来的数据是怎样的?某一个用户进入以后,你希望得到的数据是怎样的?

 

能否根据【机构编码】来设置加载条件?比如 "机构编码 Like \'abc123%\'"