Как создать фиксированный отчет

Комментарии

• Stranger

  November 2004 отредактировано November 2004

  MasterData.RowCount = 5 и вручную подсовывать данные как тебе нравится.
  Или для бэнда с фиксированным текстом в OnBeforePrint выставлять фиксированный отступ от верха листа.
• badday

  November 2004 отредактировано 01:32

  Stranger написал:

  MasterData.RowCount = 5 и вручную подсовывать данные как тебе нравится.
  Или для бэнда с фиксированным текстом в OnBeforePrint выставлять фиксированный отступ от верха листа.

  Можете пример кода привести как вручную строить? Или где про это можно прочесть?
• Stranger

  November 2004 отредактировано November 2004

  Прочесть естественно в хелпе.
  А пример на. Имеем бэнд MasterData1 со свойством RowCount = 5. На бэнде мемка Memo1. И есть BDETable1, настроенная и подключенная куда надо. Обработчики:

  procedure Page1OnBeforePrint(Sender: TfrxComponent);
  begin
    BDETable1.Open;
  end;
  
  procedure MasterData1OnBeforePrint(Sender: TfrxComponent);
  begin
  if not BDETable1.EOF then
    begin
    Memo1.Text := <BDETable1."Имя">;
    BDETable1.Next;
    end
  else
    Memo1.Text := '';
  end;
  
• badday

  November 2004 отредактировано 01:32

  Stranger написал:

  Прочесть естественно в хелпе.
  А пример на. Имеем бэнд MasterData1 со свойством RowCount = 5. На бэнде мемка Memo1. И есть BDETable1, настроенная и подключенная куда надо. Обработчики:

  procedure Page1OnBeforePrint(Sender: TfrxComponent);
  begin
    BDETable1.Open;
  end;
  
  procedure MasterData1OnBeforePrint(Sender: TfrxComponent);
  begin
  if not BDETable1.EOF then
    begin
    Memo1.Text := <BDETable1."Имя">;
    BDETable1.Next;
    end
  else
    Memo1.Text := '';
  end;
  

  Спасибо что нашел время.
• Stranger

  November 2004 отредактировано 01:32

  Лучше б написал что у тебя все получилось
• badday

  November 2004 отредактировано 01:32

  Stranger написал:

  Лучше б написал что у тебя все получилось

  Сделал в отчете
  
  procedure Page2OnManualBuild(Sender: TfrxComponent);
  var i : integer;
  DataSet : TfrxDataSet;
  begin
  Engine.ShowBand(Header1);
  DataSet := MasterData1.DataSet;
  DataSet.First;
  while not DataSet.Eof do begin
  Engine.ShowBand(MasterData1);
  DataSet.Next;
  end;
  Engine.CurY := 200; <-- куда надо
  Engine.ShowBand(Header2);
  end