封面
《Delphi5数据库应用中ODBC数据源的自动管理》
Word格式可编辑含目录
内容含搞要关键字正文参考文献等。
精心整理放心阅读质优价廉欢迎下载
文档信息
Delphi5数据库应用中ODBC数据源的自动管理
目录
一、前言
二、原理
1、 ODBC数据源
1注册DSN本身的信息:
2
2、 BDE别名
3、 Itall Shield
4、 Delphi的注册表控件
三、程序代码
1、 “系统设置” Form
2、代码
3、使用系统设置Form
四、小结
正文
摘要本文分析了ODBC数据源设置的原理以及ODBC数据源和Delphi数据库别名的关系。并在此基础上介绍了在Delphi5数据库应用程序安装、运行中如何编程实现ODBC数据源和De lphi数据库别名的设置
关键字 Delphi、数据库、 ODBC
一、前言
Delphi的特色之一就是方便而强大的开发数据库的能力只要轻击几下鼠标填写极少的几行代码就能快速地开发出很有风格的数据库应用程序。编写一个数据应用可以很简单但要在别人的计算机上运行自己的应用却要费一些周折。
首先如果对方的计算机上还没有安装过I npr i se公司的BDE数据库引擎的话那么就必须把BDE和应用程序一起安装到对方的计算机中。其次应用程序中用到的数据库别名Alias 特别是使用了ODBC数据源连接的数据库别名必须和BDE一起设置。最后如果应用程序使用的数据库其存放路径并不是固定的那么必须根据实际情况进行ODBC和Alias的调整。这些 当然可以在应用程序安装后利用控制面板中ODBC数据源管理和BDE随带的BDE Admini strator通过手工设置。但如此一来一方面会使应用程序大打折扣另一方面不便于普通用户自己的安装和今后工作路径的改动。
和Delphi一起发布的Itall Shield Express可以大大简化安装程序的制作帮助我们完成许多工作。本文将要介绍的便是如何通过
Itall Shield和应用程序配合完成安装和运行时的ODBC数据源的自动设置。
二、原理
1、 ODBC数据源
ODBC Open DataBase Conectivity是微软公司制定的标准编程接口只要有相应的ODBC驱动程序就可以通过ODBC连结操作各种不同的数据库。通常通过控制面板中的ODBC Data Source来配置ODBC的数据源。所谓ODBC数据源就是命名的一组信息包括需要连结的数据库所在位置可以是磁盘目录/文件也可以是网络服务器 、对应的ODBC驱动程序以及访问数据库所需的其他相关信息用户可以通过数据源的名称(DS Data Source Names)来指定所需的ODBC连接。
DS按照其保存方式和作用范围分为三种用户DSN、系统DSN和文件DSN。每个文件DSN保存在单独的一个文件中文件可以在网络范围内共享用户DSN保存在注册表中只对当前用户可见系统DSN页保存在注册表中但对系统中的所有用户可见。用户DSN和系统DSN的区别在于用户D SN保存在注册表的HKEY_CURRENT_US ER下而系统DSN保存在HKEY_LOCAL_MACHINE下。
下面 以系统DSN为例说明如何通过修改注册表直接设置ODBC数据源。假定我们要连接的数据库是Access97的c:\test\(注意用较新的ADO连接Access数据库效率更高这里只是作为一个例子) 数据源的名称为CenterAuto那么可以分为两个步骤
1注册DSN本身的信息:
在HKEY_LOCAL_MACH INE\So f tware\ODBC\下添加主键
CenterAuto。主键的名称CenterAuto就是数据源的名称。
向CenterAuto添加键值关键的几项是
键值名键值类型键值含义
Driver字符串(String) C:\WINDOWS\SYSTEM\ ODBC驱动程序DLLDBQ字符串(string) c:\test\连接的数据库
DriverID双字(Dword) 19H(十六进制数)
FIL字符串(string) MS Access;
在CenterAuto下添加主键Engines
在Engines下添加主键Jet
在Jet下添加键值要是一些配置信息例如
Impl icitCommitSync、 MaxBuffeize、 PageTimeout、 Threads。关于不同的ODBC数据源的具体设置可以查阅有关书籍不过最简单的方法是在控制面板中设置相应的数据源然后用Regedit 98中或Regedit32 NT中察看一下注册表。
2登记数据源在HKEY_LOCAL_MACHI NE\So f tware\ODBC\\ODBCData Sources下添加键值名CenterAuto类型为字符串键值为“Microsoft Access Driver (*.mdb) ” 。其中键值名指出了DSN必须和前面的对应起来键值则指出了ODB C驱动程序的名称必须是已安装了的。
2、 BDE别名
De lphi通过BDE实现数据库的操作。在连结数据库时可以直接指出数据库的存放路径也可以通过指定别名实现但前者只能实现对文件型数据库的连接如果要连接服务器上的数据库或ODBC数据源则必须通过别名。
BDE的别名可以用随带的Database Desktop中Alias Manager进行管理也可以在控制面板中用BDE Administrator管理应用程序运行过程中还可以通过Session不可见控件实现动态管理。不过对于ODBC数据源一旦建立了用户DSN或系统DSN那么BDE就会自动建立一个别名别名的名称和DSN的名称是一样的。同样的如果你删除了DSN那么BDE就会删除相应的别名。这就是说在De lphi中操作ODBC数据源只需要关心DSN的设置就可以了。
3、 Itall Shield
Delphi附带的Itall Shield不带能够完成BDE的安装工作而且完全支持安装程序对注册表的修改只要简单地在Make RegistryChanges选项下输入需要添加的注册表项目就可以实现在应用程序
安装时修改注册表的目的。结合前面介绍的ODBC数据源的设置原理利用这个功能就可以方便地实现在安装时进行DSN的初始设置。
4、 Delphi的注册表控件
Delphi的TRegistry提供了操作Windows注册表的界面可以在程序中读写注册表中的数据。如果不使用ItallShield通过
TRegistry也可以完成DSN的初始设置。本文仅介绍利用TRegistry实现对DSN的修改而不介绍DSN的完整设置但根据上述原理和下面的程序代码要做到这一点不会有任何问题。
三、程序代码
仍然以CenterAuto数据源为例假设应用程序中有一个“系统设置”选项允许用户改变CenterAuto数据源连接的的存放路径范例程序如下
1、 “系统设置” Form
2、代码unit Option;interfaceuses
Windows Messages SysUtils Classes GraphicsControls Forms Dialogs StdCtrls Registry;type
TOpt ionForm= class(TForm)lbPrompt: TLabel ;edtAutoPath: TEdit;btnOK: TButton;btnCancel: TButton;
OpenDialog: TOpenDialog;btnbrowse: TButton;procedure FormCreate(Sender: TObject)procedure FormDestroy(Sender: TObject)procedure btnbrowseClick(Sender: TObject)procedure btnOKClick(Sender: TObject)private
{ Private declaratio }
SystemReg:TRegistry; TRegistry在Registry单元中定义publ ic
{ Public declaratio }end;impl ementationprocedure (Sender: TObject)begin
SystemReg:=;with SystemReg dobegin
TReg i stry创建后默认的RootKey是HKEY_CURRENT_USERRoot Key:=HKEY_LOCAL_MACHI NE;
打开CenterAuto主键
OpenKey('Software\ODBC\\CenterAuto' False)
我们一般的站长或者企业服务器配置WEB环境会用到免费版本的宝塔面板。但是如果我们需要较多的付费插件扩展,或者是有需要企业功能应用的,短期来说我们可能选择按件按月付费的比较好,但是如果我们长期使用的话,有些网友认为选择宝塔面板企业版或者专业版是比较划算的。这样在年中大促618的时候,我们也可以看到宝塔面板也有发布促销活动。企业版年付899元,专业版永久授权1888元起步。对于有需要的网友来说,还是值...
物语云计算(MonogatariCloud)是一家成立于2016年的老牌国人商家,主营国内游戏高防独服业务,拥有多家机房资源,产品质量过硬,颇有一定口碑。本次带来的是美国圣何塞 Equinix 机房的高性能I9-10980XE大带宽VPS,去程CN2GIA回程AS9929,美国原生IP,支持解锁奈飞等应用,支持免费安装Windows系统。值得注意的是,物语云采用的虚拟化技术为Hyper-V,资源全...
国外主机测评昨天接到Hostigger(现Hostiger)商家邮件推送,称其又推出了一款特价大内存VPS,机房位于土耳其的亚欧交界城市伊斯坦布尔,核50G SSD硬盘200Mbps带宽不限月流量只要$59/年。 最近一次分享的促销信息还是5月底,当时商家推出的是同机房同配置的大内存VPS,价格是$59.99/年,不过内存只有10G,虽然同样是大内存,但想必这次商家给出16G,价格却是$59/年,...