| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

quickreport и число записей

dimablind ©   (2004-01-09 22:51:00) 

Здравствуйте!
Как передать в quickReport число записей таблицы? Это число нужно для подсчета процентного соотношения , считаемое в TQrExpression.
В свойстве expression этого компонента такое:
diseaseCount/RecCount*100
DiseaseCount-поле, RecCount-число записей
С уважением Дмитрий

---

DCoder   (2004-01-10 12:31:00) [1]

Я в таких случаях вместо экспрешн ставлю TQRLabel, и прописую все вычисления руками

procedure Tqr_schet.QRBand1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
var Pr:Currency;
begin //построчно
Pr:=EngineDM.tbBuffSellFPrice.AsFloat/(1+NDS);
lbPrice.Caption:=FloatToStrF(Pr,fffixed,6,2);
StartSumma:=StartSumma+Pr * EngineDM.tbBuffSellFCount.AsInteger;
lbSumLine.Caption:=FloatToStrF(Pr * EngineDM.tbBuffSellFCount.AsInteger,fffixed,6,2);
end;

А переменную со значением Еаблэ.РэкордКаунт из модуля в модуль не сложно передать.

Обнулять накопительные переменные тут обязательно!!!

procedure Tqr_schet.QuickRepAfterPrint(Sender: TObject);
begin
StartSumma:=0;
....
end;

---

Наверх