select CustNo,Company,Zip,Addr1,Phone from customer

unit CustomerUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, plPrev, plDBGridPrev, DB, DBTables, Grids, DBGrids, StdCtrls, Buttons;

type
  TForm1 = class(TForm)
    DataSource1: TDataSource;
    Query1: TQuery;
    BitBtn1: TBitBtn;
    DBGrid1: TDBGrid;
    plDBGridPrev1: TplDBGridPrev;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

//=============================================================================
//  フォームを表示する時の処理
//  クエリーをオープン
//
//  Query1のSQL文は以下の通り
//  select CustNo,Company,Zip,Addr1,Phone from customer
//=============================================================================
procedure TForm1.FormShow(Sender: TObject);
begin
  Query1.Open;
end;

//=============================================================================
//  フォームを閉じる時の処理
//  クエリーをクローズ
//=============================================================================
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Query1.Close;
end;
//=============================================================================
//  オブジェクト・インスペクタで設定した内容でプレビュー
//=============================================================================
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  if plDBGridPrev1.plSetPrinter.ShowSetupDialog then begin
    plDBGridPrev1.Preview;
  end;
end;

end.