delphi - FastReport-テーブル形式でデータを表示する方法は？

Question

のテーブル形式でデータを表示するにはどうすればよいFastReportですか？

編集

つまり、次のようなレポートを作成したいと思います:(表形式で）。

Answer 1

FRウィザードを使用する最も簡単な方法

FRファイルメニュー>新規>標準レポートウィザードから

[レイアウト]ページが表示されたら、レイアウトから表形式を選択してから[OK]を選択します

Answer 2

自分でグリッドを作成する必要があると思います。開始するためのグリッドレイアウトを構築するコードを次に示します。希望の外観を得るには、列幅を調整し、フォーマットコード（memo.frame）を追加する必要があります。

procedure CreateHeader(frxDataset: TfrxDBDataSet; Page: TfrxReportPage);
var
  i: Integer;
  X, Y, ThisWidth: Extended;
  HeaderMemo: TfrxCustomMemoView;
  Column: TcxGridDBColumn;
begin
  Band := TfrxPageHeader.Create(Page);
  Band.CreateUniqueName;
  Band.SetBounds(0, 0, 0, fr01cm * 7);
  Band.Height := edtHeightHeader.Value;

  HeaderMemo := CreateMemo(Band);
  HeaderMemo.SetBounds(0, 0, PageWidth, 0);

  // Set memo style
  // Or just add a frame HeaderMemo.Frame....
  HeaderMemo.Style := 'Header line';

  X := 0;
  Y := 0;

  Memo := CreateMemo(Band);
  Memo.SetBounds(0, Y, X, fr01cm * 6);
  Memo.Height := Band.Height - 1;

  for i := 0 to pred(frxDataset.Fields.Count) do
  begin
    ThisWidth := 100;

    Memo := CreateMemo(Band);
    Memo.SetBounds(X, Y, ThisWidth, fr01cm * 6);

    Memo.Text := frxDataset.Fields[i].FieldName;

    // Set memo style
    // Or just add a frame HeaderMemo.Frame....
    Memo.Style := 'Header';

    Memo.Height := Band.Height - 1;

    X := X + ThisWidth;
  end;

  HeaderMemo.Height := Band.Height;
end;

procedure CreateFastReportDataBand(frxDataset: TfrxDBDataSet; Page: TfrxReportPage);
var
  i: Integer;
  X, Y, ThisWidth: Extended;
begin
  Band := TfrxMasterData.Create(Page);
  Band.CreateUniqueName;
  Band.SetBounds(0, CurY, 0, 0);
  Band.Height := edtHeightData.Value;

  TfrxMasterData(Band).frxDataset := frxDataset;

  X := 0;
  Y := 0;

  for i := 0 to pred(frxDataset.Fields.Count) do
  begin
    ThisWidth := 100;

    Memo := CreateMemo(Band);
    Memo.SetBounds(X, Y, ThisWidth, fr01cm * 5);
    Memo.Dataset := frxDataset;
    Memo.DataField := frxDataset.Fields[i].FieldName;

    // Set memo style
    // Or just add a frame HeaderMemo.Frame....
    Memo.Style := 'Data';

    Memo.Height := Band.Height - 1;

    X := X + ThisWidth;
  end;
end;

正常に動作するはずですが、アプリケーションから切り離してからテストする機会がありませんでした。

Answer 3

Framingメモのプロパティを使用して可能になります。