Скачать: CL | DM;

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

---

← →
ksa2002 ©   (2004-07-13 08:31) [6]

ок спасибо

---

← →
Deniz ©   (2004-07-13 08:47) [7]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.021 c