第13章 数据库编程(8)

delphi数据库编程

procedure TForm1.FormCreate(Sender: TObject);

begin

ADOConnection1.GetTableNames(ListBox1.Items); //用表名填充列表框

end;

为按钮btnShow的单击事件编写如下代码： procedure TForm1.btnShowClick(Sender: TObject);

var i : Integer;

begin

i := ListBox1.ItemIndex; //取列表框中被选项目的索引号

if i = -1 then Exit; //确保已选择项目，避免出错

with ADOTable1 do

begin

Close; //关闭数据集

TableName := ListBox1.Items[i]; //根据用户的选择重新指定表名

Open; //打开数据集

end;

end;

四、ADOTable组件◆

1. 使用ADOTable组件的一般步骤

隶属于ADO的ADOTable组件与隶属于BDE的Table组件由许多相似之处。使用ADOTable组件的一般步骤如下：

将ADOTable组件添加到数据模块或窗体中，为其设置一个惟一

的名称（Name属性）。

定义数据库连接：

方法1：直接使用ADOTable组件的ConnectionString属性。

方法2：通过ADOTable组件的Connection属性指定一个已经与

数据库建立连接的ADOConnection组件。

在ADOTable组件TableName属性的下拉式列表中选择数据库表。 在数据模块或窗体中添加一个数据源组件，将该组件的DataSet

属性设置为ADOTable组件的名称。

在窗体上放置数据感知组件，将其DataSource属性设置为数据源

组件。

在属性窗口或通过代码将ADOTable组件的Active属性设置为