用Delphi进行数据库之间转换

用Ｄｅｌｐｈｉ进行数据库之间转换　在实际应用中，可能会遇到将一种数据库转为另一种数据库的情况，而Ｄｅｌｐｈｉ可以完成这种功能。

尤其是需要将以前的ｄｂａｓｅ数据库结构及内容转换成其它数据库结构时，采用此方法简单、快速且安全。

　Ｄｅｌｐｈｉ是一种Ｗｉｎｄｏｗｓ应用程序开发软件。

它速度快，具有强大且容易使用的可视化开发环境，并采用了具有弹性和可重用的完整的面向对象程序语言。

　由于以上的这些特点，Ｄｅｌｐｈｉ可以让我们快速地建立起主从结构的应用程序，可产生单一可执行文件与动态链接库以及从单机、网络到主从结构的应用程序。

　使用Ｄｅｌｈｐｉ可以方便而快速地建立强大的数据库应用程序，可以和Ｐａｒａｄｏｘ、ｄｂａｓｅ、Ｌｏ　ｃａｌ　ＩｎｔｅｒＢａｓｅ　Ｓｅｒｖｅｒ、Ｆｏｘｐｒｏ及ＯＤＢＣ数据源等多种桌面型数据库直接配合使用。

　数据库转换方法　１．所使用的控件　２．ＴＢａｔｃｈＭｏｖｅ控件的使用　ＴＢａｔｃｈＭｏｖｅ允许在一组记录或是整个数据表中执行特种作业，这个控件的主要用途在于把数据从服务器中卸到本地的数据源供分析或进行其他操作。

ＴＢａｔｃｈＭｏｖｅ可以在目的地建立对应于原数据表内容的数据表，自动将列名及数据类型进行适当的对应操作。

　ＴＢａｔｃｈＭｏｖｅ两个特性指明批量移动（Ｂａｔｃｈ　Ｍｏｖｅ）操作的源表及目的表。

Ｓｏｕｒｃｅ指定一个对应于已有的源数据表的数据集（一个Ｔｑｕｅｒｙ或Ｔｔａｂｌｅ控件），Ｄｅｓｔｉｎａｔｉｏｎ指明对应于一个数据库数据表的Ｔｔａｂｌｅ控件，目的数据表可以是已经存在的也可以是不存在的。

　Ｍｏｄｅ特性指明ＴＢａｔｃｈＭｏｖｅ对象所要做的事情：　我们可以根据ｂａｔＣｏｐｙ模式，对数据库类型进行适当的转换，以下是从ｄＢＡＳＥ类型到其它类型之间的转换结果：　数据库转换举例　现有用Ｆｏｘｂａｓｅ开发的财务程序中的会计科目数据库（ｋｊｋｍｋ．ｄｂｆ），系统将升级到Ｗｉｎｄｏｗ　ｓ环境下开发，数据库将采用Ｐａｒａｄｏｘ语言。

为了沿用该库结构和数据，可采用如下方法进行转换。

　１．Ｄａｔａｓｏｕｒｃｅ１控件：　ＡｕｔｏＥｄｉｔ　Ｔｒｕｅ　ＤａｔａＳｅｔ　Ｔａｂｌｅ１　Ｅｎａｂｌｅｄ　Ｔｒｕｅ　Ｎａｍｅ　ＤａｔａＳｏｒｃｅ１　２．Ｔａｂｌｅ１控件：　ＤａｔａｂａｓｅＮａｍｅ　ｃｗ　Ｎａｍｅ　Ｔａｂｌｅ１　Ｒｅａｄｏｎｌｙ　Ｆａｌｓｅ　ＴａｂｌｅＮａｍｅ　ＫＪＫＭＫ　ＴａｂｌｅＴｙｐｅ　ｕｄＢａｓｅ　Ｄａｔａｓｏｕｒｃｅ１控件和Ｔａｂｌｅ１控件共同定义被转换的源文件，该文件是在别名为ｃｗ里的ｋｊｋ　ｍｋ，文件类型为Ｄｂａｓｅ。

　３．ＢａｔｃｈＭｏｖｅ１控件：　Ｄｅｓｔｉｎａｔｉｏｎ　Ｔａｂｌｅ２　Ｍｏｄｅ　ｂａｌＣｏｐｙ　Ｎａｍｅ　ＢａｔｃｈＭｏｖｅ１　Ｓｏｒｃｅ　Ｔａｂｌｅ１　ＭａｔｃｈＭｏｖｅｌ控件定义转换类型为Ｃｏｐｙ以及源文件、目标文件。

　４．Ｄａｔａｓｏｕｒｃｅ２控件：　ＡｕｔｏＥｄｉｔ　Ｔｒｕｅ　ＤａｔａＳｅｔ　Ｔａｂｌｅ２　Ｅｎａｂｌｅｄ　Ｔｒｕｅ　Ｎａｍｅ　ＤａｔａＳｏｒｃｅ２　．Ｔａｂｌｅ２控件：　ＤａｔａｂａｓｅＮａｍｅ　ｃｗｄｂ　Ｎａｍｅ　Ｔａｂｌｅ２　Ｒｅａｄｏｎｌｙ　Ｆａｌｓｅ　ＴａｂｌｅＮａｍｅ　ＫＪＫＭＫ　ＴａｂｌｅＴｙｐｅ　ｕＰａｒａｄｏｘ　Ｄａｔａｓｏｕｒｃｅ２控件和Ｔａｂｌｅ２控件共同定义转换后的目标文件，该文件是在别名为ｃｗｄｂ里的　ｋｊｋｍｋ，文件类型为Ｐａｒａｄｏｘ。

　６．ＤｂＧｒｉｄ１控件：　Ｄａｔａｓｏｒｃｅ　Ｄａｔａｓｏｒｃｅ１　Ｎａｍｅ　ＤｂＧｒｉｄｌ　ＤｂＧｒｉｄｌ网格控件先定义源文件，执行转换后再定义目标文件，主要用于方便查看。

　７．Ｂｕｔｔｏｎ１控件：　ＯｎＣｌｃｋ　ＢｕｔｔｏｎＣｌｃｋ　ＯｎｄｒａｇＤｒｏｐ　Ｏｎｄｒａｇｏｖｅｒ　ＯｎＥｎｄｄｒａｇ　该控件有一个ＯｎＣｌｉｃｋ事件，表示执行文件类型转换。

其代码如下：　ｐｒｏｃｅｄｕｒｅ　ＴＦｏｒｍ１．Ｂｕｔｔｏｎ１Ｃｌｉｃｋ（Ｓｅｎｄｅｒ：ＴＯｂｊｅｃｔ）；　ｂｅｇｉｎ　ＢａｔｃｈＭｏｖｅ１．ｅｘｅｃｕｔｅ；　ｅｎｄ；　经上述方法定义，编译执行后，即可将ｋｊｋｍｋ．ｄｂｆ文件转换成ｋｊｋｍｋ．ｄｂ文件，然后就可以用　Ｄａｔａｂａｓｅ　Ｄｅｓｋｔｏｐ工具对其进行修改调整。

　用此方法还可进行其它任意文件的转换。

　ＯＤＢＣ中的同步与异步执行模式　１．引言　近年来，随着计算机局域网技术的不断发展，计算机体系结构已经发展到复杂而开放的客户机／服务器模式。

对于客户机／服务器应用的开发，现在常用的前端开发工具有：ＶｉｓｕａｌＢａｓｉｃ、Ｄｅｌｐｈｉ、ＰｏｗｅｒＢｕｉｌｄｅｒ等。

它们可通过ＯＤＢＣ接口访问服务器的ＳＱＬＳｅｒｖｅｒ数据库服务器。

　ＶｉｓｕａｌＢａｓｉｃ、Ｄｅｌｐｈｉ、ＰｏｗｅｒＢｕｉｌｄｅｒ等开发工具在使用ＯＤＢＣ２．０来编写程序时，通常会提供三种方法来进行数据库应用程序的方案设计：・使用数据控制项・使用数据库对象变量进行编程・直接调用ＯＤＢＣ２．０ＡＰＩ　在客户机／服务器模式下进行数据库应用程序设计时，仅用前两种方法往往是不够的。

因为采用前两种方法，其执行模式对于程序员是透明的，而ＯＤＢＣ２．０访问数据库时存在同步与异步执行模式之分，故容易因设计不当，发生系统死锁。

因此，在实际编程序时，我们需要采用第三种方法来解决由同步和异步执行模式所造成的问题。

　２．同步和异步执行模式ＯＤＢＣ２．０访问数据库时，有同步执行模式与异步执行模式之分。

　所谓同步执行模式，是指语句在同步执行模式下，将始终保持对程序流的控制，直至程序结束。

例如查询操作，客户机上的应用程序在向服务器发出查询操作的指令后，将一直等待服务器将查询结果返回客户机端后，才继续进行下一步操作，如图１所示。

　图１同步执行模式　所谓异步执行模式，是指语句在异步执行模式下，各语句执行结束的顺序与语句执行开始的顺序并不一定相同。

例如查询操作，客户机上的应用程序在向服务器发出了查询操作的指令后，将立刻执行查询语句的下一条语句，而不需要等到服务器将查询结果返回客户机端后，才继续进行下一步操作。

如图２所示。

　图２异步执行模式　在一些应用程序开发工具中，在其提供使用数据控制项和数据库对象变量进行编程的同时，并没有很好地考虑到同步执行模式与异步执行模式的重要区别。

为了使程序运行速度更快，其语句执行的缺省模式为异步模式。

对于一般程序员来说，如果他对同步执行模式与异步执行模式不了解的话，他往往会在对服务器发出一个操作语句（查询或读取一条记录等操作）后，立刻引用服务器返回的执行结果，或者对该结果进行下一步操作；在异步执行模式下，客户机上的后续语句是在该操作语句发出后接着执行的，但由于各种原因，服务器不一定能执行完该操作语句，并在后续语句执行前将结果返回客户机。

因此，后续语句在引用前一操作语句的执行结果时，往往会因为该执行结果并不存在而引用了错误的值，造成系统错误或死锁。

　３．解决方案　解决上面所提到的问题，可以采取以下两种方案：①利用ＯＤＢＣ２．０ＡＰＩ，将语句执行状态设置为同步执行模式。

ＯＤＢＣ２．０ＡＰＩ中，函数ＳＱＬＳｅｔＳｔｍｔＯｐｔｉｏｎ（）的功能是设置同步或异步执行模式。

我们可以采用以下语句，将语句执行状态设置为同步执行模式：ｉＲｅｔＣｏｄｅΚＳＱＬＳｅｔＳｔｍｔＯｐｔｉｏｎ（ｈＳｔｍｔ，ＳＱＬ－ＡＳＹＮＣ－ＥＮ２ＡＢＬＥ，０）其中，ｈＳｔｍｔ是一有效的语句句柄，常数ＳＱＬ－ＡＳＹＮＣ－ＥＮＡＢＬＥ是所要设置的选项，参数０表示该选项（即异步执行模式）关闭。

如果ｉＲｅｔＣｏｄｅ返回ＳＱＬ－ＳＵＣＣＥＳＳ，则表示语句执行状态已被设置为同步执行模式。

　②利用ＯＤＢＣ２．０ＡＰＩ，将语句执行状态设置为异步执行模式，然后在程序中不断查询一个操作语句是否已经执行完毕。

　ＯＤＢＣ２．０ＡＰＩ中共有２０多个函数支持异步执行，如上页表所示。

　这些函数第一次调用后，将返回值ＳＱＬ－ＳＴＩＬＬ－ＥＸＥ２ＣＵＴＩＮＧ，这时应用程序将继续执行后续语句。

过了一段时间后，应该再次调用原函数，而且要注意：实参数应传入与第一次调用时相同的语句句柄，其他参数也应一样（但会被忽略）。

如果函数返回值为ＳＱＬ－ＳＵＣＣＥＳＳ，则表明该语句已经执行完毕；如果函数返回ＳＱＬ－ＳＴＩＬＬ－ＥＸＥＣＵＴＩＮＧ，则表明该语句仍在执行中。

　我们可以用一个简单的例子说明如下：ｉＲｅｔＣｏｄｅΚＳＱＬＳｅｔＳｔｍｔＯｐｔｉｏｎ（ｈＳｔｍｔ，ＳＱＬ－ＡＳＹＮＣ－ＥＮＡＢＬＥ，１）′置语句执行模式为异步执行模式ｉＲｅｔＣｏｄｅΚＳＱＬＥｘｅｃＤｉｒｅｃｔ（ｈＳｔｍｔ，″ＳＥＬＥＣＴ＊ＦＲＯＭｅｍｐｌｏｙｅｅｓ″，２３）．．．．．．′执行其他操作ｉＲｅｔＣｏｄｅΚＳＱＬＥｘｅｃＤｉｒｅｃｔ（ｈＳｔｍｔ，″ＳＥＬＥＣＴ＊ＦＲＯＭｅｍｐｌｏｙｅｅｓ″，２３）′判断ＳＱＬＥｘｅｃＤｉｒｅｃｔ（）是否已执行完毕Ｉｆ（ｉＲｅｔＣｏｄｅΚＳＱＬ－ＳＴＩＬＬ－ＥＸＥＣＵＴＩＮＧ）Ｔｈｅｎ．．．．．．′该语句未执行完，继续执行其他操作ＥｌｓｅＩｆ（ｉＲｅｔＣｏｄｅΚＳＱＬ－ＳＵＣＣＥＳＳ）Ｔｈｅｎ．．．．．．′该语句已执行完，可对语句操作结果进行处理ＥｎｄＩｆＥｎｄＩｆ同步执行模式可以简化程序编制的复杂性，对ＯＤＢＣ２．０ＡＰＩ不十分熟悉的程序员，可以不用过多地了解比较复杂的ＯＤＢＣ２．０ＡＰＩ，而只需使用数据控制项和数据库对象变量来编写应用程序，使开发效率大大提高，但程序运行速度比不上异步执行模式的速度。

　异步执行模式虽然在编程序时十分复杂，但在这种模式下可以进行多任务并行执行，使执行效率大大提高。

　我们在编制应用程序时，应根据自身的情况，对这两种模式的使用进行划分，以便既提高程序运行的安全可靠性，又提高程序执行的效率。

　Ｄｅｌｐｈｉ数据库应用程序开发中图像数据的存取技术　Ｄｅｌｐｈｉ提供了数据访问（ＤａｔａＡｃｃｅｓｓ）和数据控制（ＤａｔａＣｏｎｔｒｏｌｓ）的可视化控件，能够方便快捷地产生具有良好界面且功能强大的数据库应用程序。

对于涉及图像数据（含Ｇｒａｐｈｉｃ字段）的数据库应用程序，如人事管理信息系统等，图像数据的存取技术是一个关键。

然而，有关Ｄｅｌｐｈｉ下图象的存取，特别是图像的保存方面的技术各种资料上很少提及。

下面，笔者结合一个简单的例子来说明。

　一、图像数据的保存　１．创建一个含有Ｇｒａｐｈｉｃ字段的数据库列表。

　在ＷｉｎｄｏｗｓＩＳＱ（或Ｄａｔａｂａｓｅｄｅｓｋｔｏｐ）下ｃｒｅａｔｅｄａｔａｂａｓｅｍｙｄｂ．ｇｄｂｃｒｅａｔｅｔａｂｌｅｍｙｆｒｉｅｄｓ（ｎａｍｅｖａｒｃｈａｒ（１５）ｎｏｔｎｕｌｌ，ｔｅｌｅｐｈｏｎｅｖａｒｃｈａｒ（１２），ａｄｄｒｅｓｓｖａｒｃｈａｒ（３０），ｚｉｐｖａｒｃｈａｒ（８），ｐｉｃｔｕｒｅｖａｒｃｈａｒ（１５），ｉｍａｇｅｂｌｏｂ）；　其中，ｐｉｃｔｕｒｅ字段用于保存图像的名称（包括路径），ｉｍａｇｅ（Ｇｒａｐｈｉｃ字符）则用于存储图像，其数据类型为“ｂｌｏｂ”。