外部表情况下启动时让用户选择数据源之再思考！--已成型 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 外部表情况下启动时让用户选择数据源之再思考！--已成型

共有4685人关注过本帖树形打印复制链接主题：外部表情况下启动时让用户选择数据源之再思考！--已成型

jnletao

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：943 积分：7802 威望：0 精华：0 注册：2013/7/7 13:37:00

外部表情况下启动时让用户选择数据源之再思考！--已成型 发帖心情

Post By：2013/12/27 12:24:00 [只看该作者]

经测试 CreateObject("ADOX.Catalog") 语法在BeforeOpenProject里可用，具体MSSQL方式未测

思路，

1，在服务器端单独建立一个数据源如：ErpConfig，建表config

此表用于存放客户端启动时所用资料如可选数据库（测试，正式）

2，在BeforeOpenProject里结合全局代码生成的窗体的采用CreateObject("ADOX.Catalog") 语法调取数据，让用户选择，

选择后在本地生成文本文件如（dataconfig.txt） .

3,在 BeforeConnectOuterDataSource事件里调用dataconfig.txt 链接不同数据源

此方法最好单做一个服务端管理程序，用于管理ErpConfig数据，便于用户访问。

以上是思路，正在尝试制作中，诸位如觉得可行，可给个范例给小弟参考下，小弟语法不熟，制作很慢。

[此贴子已经被作者于2013-12-28 9:10:42编辑过]

程兴刚

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：7258 积分：40773 威望：0 精华：16 注册：2008/8/31 23:23:00

Post By：2013/12/27 12:36:00 [只看该作者]

看看我曾经的预言！

jnletao

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：943 积分：7802 威望：0 精华：0 注册：2013/7/7 13:37:00

Post By：2013/12/27 12:38:00 [只看该作者]

二合一？切换数据源后用户权限可能就不同步了

程兴刚

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：7258 积分：40773 威望：0 精华：16 注册：2008/8/31 23:23:00

Post By：2013/12/27 12:42:00 [只看该作者]

您说对了，我一直在等您去反思这个问题，用户管理必须随数据库走，否则，授权功能将变得苍白无力，系统的授权管理将很麻烦！

jnletao

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：943 积分：7802 威望：0 精华：0 注册：2013/7/7 13:37:00

Post By：2013/12/27 17:26:00 [只看该作者]

完工80%

下载信息 [文件大小：下载次数： ]
点击浏览该文件:启动时切换数据源2.foxdb

jnletao

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：943 积分：7802 威望：0 精华：0 注册：2013/7/7 13:37:00

Post By：2013/12/28 9:10:00 [只看该作者]

我的设计思路大体没变，语法做了调整

BeforeOpenProject
'先读取外部数据库配置文件,数据库可切换的前提是这个配置文件DBconfig.mdb的位置名称不能变

'Dim con As New System.Data.OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\启动项目之数据源切换\DBconfig.mdb;Persist Security Info=False")
'Dim cmd As New System.Data.OleDb.OleDbCommand("Select * FROM 设置", con)
'Dim DataReader As System.Data.OleDb.OleDbDataReader '定义DataReader对象
'Dim FieldCount As Integer
'con.Open()
'DataReader = cmd.ExecuteReader '执行SQL语句,返回给DataReader对象
'FieldCount = DataReader.FieldCount
'While DataReader.Read
'MessageBox.Show(DataReader("用户可选数据库"))
'End While
'con.Close()

1，采用.net语法在BeforeOpenProject里先连接数据库

2，把用户选择的数据源放入全局变量，以供调用

3，在全局代码里定义选择窗体（感谢逛逛老师提供学习案例）

有需求的朋友的可看5楼示例。重点代码都在里面。成品就不再传了。

[此贴子已经被作者于2013-12-28 9:19:41编辑过]