Duomenų bazių programavimas PL/SQL

Įvadas PL/SQL yra Oracle korporacijos procedūrinis SQL kalbos praplėtimas. SQL standartinė duomenų gavybos reliacinėse duomenų bazėse kalba. PL/SQL siūlo modernias programinės įrangos inžinerijos savybes tokias kaip duomenų enkapsuliacija, išimčių (exception) valdymas, informacijos slėpimas, objektinė orientacija. PL/SQL apima daug pažangių programinių kalbų ypatybių, kurios buvo sukurtos 1970-1980 metais. Naudojant šią kalbą galima manipuliavimą duomenimis ir SQL užklausas įtraukti į blokų struktūras ir procedūrinius vienetus. Taigi PL/SQL yra galinga tranzakcijų apdorojimo kalba, kurioje galite rašyti SQL sakinius, kai kreipiatės į Oracle duomenis ir galite naudoti PL/SQL kontrolines struktūras duomenų apdorojimui. Šio kursinio darbo tikslai yra sukurti netusčią duomenų bazę, sukurti aplikaciją jai, bei aplikacijoje panaudoti PL/SQL funkcionaluma, t.y. procedūras, funkcijas, paketus, exception handling’a, kursorius bei kita PL/SQL funkcionalumą. Savo darbe pagrindinis PL/SQL panaudojimas yra formoje STATISTIKA. Joje PL/SQL panaudota trigeriuose, paketuose, procedurose, funkcijose. Dalykinė sritis Lažybų benrovė „Orakulas“ siūlo galimybę azartiškiems, ir ne tik, žmonėms laimėti atitinkamas pinigų sumas. Sistema labai paprasta. Už kažkokį įvykį ir jūsų spėjamą to įvykio baigtį reikia pastatyti kokią nors sumą pinigų. Kuo didesnė statomų pinigų suma, tuo atitinkamai didesnis ir laimėjimas. Jeigu atspėjate kaip pasibaigė vienoks ar kitoks įvykis atsiimate laimėtą pinigų sumą. Klientui yra suteikiama didžiulė laisvė įvykių pasirinkime: galima rinktis iš krepšinio varžybų, futbolo varžybų bei kitokių sporto šakų. Jis taip pat yra informuojamas apie galimas įvykių baigtis išreikštas koeficientais. Kuo mažesnis koeficientas tuo ta įvykio baigtis labiau tikėtina. Pagal kliento spėjimą bei pastačius tam tikrą pinigų sumą jam yra atspausdinamas bilietas, kurį jis turi saugoti, nes su juo teisingai atspėjus vienokio ar kitokio įvykio baigtį yra atsiimamas tam tikras laimėjimas. Duomenų bazės schema Duomenų bazę sudaro 7 lentelės: BILIETAI, DARBUOTOJAI, IVYKIAI, IVYKIU_BAIGTYS, PUNKTAI, REZULTATAI, SPORTO_SAKA. SQL> select table_name from user_tables; TABLE_NAME ------------------------------ BILIETAI DARBUOTOJAI IVYKIAI IVYKIU_BAIGTYS PUNKTAI REZULTATAI SPORTO_SAKA Lentelių kūrimas, struktūra ir užpildymas 1. DARBUOTOJAI Kūrimas: CREATE TABLE DARBUOTOJAI ( ID_DARBUOTOJAS NUMBER(4), VARDAS VARCHAR2(50) NOT NULL, PAVARDE VARCHAR2(50) NOT NULL, ASM_KODAS CHAR(11) UNIQUE NOT NULL, TELEFONAS VARCHAR2(20), ADRESAS VARCHAR2(100) NOT NULL, CONSTRAINT DARBUOTOJAI_ID_DARBUOTOJAS_PK PRIMARY KEY (ID_DARBUOTOJAS)); Struktūra: SQL> DESCRIBE DARBUOTOJAI Name Null? Type ----------------------------------------- -------- ------------- ID_DARBUOTOJAS NOT NULL NUMBER(4) VARDAS NOT NULL VARCHAR2(50) PAVARDE NOT NULL VARCHAR2(50) ASM_KODAS NOT NULL CHAR(11) TELEFONAS VARCHAR2(20) ADRESAS NOT NULL VARCHAR2(100) Užpildymas: INSERT INTO DARBUOTOJAI (ID_DARBUOTOJAS,VARDAS,PAVARDE,ASM_KODAS,TELEFONAS,ADRESAS) VALUES (0001,'JONAS','JONAITIS','37805126645','835974521','VILNIUS'); INSERT INTO DARBUOTOJAI (ID_DARBUOTOJAS,VARDAS,PAVARDE,ASM_KODAS,TELEFONAS,ADRESAS) VALUES (0002,'PETRAS','PETRAITIS','38111025879','865123489','VILNIUS'); INSERT INTO DARBUOTOJAI (ID_DARBUOTOJAS,VARDAS,PAVARDE,ASM_KODAS,TELEFONAS,ADRESAS) VALUES (0003,'ANTANAS','ANTANAITIS','37404125478','861478512','VILNIUS'); INSERT INTO DARBUOTOJAI (ID_DARBUOTOJAS,VARDAS,PAVARDE,ASM_KODAS,TELEFONAS,ADRESAS) VALUES (0004,'SIMAS','SIMAITIS','37611301246','864512587','VILNIUS'); INSERT INTO DARBUOTOJAI (ID_DARBUOTOJAS,VARDAS,PAVARDE,ASM_KODAS,TELEFONAS,ADRESAS) VALUES (0005,'MARTYNAS','MARTYNAITIS','38105025483','861784561','VILNIUS'); INSERT INTO DARBUOTOJAI (ID_DARBUOTOJAS,VARDAS,PAVARDE,ASM_KODAS,TELEFONAS,ADRESAS) VALUES (0006,'TOMAS','TOMAITIS','37404275413','869451758','KAUNAS'); INSERT INTO DARBUOTOJAI (ID_DARBUOTOJAS,VARDAS,PAVARDE,ASM_KODAS,TELEFONAS,ADRESAS) VALUES (0007,'LINAS','LINAITIS','37908094546','864795137','KAUNAS'); INSERT INTO DARBUOTOJAI (ID_DARBUOTOJAS,VARDAS,PAVARDE,ASM_KODAS,TELEFONAS,ADRESAS) VALUES (0008,'JUOZAS','JUOZAITIS','37605164578','864751249','KAUNAS'); INSERT INTO DARBUOTOJAI (ID_DARBUOTOJAS,VARDAS,PAVARDE,ASM_KODAS,TELEFONAS,ADRESAS) VALUES (0009,'RIMAS','RIMAITIS','38105208214','869457147','PRIENAI'); INSERT INTO DARBUOTOJAI (ID_DARBUOTOJAS,VARDAS,PAVARDE,ASM_KODAS,TELEFONAS,ADRESAS) VALUES (0010,'VIDAS','VIDAITIS','37508056531','867451587','KAISIADORYS'); 2. IVYKIU_BAIGTYS Kūrimas: CREATE TABLE IVYKIU_BAIGTYS ( ID_BAIGTIS NUMBER(1), IVYKIO_BAIGTIS VARCHAR2(30) NOT NULL, CONSTRAINT IVYKIU_BAIGTYS_ID_BAIGTIS_PK PRIMARY KEY (ID_BAIGTIS)); Struktūra: SQL> DESCRIBE IVYKIU_BAIGTYS Name Null? Type ----------------------------------------- -------- ------------ ID_BAIGTIS NOT NULL NUMBER(1) IVYKIO_BAIGTIS NOT NULL VARCHAR2(30) Užpildymas: INSERT INTO IVYKIU_BAIGTYS (ID_BAIGTIS,IVYKIO_BAIGTIS) VALUES (1,'1'); INSERT INTO IVYKIU_BAIGTYS (ID_BAIGTIS,IVYKIO_BAIGTIS) VALUES (2,'2'); INSERT INTO IVYKIU_BAIGTYS (ID_BAIGTIS,IVYKIO_BAIGTIS) VALUES (3,'0'); 3. SPORTO_SAKA Kūrimas: CREATE TABLE SPORTO_SAKA ( ID_SAKA NUMBER(2), SAKOS_PAVADINIMAS VARCHAR2(20) NOT NULL, CONSTRAINT SPORTO_SAKA_ID_SAKA_PK PRIMARY KEY (ID_SAKA)); Struktūra: SQL> DESCRIBE SPORTO_SAKA Name Null? Type ----------------------------------------- -------- ------------ ID_SAKA NOT NULL NUMBER(2) SAKOS_PAVADINIMAS NOT NULL VARCHAR2(20) Prieš įvedant duomenis į lentelę SPORTO_SAKA, buvo sukurta seka laukui ID_SAKA generuoti: create sequence ID_SA increment by 1 start with 01 maxvalue 999 nocycle cache 100; Užpildymas: INSERT INTO SPORTO_SAKA (ID_SAKA,SAKOS_PAVADINIMAS) VALUES (01,'KREPSINIS'); INSERT INTO SPORTO_SAKA (ID_SAKA,SAKOS_PAVADINIMAS) VALUES (02,'FUTBOLAS'); INSERT INTO SPORTO_SAKA (ID_SAKA,SAKOS_PAVADINIMAS) VALUES (03,'TENISAS'); INSERT INTO SPORTO_SAKA (ID_SAKA,SAKOS_PAVADINIMAS) VALUES (04,'BOKSAS'); 4. IVYKIAI Kūrimas: CREATE TABLE IVYKIAI ( ID_IVYKIS NUMBER(5), ID_SAKA NUMBER(2), IVYKIO_PAVADINIMAS VARCHAR2(50) NOT NULL, DATA DATE NOT NULL, LAIKAS VARCHAR2(5) NOT NULL, KOEF_JEI_BAIGTIS_1 VARCHAR2(10) NOT NULL, KOEF_JEI_BAIGTIS_2 VARCHAR2(10) NOT NULL, KOEF_JEI_BAIGTIS_0 VARCHAR2(10) NOT NULL, CONSTRAINT IVYKIAI_ID_IVYKIS_PK PRIMARY KEY (ID_IVYKIS), CONSTRAINT IVYKIAI_ID_SAKA_FK FOREIGN KEY (ID_SAKA) REFERENCES SPORTO_SAKA (ID_SAKA)); Struktūra: SQL> DESCRIBE IVYKIAI Name Null? Type ----------------------------------------- -------- ------------ ID_IVYKIS NOT NULL NUMBER(5) ID_SAKA NUMBER(2) IVYKIO_PAVADINIMAS NOT NULL VARCHAR2(50) DATA NOT NULL DATE LAIKAS NOT NULL VARCHAR2(5) KOEF_JEI_BAIGTIS_1 NOT NULL VARCHAR2(10) KOEF_JEI_BAIGTIS_2 NOT NULL VARCHAR2(10) KOEF_JEI_BAIGTIS_0 NOT NULL VARCHAR2(10) Užpildymas: INSERT INTO IVYKIAI (ID_IVYKIS,ID_SAKA,IVYKIO_PAVADINIMAS,DATA,LAIKAS,KOEF_JEI_BAIGTIS_1, KOEF_JEI_BAIGTIS_2,KOEF_JEI_BAIGTIS_0) VALUES (00001,01,'ZALGIRIS-RYTAS','2009.04.08','18:45','1.40','2.70','15.00'); INSERT INTO IVYKIAI (ID_IVYKIS,ID_SAKA,IVYKIO_PAVADINIMAS,DATA,LAIKAS,KOEF_JEI_BAIGTIS_1, KOEF_JEI_BAIGTIS_2,KOEF_JEI_BAIGTIS_0) VALUES (00002,01,'BARCELONA-CERAMICA','2009.04.09','21:45','1.50','2.50','14.00'); INSERT INTO IVYKIAI (ID_IVYKIS,ID_SAKA,IVYKIO_PAVADINIMAS,DATA,LAIKAS,KOEF_JEI_BAIGTIS_1, KOEF_JEI_BAIGTIS_2,KOEF_JEI_BAIGTIS_0) VALUES (00003,01,'PARTIZAN-ZVEZDA','2009.04.16','20:00','1.35','2.95','16.00'); INSERT INTO IVYKIAI (ID_IVYKIS,ID_SAKA,IVYKIO_PAVADINIMAS,DATA,LAIKAS,KOEF_JEI_BAIGTIS_1, KOEF_JEI_BAIGTIS_2,KOEF_JEI_BAIGTIS_0) VALUES (00004,01,'PANIONIOS-OLYMPIAKOS','2009.04.08','17:30','3.90','1.22','16.00'); INSERT INTO IVYKIAI (ID_IVYKIS,ID_SAKA,IVYKIO_PAVADINIMAS,DATA,LAIKAS,KOEF_JEI_BAIGTIS_1, KOEF_JEI_BAIGTIS_2,KOEF_JEI_BAIGTIS_0) VALUES (00005,02,'BARCELONA-BAYERN','2009.04.08','21:45','1.45','7.00','4.10'); INSERT INTO IVYKIAI (ID_IVYKIS,ID_SAKA,IVYKIO_PAVADINIMAS,DATA,LAIKAS,KOEF_JEI_BAIGTIS_1, KOEF_JEI_BAIGTIS_2,KOEF_JEI_BAIGTIS_0) VALUES (00006,02,'LIVERPOOL-CHELSEA','2009.04.08','21:45','2.15','3.30','3.10'); INSERT INTO IVYKIAI (ID_IVYKIS,ID_SAKA,IVYKIO_PAVADINIMAS,DATA,LAIKAS,KOEF_JEI_BAIGTIS_1, KOEF_JEI_BAIGTIS_2,KOEF_JEI_BAIGTIS_0) VALUES (00007,02,'BREMEN-UDINESE','2009.04.09','21:45','1.70','4.55','3.40'); INSERT INTO IVYKIAI (ID_IVYKIS,ID_SAKA,IVYKIO_PAVADINIMAS,DATA,LAIKAS,KOEF_JEI_BAIGTIS_1, KOEF_JEI_BAIGTIS_2,KOEF_JEI_BAIGTIS_0) VALUES (00008,03,'JUNQUEIRA-HEWITT','2009.04.07','19:00','4.40','1.17','-'); INSERT INTO IVYKIAI (ID_IVYKIS,ID_SAKA,IVYKIO_PAVADINIMAS,DATA,LAIKAS,KOEF_JEI_BAIGTIS_1, KOEF_JEI_BAIGTIS_2,KOEF_JEI_BAIGTIS_0) VALUES (00009,03,'JANKOVIC-SCHIAVONE','2009.04.07','12:00','1.18','4.30','-'); INSERT INTO IVYKIAI (ID_IVYKIS,ID_SAKA,IVYKIO_PAVADINIMAS,DATA,LAIKAS,KOEF_JEI_BAIGTIS_1, KOEF_JEI_BAIGTIS_2,KOEF_JEI_BAIGTIS_0) VALUES (00010,04,'HATTON-PACQUIAO','2009.05.02','22:00','2.50','1.35','20.00'); 5. PUNKTAI Kūrimas: CREATE TABLE PUNKTAI ( ID_PUNKTAS NUMBER(3), ID_DARBUOTOJAS NUMBER(4), ADRESAS VARCHAR2(100) NOT NULL, DARBO_LAIKAS VARCHAR2(20) NOT NULL, TELEFONAS VARCHAR2(20) NOT NULL, CONSTRAINT PUNKTAI_ID_PUNKTAS_PK PRIMARY KEY (ID_PUNKTAS), CONSTRAINT PUNKTAI_ID_DARBUOTOJAS_FK FOREIGN KEY (ID_DARBUOTOJAS) REFERENCES DARBUOTOJAI (ID_DARBUOTOJAS)); Struktūra: SQL> DESCRIBE PUNKTAI Name Null? Type ----------------------------------------- -------- ------------- ID_PUNKTAS NOT NULL NUMBER(3) ID_DARBUOTOJAS NUMBER(4) ADRESAS NOT NULL VARCHAR2(100) DARBO_LAIKAS NOT NULL VARCHAR2(20) TELEFONAS NOT NULL VARCHAR2(20) Užpildymas: INSERT INTO PUNKTAI (ID_PUNKTAS,ID_DARBUOTOJAS,ADRESAS,DARBO_LAIKAS,TELEFONAS) VALUES (001,0001,'OZO 25,VILNIUS','10.00-22.00','852387746'); INSERT INTO PUNKTAI (ID_PUNKTAS,ID_DARBUOTOJAS,ADRESAS,DARBO_LAIKAS,TELEFONAS) VALUES (002,0002,'MINDAUGO 11,VILNIUS','10.00-21.00','852603489'); INSERT INTO PUNKTAI (ID_PUNKTAS,ID_DARBUOTOJAS,ADRESAS,DARBO_LAIKAS,TELEFONAS) VALUES (003,0003,'KONSTITUCIJOS 12,VILNIUS','10.00-20.00','852730001'); INSERT INTO PUNKTAI (ID_PUNKTAS,ID_DARBUOTOJAS,ADRESAS,DARBO_LAIKAS,TELEFONAS) VALUES (004,0004,'SODU 22,VILNIUS','11.00-20.00','852139151'); INSERT INTO PUNKTAI (ID_PUNKTAS,ID_DARBUOTOJAS,ADRESAS,DARBO_LAIKAS,TELEFONAS) VALUES (005,0005,'ARCHITEKTU 19,VILNIUS','11.00-19.00','852168064'); INSERT INTO PUNKTAI (ID_PUNKTAS,ID_DARBUOTOJAS,ADRESAS,DARBO_LAIKAS,TELEFONAS) VALUES (006,0006,'SAVANORIU 255,KAUNAS','10.00-22.00','837332013'); INSERT INTO PUNKTAI (ID_PUNKTAS,ID_DARBUOTOJAS,ADRESAS,DARBO_LAIKAS,TELEFONAS) VALUES (007,0007,'KREVES 57,KAUNAS','10.00-20.00','837705637'); INSERT INTO PUNKTAI (ID_PUNKTAS,ID_DARBUOTOJAS,ADRESAS,DARBO_LAIKAS,TELEFONAS) VALUES (008,0008,'BALTU 55,KAUNAS','10.00-19.00','837240398'); INSERT INTO PUNKTAI (ID_PUNKTAS,ID_DARBUOTOJAS,ADRESAS,DARBO_LAIKAS,TELEFONAS) VALUES (009,0009,'KALVARIJU 206,VILNIUS','11.00-20.00','852737652'); INSERT INTO PUNKTAI (ID_PUNKTAS,ID_DARBUOTOJAS,ADRESAS,DARBO_LAIKAS,TELEFONAS) VALUES (010,0010,'ATEITIES 91,VILNIUS','10.00-21.00','852470275'); 6. REZULTATAI Kūrimas: CREATE TABLE REZULTATAI ( ID_IVYKIS NUMBER(5), ID_BAIGTIS NUMBER(1), CONSTRAINT REZULTATAI_ID_IVYKIS_FK FOREIGN KEY (ID_IVYKIS) REFERENCES IVYKIAI (ID_IVYKIS), CONSTRAINT REZULTATAI_ID_BAIGTIS_FK FOREIGN KEY (ID_BAIGTIS) REFERENCES IVYKIU_BAIGTYS (ID_BAIGTIS)); Struktūra: SQL> DESCRIBE REZULTATAI Name Null? Type ----------------------------------------- -------- --------- ID_IVYKIS NUMBER(5) ID_BAIGTIS NUMBER(1) Užpildymas: Užpildymo nėra, nes nėra pasibaigusių įvykių. 7. BILIETAI Kūrimas: CREATE TABLE BILIETAI ( ID_BILIETAS NUMBER(7), ID_IVYKIS NUMBER(5), ID_BAIGTIS NUMBER(1), ID_PUNKTAS NUMBER(3), STATOMA_SUMA VARCHAR2(4) NOT NULL, CONSTRAINT BILIETAI_ID_BILIETAS_PK PRIMARY KEY (ID_BILIETAS), CONSTRAINT BILIETAI_ID_IVYKIS_FK FOREIGN KEY (ID_IVYKIS) REFERENCES IVYKIAI (ID_IVYKIS), CONSTRAINT BILIETAI_ID_BAIGTIS_FK FOREIGN KEY (ID_BAIGTIS) REFERENCES IVYKIU_BAIGTYS (ID_BAIGTIS), CONSTRAINT BILIETAI_ID_PUNKTAS_FK FOREIGN KEY (ID_PUNKTAS) REFERENCES PUNKTAI (ID_PUNKTAS)); Struktūra: SQL> DESCRIBE BILIETAI Name Null? Type ----------------------------------------- -------- ----------- ID_BILIETAS NOT NULL NUMBER(7) ID_IVYKIS NUMBER(5) ID_BAIGTIS NUMBER(1) ID_PUNKTAS NUMBER(3) STATOMA_SUMA NOT NULL VARCHAR2(4) Užpildymas: INSERT INTO BILIETAI (ID_BILIETAS,ID_IVYKIS,ID_BAIGTIS,ID_PUNKTAS,STATOMA_SUMA) VALUES (0000001,00001,1,001,'10'); INSERT INTO BILIETAI (ID_BILIETAS,ID_IVYKIS,ID_BAIGTIS,ID_PUNKTAS,STATOMA_SUMA) VALUES (0000002,00001,3,002,'5'); INSERT INTO BILIETAI (ID_BILIETAS,ID_IVYKIS,ID_BAIGTIS,ID_PUNKTAS,STATOMA_SUMA) VALUES (0000003,00002,2,002,'20'); INSERT INTO BILIETAI (ID_BILIETAS,ID_IVYKIS,ID_BAIGTIS,ID_PUNKTAS,STATOMA_SUMA) VALUES (0000004,00004,1,004,'15'); INSERT INTO BILIETAI (ID_BILIETAS,ID_IVYKIS,ID_BAIGTIS,ID_PUNKTAS,STATOMA_SUMA) VALUES (0000005,00004,3,003,'12'); INSERT INTO BILIETAI (ID_BILIETAS,ID_IVYKIS,ID_BAIGTIS,ID_PUNKTAS,STATOMA_SUMA) VALUES (0000006,00006,2,007,'21'); INSERT INTO BILIETAI (ID_BILIETAS,ID_IVYKIS,ID_BAIGTIS,ID_PUNKTAS,STATOMA_SUMA) VALUES (0000007,00007,3,005,'3'); INSERT INTO BILIETAI (ID_BILIETAS,ID_IVYKIS,ID_BAIGTIS,ID_PUNKTAS,STATOMA_SUMA) VALUES (0000008,00008,1,009,'40'); INSERT INTO BILIETAI (ID_BILIETAS,ID_IVYKIS,ID_BAIGTIS,ID_PUNKTAS,STATOMA_SUMA) VALUES (0000009,00010,1,010,'60'); INSERT INTO BILIETAI (ID_BILIETAS,ID_IVYKIS,ID_BAIGTIS,ID_PUNKTAS,STATOMA_SUMA) VALUES (0000010,00010,2,008,'4'); Formos Formos palengvina darbą su duomenų baze. Viskas pradedama nuo formos MENIU. Visi formose esantys mygtukai turi trigerį „WHEN-MOUSE-CLICK“. 1. MENIU Tai pagrindinė forma, kurios pagalba pasirenkame peržiūrai kitas formas. 2. DARBUOTOJAI Šioje formoje galime peržiūrinėti ir suvedinėti darbuotojų duomenis. Mygtukai: Naujas irasas: Last_record; Create_record; Issaugoti: commit_form; Istrinti: delete_record; Šie mygtukai skirti naujų darbuotojų įrašymui, pakeitimų išsaugojimu bei nebedirbančių ištrynimui. Navigacijos mygtukai: : next_record; >>: last_record; Uzdaryti: exit_form; 3. PUNKTU_DARBUOTOJAI Šioje formoje galima pažiūrėti kokiame punkte koks dirba darbuotojas. Navigacijos mygtukų paskirtis tokia pati kaip ir prieš tai buvusioje formoje. 4. IVYKIAI Šioje formoje galima peržiūrėti esamus įvykius bei galima sukurti naujus. Mygtukas Paieska: declare return_lov Boolean; begin return_lov:=show_lov('LOV13'); end; 5. SPORTO_SAKU_IVYKIAI Šioje formoje galima pažiūrėti kokiai sporto šakai priklauso kokie įvykiai. 6. REZULTATAI Šioje formoje suvedinėjami pasibaigusių įvykių rezultatai. Mygtukas IVYKIAI: open_form('C:\Temp\IVYKIAI.fmx'); 7. BILIETAI Šioje formoje suvedinėjami kliento spėjimai bei spausdinamas bilietas. Mygtukas Spausdinti: print; Sukurtos funkcijos, procedūros, kursoriai, išimtys 1. Sukurta funkcija, kuri parodo, kokiu metu prasideda koks įvykis: create or replace function ivykio_laikas (ID_IV IVYKIAI.ID_IVYKIS %TYPE) return varchar2 is res VARCHAR2(100); begin select IVYKIO_PAVADINIMAS || ' - ' || DATA || ' ' || LAIKAS into res from IVYKIAI where ID_IVYKIS = ID_IV; return res; end ivykio_laikas; SQL: select ivykio_laikas(ID_IVYKIS) from IVYKIAI; Rezultatas: IVYKIO_LAIKAS(ID_IVYKIS) ---------------------------------------- ZALGIRIS-RYTAS - 2009.04.08 18:45 BARCELONA-CERAMICA - 2009.04.09 21:45 PARTIZAN-ZVEZDA - 2009.04.16 20:00 PANIONIOS-OLYMPIAKOS - 2009.04.08 17:30 BARCELONA-BAYERN - 2009.04.08 21:45 LIVERPOOL-CHELSEA - 2009.04.08 21:45 BREMEN-UDINESE - 2009.04.09 21:45 JUNQUEIRA-HEWITT - 2009.04.07 19:00 JANKOVIC-SCHIAVONE - 2009.04.07 12:00 HATTON-PACQUIAO - 2009.05.02 22:00 2. Sukurta procedūra suteikia galimybę įterpti sporto šaką prie jau esamų. Yra sukurtas klaidų gaudymas, t. y. jei įvedama jau egzistuojanti sporto šaka tuomet pranešama apie klaidą: create or replace procedure nauja_saka (sak_pav SPORTO_SAKA.SAKOS_PAVADINIMAS %type) is begin insert into SPORTO_SAKA (ID_SAKA, SAKOS_PAVADINIMAS) values (ID_S.nextval, sak_pav); commit; exception when dup_val_on_index then raise_application_error(-20001, 'Tokia saka jau yra'); when others then raise_application_error(-20011, sqlerrm); end nauja_saka; SQL: exec nauja_saka('FUTBOLAS') Rezultatas: BEGIN nauja_saka('FUTBOLAS'); END; * ERROR at line 1: ORA-20001: Tokia saka jau yra ORA-06512: at "LRADZIUKYNAS.NAUJA_SAKA", line 11 ORA-06512: at line 1 3. Sukurta procedūra, kuri suskaičiuoja kiek iš viso yra sporto šakų. Jei lentelėje nėra duomenų apie sporto šakas, tuomet panaudojama išimtis - pranešama klaida, kad nėra duomenų. Duomenims iš lentelių paimti yra naudojamas kursorius: create or replace procedure skaiciavimas is cursor skaicius is select count(SAKOS_PAVADINIMAS) from SPORTO_SAKA; klaida exception; kiek number(2); begin open skaicius; fetch skaicius into kiek; if kiek = 0 then raise klaida; end if; DBMS_OUTPUT.ENABLE; DBMS_OUTPUT.PUT_LINE('Is viso yra '||kiek||' sporto sakos'); close skaicius; exception when klaida then DBMS_OUTPUT.PUT_LINE('Duomenys nerasti'); when others then DBMS_OUTPUT.PUT_LINE('Klaida!'); end skaiciavimas; SQL: set serveroutput on; exec skaiciavimas Rezultatas: Is viso yra 4 sporto sakos Išvados Sukurtoji aplikacija, naudojant „Oracle9i developer suite“ bei Forms builder priemones, lažybų bendrovei leidžia greičiau, kokybiškiau, patikimiau bei patogiau atlikti savo veiklą, taip pat leidžia lengviau susiorientuoti esamoje informacijoje, greitai ir kokybiškai suvesti ir atnaujinti reikalingus duomenis. Sukurtos formos taip pat palengvina darbą. Literatūra 1. Pl_Sql_1VN.ppt – Pl_Sql_7VN.ppt Viačeslavo Nelkino paskaitų skaidrės; 2. Janina Galkauskaitė “Duomenų bazių valdymas 1”, mokomi knyga, 2007 metai.

Daugiau informacijos...

★ Klientai rekomenduoja

Šį rašto darbą rekomenduoja mūsų klientai. Ką tai reiškia?

Mūsų svetainėje pateikiama dešimtys tūkstančių skirtingų rašto darbų, kuriuos įkėlė daugybė moksleivių ir studentų su skirtingais gabumais. Būtent šis rašto darbas yra patikrintas specialistų ir rekomenduojamas kitų klientų, kurie po atsisiuntimo įvertino šį mokslo darbą teigiamai. Todėl galite būti tikri, kad šis pasirinkimas geriausias!