29.4. Работа с локальной базой данных

Приведенные выше свойства и методы таблиц и полей можно использовать только при работе с локальной базой данных, которая может находиться или на вашем компьютере, или в локальной сети.

Рассмотрим фрагмент программы, которая в таблице TSpis увеличивает зарплату сотрудников в 2 раза:

With ADOTable1 Do Begin

DisableControls; // Отключаем связь визуальных компонентов с таблицей

First; // Устанавливаем указатель в начало первой записи

While not Eof do Begin // Открываем цикл просмотра таблицы

// Переводим оклад сотрудника из строки в целое число

I:=SysUtils.StrToInt(FieldByName(’OKLAD’).AsString);

I:=I*2; // Увеличиваем оклад в 2 раза

Edit; // Включаем режим редактирования таблицы

// Записываем новый оклад в текущую запись

FieldByName(’OKLAD’).AsString:=SysUtils.IntToStr(I);

Post; // Сохраняем изменения в таблице

Next; // Переходим к следующей записи

End; // Конец цикла

// Восстанавливаем связь визуальных компонентов с таблицей

EnableControls;

End;

В этом примере мы использовали методы DisableControls и EnableControls для отключения и восстановления связи таблицы с визуальными компонентами, что–бы избежать прокрутки значений таблицы в визуальных компонентах при изменении значений зарплаты сотрудников во всей таблице.