Delphi Absolute Database（绝对数据库）使用入门（六）打开和关闭表

打开一个表

       要读取或写入表中的数据，应用程序必须首先打开它。
 

1.	将组件面板的Absolute DB选项卡中的TABSDatabase和TABSTable组件放置到一个数据模块或窗体上，如果您还没有这样做的话。

2.	设置TABSDatabase组件。将组件的 TABSDatabase.DatabaseName 设置为一个唯一的值，稍后将使用该值来标识数据库。设置TABSDatabase.DatabaseFileName属性为现有或新数据库文件的名称。

3.	设置TABSTable组件。从可用TABSDatabase组件的下拉列表中设置 TABSTable.DatabaseName属性。设置TABSTable.TableName属性为要创建的表的名字，如果你还没有做过的话。

4.	设置附加TABSTable属性（可选）。设置TABSTable组件的ReadOnly、InMemory、Exclusive属性。

5.	连接到数据库（可选）。

6.打开表。你可以用两种方式打开表，

·

设置表的Active属性设置为True，无论是在对象检查器中的设计时，还是在运行时的代码中：ABSTable1.Active := True;

·

在运行时调用Open方法，ABSTable1.Open；

示例:

  {设置数据库组件}
  ABSDatabase1.DatabaseName := 'emp_db';
  ABSDatabase1.DatabaseFileName := 'c:\data\employee_db.abs';

  {设置表组件}
  ABSTable1.DatabaseName := 'emp_db';
  ABSTable1.TableName := 'employee';

  {打开表}
  if (not ABSDatabase1.Exists) then
    raise Exception.Create('Database file does not exist');
  if (not ABSTable1.Exists) then
    raise Exception.Create('Table "employee" does not exist');
  ABSTable1.Active := True;


关闭一个表

关闭数据集有两种方式，

·	设置表的Active属性设置为False，无论是在对象检查器中的设计时，还是在运行时的代码中，ABSTable1.Active := False;

·	在运行时调用Close方法，ABSTable1.Close；