以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  不同用户打开不同的导航窗口  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=178664)
--  作者：爱相随
--  发布时间：2022/7/14 11:05:00
--  不同用户打开不同的导航窗口
老师，我设计了不同权限的导航窗口，当不同权限的用户登录时，打开对应授权的导航窗口，请麻烦老师指点一下，在哪些事件编辑什么样的代码，谢谢老师。
--  作者：cd_tdh
--  发布时间：2022/7/14 11:21:00
--  
为什么要设计不同权限的导航窗口，一个导航窗口，不用的用户登录，加载不同的导航就行了啊。
--  作者：爱相随
--  发布时间：2022/7/14 11:27:00
--  
这样用户看起美观一些。同一个导航，设计不同用户可以打开不同节点的内容，但不相关的内容仍然会出现在导航窗口里。如果同一个导航窗口，不同权限的人登录，不涉及的权限内容如果能自动隐藏那也是可以的。
--  作者：有点蓝
--  发布时间：2022/7/14 11:55:00
--  
查询权限，获取有权限的窗口打开

AfterOpenProject事件

dim dr as datarow = datatabls("权限").find("类型=\'导航\' and 用户=‘" & user.name & "’")
if dr isnot nothing then
forms(dr("窗口名称")).open
end if
--  作者：swagger
--  发布时间：2022/7/14 15:30:00
--  
在登录窗口就可以

Select Case _username 
Case "a" ,"b"
If DataTables.Contains("maintable1") = False Then 
    DataTables.Load("maintable1")
End If

If MainTable.Name = "maintable1" Then
Forms("...").Open()
End If

case "c","d"
...
end if