unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ABSMain, Grids, DBGrids;

type
  TForm1 = class(TForm)

    ABSDatabase1: TABSDatabase;
    ABSTable1: TABSTable;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure Button1Click(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

//=============================================================================
//  フォーム生成時の処理
//  全てオブジェクトインスペクタで設定可能
//=============================================================================
procedure TForm1.FormCreate(Sender: TObject);
begin
  //データ表示用コントロール関係設定
  DataSource1.DataSet := ABSTable1;
  DBGrid1.DataSource  := DataSource1;

  //TABSDatabaseでデータベースのファイル名とデータベース名を設定
  //データベース名は任意
  ABSDatabase1.DatabaseFileName := ExpandFileName('../ABStest.abs');
  ABSDatabase1.DatabaseName     := 'MyABS_Database';

  //TABSTableで操作する対象のデータベース名と表名を指定する
  ABSTable1.DatabaseName := ABSDatabase1.DatabaseName;
  ABSTable1.TableName    := 'customer';
end;

//=============================================================================
//  フォームが閉じる時の処理
//=============================================================================
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  ABSDatabase1.Close;
end;

//=============================================================================
//  TableをOpenしてデータをTDBGridに表示
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
begin
  ABSTable1.Active := True;
end;

end.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ABSMain, Grids, DBGrids;

type
  TForm1 = class(TForm)

    ABSDatabase1: TABSDatabase;
    ABSQuery1: TABSQuery;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure Button1Click(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

//=============================================================================
//  フォーム生成時の処理
//  全てオブジェクトインスペクタで設定可能
//=============================================================================
procedure TForm1.FormCreate(Sender: TObject);
begin
  //データ表示用コントロール関係設定
  DataSource1.DataSet := ABSQuery1;
  DBGrid1.DataSource  := DataSource1;

  //TABSDatabaseでデータベースのファイル名とデータベース名を設定
  //データベース名は任意
  ABSDatabase1.DatabaseFileName := ExpandFileName('../ABStest.abs');
  ABSDatabase1.DatabaseName     := 'MyABS_Database';

  //TABSQueryで操作する対象のデータベース名を指定する
  ABSQuery1.DatabaseName := ABSDatabase1.DatabaseName;
end;

//=============================================================================
//  フォームが閉じる時の処理
//=============================================================================
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  ABSDatabase1.Close;
end;

//=============================================================================
//  クエリの実行
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
begin
  ABSQuery1.Close;

  ABSQuery1.SQL.Clear;
  ABSQuery1.SQL.Add('select * from customer');

  ABSQuery1.Open;
end;

end.