Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Qreport [D6, IB6.x]

ksa2002 © (2004-07-13 07:17:00)
Создаю отчёт в QReport (накладная), можно ли сделать так чтобы перед каждой записью шёл порядковый номер (т.е. первая запись №1 и т.д.) средсвами QReport , если можно то как ?

Deniz (2004-07-13 08:47:00) [1]
Так вроде есть стандартный метод, в QRSysData, если не ошибаюсь в названии, Data:=qrsDetailNo; и все

ksa2002 (2004-07-13 08:31:00) [2]
ок спасибо

KSergey (2004-07-13 08:23:00) [3]
Ну какой еще пример??
Кидаем TQRLabel туда, где номер нужен.
В модуле или классе (второе мне симпатичнее) заводит переменную, пусть - FLineNum.

В событии BeforePrint отчета пишем обработчик:

procedure TMyQRep.RepBeforePrint(Sender : TCustomQuickRep; var PrintReport : Boolean); begin FLineNum := 1; end;

В событии OnPrint этой лейблы пишем приметно такой обработчик:

procedure TMyQRep.Label1OnPrint(sender : TObject; var Value : string); begin Value := IntToStr(FLineNum); Inc(FLineNum); end;

Код накидал на скорую руку, просто иллюстративно, возможны ошибки.

Да, и еще
У QRep есть свойство RecordNumber. Возможно, вводить доп. переменную и не надоЮ достаточно использовать это св-ство в событии OnPrint лейблы по аналогии с вышеприведенным кодом.

ksa2002 (2004-07-13 08:00:00) [4]
Пример можно ?

ksa2002 (2004-07-13 08:00:00) [5]
Пример можно ?

KSergey (2004-07-13 07:51:00) [6]
На счет RecNo - я не совсем уверен, зависит от движка. Можно просто завести переменную внутри и ручками выводить ее (ну или в событии отображения Label - весьма удобно)

ORMADA (2004-07-13 07:41:00) [7]
сделай вычисляемое поле и присваивй ему RecNO, усё

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »