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

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

Рассмотрим обработчик события нажатия кнопки «Вывести записи» (см. рисунок 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 Имя_поля_значения_которого_содержатся_в_списке = Выбранному_в_списке_значению_поля)

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

Дата добавления: 2017-01-14