Текущий архив: 2004.02.02;
Скачать: CL | DM;

Вниз

quickreport и число записей   Найти похожие ветки 

← →
dimablind   (2004-01-09 22:51) [0]

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

---

← →
DCoder ©   (2004-01-10 12:31) [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;

---

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

Текущий архив: 2004.02.02;
Скачать: CL | DM;

Наверх

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