Компонент TQRSysData

Компонент TQRSysData используется для выведения вспомогательной и системной информации. Вид информации определяется свойством

propety Data : TQRSysDataType;

Ниже указано возможные значения этого свойства :

qrsColumnNo - номер текущей колонки отчета (для одноколонного отчета всегда 1);

qrsDate - текущая дата;

qrsDateTime - текущие дата и время;

qrsDetailCount - количество записей в НД, а при использовании нескольких НД - количество записей в главном набор;

qrsDelailNo - номер текущей записи в НД;

qrsPageNumber - номер текущей страницы отчета;

qrsPageCount - общее количество страниц отчета;

qrsReportTitle - заглавие отчета;

qrsTime - текущее время.

Пример:

Создайте в проекте новую пустую форму и поместите на ней компонент 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 отвечает полю из БД.

Окно отчета на этапе конструирования выглядит следующим образом:

Рисунок 7. Окно отчета на этапе конструирования

Чтобы вызывать отчет в работающей программе необходимо создать обработчик события OnClick для компоненту Button2 :

procedure TForm1.Button1Click(Sender: TObject);

Begin