Меню сайта
Мини-чат
Чтобы добавить сообщение, необходимо авторизоваться.
Главная » Статьи » Не стандартные примеры на Delphi » Базы Данных

Функция вычисления суммы полей

    function SumField(const fieldName : OpenString) : longint;
var
fld : TField;
bm : TBookmark; // закладка
begin
result := 0;
tbl.DisableControls;  // выключаем рекцию на перемещение по набору данных
bm := tbl.GetBookmark;  // сохраняем позицию
fld := tbl.FieldByName(fieldName);
tbl.first;
while not tbl.eof do begin
result := result + fld.AsInteger;
tbl.next;
end;
tbl.GotoBookmark(bm); // позиционируем обратно
tbl.EnableControls;   // включаем реакцию на перемещение по набору данных
end;

Спасибо Alexsander за ценное замечание  

Категория: Базы Данных | Добавил: DelphiAiX (20.05.2012)
Просмотров: 184 | Рейтинг: 0.0/0
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]