AfterOpenProject:
'动态设置数据源,必须放在全局代码设置之后
Dim jieguo As String = Functions.Execute("动态设置数据源")
If jieguo <> "可以使用" Then '不知为何不加此判断会出错
Syscmd.Project.Exit()
Return '这个要加上,因为既然要退出,就不应该再执行后面的初始化代码了,否则会出错
End If
Functions.Execute("动态设置数据源"):
Dim txt As String = "Provider=SQLOLEDB.1;Password={0};Persist Security Info=True;User ID={1};Initial Catalog={2};Data Source={3},{4}"
txt = CExp(txt,_sqlmima,_sqlyonghuming,_sqlmingcheng,_sqldizhi,_sqlduankou)
If Connections.TryConnect(txt) = False Then '测试新的数据源是否可以连通
MessageBox.Show("数据源无法连通!")
Return "禁止使用"
End If
If Connections.Contains("yaoqing") Then '因为不允许设置zhiyou,因此虚构一个yaoqing
Connections.Delete("yaoqing")
End If
Connections.Add("yaoqing",txt)
'将zhiyou中的表转向yaoqing
Dim lst As List(Of String)
lst = Connections("zhiyou").GetTableNames
For Each nm As String In lst
If DataTables.Contains(nm) '数据库中的表未必都在系统中
DataTables(nm).ChangeConnection("yaoqing")
End If
Next
Return "可以使用"
加好友 
发短信
Post By：2020/3/10 9:05:00 [只看该作者]
此主题相关图片如下：111.png
