Foxtable(狐表)用户栏目专家坐堂 → 在项目起动后,如何动态修改数据源设置?


  共有11598人关注过本帖树形打印复制链接

主题:在项目起动后,如何动态修改数据源设置?

帅哥哟,离线,有人找我吗?
baoxyang
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3313 积分:23134 威望:0 精华:1 注册:2009/3/31 11:25:00
在项目起动后,如何动态修改数据源设置?  发帖心情 Post By:2012/10/29 17:46:00 [显示全部帖子]

 

dim ip as string 变量为数据源连接字符串

 If Connections.Contains("baox") = True Then
        If Connections.TryConnect(ip) Then
            Connections.Delete("baox")
            Connections.Add("baox",ip)
        End If
End If
但会出现提示为数据库已在使用,更改不了.请教这个应如何处理?先谢了!!


 回到顶部
帅哥哟,离线,有人找我吗?
baoxyang
  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3313 积分:23134 威望:0 精华:1 注册:2009/3/31 11:25:00
  发帖心情 Post By:2012/10/29 20:37:00 [显示全部帖子]

这样不行,因为弹出不设置窗口呀.

 回到顶部
帅哥哟,离线,有人找我吗?
baoxyang
  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3313 积分:23134 威望:0 精华:1 注册:2009/3/31 11:25:00
  发帖心情 Post By:2012/10/30 10:25:00 [显示全部帖子]

如何实现项目起动后,修改数据源设置,比如IP地址等.不需要重新启动项目.

因为我这边发布的项目登陆时需要选择内网登陆还是外网登陆.


 回到顶部
帅哥哟,离线,有人找我吗?
baoxyang
  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3313 积分:23134 威望:0 精华:1 注册:2009/3/31 11:25:00
  发帖心情 Post By:2012/10/30 12:47:00 [显示全部帖子]

出现用户管理窗口,默认已经有两个用户,分别是开发者和管理员:

图片点击可在新窗口打开查看

 

可否实现,项目登陆时弹出的用户登陆时,开发者及管理者不显示出来,只显示新增的用户呢?

[此贴子已经被作者于2012-10-30 12:48:01编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
baoxyang
  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3313 积分:23134 威望:0 精华:1 注册:2009/3/31 11:25:00
  发帖心情 Post By:2012/10/30 12:50:00 [显示全部帖子]

以下是引用lin_hailun在2012-10-30 10:39:00的发言:
 当你的项目登录窗口出现的时候,项目的数据已经生成,此时你修改数据源,也无法重新加载该数据源的数据。

 所以,你只能重新打开项目……

 或者,自己重新把外部表加载一次吧。

------------------------------------------------------------

 或者你的登录窗口与狐表分开,自己写一个登录窗口程序,然后传递参数打开狐表项目。
[此贴子已经被作者于2012-10-30 10:41:09编辑过]

或者你的登录窗口与狐表分开,自己写一个登录窗口程序,然后传递参数打开狐表项目。
这个是一个好的方法,关键登录窗口与狐表分开,这个如何实现呢?


 回到顶部
帅哥哟,离线,有人找我吗?
baoxyang
  6楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3313 积分:23134 威望:0 精华:1 注册:2009/3/31 11:25:00
  发帖心情 Post By:2012/10/30 16:45:00 [显示全部帖子]

BeforeConnectOuterDataSource

Dim ip1 As String = openFileargs(0)
Dim ip2 As String = openFileargs(1)
If e.name = "baox" Then
    e.ConnectionString = ip1
End If
If e.name = "buchang" Then
    e.ConnectionString = ip2
End If

来实现第二项目传递是否使用内网及外网登陆来处理的.

但是这样一来存在一个问题就是,第二项目是主要项目,修改代码及发布时就存在问题了.

有何解决办法?


 回到顶部
帅哥哟,离线,有人找我吗?
baoxyang
  7楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3313 积分:23134 威望:0 精华:1 注册:2009/3/31 11:25:00
  发帖心情 Post By:2012/10/30 17:05:00 [显示全部帖子]

Dim ip1 As String = openFileargs(0)
Dim ip2 As String = openFileargs(1)
这两个变量是传递值,但修改主项目代码时或发布这个项目,这个传递值是未知变量了.

 回到顶部
帅哥哟,离线,有人找我吗?
baoxyang
  8楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3313 积分:23134 威望:0 精华:1 注册:2009/3/31 11:25:00
  发帖心情 Post By:2012/10/30 17:10:00 [显示全部帖子]

图片点击可在新窗口打开查看
弹出这个用户登陆时,可否指定用户名,希望不出现开发者及管理者呢?这个应当如何实现?
而且扩展属性中值可以设置显示默认值,目前是为空的.
建议发布的项目中不存在开发者及管理员,只存在新增的用户名.
[此贴子已经被作者于2012-10-30 17:22:20编辑过]

 回到顶部