[转]动态数据库连接

最近开发一个物流管理信息系统，其中涉及到了一个关于连接数据库的方案拿出来和大家分享一下。

简化程序安装，我们通常采用了通过系统注册表写入连接数据库的信息，但是这样已经是修改了系统的设置，于是我们通过了在系统设计中所数据库连接的信息放到INI文件里，在以后的安装时，只要修改INI文件即可
流程如下：（汉文）
程序启动
↓
读取INI文件
↓连接数据库
↓
↓失败
◇ → →出现配置连接窗口，进行配置
↓ ↓连接数据库 ↑重
↓成功 ↓ ↑配
进入系统 ←←←←←←◇→→→→→→◇
↓放弃
↓
退出
流程如下：（Delphi）
form.oncreate
↓
Read INI(可写用一个调用函数)
↓Connect DB
↓
↓ false
if DBConnect(函数)→ →出现配置连接窗口，进行配置(Write I NI)
↓ ↓连接数据库 ↑重
↓true ↓ ↑配
System ←←←←←← ◇→→→→→→◇
↓放弃
↓
退出
简述一下INI文件
1. INI文件结构
；注释
[小节名]
关键字=值
。。。。
2. INI文件定义
A． 在Interface的Uses中加INIFiles
B． 声明TINIFile变量 MyINIFile:TINIFile;
C． INI文件的打开
FileName:=ExtractFilePath(Paramstr(0))+’test.ini’//ExtractFilePath(Application.ExeName)+’/test.ini;
MyINIFile:=INIFile.Create(FileName);
D. 关键字读取值
vs:=MyINIFile.ReadString(‘小节名’，’关键字’，缺省值)；
E。 写入INI文件
MyINIFile.WriteString(‘小节名’，’关键字’，变量或字符值)；
F． 删除关键字
MyINIFile.DeleteKey(‘‘小节名’，’关键字’);
G. INI文件释放
MyINIFile.distory;

如果考虑到安全问题，可以在INI文件上实现加密。

针对这个系统，我现在在准备写一篇关于我们这个系统的又一个难点就是《如何实现异地数据存储》的问题。请有关这方面兴趣的大侠一起研究。我QQ：13927506