应用IBTable组件

unit UIB_Table;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, DB, IBCustomDataSet, IBTable, IBQuery, DBTables, StdCtrls,  Grids, DBGrids, ExtCtrls, DBCtrls, IBDatabase, CheckLst;type  TFIB_Table = class(TForm)    IBTable1: TIBTable;    Button1: TButton;    DBGrid1: TDBGrid;    DataSource1: TDataSource;    IBDatabase1: TIBDatabase;    IBTable2: TIBTable;    DataSource2: TDataSource;    DBGrid2: TDBGrid;    IBTransaction1: TIBTransaction;    Memo1: TMemo;    Label1: TLabel;    Label2: TLabel;    procedure FormCreate(Sender: TObject);    procedure Button1Click(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end;var  FIB_Table: TFIB_Table;implementation{$R *.dfm}procedure TFIB_Table.FormCreate(Sender: TObject);begin IBTable1.Open;end;//获取IBTable1组件的索引，并将索引字段名称显示在编辑框中procedure TFIB_Table.Button1Click(Sender: TObject);var I:Integer;begin    IBTable1.Active := False;    Memo1.Text :='';    IBTable1.IndexDefs.Update;    //获取IBTable1组件的索引    for I := 0 to IBTable1.IndexDefs.Count - 1 do    begin      //将索引字段名称显示在编辑框中        memo1.Lines.Add(IBTable1.IndexDefs[I].Fields)   ;       end;    IBTable1.Active := True;end;end.