На этом шаге мы рассмотрим создание простейшего отчета.
Создайте в проекте новую пустую форму и поместите на ней компонент TQuickRep. Эта форма не будет создаваться автоматически в момент старта программы, поэтому после ее присоединения к проекту выберите команду Project | Options, и перенесите ее в список доступных форм Available forms.
Далее в свойство DataSet компонента TQuickRep поместите значение Form1.Table1. Заметим, что это свойство всегда должно быть заполнено ссылкой на тот НД, который будет содержать основную информацию, иначе полосы TQRBand типа rbDelail и TQRSubDelail не смогут автоматически реплицироваться по количеству записей НД.
Поместите на отчет полосы:
- TQRBand типа rbTitle. На ней расположите компоненты TQRLable со свойством Caption='Отчет книг на ' и TQRSysData со свойством Data=qrsdate.
- TQRBand типа rbColumnHeader. На ней расположите компоненты TQRLable2, TQRLable3, TQRLable4, TQRLable5, TQRLable6.
- TQRBand типа rbDetail. На ней расположите компоненты TQRDBText1, TTQRDBText2, TQRDBText3, TQRDBText4 со свойствами DataSet=Form1.Table1, DataField соответствует полю из БД.
Окно отчета на этапе конструирования выглядит следующим образом:
Рис.1. Окно отчета на этапе конструирования
Чтобы вызвать отчет в работающей программе необходимо создать обработчик события OnClick для компонента Button2:
procedure TForm1.Button1Click(Sender: TObject); begin Form2.QuickRep1.Preview; end;
После выполнения программы отчет должен содержать следующее:
Рис.2. Окно предварительного просмотра отчета
Текст этого примера можно взять здесь.
На следующем шаге мы рассмотрим компонент TQRExpr.
