DELPHI中数据文件路径的管理

Delphi中的Table控件（Component）和query控件都需要有一个DatabaseName属性。可以用DatabaseName属性来指定该控件所引用的数据表路径。有两种方法可以为属性DatabaseName设置路径：第一种方法是直接输入数据表所在路径，另一种方法是使用数据库别名（Alias）。在Delphi中数据库别名是在数据库引擎（BDE）中设定的，一个别名对应一个文件路径。可以这样为别名定义：别名是对文件路径的映射，是文件路径的简称。因此，在属性DataBaseName中使用数据库别名和使用文件路径实质上都是一样的，他们都是作为查找数据表的根路径。但是，在数据库应用程序设计中，如果涉及到的Table控件和Query控件比较多的话，那么使用别名来引用文件路径就十分高效、方便，且不容易出错。原因是显而易见的：一方面，别名可以在列表中直接存取而不像文件路径那样需要从键盘输入；另一方面，别名可以设置的很短，即使从键盘上输入也比较快捷。

另外，在Table控件的属性TableName和Query控件的SQL语句中，都可以包含数据表的路径信息。因为Query和Table控件的情况十分相似，所以下面只对Table控件进行说明。这种路径信息既可以是一个完整的路径，也可以是一个完整路径的后面部分。比如对Table控件的属性TableName进行赋值时，可以把c:/delphi/demo1/data/subscriber赋给它，也可以把data/subscriber赋给它。即，可以使用绝对路径，也可以使用相对路径。

为了便于程序移植，通常只需要在属性DataBaseName中指定数据表的路径，而在TableName中不必包括路径信息。一般情况下，不要在属性TableName 中指定完整的路径。

（3）        在使用到Table控件和Query控件的窗体的OnCreate事件中，把应用程序所在路径赋值给该窗体上的每一个Table控件和Query控件。 Table1.databasename:=ExtractFilePath(application.ExeName);

（3）在使用到Table控件和Query控件的窗体的OnCreate事件中，把应用程序所在路径赋值给该窗体上的每一个Table控件和Query控件。

Table1.databasename:=ExtractFilePath(application.ExeName);

3．利用数据库别名存放数据库路径

要使用session动态创建数据库别名，需要在窗体上添加一个session1组件，添加成功后，系统该窗体对应的单元接口部分的uses子句里添加一个DBTables单元。我们在动态创建和删除数据库别名时将用到的就是该单元定义的一个Session全局变量，而不是添加在窗体上的Session1组件。在试题库系统的创建过程中，为了以防混淆，我们删除了窗体上的Session1组件，这样做对于功能的实现是没有任何影响的。

下面代码说明如何建立名字为“Subscriber”的别名，它的数据库路径为“E:/subscriber”，数据库类型为PARADOX。

Session.ConfigMode:=cmall;//指定Session的配置模式

Session.AddStandardAlias(‘net’,’E:/ subscriber’，’PARADOX’); //创建别名为net的paradox类型的数据库，其路径是e:/subscriber

如须对别名进行删除，则先要检查别名是否存在，如果对不存在的别名做删除操作则会引起异常。下面代码说明如何检查数据库别名“Subscriber”是否存在，如果存在则进行删除。

 定义变量：var strAlias:TStringList; //用于保存BDE数据库别名表

 代码：    strAlias:=TStringList.Create;//生成TstringList类的实例

           Session.GetAliasNames(strAlias);//获取当前所有数据库别名

          //查找subscriber是否存在，存在返回值为-1，不存在为非-1

if (strAlias.IndexOf(' Subscriber’) <> -1) then

begin

            session.DeleteAlias(' Subscriber ');//删除数据库别名subscriber

  session.SaveConfigFile;  //保存

end;