📄 delp023.html
字号:
<html><!-- #BeginTemplate "/Templates/delphi.dwt" --><head><!-- #BeginEditable "doctitle" --> <title>独孤之所 - Delphi中数据文件路径的管理</title><meta http-equiv="Content-Type" content="text/html; charset=gb2312"><meta NAME="author" VALUE="独孤求败(Fwolf)"><!-- #EndEditable --> <style type="text/css"><!--body { font-family: "宋体"; font-size: 9pt}td { font-family: "宋体"; font-size: 9pt}a:hover { text-decoration: underline}a { text-decoration: none}input { font-family: "宋体"; font-size: 9pt}select { font-family: "宋体"; font-size: 9pt}--></style></head><body><table width="98%" border="0" align="center"> <tr> <td width="33%"><a href="../../../index.html"><img src="../../../logos/fwolf9.gif" width="271" height="60" alt="独孤之所首页" border="0"></a></td> <td width="67%"> <div align="center"> </div> </td> </tr></table><table width="100%" border="0" align="center" cellspacing="1" bgcolor="#66FF66"> <tr> <td width="90%"><a href="../../../index2.html">独孤之所</a> > <a href="../../book.htm">天下文章</a> > <a href="../delphi.html">Delphi</a> > <font color="#FF3333"><!-- #BeginEditable "2%C7%F8" -->Delphi中数据文件路径的管理<!-- #EndEditable --></font> </td> <td width="10%"> <div align="center"><a href="javascript:window.close()">[关闭窗口]</a></div> </td> </tr></table><hr size="1"><br><table width="584" border="0" align="center" cellspacing="1"> <tr> <td width="582"> <font color="#FF3333"> <div align="center"><!-- #BeginEditable "%B1%EA%CC%E2" -->Delphi中数据文件路径的管理<!-- #EndEditable --></div> </font> </td> </tr> <tr> <td width="582"> <div align="center"><!-- #BeginEditable "%D7%F7%D5%DF" --><!-- #EndEditable --></div> </td> </tr> <tr> <td width="582"><!-- #BeginEditable "%CE%C4%B1%BE%C7%F8" --> <center> <p align="left">Delphi中的Table控件（Component）和Query控件都有一个DatabaseName属性。可以用DatabaseName属性来指定该控件所引用的数据表的路径。有两种方法可以为属性DatabaseName设置路径：第一种方法是直接输入数据表所在路径，另一种方法是使用数据库别名（Alias）。在Delphi中，数据库别名是在数据库引擎（BDE）中建立的，一个别名对应一个文件路径。可以这样为别名下定义：别名是对文件路径的映射，是文件路径的简称。因此，在属性DatabaseName中使用数据库别名和使用文件路径实质都是一样的，它们都作为查找数据表的根（Root）路径。但是，在数据库应用程序的设计中，如果涉及到的Table控件和Query控件比较多的话，那么使用别名来引用文件路径就十分高效、方便，并且不容易出差错。原因是显而易见的：一方面，别名可以在列表中直接选取而不必像文件路径那样从键盘上输入；另一方面，别名可以设置得很简短，即使从键盘录入也比较快捷。因此，笔者建议要多使用数据库别名而少使用文件路径。 <br> <br> 另外，在Table控件的属性TableName和Query控件的SQL语句中，都可以包含数据表的路径信息。因为Query控件和Table控件的情况十分相似，所以下面只对Table控件进行说明。这种路径信息既可以是一个完整的路径，也可以是一个完整路径的后面部分。比如对Table控件的属性TableName赋值时，可以把C:\Delphi\Demos\Data\CustomerDB赋给它，也可以把Data\CustomerDB赋给它。 <br> <br> 在实际应用中，我们可以把Table控件的属性DatabaseName和属性TableName结合起来使用。把属性DatabaseName中的路径作为根路径，把属性TableName中的不完整路径（如果有的话）作为子路径。把这两个路径结合起来就是访问到数据表的一个完整的路径。比如，假设在路径C:\Delphi\Demos\Data下存在数据表CustomerDB，把Table控件的属性DatabaseName指定为C:\Delphi\Demos\Data，然后把属性TableName指定为CustomerDB，就可以访问数据表CustomerDB了。如果属性DatabaseName指定为C:\Delphi\Demos，要想访问数据表CustomerDB，只要把属性TableName指定为data\CustomerDB就行了。有时候这二者并不同时起作用。例如，如果属性TableName中包括了完整的路径，那么属性DatabaseName中的路径就不起任何作用了。又如，如果属性DatabaseName中没有指定任何路径，而属性TableName中的路径又是不完整的，如Data\CustomerDB，那么应用程序运行时的当前路径就作为根路径。为了便于程序移植，笔者有两点建议： <br> 1、通常，只需要在属性DatabaseName中指定数据表的路径，而在属性TableName中不必包括路径信息。 <br> 2、一般情况下，不要在属性TableName中指定完整的路径。 <br> <br> 下面就来介绍一下如何提高数据库应用程序的移植性。 <br> 数据库应用程序的移植是一个重要的问题。因为在数据库应用程序中要访问数据库或数据表，就要涉及到数据文件的路径。一般来说，数据库应用程序开发完成后要移植到其它机器上使用，因此数据库应用程序运行时的数据文件的路径很可能和开发时的不同。所以必须对数据文件的路径进行有效的管理，以便于系统的移植。下面介绍三种管理数据文件路径的方法。 <br> 1、把数据文件建立在应用程序所在目录的子目录下。具体过程为： <br> （1）为了设计起来方便，在设计时可以使用数据库别名，且该数据库别名指向应用程序所在路径。把子路径名加上数据表名字之后赋给Table控件的属性TableName。 <br> （2）在发行应用程序前，把所有的Table控件或Query控件的属性Active都置为False，删除属性DatabaseName中的所有字符（即置空）。 <br> 在缺省情况下，应用程序运行时的当前目录是应用程序所在的目录。如果在应用程序中没有调用ChDir等过程改变当前目录的话，那么就不必执行第三步，否则进行第三步的处理。 <br> （3）在使用到Table控件和/或Query控件的窗体的创建（OnCreate）事件中，把应用程序所在路径赋给该窗体中的每一个Table控件和Query控件。具体的形式如下所示： <br> Table对象（或Query对象）？DatabaseName:=ExtractFilePath(Application？ExeName); <br> <br> 2、利用配置文件存放数据库路径 <br> 此方法是在应用系统安装或第一次运行时把数据库路径信息写入配置文件，以后运行时把路径信息从配置文件中读出。配置文件的读写利用类TIniFile（Delphi1.0和Delphi3.0）、类TRegIniFile（Delphi 3.0/4.0）和类TRegistry（Delphi3.0/4.0）所提供的方法来实现。各个方法具体的用法请查阅Delphi联机帮助。本方法的基本思路为： <br> （1）为了设计方便，在设计时可以使用数据库别名。 <br> （2）同1的步骤（2），但必须进行第三步的处理。 <br> （3）同1的步骤（3）类似。即，在窗体的创建事件中把数据库路径赋给该窗体中的每一个Table控件和Query控件，用形式化语言描述如下： <br> Table对象（或Query对象）？DatabaseName:=配置文件记录中的数据库路径。 <br> <br> 3、利用数据库别名存放数据库路径 <br> 在设计时使用数据库别名。在应用系统安装或第一次运行时利用系统对象Session在BDE中建立与设计时相同的别名，使别名指向相应的数据库路径。下面的代码说明了如何建立名字为“FDB”的别名，它的数据库路径为d:\test，数据库类型为Paradox。 <br> Session.ConfigMode:=cmAll; <br> Session.AddStandardAlias(′FDB′,′d:\test′,′PARADOX′); <br> Session.SaveConfigFile; {保存新建立的别名} <br> <br> 注：在Delphi1.0中Session对象不具有第三种方法中所用到的属性和方法。以上三行代码在Delphi3.0/4.0下调试通过。 <br> <br> 从上面的讨论可以看出，方法三实现起来最简单，其次是方法一，最后是方法二。笔者认为，如果应用系统是用Delphi3.0/4.0开发的，那么应尽量使用方法三。 <div align=right></div> </center> <!-- #EndEditable --></td> </tr> <tr> <td width="582"><!-- #BeginEditable "%B1%B8%D7%A2" --><!-- #EndEditable --></td> </tr></table><br><hr size="1"><table width="25%" border="1" align="center" cellspacing="0" cellpadding="0" bordercolorlight="#CCCCFF" bordercolordark="#000033" bordercolor="#6666FF"> <tr align="center"> <td> 转载请注明出于 <a href="http://fwolf.yeah.net" target="_blank">独孤之所</a><!--Fwolf出品fwolf001@163.nethttp://fwolf.yeah.net --> </td> </tr> <tr align="center"> <td> <script>document.write("<a href=http://www.topcn.com/siteinfo.asp?UserName=fwolf2000&SiteType=0 target=_blank><img src=http://www1.topcn.com:8081/statistics.asp?fwolf2000&referURL="+escape(top.document.referrer)+"&curURL="+escape(top.document.URL)+"&imgStyle=0"+" border=0 alt='Top中文网站龙虎榜' ></a>");</script> <script>document.write("<a href=http://www.textclick.com/viewmain.asp?name=fwolf2000 target=_blank><img src=http://ad.t2t2.com/stat.asp?user=fwolf2000&refer="+escape(document.referrer)+"&cur="+escape(document.URL)+" alt=太极统计 border=0></a>");</script> </td> </tr></table><table width="100%" border="0" align="center" cellspacing="1" bgcolor="#66FF66"> <tr> <td width="10%"><a href="javascript:window.close()">[关闭窗口]</a></td> <td width="90%"> <div align="left"></div> </td> </tr></table><div id="Layer1" style="position:absolute; width:470px; height:60; z-index:1; left: 293px; top: 13px; overflow: hidden"> <table width="100%" border="0" cellspacing="0" cellpadding="0" height="60"> <tr> <td><a href="http://202.99.67.100/adclick2/click/random.cgi?job=go&id=1490" target="_blank"><img src="http://202.99.67.100/adclick2/click/random.cgi?id=1490" border="0" width="468" height="60"></a> </td> </tr> </table></div><div align="center"></div><p align="center"> <script language="JavaScript1.1" src=http://ad.t2t2.com/textclick.asp?user=fwolf&style=4&bkcolor=no></script></p><p align="center"> </p></body><!-- #EndTemplate --></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -