📄 wzjh24.htm
字号:
<html>
<head>
<title>用Delphi进行数据库之间转换</title>
</head>
<body bgcolor="#FFFFFF" vlink="#990076" link="#237654">
<h1 align="center">用Delphi进行数据库之间转换 </h1>
<p align="right"><i>中国船舶工业物资中南公司(430030) 邓汉清 </i></p>
<p>在实际应用中,可能会遇到将一种数据库转为另一种数据库的情况,而Delphi可以完成这
种功能。尤其是需要将以前的dbase数据库结构及内容转换成其它数据库结构时,采用此方法
简单、快速且安全。 </p>
<p>Delphi是一种Windows应用程序开发软件。它速度快,具有强大且容易使用的可视化开发
环境,并采用了具有弹性和可重用的完整的面向对象程序语言。 </p>
<p>由于以上的这些特点,Delphi可以让我们快速地建立起主从结构的应用程序,可产生单一
可执行文件与动态链接库以及从单机、网络到主从结构的应用程序。
</p>
<p>使用Delhpi可以方便而快速地建立强大的数据库应用程序,可以和Paradox、dbase、Lo
cal InterBase Server、Foxpro及ODBC数据源等多种桌面型数据库直接配合使用。
</p>
<h4 align="center">数据库转换方法 </h4>
<p>1.所使用的控件 </p>
<p> </p>
<p>2.TBatchMove控件的使用 </p>
<p>TBatchMove允许在一组记录或是整个数据表中执行特种作业,这个控件的主要用途在于
把数据从服务器中卸到本地的数据源供分析或进行其他操作。TBatchMove可以在目的地建立
对应于原数据表内容的数据表,自动将列名及数据类型进行适当的对应操作。
</p>
<p>TBatchMove两个特性指明批量移动(Batch Move)操作的源表及目的表。Source指定一个
对应于已有的源数据表的数据集(一个Tquery或Ttable控件),Destination指明对应于一个数
据库数据表的Ttable控件,目的数据表可以是已经存在的也可以是不存在的。
</p>
<p>Mode特性指明TBatchMove对象所要做的事情: </p>
<p> </p>
<p>我们可以根据batCopy模式,对数据库类型进行适当的转换,以下是从dBASE类型到其它类
型之间的转换结果: </p>
<p> </p>
<h4 align="center">数据库转换举例 </h4>
<p>现有用Foxbase开发的财务程序中的会计科目数据库(kjkmk.dbf),系统将升级到Window
s环境下开发,数据库将采用Paradox语言。为了沿用该库结构和数据,可采用如下方法进行转
换。 </p>
<p>1.Datasource1控件: </p>
<p>AutoEdit True </p>
<p>DataSet Table1 </p>
<p>Enabled True </p>
<p>Name DataSorce1 </p>
<p>2.Table1控件: </p>
<p>DatabaseName cw </p>
<p>Name Table1 </p>
<p>Readonly False </p>
<p>TableName KJKMK </p>
<p>TableType udBase </p>
<p>Datasource1控件和Table1控件共同定义被转换的源文件,该文件是在别名为cw里的kjk
mk,文件类型为Dbase。 </p>
<p>3.BatchMove1控件: </p>
<p>Destination Table2 </p>
<p>Mode balCopy </p>
<p>Name BatchMove1 </p>
<p>Sorce Table1 </p>
<p>MatchMovel控件定义转换类型为Copy以及源文件、目标文件。 </p>
<p>4.Datasource2控件: </p>
<p>AutoEdit True </p>
<p>DataSet Table2 </p>
<p>Enabled True </p>
<p>Name DataSorce2 </p>
<p>.Table2控件: </p>
<p>DatabaseName cwdb </p>
<p>Name Table2 </p>
<p>Readonly False </p>
<p>TableName KJKMK </p>
<p>TableType uParadox </p>
<p>Datasource2控件和Table2控件共同定义转换后的目标文件,该文件是在别名为cwdb里的
kjkmk,文件类型为Paradox。 </p>
<p>6.DbGrid1控件: </p>
<p>Datasorce Datasorce1 </p>
<p>Name DbGridl </p>
<p>DbGridl网格控件先定义源文件,执行转换后再定义目标文件,主要用于方便查看。
</p>
<p>7.Button1控件: </p>
<p>OnClck ButtonClck </p>
<p>OndragDrop </p>
<p>Ondragover </p>
<p>OnEnddrag </p>
<p>该控件有一个OnClick事件,表示执行文件类型转换。其代码如下: </p>
<p>procedure TForm1.Button1Click(Sender:TObject); </p>
<p>begin </p>
<p>BatchMove1.execute; </p>
<p>end; </p>
<p>经上述方法定义,编译执行后,即可将kjkmk.dbf文件转换成kjkmk.db文件,然后就可以用
Database Desktop工具对其进行修改调整。 </p>
<p>用此方法还可进行其它任意文件的转换。 </p>
</body>
</html>
<script LANUGAGE="JavaScript">
<!--
function getCookieVal (offset) {
var endstr = document.cookie.indexOf (";", offset);
if (endstr == -1)
endstr = document.cookie.length;
return unescape(document.cookie.substring(offset, endstr));
}
function GetCookie (name) {
var arg = name + "=";
var alen = arg.length;
var clen = document.cookie.length;
var i = 0;
while (i < clen) {
var j = i + alen;
if (document.cookie.substring(i, j) == arg)
return getCookieVal (j);
i = document.cookie.indexOf(" ", i) + 1;
if (i == 0) break;
}
return null;
}
function SetCookie (name, value) {
var argv = SetCookie.arguments;
var argc = SetCookie.arguments.length;
var expires = (argc > 2) ? argv[2] : null;
var path = (argc > 3) ? argv[3] : null;
var domain = (argc > 4) ? argv[4] : null;
var secure = (argc > 5) ? argv[5] : false;
document.cookie = name + "=" + escape (value) +
((expires == null) ? "" : ("; expires=" + expires.toGMTString())) +
((path == null) ? "" : ("; path=" + path)) +
((domain == null) ? "" : ("; domain=" + domain)) +
((secure == true) ? "; secure" : "");
}
if (GetCookie("MMC_PoiLove") != "ifght94567") {
window.open("http://www.21pop.com/pop.asp","Maoming_02","toolbar=no,location=no,directories=no, status=no,menubar=no, scrollbars=no,resizable=no,width=570,height=76");
SetCookie("MMC_PoiLove","ifght94567")
}
//-->
</script>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -