117

SQL.Clear;

SQL.Add('SELECT * FROM Country'); SQL.Add('WHERE Population>='+IntToStr(X)); Open;

end; end;

Пользователь вводит число жителей в строку ввода Edit1. Мы динамически обновляем условие отбора данных в момент события OnChange().

Параметры окажут неоценимую помощь в запросах, в которых ограничения на отбор данных могут меняться, или в командах модифицирующих данные в таблицах. Продолжим эксперименты с таблицей Country, хранящей данные о названии страны (поле Name) имя столицы (поле Capital) и количество жителей в стране (поле Population). Пример универсальной команды SQL, позволяющий использовать её неоднократно для вставки данных в таблицу предложен ниже:

With ADOQuery1 Do

Begin

SQL.Clear;

SQL.Add('INSERT INTO Country (Name, Capital, Population)'); SQL.Add('VALUES (:Name, :Capital, :Population)');

End;

Данная процедура вызывается только один раз, например при старте приложения. Обратите внимание на строку:

SQL.Add('VALUES (:Name, :Capital, :Population)');

Символ двоеточия признак того, что следующее за ним слово является именем параметра. Теперь, для вставки в таблицу новой записи достаточно передать в текст запроса соответствующие значения. Для хранения параметров в запрос инкапсулировано специальное свойство:

property Parameters: TParameters;

Для обращения к параметру надо указать его индекс от 0 до ParamCount-1. О количестве параметров нас информирует свойство:

property ParamCount: Word; //только для чтение

Procedure InsertTown(Name, Capital :String; Population :Cardinal);

Begin

ADOQuery1.Parameters [0].AsString := Name; ADOQuery1.Parameters [1].AsString := Capital; ADOQuery1.Parameters[2].AsInteger := Population; ADOQuery1.ExecSQL;

End;

При передаче значений параметров главное не перепутать их индекс. Если же Вы не знаете очерёдности параметров, то вместо порядкового номера параметра целесообразнее применять метод:

function ParamByName(const Value: String): TParam;

Функция возвращает параметр с именем Value:

ADOQuery1.Parameters.ParamByName('Population').AsInteger:= Population;

Хранимая процедура TADOStoredProc

В отличие от своих коллег (таблицы TADOTable и запроса TADOQuery), компонент TADOStoredProc не предназначен для прямого обращения к набору данных (таблице или

© 2011 г. Д.Л. Осипов

119

Существуют ограничения, которые нельзя выполнить с помощью транзакций. Это операции которые нельзя отменить без существенного влияния на компоненты системы. В частности внутри транзакции нельзя использовать команды на создание (CREATE), удаление (DROP) и реконфигурацию (ALTER) объектов БД.

При построении многопользовательских БД разработчик программы должен предусмотреть поведение программного обеспечения в случае одновременного доступа к одним и тем же данным нескольких пользователей. Ведь нельзя исключить ситуацию, когда пара пользователей попытается отредактировать одну и ту же строку в таблице. Что окажется в ней после их работы? Способ защиты информации многопользовательских БД называется уровнем изоляции транзакций. В MS SQL существует 4-ре уровня изоляции:

1.Уровень Read Uncommitted. Транзакции разрешено читать данные, в настоящий момент обрабатываемые другими транзакциями. Говоря о таком процессе, часто применяют термин грязное чтение.

2.Уровень Read Committed. Транзакция может читать только завершённые изменения других транзакций.

3.Уровень Repeatable Read (повторяющееся чтение). Уровень изоляции гарантирует, что на просматриваемые пользователем данные не повлияют транзакции, выполняемые другими транзакциями. Недостаток уровня в том, что Ваша транзакция захватывает данные в монопольное пользование и не разрешает обращение к ним из других транзакциям, а это полный запрет на параллельную обработку данных.

4.Уровень Serializable. Рекомендуемый уровень изоляции. Он поддерживает все ограничения уровня Repeatable Read, но в тоже время предотвращает чтение фиктивных данных.

Управление транзакциями и компонент TADOConnection

Для запуска новой транзакции предназначена функция:

function BeginTrans: Integer;

Метод возвращает целочисленное значение, соответствующее уровню вложения транзакции. Если запуск новой транзакции осуществился без заминок, то это приведёт к установке в true свойства:

property InTransaction: Boolean;

Значение true свидетельствует о том, что TADOConnection инициировал транзакцию и эта транзакция находится в стадии выполнения. С окончанием транзакции свойство вернётся в состояние false. Сразу после успешного запуска новой транзакции происходит событие:

property OnBeginTransComplete: TBeginTransCompleteEvent; TBeginTransCompleteEvent = procedure(Connection: TADOConnection;

TransactionLevel: Integer; const Error: Error; var EventStatus: TEventStatus) of object;

Параметр EventStatus информирует нас, насколько успешно прошёл процесс запуска транзакции. Если операция выполнилась корректно, то в параметре окажется значение esOK.

Для сохранения результатов выполнения транзакции программист вызывает процедуру:

procedure CommitTrans;

Сразу после сохранения транзакции возникает событие:

property OnCommitTransComplete: TConnectErrorEvent;

TConnectErrorEvent = procedure(Connection: TADOConnection; Error: Error; var EventStatus: TEventStatus) of object;

© 2011 г. Д.Л. Осипов

120

Если в процесс выполнения транзакции вкралась ошибка, то для её отмены воспользуйтесь методом:

procedure RollbackTrans;

Откат транзакции сопровождается событием:

property OnRollbackTransComplete: TConnectErrorEvent;

Если разрабатываемая база данных подлежит эксплуатации в многопользовательском режиме, то особое внимание стоит уделить вопросам обеспечения параллельной обработки данных. Накал борьбы клиентских приложений за записи таблиц можно снизить, установив соответствующий уровень изоляции транзакций:

property IsolationLevel: TIsolationLevel;

Уровень разграничения транзакций определяет возможность одновременного совместного доступа пользователей к одним и тем же данным. В таблице 19.1 приведены допустимые значения уровней изоляции транзакций в ADO. Блокировки упорядочены по степени возрастания пессимистических настроений. Другими словами каждая последующая строка всё более и более затрудняет параллельную работу нескольких пользователей с одними и теми же данными, но зато снижает вероятность появления конфликтов.

Таблица 19.1. Возможные уровни изоляции транзакции ADO – TIsolationLevel

Задание

На основе изученных компонентов разработайте процедуры и функции позволяющие получать, добавлять, редактировать и удалять данные из таблиц вашей БД. Операции, связанные с модификацией данных должны быть заключены в транзакции.

© 2011 г. Д.Л. Осипов