第13章 数据库编程(7)

delphi数据库编程

（2）Close方法

关闭连接。

在连接组件失活之前，所有相关的数据集均被关闭。调用Close方法与设置Connected属性为False等效。

如果一个活动连接被关闭后又重新打开，必须重新打开所有相关的数据集，重开连接不会自动重开相关的数据集。

（3）GetTableNames方法◆

① 语法

该方法可以将数据库中所有表的名称构成一个字符串列表。

语法（原型）如下： procedure GetTableNames(List: TStrings; SystemTables: Boolean = False);

参数说明：

List：已有的字符串列表对象，用于存放数据表名称列表。

SystemTables：指定表名称列表中是否包含数据库中的系统表，默认值为False。

注意：调用此方法时，字符串列表对象中的原有内容将被覆盖。 ② 示例

动态显示数据库中各表的数据。

基本思路：利用GetTableNames方法将数据库各表的名称填充到列表框或组合框中，程序运行时在列表框或组合框中选择一个表，通过DBGrid显示该表数据。

按下表在窗体上添加组件并设置属性。

为窗体的OnCreate事件编写如下代码：