以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  如何一个系统，登陆时，不同客户通过机构代码实现链接不同数据库  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=189683)

--  作者：weibu --  发布时间：2023/12/17 20:24:00 --  如何一个系统，登陆时，不同客户通过机构代码实现链接不同数据库 如何一个系统，登陆时，不同客户通过机构代码实现链接不同数据库？ 老师我现在自己建立的登陆窗口，加载时都要卸载和重新装载表，这样去更换数据源。导致登陆很慢，并且网络有不稳定，报错概率很大。 老师，能否实现客户端登陆一次后保存此次登陆的数据链接字符串。 下次直接登陆了

--  作者：有点蓝 --  发布时间：2023/12/17 20:26:00 --   把登录后的链接字符串保存到一个文本文件里。每次登录前先读取这个文本文件有没有链接字符串，如果有就直接使用，没有再让用户选择

--  作者：weibu --  发布时间：2023/12/17 22:24:00 --   老师我在BeforeConnectOuterDataSource写的如下代码，并建立了对应的文本文件，建立文本是也做了对应加密处理，为啥登陆后还是链接的老的数据源， Dim ipFile As String = e.ProjectPath & "project\\CplicationPathlog.txt" If e.Name = "olddate" Then     If Filesys.FileExists(ipFile) Then         Dim Val As String = FileSys.ReadAllText(ipFile)         Dim ip As String = DecryptText(Val, "y14", "ww#") \'解密         e.ConnectionString = ip         MessageBox.Show(ip)   \'而且打开发布后的软件并未弹出消息     End If End If

--  作者：有点蓝 --  发布时间：2023/12/17 22:29:00 --   调试 Dim ipFile As String = e.ProjectPath & "project\\CplicationPathlog.txt" msgbox(e.Name) ‘数据源名称正确吗 If e.Name = "olddate" Then     If Filesys.FileExists(ipFile) Then msgbox(1) \'能不能弹出         Dim Val As String = FileSys.ReadAllText(ipFile) msgbox(Val )         Dim ip As String = DecryptText(Val, "y14", "ww#") \'解密         e.ConnectionString = ip         MessageBox.Show(ip)   \'而且打开发布后的软件并未弹出消息     End If End If

--  作者：weibu --  发布时间：2023/12/17 22:37:00 --   老师数据源名称确认无误，  msgbox(1) \'不能弹出

--  作者：有点蓝 --  发布时间：2023/12/17 22:40:00 --   Dim ipFile As String = e.ProjectPath & "project\\CplicationPathlog.txt" 改为 Dim ipFile As String = e.ProjectPath & "CplicationPathlog.txt"

--  作者：weibu --  发布时间：2023/12/17 22:49:00 --   可以了，谢谢老师