Создадим триггер каскадного обновления и удаления записей таблицы «BOOKS» при обновлении и удалении соответствующих им записей в таблице «PUBLISHERS».

Этот триггер закреплён за таблицей «PUBLISHERS», и задан как триггер для изменения и удаления записей. Для создания триггера выберем Triggers/New Trigger...(Триггер/Новый триггер). Появится окно создания триггера, в котором укажем:

· Имя - «PUBLISHERS_CASCADE_BOOKS»;

· Для таблицы - «PUBLISHERS»;

· Тип - «BEFORE», т. е. выполняется прежде операции;

· Укажем UPDATE, DELETE.

Полный текст триггера будет следующий:

SET TERM ^ ;

CREATE OR ALTER TRIGGER PUBLISHERS_CASCADE_BOOKS FOR PUBLISHERS

ACTIVE BEFORE UPDATE OR DELETE POSITION 0

AS

begin

IF (updating) THEN

begin

update books C

set C.id_publishers = new.id_publishers

where c.id_publishers = old.id_publishers;

end

else

begin

delete from books C

where c.id_publishers = old.id_publishers;

end

end

^

SET TERM ; ^

Так как данный триггер выполняется при изменении и удалении записей из таблицы «PUBLISHERS», то в нём задано условие, проверяющее, какая операция над записями этой таблицы производится. IF (updating) THEN = ИСТИНА, если операция изменения (UPDATE), иначе =ЛОЖЬ (для данного триггера это операция удаления). В первом случае производится каскадное обновление записей при помощи оператора изменения данных UPDATE, во втором каскадное удаление при помощи операции DELETE FROM. В обоих случаях условием отбора записей на изменение или удаление является равенство значений поля «ID_PUBLISHERS» таблицы «BOOKS» и старым значением поля «ID_PUBLISHERS» таблицы «PUBLISHERS». В случае изменения данных этим полям присваиваются новые значения записей.

Аналогично создадим триггер каскадного обновления и удаления записей таблицы «BOOKS» при обновлении и удалении соответствующих им записей в таблице «READERS» - «READERS_CASCADE_BOOKS». Разница здесь в том, что триггер будет задан для таблицы «READERS» и в записях сравниваются значения полей «ID_ABONENT».

Создадим три хранимых процедуры.

Первая процедура будет выводить список книг, находящихся в библиотеке. Для этого зададим запрос на выборку списка книг, в поле «BOOKS.ID_ABONENT» которых стоит значение NULL.

Для создания новой процедуры выберем Procedures\New Procedure(Процедуры\Новая процедура). Выберем Output Parameters (Выходные Параметры) затем Insert parameter/variable (Добавить параметр/переменную). Добавим параметр «NAME_BOOKS VARCHAR(30)» под название книги, а также ещё два - под наименование и город издательства - соответственно «NAME_PUBLISHERS VARCHAR(20)» и «CITY_PUBLISHERS VARCHAR(20)».

Листинг первой процедуры «BOOKS_LIBRARY»:

CREATE PROCEDURE BOOKS_LIBRARY

returns (

city_publishers varchar(20) character set win1251,

name_publishers varchar(20) character set win1251,

name_books varchar(30) character set win1251)

as

begin

for

select distinct books.name, publishers.name, publishers.city

from books inner join publishers on books.id_publishers = publishers.id_publishers

where books.id_abonent iS NULL

into: name_books, : name_publishers, : city_publishers

do suspend;

end

В данной процедуре вместо обычного запроса на выборку SELECT использована конструкция «FOR SELECT ... INTO ... DO ...», которая производит обработку возвращаемого набора записей в цикле. Иначе если SELECT возвратит более одной строки, то возникнет ошибка «multiple rows in singleton select». Здесь же после каждой возвращаемой строки производится принудительная выдача параметров, после чего они принимают новые значения при следующей итерации цикла и т. д. пока не будут выданы все строки, удовлетворяющие условию запроса.

Вторая процедура будет выводить список книг, выданных за указанный период (входные параметры - начальная и конечная дата). Зададим входные параметры «DATE_1 DATE» и «DATE_2 DATE». Зададим выходные параметры: «NAME_BOOKS VARCHAR (30)», «NAME_PUBLISHERS VARCHAR(20)» и «CITY_PUBLISHERS VARCHAR(20)».

Листинг процедуры «BOOKS_LIST_PERIOD»:

CREATE PROCEDURE BOOKS_LIST_PERIOD (

date_1 date,

date_2 date)

returns (

city_publishers varchar(20) character set win1251,

name_publishers varchar(20) character set win1251,

name_books varchar(30) character set win1251)

as

declare variable var_date date;

begin

for

select distinct books.name, publishers.name, publishers.city, books.date_issue

from books inner join publishers on books.id_publishers = publishers.id_publishers

into: name_books, : name_publishers, : city_publishers, :var_date

do if (var_date between date_1 and date_2) then suspend;

end

В этой процедуре в операторе циклической выборки для каждой записи, полученной в результате выполнения оператора выборки «SELECT», проверяется, лежит ли значение одной из возвращаемых SELECT-ом переменной var_date между двумя введёнными, заданными входными параметрами date_1 и date_2. Если да, то производится выдача процедурой значений выходных параметров при помощи оператора suspend.

Создадим третью процедуру, которая будет выводить количество книг и средний тираж по издательствам. Здесь выходные данные будут представлять собой значения функций агрегирования, вычисляемые для каждой группы по значению поля «PUBLISHERS. NAME».

Листинг процедуры «KOL_BOOKS_TIRAZ»:

CREATE PROCEDURE KOL_BOOKS_TIRAZ

returns (

publishers_name varchar(20) character set win1251,

avg_tiraz integer,

count_ integer)

as

begin

for

select distinct publishers.name, count(publishers.id_publishers), AVG(books.tiraz)

from books inner join publishers on books.id_publishers = publishers.id_publishers

group by publishers.name

into: publishers_name, : count_, : avg_tiraz

do suspend;

end

Выходными параметрами процедуры являются:

· publishers_name varchar(20) character set win1251 - строковой параметр для значений имени издательства;

· avg_tiraz integer - параметр для среднего значения тиража книги каждой группы.

· count_ integer - параметр для выдачи значения количества строк каждой группы.

В данной процедуре осуществляется выборка значений поля «PUBLISHERS.NAME», количества возвращаемых строк и среднего значения по полю «BOOKS.TIRAZ» для каждого значения поля «PUBLISHERS.NAME».

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

Таблица «Издательства» (Publishers)

Таблица «Читатели» (Readers)

Таблица «Книги» (Books)

Создадим клиентское приложение в ИСР Delphi, используя технологию доступа к данным InterBase eXpress (IBX).

Выберем File/New/Application (Файл/Новое/Приложение), затем добавим модуль данных для компонентов доступа к данным - File/New/Data Module (Файл/Новый/Модуль данных). Компоненты доступа к данным расположены на странице Data Access Палитры компонентов. Компоненты отображения данных расположены на странице Data Controls Палитры компонентов. Компоненты, используемые в технологии InterBase eXpress распологаются на странице InterBase, а компоненты для создания отчётов - QReport.

Поместим на модуль данных компонент TIBDatabase. Укажем в свойстве DatabaseName полный путь (включая имя сервера) к выбранному файлу БД - «C:\01\LIBRARY.FDB».

Поместим следующие компоненты на форму модуля данных:

· компонент IBTransaction

· три IBDataSet,

· три DataSource

Подключимся к базе данных. Выделим компонент TIBDatabase и выберем из контекстного меню Database Editor.… В этом окне укажем User Name = SYSDBA, Character Set = WIN1251. Затем установим свойство Connected компонента IBDatabase1 равным True и свойство DefaultTransaction компонента IBDatabase1 равным IBTransaction1.

Зададим управление транзакциями. Сделаем активным компонент IBTransaction1, для чего его свойству Active придадим значение True. Вызовем редактор Transaction Editor..., и в появившемся диалоговом окне выберем уровень изоляции транзакций - Read Committed.

Установим значения свойств:

· DefaultAction - TACommitRetaining

· DefaultDatabase - IBDatabase1

· Params - read_committed

rec_version

nowait

· Active - True

Перейдём к компоненту IBDataSet1. Переименуем его на BOOKS_DataSet (свойство Name). Укажем базу данных - DataBase = IBDataBase1 и компонент обработки транзакций - Transaction = IBTransaction1. Укажем в свойстве SelectSQL текст основного запроса: «select* from BOOKS». При помощи свойства GeneratorField выбираем поле, значение которого присваивается генератором и сам генератор. Активируем компонент: Active - True. Вызовем редактор компонента Dataset Editor.... Выберем из списка Table Name таблицу и нажмём кнопку Get Table Fields (Получить поля таблицы). В списке Key Fields (Ключевые поля) выделим поле «ID_BOOKS», которое будут формировать условие WHERE в запросах. После нажатия на кнопку Generate SQL автоматически сгенерируются значения свойств DeleteSQL, InsertSQL, ModifySQL, RefreshSQL. Эти значения станут равны:

Страницы: 1, 2, 3