动态数据库连接

类别:Delphi 点击:0 评论:0 推荐:

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

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

本文地址:http://com.8s8s.com/it/it5319.htm