If eof then leave Cl end if;

IF t=’ОВОЩ’ THEN

UPDATE GOODS SET NDS=10 WHERE CODE=c;

ELSE

UPDATE GOODS SET NDS=20 WHERE CODE=c;

END IF

END LOOP;

CLOSE c;

END;

Имеется особая разновидность загружаемых процедур, называемая триггер. Триггер – это загружаемая процедура, которая вызывается не из программы пользователя, а автоматически ядром СУБД. При создании триггера определяется условие, когда триггер должен сработать. Чаще всего триггеры используются для осуществления специфических проверок целостности данных, которые трудно или невозможно выразить с помощью языка определения данных и ограничений целостности (см. главу 8).

Пример: предположим, что выполняется попытка вставить запись о поставке товара с кодом поставщика, отсутствующим в таблице поставщиков PROVIDERS. Вместо того, чтобы отвергнуть такую запись, триггер может позволить предварительно вставить новую запись в таблицу поставщиков с искуственным именем поставщика. В результате не будет нарушена ссылочная целостность.

1 CREATE TRIGGER SUPTR

2 AFTER INSERT ON SUPPLIES

3 REFERENCING NEW ROW AS nr

4 FOR EACH ROW

5 WHEN (nr.CODEC NOT IN (SELECT CODE FROM PROVIDERS) )

Insert into providers(code, name)

Values (nr.Codec, ‘*** новый поставщик ***’);

Поясним строки:

1. объявление триггера по имени SUPTR.

2. событие, при возникновении которого триггер вызывается на выполнение (после вставки новой записи). Варианты: AFTER, BEFORE, INSTEAD OF. Варианты второй части условия: INSERT, DELETE, UPDATE.

3. REFERENCING позволяет ссылаться на объекты, которые либо вставляются, либо уничтожаются, либо модифицируются. Так, INSERT порождает ссылку на новую запись (NEW), DELETE на старую запись (OLD), UPDATE допускает оба варианта. Общий синтаксис:

REFERENCING {NEW | OLD} {TUPLE | TABLE} AS <имя>

4. задание уровня триггера. Триггеры бывают уровня записи (если задано FOR EACH ROW) и уровня процедуры (если эта фраза отсутсвует); триггер уровня записи применяется к каждой записи, триггер уровня процедуры применяется однажды при его вызове независимо от количества обрабатываемых строк.

5. действие триггера, его тело. Можно использовать все изобразительные средства загружаемых процедур.

Как известно, в общем случае нельзя модифицировать представления (см. Главу 7). Однако, используя триггеры можно реализовать модифицируемые представления.

Пример: вспомним представление POSTAVKI (см. Главу 7):

CREATE VIEW POSTAVKI AS

SELECT S.WEIGHT, S.PRICE, S.DAT, P.NAME NP, G.NAME NG,

P.CODE CP, G.CODE CG

FROM SUPPLIES AS S

LEFT JOIN PROVIDERS AS P ON S.CODEC = P.CODE

LEFT JOIN GOODS AS G ON S.CODEG = G.CODE

В это предсавление нельзя вставить новую запись. Однако, используя триггер INSTEAD OF (вместо) можно вставить новые данные не в представление (что не имеет смысла ввиду самой природы представления), а в те три таблицы, на которых оно основано.

CREATE TRIGGER POSTAVKI_MOD

INSTEAD OF INSERT ON POSTAVKI

REFERENCING NEW ROW AS nRow

FOR EACH ROW

DECLARE p, g

BEGIN

IF nRow.CG NOT IN (SELECT CODE FROM GOODS) THEN

INSERT INTO GOODS(CODE, NAME)

VALUES (nRow.CG, nRow.NG)

END IF;

IF nRow.CP NOT IN (SELECT CODE FROM PROVIDERS) THEN

INSERT INTO PROVIDERS(CODE, NAME)

VALUES (nRow.CP, nRow.NP)

END IF;

INSERT INTO SUPPLIES(WEIGHT, PRICE, DAT, CODEG, CODEC) VALUES (nRow.WEIGHT, nRow.PRICE, nRow.DAT, nRow.WEIGHT, nRow.CG, nRow.CP)

END;