Пример использования Delphi + ReportSmith

Завершенное приложение Delphi + ReportSmith есть в примерах к данному уроку. Приложение позволяет выбрать имя отчета в диалоге открытия файлов и выполнить этот отчет. Код для кнопки PrintReport (Печатать отчета) показан ниже.

procedure TForm1.PrintReportClick(Sender: TObject);

begin

if OpenDialog1.Execute then begin

Report1.ReportName := OpenDialog1.Filename;

Report1.Run

end

end;

Содержание раздела