Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.02.19;
Скачать: CL | DM;

Вниз

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

 
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;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.074 c
2-1138783630
SDssss
2006-02-01 11:47
2006.02.19
перенести с С в Delphi5


4-1133858969
volod
2005-12-06 11:49
2006.02.19
Запуск bat файла


2-1138686124
Mike48
2006-01-31 08:42
2006.02.19
315-й вопрос про ehlib


1-1137654092
_white_
2006-01-19 10:01
2006.02.19
Как найти в другой программе нужный компонент


2-1138677594
OlegM
2006-01-31 06:19
2006.02.19
Узнать какое изображение используеться в качесте обоев