动态数据库连接

核心提示：最近开发一个物流管理信息系统，其中涉及到了一个关于连接数据库的方案拿出来和大家分享一下，动态数据库连接， 简化程序安装，我们通常采用了通过系统注册表写入连接数据库的信息，变量或字符值)；F． 删除关键字 MyINIFile.DeleteKey(‘‘小节名’，’关键字’);G. INI文件释放 MyINIFile.

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

  简化程序安装，我们通常采用了通过系统注册表写入连接数据库的信息，但是这样已经是修改了系统的设置，于是我们通过了在系统设计中所数据库连接的信息放到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文件上实现加密。