4.1.4Общий принцип работы компонента tsqlTransaction

Для работы с транзакциями в Lazarus добавлен компонент TSQLTransaction. TSQLTransaction автоматически переходит в активное состояние при открытии набора данных TSQLQuery и закрывается при его закрытии. Для явного подтверждения успешности транзакции можно использовать метод TSQLTransaction.Commit. Для отката транзакции можно использовать метод TSQLTransaction.Rollback. Метод Commit необходимо вызывать непосредственно после SQL-команд, изменяющих базу данных для сохранения изменений, а также перед чтением информации из базы, так как в распределенных системах информацию в базу может внести параллельно и другой процесс.

Метод StartTransaction позволяет создать новую транзакцию для того, к которой можно отнести определенный набор действий над базой, отменяемый при возникновении ошибок методом RollBack. Например, таким образом:

SQLTransaction1.StartTransaction;

try

//Действия над базой данных

…

SQLTransaction1.Commit;

except

SQLTransaction1.RollBack;

End;

4.2Особенности приложения и базы данных

4.2.1Особенности размещения

При работе с приложением и базой данных необходимо помнить следующее:

1. Файл базы желательно делать gdb-файлом для лучшей совместимости с установленной СУБД.

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

3. Приложение желательно располагать на том же диске, где находится Lazarus, однако папку с проектом нужно размещать как можно ближе к корню.

4.2.2Особенности рассматриваемой базы данных

В примере происходит обращение всего к одной таблицы базы данных. Таблица New_table1 имеет 2 столбца: первичный ключ t1_id, являющийся счетчиком, и строковое поле t1_name.

Рисунок 4.3 – Структура таблицы New_table1

Фактически работа с базой будет сведена к чтению строковых значений из таблицы и добавлению туда новых записей.

4.3Непосредственная работа с базой данных

4.3.1Формирование интерфейса с помощью данных из базы

Рассмотрим обработчик события нажатия кнопки «Вывести записи» (см. рисунок 4.1). Из таблицы New_table1 считываются значения поля t1_name и заносятся в список (компонент TListBox).

Вначале вызывается метод Commit компонента TSQLTransaction для обновления информации о базе данных с точки зрения приложения, так как другое приложение может также параллельно изменить базу.

SQLTransaction1.Commit;

Для задания прямой команды компоненту TSQLQuery он переводится в пассивное состояние путем установки свойства Active в значение false. Затем содержимое свойства SQL очищается методом Clear, и затем методом Add в свойство добавляется SQL-запрос на чтение. Он запускается методом Open компонента TSQLQuery.

SQLQuery1.Active:=false;

SQLQuery1.SQL.Clear;

SQLQuery1.SQL.Add('select "t1_name" from new_table1');

SQLQuery1.Open;

После активации запроса на выходе компонент TSQLQuery имеет набор картежей как результат. Содержимое этих картежей необходимо вывести в визуальный компонент. Для начала необходимо установить курсор на первый картеж результата методом First компонента TSQLQuery.

SQLQuery1.First;

Затем в цикле необходимо перебрать все картежи из результата и сохранить их в список. Количество получившихся в результате выполнения запроса картежей хранится в свойстве RowsAffected компонента TSQLQuery. Метод Next компонента TSQLQuery позволяет перевести курсор на следующий картеж из результата. Доступ к значению конкретного поля текущего картежа осуществляется с помощью функции FieldByName, которая в качестве атрибута берет название поля в строковом формате. Функция выдает значение типа TField, поэтому для получения строкового представления текущего значения поля используется метод AsString класса TField.

for i:=0 to SQLQuery1.RowsAffected-1 do

begin

ListBox1.Items.Add (SQLQuery1.FieldByName('t1_name').AsString);

SQLQuery1.Next;

end;

Результат нажатия кнопки представлен на рисунке.

Рисунок 4.4 – Вывод в список значений поля таблицы

Аналогичным образом можно графически представить связь «один-ко-многим»: при выборе из списка данных записи родительской таблицы отобразить в другом визуальном компоненте содержимое связанных записей дочерней таблицы. Для этого необходимо с помощью механизма, указанного выше в главе, с помощью компонента TSQLQuery выполнить запрос следующего формата:

select Необходимые_поля from Дочерняя_таблица where Название_внешнего_ключа = (select Первичный_ключ from Родительская_таблица where Имя_поля_значения_которого_содержатся_в_списке = Выбранному_в_списке_значению_поля)

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