Qreport

← →
ksa2002 © (2004-07-13 07:17) [0]

Создаю отчёт в QReport (накладная), можно ли сделать так чтобы перед каждой записью шёл порядковый номер (т.е. первая запись №1 и т.д.) средсвами QReport , если можно то как ?

← →
ORMADA © (2004-07-13 07:41) [1]

сделай вычисляемое поле и присваивй ему RecNO, усё

← →
KSergey © (2004-07-13 07:51) [2]

На счет RecNo - я не совсем уверен, зависит от движка. Можно просто завести переменную внутри и ручками выводить ее (ну или в событии отображения Label - весьма удобно)

← →
ksa2002 © (2004-07-13 08:00) [3]

Пример можно ?

← →
ksa2002 © (2004-07-13 08:00) [4]

Пример можно ?

← →
KSergey © (2004-07-13 08:23) [5]

Ну какой еще пример??
Кидаем 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 лейблы по аналогии с вышеприведенным кодом.

ок спасибо

Так вроде есть стандартный метод, в QRSysData, если не ошибаюсь в названии, Data:=qrsDetailNo; и все

Qreport Найти похожие ветки