以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于数据源的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=135564)
--  作者：tuohai
--  发布时间：2019/5/29 14:44:00
--  关于数据源的问题
我使用的是阿里云服务器的sql sever数据库，希望把数据源保存在项目目录下。希望老师给个方案，本人很菜，请老师给个详细方案。
--  作者：有点甜
--  发布时间：2019/5/29 15:33:00
--  

 

不理解你的意思，为什么要把数据源保存在项目目录下？这样做的目的是什么？

 

 
--  作者：tuohai
--  发布时间：2019/5/30 10:43:00
--  
老师我是这么构想的 ，host.txt 和 host.txt 分别存储两个不同的数据源，麻烦老师帮忙看看，或者给个更好的意见。

BeforeConnectOuterDataSource


Dim h1 As String = e.ProjectPath & "host.txt"
Dim h2 As String = e.ProjectPath & "host2.txt"
If Filesys.FileExists(h1) Then
    Dim s1 As String = FileSys.ReadAllText(h1)
    If Filesys.FileExists(h2) Then
        Dim s2 As String = FileSys.ReadAllText(h2)
        If e.Name = "tuohai IT" Then
            If e.User.Group = "一店" Then
                e.ConnectionString = s1
                If e.User.Group = "二店" Then
                    e.ConnectionString = s2
                End If
            End If
        End If
    End If
End If
--  作者：有点甜
--  发布时间：2019/5/30 10:50:00
--  


Dim h1 As String = e.ProjectPath & "host.txt"
Dim h2 As String = e.ProjectPath & "host2.txt"

If e.Name = "tuohai IT" Then
    If e.User.Group = "一店" Then
        If Filesys.FileExists(h1) Then
            Dim s1 As String = FileSys.ReadAllText(h1)
            e.ConnectionString = s1
        Else
            msgbox("配置文件不存在")
        End If
    ElseIf e.User.Group = "二店" Then
        If Filesys.FileExists(h2) Then
            Dim s2 As String = FileSys.ReadAllText(h2)
            e.ConnectionString = s2
        Else
            msgbox("配置文件不存在")
        End If
    End If
End If

 
--  作者：tuohai
--  发布时间：2019/5/30 11:02:00
--  
老师这段代码好像没有执行，我把配置文件（host.txt，host2.txt）删了，也没有提示配置文件不存在。麻烦老师了！！
--  作者：有点甜
--  发布时间：2019/5/30 11:07:00
--  

Dim h1 As String = e.ProjectPath & "host.txt"
Dim h2 As String = e.ProjectPath & "host2.txt"

msgbox(e.name)

If e.Name = "tuohai IT" Then

msgbox(2)

msgbox(e.user.group)
    If e.User.Group = "一店" Then
        If Filesys.FileExists(h1) Then
            Dim s1 As String = FileSys.ReadAllText(h1)
            e.ConnectionString = s1
        Else
            msgbox("配置文件不存在")
        End If
    ElseIf e.User.Group = "二店" Then
        If Filesys.FileExists(h2) Then
            Dim s2 As String = FileSys.ReadAllText(h2)
            e.ConnectionString = s2
        Else
            msgbox("配置文件不存在")
        End If
    End If
End If
--  作者：tuohai
--  发布时间：2019/5/30 11:54:00
--  
老师，显示了数据源名称，显示了“2” ，后面的用户分组没有提示。
--  作者：有点甜
--  发布时间：2019/5/30 11:56:00
--  

e.user.group这个值，是内置的登陆窗口的用户才有用的

 

http://www.foxtable.com/webhelp/scr/0607.htm

 

如果是你自己做的登陆窗口，无法使用这个变量。
--  作者：tuohai
--  发布时间：2019/5/30 12:00:00
--  
我用的就是内置登录窗口。
--  作者：有点甜
--  发布时间：2019/5/30 12:01:00
--  

那这个弹出什么？

 

msgbox(e.user.group)

 

你给用户设置的分组是什么？