На этом шаге мы рассмотрим создание простейшего отчета.

    Создайте в проекте новую пустую форму и поместите на ней компонент TQuickRep. Эта форма не будет создаваться автоматически в момент старта программы, поэтому после ее присоединения к проекту выберите команду Project | Options, и перенесите ее в список доступных форм Available forms.

    Далее в свойство DataSet компонента TQuickRep поместите значение Form1.Table1. Заметим, что это свойство всегда должно быть заполнено ссылкой на тот НД, который будет содержать основную информацию, иначе полосы TQRBand типа rbDelail и TQRSubDelail не смогут автоматически реплицироваться по количеству записей НД.

    Поместите на отчет полосы:

1. TQRBand типа rbTitle. На ней расположите компоненты TQRLable со свойством Caption='Отчет книг на ' и TQRSysData со свойством Data=qrsdate.
2. TQRBand типа rbColumnHeader. На ней расположите компоненты TQRLable2, TQRLable3, TQRLable4, TQRLable5, TQRLable6.
3. 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.

Предыдущий шаг Содержание Следующий шаг