动态数据库连接

王朝delphi·作者佚名  2006-01-08
窄屏简体版  字體: |||超大  

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

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

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航