Delphi开发工具中如何访问数据库结构

在开发数据库软件的过程中，由于实际需求的不断变化，数据库结构也会发生变化，这给文档更新带来很大的困难。如果软件能够自动获取数据库的结构信息并生成报表文件，那么软件的工作量就会减少。

1会话对象

为了管理应用程序和数据库系统之间的多重连接，Delphi提供了TSession对象。Delphi中的每个数据访问对象都包含Session属性，用来指向对应的TSession对象。如果一个应用程序需要同时建立到数据库系统(尤其是BDE数据库)的多个连接，就必须定义多个TSession对象。属于不同连接的数据访问对象的会话属性不能相同，否则不会同时使用。

当数据库应用程序运行时，Delphi将自动生成一个名为Session的默认TSession对象，默认情况下数据访问对象与它相连。

TSession对象不仅可以自动管理数据库连接，还可以获取数据库信息。这方面的功能介绍如下。

2获取数据库别名信息。

TSession对象在获取数据库别名时有3个函数/过程:

以下是引文:
proceduretsession . getaliasnames(list:tstrings)；
过程TSession。getalias params(const alias name:string；list:TStrings)；
函数TSession。GetAliasDriverName(const alias name:string):string；

GetAliasNames用于获取所有BDE别名，结果保存在变量列表中；GetAliasParams用于获取一个BDE别名的参数，结果保存在变量列表中；GetAliasDriverName用于获取BDE别名使用的数据库驱动程序的名称。

这三个功能都不太复杂，就不介绍了。一般来说，我们只需要使用GetAliasNames。

3获取数据表信息

知道数据库别名后，如何取出别名对应的数据库中包含的数据表？可以在TSession对象中使用GetTableNames过程。该过程描述如下:

以下是加引号的片段:
proceduretsession . gettablenames(const databasename，pattern:string；

各参数的含义如下:

DatabaseName:数据库别名；

Pattern: filter，用于过滤结果。可以使用通配符。比如“*”。dbf”、“t *”等等。如果是空字符串，说明不需要过滤；

Extensions:布尔值，指示是否显示数据表扩展。该参数仅对DBF和Paradox数据库有效；

SystemTables:布尔量，表示是否显示系统数据表；

List:为了返回结果，结果按字母顺序排序。