//=============================================================================
//  プレビューフォームを表示
//  プレビューフォームは[プロジェクト][オプション]で自動生成から外しておく
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
begin
  plPrevForm1 := TplPrevForm1.Create(Self);
  try
    plPrevForm1.plQueryPrev1.Title := 'クエリー印刷のテスト';
    plPrevForm1.ShowModal;
  finally
    FreeAndNil(plPrevForm1);
  end;
end;

var
  plPrevForm1: TplPrevForm1;

implementation

type
   TPVQueyr = class(TplQueryPrev);

{$R *.DFM}

//=============================================================================
//  このプレビューフォーム生成時の処理
//  クエリを実行して、その結果を表示
//=============================================================================
procedure TplPrevForm1.FormCreate(Sender: TObject);
var
  LColumn : TplQueryColumn;
begin
  with Query1 do begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT T2.CustNo,');
    SQL.Add('       T4.Company,');
    SQL.Add('       T3.Description,');
    SQL.Add('       T1.OrderNo, ');
    SQL.Add('       T3.ListPrice,');
    SQL.Add('       T3.Cost, ');
    SQL.Add('       T1.Qty,');
    SQL.Add('       T1.Qty*T3.Cost as Sales');
    SQL.Add('FROM   "Items.db" T1,');
    SQL.Add('       "Orders.db" T2,');
    SQL.Add('       "Parts.db" T3,');
    SQL.Add('       "Customer.db" T4 ');

    SQL.Add('WHERE  (T2.OrderNo = T1.OrderNo) AND ');
    SQL.Add('       (T3.PartNo = T1.PartNo) AND ');
    SQL.Add('       (T4.CustNo = T2.CustNo) AND ');
    SQL.Add('       (T4.CustNo=:Param ) ');
    SQL.Add('ORDER BY T2.CustNo,T3.Description ');
    ParamByName('Param').AsInteger := 1351;
    Open;
  end;

  //コードで印刷項目を指定
  //各項目のプロパティはデフォルトのまま
  plQueryPrev1.Columns.Clear;

  LColumn := plQueryPrev1.Columns.Add;
  LColumn.FieldName := 'CustNo';
  LColumn := plQueryPrev1.Columns.Add;
  LColumn.FieldName := 'Company';
  LColumn := plQueryPrev1.Columns.Add;
  LColumn.FieldName := 'Description';
  LColumn := plQueryPrev1.Columns.Add;
  LColumn.FieldName := 'OrderNo';
  LColumn := plQueryPrev1.Columns.Add;
  LColumn.FieldName := 'Cost';
  LColumn := plQueryPrev1.Columns.Add;
  LColumn.FieldName := 'Qty';
  LColumn := plQueryPrev1.Columns.Add;
  LColumn.FieldName := 'Sales';

  //必ず必要
  inherited;
end;

//=============================================================================
//  plQueryPrev1のOnReportStartイベント処理
//  [プリンタ設定]ボタンを表示
//
//  TplQueryPrevコンポはTplPrevの先読方式を使用している
//  先読み方式ではTplPrev.BeginDoc内で[プリンタ設定]ボタンを非表示にしている
//  TplPrev.BeginDocの実行後でないと[プリンタ設定]ボタンの表示制御ができない
//=============================================================================
procedure TplPrevForm1.plQueryPrev1ReportStart(Sender: TObject;
  var YPos: Integer);
begin
  plQueryPrev1.BtnOptions := plQueryPrev1.BtnOptions + [boPrinterSetBtn];
end;

//=============================================================================
//  プレビューフォームを表示したままで別のクエリを実行
//  以下のSQL文はWHERE句を変更しているだけ
//
//  SQL文は文字列のリストなので、実際には必要な部分だけ置き換えることも可能
//=============================================================================
procedure TplPrevForm1.plButton1Click(Sender: TObject);
begin
  with Query1 do begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT T2.CustNo,');
    SQL.Add('       T4.Company,');
    SQL.Add('       T3.Description,');
    SQL.Add('       T1.OrderNo, ');
    SQL.Add('       T3.ListPrice,');
    SQL.Add('       T3.Cost, ');
    SQL.Add('       T1.Qty,');
    SQL.Add('       T1.Qty*T3.Cost as Sales');
    SQL.Add('FROM   "Items.db" T1,');
    SQL.Add('       "Orders.db" T2,');
    SQL.Add('       "Parts.db" T3,');
    SQL.Add('       "Customer.db" T4 ');

    SQL.Add('WHERE  (T2.OrderNo = T1.OrderNo) AND ');
    SQL.Add('       (T3.PartNo = T1.PartNo) AND ');
    SQL.Add('       (T4.CustNo = T2.CustNo) AND ');
    SQL.Add('       (T4.CustNo=:Param ) ');
    SQL.Add('ORDER BY T2.CustNo,T3.Description ');
    ParamByName('Param').AsInteger := 1221;
    Open;
  end;

  //protected部のExecuteメソッドを実行
  TPVQueyr(plQueryPrev1).Execute;
  //表示更新
  plQueryPrev1.Display(plQueryPrev1.PageNumber);
end;

//=============================================================================
//  [プリンタ設定]ボタンのクリックイベント処理
//  プリンタの設定ダイアログを表示して、用紙サイズ等を設定する
//=============================================================================
procedure TplPrevForm1.PrinterSetBtnClick(Sender: TObject);
begin
  //元のコードを実行
  //元のコードは[プリンタの設定]ダイアログの表示]
  inherited;

  //protected部のExecuteメソッドを実行
  TPVQueyr(plQueryPrev1).Execute;
  //表示更新
  //最後に実行したSQL文で取得したデータを表示
  plQueryPrev1.Display(plQueryPrev1.PageNumber);
end;

end.