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

UptoLike

ВУЗ: 

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

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

Рубрика: 

ГУАП МЦИТ
Введение в «ORACLE»
Под ред. проф. В.М.Космачёва
85
PROCEDURE Forces_Of_Vladel (Arg vladel.vladel_name%TYPE) ;
PROCEDURE Inform_About_Vladel (Arg Forces.Force_Name%TYPE);
PROCEDURE Inform_About_Zabegs (Arg Zabeg.zabeg_data%TYPE) ;
PROCEDURE Liders_Zabeg;
PROCEDURE 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 rezults_zabeg.rez_id%TYPE,
Arg7 rezults_zabeg.force_id%TYPE, Arg8 rezults_zabeg.gokey_id%TYPE,
Arg9 rezults_zabeg.rezult%TYPE, Argl0 rezults_zabeg.rez_time%TYPE) ;
END;
Создание тела пакета:
CREATE OR REPLACE PACKAGE BODY РАСZABEG AS
FUNCTION Kolvo_Forces_Of_Vladel (Arg Forces.vladel_id%TYPE) RETURN INTEGER IS
n INTEGER;
BEGIN
Select COUNT (*) INTO n From Forces Where vladel_id=Arg;
RETURN n;
END;
PROCEDURE Forces_Of_Vladel (Arg Vladel.vladel_name%TYPE) IS
Tl Forces.Force_Name%TYPE;
Cursor CurForcel IS
SELECT Forces.Force_name FROM forces
WHERE vladel_id=(select vladel_id from vladel
where vladel_name=arg);
BEGIN
Open CurForcel;
FETCH CurForcel INTO Tl;
WHILE CurForcel%FOUND LOOP
DBMS_OUTPUT.PUT_LINE (CurForcel%ROWCOUNT| |Tl);
FETCH CurForcel INTO Tl;
END LOOP;
Close CurForcel;
END;
PROCEDURE Inform About Vladel (Arg Forces.Force_Name%TYPE) IS
Tl Vladel.vladel_name%TYPE;
T2 Vladel.vladel_address%TYPE;
T3 Vladel.vladel_telephon%TYPE;
Cursor CurVladell IS
SELECT vladel_name,vladel_address,vladel_telephon FROM Vladel
WHERE vladel_id=(Select vladel_id
From Forces WHERE force_name=Arg);
BEGIN
Open CurVladell;
FETCH CurVladell INTO Tl,T2,T3;
WHILE CurVladell%FOUND LOOP
DBMS_OUTPUT.PUT_LINE(CurVladell%ROWCOUNT| | '-Name'I ITlI I'-Address • | IT2| | '-Telephon
1
I IT3);

Страницы