[分享]项目发布后之二_数据源的更改及服务器的登录设置 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [分享]项目发布后之二_数据源的更改及服务器的登录设置

共有106935人关注过本帖树形打印复制链接主题：[分享]项目发布后之二_数据源的更改及服务器的登录设置

kingnuo

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

加好友

发短信

等级：幼狐帖子：81 积分：602 威望：0 精华：0 注册：2012/2/9 23:30:00

Post By：2015/1/10 2:46:00 [只看该作者]

谢谢分享

迷狐

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

加好友

发短信

等级：童狐帖子：228 积分：2054 威望：0 精华：1 注册：2012/5/24 16:00:00

Post By：2015/1/10 8:39:00 [只看该作者]

学习

瞩望星空

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

加好友

发短信

等级：二尾狐帖子：531 积分：4727 威望：0 精华：0 注册：2013/4/20 20:08:00

Post By：2015/1/18 9:22:00 [只看该作者]

连接字符串保存在文本文件中，安全性存在问题啊以下内容只有回复后才可以浏览 ’BeforeConnectOuterDataSource 事件主要代码，触发这个事件时窗口、Table都还未生成，所以不能打开窗口和Table，但可以读、写入配置文件。 Dim ipFile As String = e.ProjectPath & "Attachments\ip.txt" Dim Open As String = e.ProjectPath & "Attachments\Open.txt"???? '数据源连接设置窗口是否打开的配置文件 Dim? ip As? String = FileSys.ReadAllText(ipFile) If e.Name = "User" Then ??? If Filesys.FileExists(ipFile) Then ??????? e.ConnectionString = ip????? ’已配置好的数据源连接字符串