Главная страница
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.048 c
2-1138550619
13
2006-01-29 19:03
2006.02.19
ActionMainMenuBar


1-1137596199
Still Swamp
2006-01-18 17:56
2006.02.19
Не исполняется Destructor.


6-1131291763
Volf_555
2005-11-06 18:42
2006.02.19
Как программно щёлкнуть на ссылку в Internet Explorer?


4-1133464802
AversFm
2005-12-01 22:20
2006.02.19
Прочитать текст из чужого DBLookupComboBox


4-1133448139
serko
2005-12-01 17:42
2006.02.19
Выключение монитора