Создание отчетов

[Ardarik]

Кто как делает отчеты? Через Reve Reports у меня пустой лист. Как создать сам проект отчета? Нашел видео но у меня там где нужно выбрать какие поля выбора нет. А что выводить находиться в разных таблицах. По этому я не могу в DBGrid сразу вывести как в видео.
http://delphiexpert.ru/view_lesson.php?id=96

[GoodDA]

FreeReport лучше всего,
можно еще напрямую в ексель или в ворд выводить

[evg_m]

А что выводить находиться в разных таблицах. По этому я не могу в DBGrid сразу вывести

1. используйте для выбора данных SQL ориентированные компоненты. TADODataset TADOQuery или аналогичные с других вкладок.
позволит получать соединение таблиц +отбор нужных данных в одном НД(DataSet)
2. для их испольования учите SQL (для начала Мартин Грубер Понимание SQL).

[Ardarik]

Вроде получилось. http://www.delphicode.org/database/rave_report_ado.htm вот может кому пригодиться. Только я вместо ADOTable использовал ADOQuery

[Ardarik]

В PDF сохраняет но вместо русских букв иероглифы

[eval]

вот может кому пригодиться

ёёёё, не такое нам и на дух нини, жуть ... теперь не спать всю ночь..

[Ardarik]

ёёёё, не такое нам и на дух нини, жуть ... теперь не спать всю ночь..

Что? Что то другое можете предложить?

[eval]

мало ли репортеров
http://www.fast-report.com/ru/ сойдет?

[Ardarik]

По совету evalа отчет в fast-report. Вот код создания без дизайнера

var
  DataPage: TfrxDataPage;
  Page: TfrxReportPage;
  Band: TfrxBand;
  DataBand: TfrxMasterData;
  Memo: TfrxMemoView;
 
{ очищаем отчет }
frxReport1.Clear;
 
{ добавляем источник данных в список доступных для отчета }
frxReport1.DataSets.Add(frxDBDataSet1);
 
{ добавляем страницу "Данные" }
DataPage := TfrxDataPage.Create(frxReport1);
 
{ добавляем страницу }
Page := TfrxReportPage.Create(frxReport1);
{ создаем уникальное имя }
Page.CreateUniqueName;
{ устанавливаем размеры полей, бумаги и ориентацию по умолчанию }
Page.SetDefaults;
{ меняем ориентацию бумаги }
Page.Orientation := poLandscape;
 
{ добавляем report title }
Band := TfrxReportTitle.Create(Page);
Band.CreateUniqueName;
{ для бэнда достаточно установить координату Top и высоту }
{ обе координаты - в пикселах }
Band.Top := 0;
Band.Height := 20;
 
{ добавляем объект на report title }
Memo := TfrxMemoView.Create(Band);
Memo.CreateUniqueName;
Memo.Text := 'Hello FastReport!';
Memo.Height := 20;
{ этот объект будет растянут на ширину бэнда }
Memo.Align := baWidth;
 
{ добавляем master data }
DataBand := TfrxMasterData.Create(Page);
DataBand.CreateUniqueName;
DataBand.DataSet := frxDBDataSet1;
{ координата Top не должна пересекать ранее добавленный бэнд! }
DataBand.Top := 100;
DataBand.Height := 20;
 
{ добавляем объект на master data }
Memo := TfrxMemoView.Create(DataBand);
Memo.CreateUniqueName;
{ подключаем к данным }
Memo.DataSet := frxDBDataSet1;
Memo.DataField := 'CustNo';
Memo.SetBounds(0, 0, 100, 20);
{ выравниваем текст по правому краю объекта }
Memo.HAlign := haRight;
 
{ показываем отчет }
frxReport1.ShowReport;

Вопрос. Как добавить нумерацию страниц?

[eval]

Вы что-то не то делаете.
У репортеров, в частности у фаста, есть дизайнер, в нем все и "рисуете", там же и нумерацию страниц, а в коде только дергаете его и всё.