主题：然后在BeforeConnectOuterDataSource事件中加入下面的代码：

然后在BeforeConnectOuterDataSource事件中加入下面的代码：

If e.name = "连接名称" Then
    e.C & e.ProjectPath & e.User.ExtendedValues("数据库") & ".mdb;Persist Security Info=False"
End if

 

启动打开 是对的，在系统中切换用户，还是原来的数据源 ，没有变化

 

切换用户,不会触发这个事件.   你希望切换用户也切换数据源,就麻烦了.  简单点直接不让切换要重新登录吧.

做个切换按钮是可以的，点击它 原来的界面还存在， 直至跳出用户登录还在

 你直接执行这句代码，没有达到预期效果么？切换用户，就相当于你要重新打开一次项目

 

Syscmd.Project.Open(ProjectFile)

目标是达到的 切换时原来的界面还在

 

 上个帖子叫你隐藏界面了啊

隐藏界面后 进去后就不见了

没有界面了 哈哈

 

 隐藏之后，你再显示不就好了？

在

AfterOpenProject

加了basemainform.visible=True   屏幕就是闪了几下的 不好看