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

UptoLike

ГУАП МЦИТ
Введение в «ORACLE»
Под ред. проф. В.М.Космачёва
84
Процедура Inform_About_VladeI(ArgForces.Force_Name%TYPE)
выводит информацию о владельце (имя, адрес, телефон) по заданной кличке лошади (Arg). В процедуре
используется курсор, содержащий запрос с выборкой, имеющий следующий вид:
Cursor CurVladell IS
SELECT vladel_name,vladel_address,vladel_telephon FROM Vladel
WHERE vladel_id=(Select vladel_id From Forces
WHERE force_name=Arg)
Процедура Inform_About_Zabegs(ArgZabeg.zabeg_data%TYPE)
выводит информацию о забеге (клички участвующих лошадей, имена жокеев, занятые места и показанное в
забеге время) по заданной дате забега (Arg). В процедуре используется курсор, содержащий запрос с выборкой,
имеющий следующий вид:
Cursor CurZabegl IS
SELECT Forces.force_name,Gokey.gokey_name,
rezults_zabeg.rezult,rezults_zabeg.rez_time
FROM Forces,Gokey,rezults_zabeg
WHERE (Forces.force_id=rezults_zabeg.force_id)AND
(Gokey.gokey_id=rezults_zabeg.gokey_id)AND
rezults_zabeg.zabeg_id=(select zabeg_id
from zabeg where zabeg_data=arg)
Процедура Liders_Zabeg показывает лидеров всех забегов. В процедуре используется курсор, содержащий
запрос с выборкой, имеющий следующий вид:
Cursor CurLiderl IS
SELECT Forces.Force_name,Gokey.gokey_name,
rezults_zabeg.rez_time,zabeg.zabeg_data
FROM Forces,Gokey,rezults_zabeg,zabeg
WHERE (rezults_zabeg.rezult=l)AND(forces.force_id=rezults_zabeg.force_id)AND
(gokey.gokey_id=rezults_zabeg.gokey_id)AND(zabeg.zabeg_id=rezults_zabeg.zabeg_id)
Процедура New_Zabeg(Argl zabeg.zabeg_id%TYPE, Arg2 zabeg.zabeg_data%TYPE,
Arg3 zabeg.zabeg_time%TYPE, Arg4 zabeg.ippodrom_id%TYPE,
Arg5 zabeg.zabeg_name%TYPE, Arg6 rezuIts_zabeg.rez_id%TYPE,
Arg7rezults_zabeg.force_id%TYPE, Arg8 rezults_zabeg.gokey_id%TYPE,
Arg9 rezults_zabeg.rezult%TYPE, Argl0 rezults_zabeg.rez_time%TYPE)
осуществляет ввод данных для нового забега. При этом происходит добавление в таблицах Zabeg и
Rezults_Zabeg.
Создадим триггеры для обеспечения каскадных изменений в связанных таблицах базы данных "Скачки".
Триггер TRIG_Forces__Pol используется для таблицы Pol и обеспечивает каскадные изменения в связанных с
ней таблицах.
Триггер TRIG_Forces_Vladel используется для таблицы Vladel и обеспечивает каскадные изменения в
связанных с ней таблицах.
Триггер TRIG_Zabeg_Ipp используется для таблицы Ippodrom и обеспечивает каскадные изменения в связанных
с ней таблицах.
Триггер TRIG_RezZabeg_Force используется для таблицы Forces и обеспечивает каскадные изменения в
связанных с ней таблицах.
Триггер TRIG_RezZabeg_Gokey используется для таблицы Gokey и обеспечивает каскадные изменения в
связанных с ней таблицах.
3.2.5 Создание пакета
Создание заголовка пакета:
CREATE OR REPLACE PACKAGE PACZABEG AS
FUNCTION
Kolvo_Forces_Of_Vladel(Arg Forces.vladel_id%TYPE) RETURN INTEGER;