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

UptoLike

ВУЗ: 

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

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

Рубрика: 

ГУАП МЦИТ
Введение в «ORACLE»
Под ред. проф. В.М.Космачёва
86
FETCH CurVladell INTO Tl,T2,T3;
END LOOP;
Close CurVladell;
END;
PROCEDURE Inform_About_Zabegs (Arg Zabeg.zabeg_data%TYPE) IS
Tl Forces.force_name%TYPE;
T2 Gokey.gokey_name%TYPE;
T3 rezults_zabeg.rezult%TYPE;
T4 rezults_zabeg.rez_time%TYPE;
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);
BEGIN
Open CurZabegl;
FETCH CurZabegl INTO Tl,T2,T3,T4;
WHILE CurZabegl%FOUND LOOP
DBMS_OUTPUT.PUT_LINE(CurZabegl%ROWCOUNT||'-ForceName ‘||Tl||'-Gokey ’|| T2|| '-Mesto’||T3||'-Time’||T4);
FETCH CurZabegl INTO T1,T2,T3,T4;
ENP LOOP;
Close CurZabegl;
END;
PROCEDURE Liders_Zabeg IS
Tl Forces.Force_name%Type;
T2 Gokey.gokey_name%TYPE;
T3 rezults_zabeg.rez_time%Type;
T4 zabeg.zabeg_data%Type;
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)ANDforces.force_id=rezults_zabeg.force_id)AND
(gokey.gokey_id=rezults_zabeg.gokey_id)AND(zabeg.zabeg_id=rezults_zabeg.zabeg id);
BEGIN
Open CurLiderl;
FETCH CurLiderl INTO T1,T2,T3,T4;
WHILE CurLiderl%FOUND LOOP
DBMS_OUTPUT.PUT_LINE(CurLiderl%ROWCOUNT|| '-'||Tl||’-' ||T2||’-'||T3|| '-'||T4);
FETCH CurLiderl INTO T1,T2,T3,T4;
END LOOP;
Close CurLiderl;
END;
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
9
oTYPE, Arg10 rezults_zabeg.rez_time%TYPE)
IS
BEGIN
INSERT INTO zabeg VALUES(argl,arg2,arg3,arg4,arg5);
COMMIT;

Страницы