FastReport создание отчета программно

[Lokos]

Здравствуйте.
Как можно создавать отчет в FastReport программно минуя дизайнер.
Например для решения след задачи.
Есть таблица с полями 1..10 и скажем пользователь может сделать выборку любого сочетания полей. Если решать такой вопрос через дизайнер то придется создавать кучу отчетов с учетом всех возможных вариаций(((
Отсюда вопрос как сделать отчет программно если известны выбираемые поля пусть это будет поле с именем 1 и 2.

[Lokos]

в инструкции к FastReport 3.0 Нашел следующее

var
Page: TfrxReportPage;
Band: TfrxBand;
DataBand: TfrxMasterData;
Memo: TfrxMemoView;
K:TPrinterOrientation;
begin
   K:=TPrinterOrientation.poLandscape;
   DataSet.Close;
   DataSet.SQLs.SelectSQL.Text:='select * from SOTRUDNIKI';
   DataSet.Open;
   frxreport.Clear;
   frxreport.DataSets.add(rpDataset);//вот только метода add нету
   Page:=TfrxReportPage(frxreport);
   Page.CreateUniqueName;
   Page.SetDefaults;
   Page.Orientation:= K;
   Band := TfrxReportTitle.Create(Page);
   Band.CreateUniqueName;
   Band.Top := 0;
   Band.Height := 20;
   Memo := TfrxMemoView.Create(Band);
   Memo.CreateUniqueName;
   Memo.Text := 'Hello FastReport!';
   Memo.Height := 20;
   Memo.DataSet := rpDataset;
   Memo.DataField := 'id';
   Memo.SetBounds(0, 0, 100, 20);
   frxreport.ShowReport;
end;

Вылетает ошибка при попытке добавить источник данных(((

[Lokos]

Сообщение от Lokos

в инструкции к FastReport 3.0 Нашел следующее

var
Page: TfrxReportPage;
Band: TfrxBand;
DataBand: TfrxMasterData;
Memo: TfrxMemoView;
K:TPrinterOrientation;
begin
   K:=TPrinterOrientation.poLandscape;
   DataSet.Close;
   DataSet.SQLs.SelectSQL.Text:='select * from SOTRUDNIKI';
   DataSet.Open;
   frxreport.Clear;
   frxreport.DataSets.add(rpDataset);//вот только метода add нету
   Page:=TfrxReportPage(frxreport);
   Page.CreateUniqueName;
   Page.SetDefaults;
   Page.Orientation:= K;
   Band := TfrxReportTitle.Create(Page);
   Band.CreateUniqueName;
   Band.Top := 0;
   Band.Height := 20;
   Memo := TfrxMemoView.Create(Band);
   Memo.CreateUniqueName;
   Memo.Text := 'Hello FastReport!';
   Memo.Height := 20;
   Memo.DataSet := rpDataset;
   Memo.DataField := 'id';
   Memo.SetBounds(0, 0, 100, 20);
   frxreport.ShowReport;
end;

Вылетает ошибка при попытке добавить источник данных(((

Проблему с DataSet решил необходимо было добавить его в инспекторе объектов.
Появилась проблема с установкой ориентации листа

 K:=TPrinterOrientation.poLandscape;
 Page.Orientation:= K;

В документации указанно след образом

Page.Orientation := poLandscape;

данный способ не работает(
Так же вызывает ошибку доступа к не существующему адресу след строчка

 Page.SetDefaults;

заменил

 Page:=TfrxReportPage(frxreport);

на

 Page:=TfrxReportPage.Create(frxreport);

Все заработало, все таки отличие в версия ощутимо(((
Осталась одна проблема выводится только первая запись((( как сделать вывод всех записей которые были выбраны?

[Sparkman]

Я бы посоветовал вам обратить свой взор на работу с word, excel. Там все программно

[Lokos]

Сообщение от Sparkman

Я бы посоветовал вам обратить свой взор на работу с word, excel. Там все программно

Собственно отчет начал отображаться полностью просто необходимо было добавить Band MasterData и все стало отлично.

Но появились еще вопросы как сделать обрамление полей?

[Serge_Bliznykov]

Но появились еще вопросы как сделать обрамление полей?

.FrameTyp

  if Assigned(frReport1.FindObject('Memo21')) then
   frReport1.FindObject('Memo21').FrameTyp := 15;

а ещё можете посмотреть на
.FrameColor
.FrameWidth
.FrameStyle

по названиям понятно, для чего это...

А вообще, я бы создал отчёт в designtime, ручками нарисовал шапку, номера страниц, нужные источники данных и т.д.
поместил Band

А уже сам набор полей (frMemo) создавал в runtime.

p.s. у меня версия фастрепорт 2.55, но я думаю, что в 3.x свойства такие же..

[Lokos]

что то так не канает попробовал след образом

 FioAgD := TfrxMemoView.Create(DataBand);
   FioAgD.CreateUniqueName;
   FioAgD.Height := 20;
   FioAgD.DataSet := DM1.rpDataset;
   FioAgD.DataField := 'ФИО АГЕНТА';
   FioAgD.SetBounds(0, 0, 190, 20);
   FioAgD.Frame.Typ//но значение подставить не знаю как

если подставить 15 то получается ошибка
[DCC Error] ViewData.pas(151): E2010 Incompatible types: 'TfrxFrameTypes' and 'Integer'

если создать переменную тип TfrxFrameTypes то работать с ней не получается

[Lokos]

Вообщем сделать это можно так

   FioAgD := TfrxMemoView.Create(DataBand);
   FioAgD.CreateUniqueName;
   FioAgD.Height := 20;
   FioAgD.DataSet := DM1.rpDataset;
   FioAgD.DataField := 'ФИО АГЕНТА';
   FioAgD.Font.Style:=[fsBold];//Выделяем жирным шрифтом
   FioAgD.SetBounds(0, 0, 190, 20);
   FioAgD.Frame.Typ:=[ftLeft,ftRight,ftTop,ftBottom];//Рисует рамку