Введение в СУБД "Oracle". Космачев В.М - 87 стр.

UptoLike

ВУЗ: 

СПб ГУАП | Санкт-Петербург

Составители: 

Рубрика: 

ГУАП МЦИТ
Введение в «ORACLE»
Под ред. проф. В.М.Космачёва
87
INSERT INTO rezults_zabeg VALUES(arg6,argl,arg7,arg8,arg9,arglO);
COMMIT;
END;
END;
Создание триггеров:
CREATE OR REPLACE TRIGGER TRIG_Forces_Pol
BEFORE UPDATE ON Pol
FOR EACH ROW
BEGIN
IF (:old.force_pol<>:new.force_pol) THEN
UPDATE Forces SET force_pol=:new.force_pol WHERE force_pol=:old.force_pol;
END IF;
END;
CREATE OR REPLACE TRIGGER TRIG_Forces_Vladel
BEFORE UPDATE ON vladel
FOR EACH ROW
BEGIN
IF (:old.vladel_id<>:new.vladel_id) THEN
UPDATE Forces SET vladel_id=:new.vladel_id WHERE vladel_id=:old.vladel_id;
END IF;
END;
CREATE OR REPLACE TRIGGER TRIG_Zabeg_Ipp
BEFORE UPDATE ON Ippodrom
FOR EACH ROW
BEGIN
IF (:old.ippodrom_id<>:new.ippodrom_id) THEN
UPDATE zabeg SET ippodrom_id=:new.ippodrom_id WHERE ippodrom_id=:old.ippodrom_id;
END IF;
END;
CREATE OR REPLACE TRIGGER TRIG_RezZabeg_Force
BEFORE UPDATE ON Forces
FOR EACH ROW
BEGIN
IF (:old.force_id<>:new.force_id) THEN
UPDATE rezults_zabeg SET force_id=:new.force_id WHERE force_id=:old.force_id;
END IF;
END;
CREATE OR REPLACE TRIGGER TRIG_RezZabeg_Gokey
BEFORE UPDATE ON gokey
FOR EACH ROW
BEGIN
IF (:old.gokey_ido:new.gokey_id) THEN
UPDATE rezults_zabeg SET gokey_id=:new.gokey_id WHERE gokey_id=:old,gokey_id;
END IF;
END;
/
3.2.6. Работа с пакетом
Приведем примеры вызова процедур и функций этого пакета. Для вызова функции Kolvo_Forces_Of_Vladel
необходимо установить среду, а затем воспользоваться следующим оператором:
SQL> exec DBMS_OUTPUT.PUT_LINE (TO_CHAR(PACZABEG.Kolvo_Forces_Of_Viade (1) ) ) ;
На экране появятся число, характеризующее количество лошадей, имеющихся у владельца с номером 1.
Для вызова процедуры Forces_Of_VladeI необходимо воспользоваться следующим оператором:
SQL> exec PACZABEG. Forces_Of_Vladel ('Petrov');

Страницы