以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  然后在BeforeConnectOuterDataSource事件中加入下面的代码:  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=60411)

--  作者:jswjyjf
--  发布时间:2014/11/24 15:37:00
--  然后在BeforeConnectOuterDataSource事件中加入下面的代码:

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

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

 

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

 


--  作者:Bin
--  发布时间:2014/11/24 15:39:00
--  
切换用户,不会触发这个事件.   你希望切换用户也切换数据源,就麻烦了.  简单点直接不让切换要重新登录吧.

做个切换用户按钮, 代码为 Syscmd.Project.Open("项目文件路径")

--  作者:jswjyjf
--  发布时间:2014/11/24 15:44:00
--  

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


--  作者:有点甜
--  发布时间:2014/11/24 15:48:00
--  

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

 

Syscmd.Project.Open(ProjectFile)


--  作者:jswjyjf
--  发布时间:2014/11/24 15:50:00
--  

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

 


--  作者:有点甜
--  发布时间:2014/11/24 15:52:00
--  
 上个帖子叫你隐藏界面了啊
--  作者:jswjyjf
--  发布时间:2014/11/24 15:56:00
--  

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

没有界面了 哈哈

 


--  作者:有点甜
--  发布时间:2014/11/24 16:01:00
--  
 隐藏之后,你再显示不就好了?
--  作者:jswjyjf
--  发布时间:2014/11/24 16:04:00
--  

AfterOpenProject

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