5.6Обзор событий компонента tQuery

Все запросы – точнее их НД, получают в свое распоряжение большое количество событий, унаследованных ими от родительского класса TBDEDataSet. Это те же события, что и для НД на основе таблиц.

Рисунок 4.65 – Состав событий набора данных TQuery

К наиболее важным событиям относятся события, связанные с реализацией каскадных изменений и бизнес-правил, а также ряд других событий.

Для реализации каскадных изменений и бизнес-правил в локальных или файл-серверных БД обычно используются обработчики событий AfterXXXX и BefогеХХХХ.

Примечание. Для клиент-серверных БД каскадные изменения и бизнес-правила реализуются средсвами самой БД, а именно триггерами. Они программируются администраторами БД, а не разработчиками программных приложений. Однако их суть для всех типов БД одна и та же.

Каскадные изменения и бизнес-правила связаны с изменениями НД (вставка, удаление или редактирование записи) и отличаются тем, что события BefогеХХХХ наступают непосредственно перед изменением НД, а события AfterXXXX - сразу после изменения.

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

Безусловным достоинством реализации каскадных изменений и бизнес-правил именно в обработчиках этих событий является концентрация их в одном месте - модуле данных, (если, разумеется, все компоненты-наборы сосредоточены в едином модуле данных), что облегчает программисту их отслеживание и внесение в них необходимых изменений.

К другим событиям можно отнести события:

• OnCalcFields, которое возникает в момент, когда программа должна сформировать значения для вычисляемых полей;

• OnNewRecord, которое возникает при вставке новой записи.

6Хранимые процедуры и триггеры

6.1Хранимые процедуры

Хранимая процедура (Stored Procedure) — объект БД, представляющий собой набор SQL-инструкций, который компилируется один раз и хранится на клиент-сервере.

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

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

В большинстве СУБД при первом запуске хранимой процедуры она компилируется и в дальнейшем её обработка осуществляется быстрее.

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

Очень толково http://www.ibase.ru/devinfo/sp_call.htm

Для иллюстрации реальных возможностей использования хранимых процедур используем СУБД InterBase. Синтаксис описания хранимых процедур подобен и для большинства СУБД и имеет вид:

CREATE PROCEDURE

<Имя процедуры> [(<Список входных параметров>)]

[RETURNS (<Список выходных параметров>)]

AS <Тело процедуры>

Список параметров выглядит так:

<Имя параметра> <Тип параметра> [,<Имя параметра> <Тип параметра>]

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

Тело процедуры состоит из двух частей – объявления переменных и исполнительной.

Объявление переменных:

declare variable <Имя переменной> <Тип переменной>;

Тип переменной совпадает с типом столбцов БД.

Исполнительная часть:

begin

<Оператор1>

…

<Операторn>

end

Операторы исполнительной части подобны операторам других языков программирования.

Пример. Процедура имеет ряд входных параметров и не возвращает параметров:

CREATE PROCEDURE InsNakl (pname varchar(20), pauthor varchar(20), …)

as

begin

INSERT BName, BAuthor, … INTO Nakls VALUES (:pname, :pauthor, …)

end

Специальный интерес представляет оператор SELECT. Различают 2-а вида оператора SELECT.

Оператор выбора одной строки SELECT, который возвращает одну строку. Значение столбцов возвращаемой строки присваиваются указанным переменным или параметрам.

Пример. Процедура возвращает одну строку из двух параметров:

CREATE PROCEDURE Payed

returns (psum float, pavg float) /*Выходные параметры*/

as

begin

SELECT sum(NSum), avg(NSum)

FROM Nakls

INTO :psum, :pavg; /*Запись в параметры*/

end

Оператор выбора нескольких строк FOR SELECT … DO, способный возвращать несколько строк:

for <Оператор выбора строки> do <Оператор>;

Пример. Обработка возвращаемых строк выполняется внутри процедуры. Но из процедуры строки не возвращаются:

CREATE PROCEDURE CountNakl

returns (psum integer)

as

declare variable n integer;

declare variable x integer;

begin

x = 0;

for SELECT NaklID FROM Nakls INTO :n do

x = x + 1;

:psum = x;

end

end

Для того, что бы процедура вернула строки, полученные с помощью оператора for select do после слова do указывается оператор suspend возврата значений, который передает в вызывающее приложение или хранимую процедуру значения выходных параметров.

Пример: Процедура возвращает строки.

CREATE PROCEDURE books (ppublish varchar(20))

returns (pname varchar(20), pauthor varchar(20))

as

begin

for SELECT BName, BAuthor

FROM Books

WHERE BPablish= : ppublish

INTO :pname; :pauthor

do suspend;

end

Ключевым в работе процедуры является указание suspend. В тот момент, когда выполнение процедуры доходит до suspend, сервер останавливает выполнение процедуры, и ожидает, пока клиент не запопросит получение данных из процедуры. После получения данных (одной строки) сервер прокрутит следующий цикл for select do до очередного suspend, и так далее, пока клиент не перестанет запрашивать строки, или пока строки в запросе не кончатся.

Из процедуры можно вызвать так же другую процедуру при помощи оператора execute procedure:

execute procedure <Имя процедуры> [(<Список входных параметров>)]

[returning_values (<Список выходных параметров>)]

Пример:

CREATE PROCEDURE ptest

returns (opresult float)

as

begin

execute procedure pdivide (100, 20) returning_values (opresult);

end

Хранимую процедуру можно удалить оператором

DROP PROCEDURE <Имя процедуры>

Изменяется хранимая процедура оператором

ALTER PROCEDURE <Имя процедуры>