Форум: "Базы";
Текущий архив: 2006.02.19;
Скачать: [xml.tar.bz2];

Вниз

Вычисляемое поле   Найти похожие ветки 

← →
Fed ©   (2005-12-24 23:28) [0]

Добрый день. БД в BDE. Нужно подсчитать сумму одной из колонок "Prostoi" и создать вычислямое поле, где будет отображаться в процентах отношение значения поля "Prostoi" к сумме всей колонки.
Хотелось бы обойтись без SQL. Сумма подсчитывается так
var i:integer;
   s:real;
begin
s:=0;
Table1.First;
for i:=1 to Table1.RecordCount do begin
s:=s+Table1Prostoi.AsFloat;
Table1.Next;
end;
Label2.Caption:=FloatToStr(s);

end;
Если этот код использовать при создании формы, все вроде бы хорошо, но при изменении в какой-нибудь записи значения "Prostoi", сумма не изменеяется и следовательно в вычисляемом поле высчитывается неверное значение.
Вычисляемое поле
procedure TForm1.Table1CalcFields(DataSet: TDataSet);
var i,s1:integer;
   s:real;
begin
s:=(Table1Prostoi.AsFloat/StrToFloat(Label2.Caption))*100;//Label1-сумма
s1:=Round(s);
Table1Otn.Value:=s1;
end;
Если вставить код вычисления суммы в TForm1.Table1CalcFields(DataSet: TDataSet) Delphi ругается. Как заставить прогу пересчитывать сумму при изменении значения поля?

---

← →
atruhin ©   (2005-12-25 08:22) [1]

См OnAfterPost для соответствующего поля

---

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

Форум: "Базы";
Текущий архив: 2006.02.19;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.043 c