Foxtable(狐表)用户栏目专家坐堂 → [求助]外部表存储用户信息能否登陆前切换?


  共有2148人关注过本帖树形打印复制链接

主题:[求助]外部表存储用户信息能否登陆前切换?

帅哥哟,离线,有人找我吗?
浙江仔
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1326 积分:9609 威望:0 精华:1 注册:2010/7/21 14:20:00
[求助]外部表存储用户信息能否登陆前切换?  发帖心情 Post By:2019/6/19 16:28:00 [显示全部帖子]

使用外部表存储用户信息,能在BeforeConnectOuterDataSource事件中,使用代码切换数据源(应该没问题)和数据表吗?
比如A条件,使用user1表,B条件,使用user2表?

图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
浙江仔
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1326 积分:9609 威望:0 精华:1 注册:2010/7/21 14:20:00
  发帖心情 Post By:2019/6/20 8:39:00 [显示全部帖子]

因为一直使用内部账号登录,很多地方都用到了user.group user.name等信息,也不想自己改造登陆窗口,最近考虑到使用范围,想区分区域,加载不同的user表,这样登陆名不至于显示太多

BeforeConnectOuterDataSource 写入一下代码,是可以通过连接不同的数据库,使用名称相同的user表,来实现不同区域账号的登陆(如下代码,可以实现)

但是这种情况,必须建立多个数据库(不同数据源),在各自的数据库下面使用同一张user表(表名需一致),这样可以加载不同区域的用户信息实现登陆。

有没有办法,可以使用同一数据源,在BeforeConnectOuterDataSource   中,使用代码选择不同的user表(使用同一数据源的user1表或user2表)?  

If FileSys.FileExists(ProjectPath & "config.xml") Then
    Dim xml As String=FileSys.ReadAllText(ProjectPath + "config.xml", Encoding.Default)
    Dim xo As XObject = XObject.Parse(xml)
    Dim DistrictCode As String =xo("DistrictCode").Tostring
    
    If e.name = "账号"  Then
        Select Case DistrictCode
            Case "330522"
                e.C
            Case Else
                e.Cfont-family: Verdana;">*.*.*.*"
        End Select
        
    End If
End If

 回到顶部