Базы данных в Delphi
| Категория реферата: Рефераты по информатике, программированию
| Теги реферата: дипломная работа персонал, доклад по географии
| Добавил(а) на сайт: Sergej.
Предыдущая страница реферата | 1 2 3 4 5 6 7 8 9 10 | Следующая страница реферата
for f:=1 to k do
begin
t:=t+table2.fieldbyname('ocenka').value;
table2.next;
end;
tt[1, 1]:=t/k;
//table1.Filtered:=false;
end;
end;
label1.caption:=(inttostr(t));
end;
procedure TForm1.Button2Click(Sender: TObject);
var
i:integer;
sum:extended;
begin
table2.filter:='grup=2';
for i:=1 to Table2.recordcount do
begin
Table2.moveby(i);
sum:=sum + strtoint(Table2.Fieldbyname('ocenka').value);
end;
sum:=sum/Table2.recordcount;
//abel1.caption:=floattostr(sum)+ label1.caption;
end;
Рекомендуем скачать другие рефераты по теме: реферат экологические проблемы, новшество.
Категории:
Предыдущая страница реферата | 1 2 3 4 5 6 7 8 9 10 | Следующая страница реферата
Главная