以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  可视化授权中直接登录自己设计的用户登录窗口  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=78830)

--  作者:woshilele
--  发布时间:2015/12/18 1:08:00
--  可视化授权中直接登录自己设计的用户登录窗口

可视化授权中能否直接登录自己设计的登录窗口,跳过系统自身用户登录窗口呢?现在需要登录两次,一次是系统的,一次是自己的窗口。


--  作者:Hyphen
--  发布时间:2015/12/18 8:24:00
--  

参考http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=71697

 


--  作者:woshilele
--  发布时间:2015/12/18 8:38:00
--  内置用户登录能跳过,可视化授权不起作用

内置用户登录已经能跳过了,但是可视化授权不起作用呀。

代码:

然后项目事件LoadUserSetting中,加入如下代码:

 

For Each t As Table In Tables
    t.Visible =
True
    t.AllowEdit =
true
    For Each c As Col In t.Cols
        c.Visible =
True
        c.AllowEdit =
True
    Next

Next
Tables
("表").Visible = (User.Type <> UserTypeEnum.User )
If
User.Type = UserTypeEnum.User Then
    For Each dr As DataRow In DataTables("表").Select("用户名 = \'" & User.Name & "\'" )
        If
dr.IsNull("列名")
Then
       
    Tables(dr("表名")).Visible = Not dr("不见")
            Tables
(dr("表名")).AllowEdit = Not dr("不编辑")

        Else
           
Tables(dr("表名")).Cols(dr("列名")).Visible = Not dr("不见")
            Tables
(dr("表名")).Cols(dr("列名")).AllowEdit = Not dr("不编辑")
        End
If
    Next
End
If

 

将user.name改为_username,也不起作用,为啥呀


--  作者:Hyphen
--  发布时间:2015/12/18 8:58:00
--  
自定义用户肯定用不了User.Name ,_username登录后赋值了没有
--  作者:大红袍
--  发布时间:2015/12/18 9:20:00
--  

代码写到你的登陆按钮里面,不会触发 LoadUserSetting 的。