Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- create or replace PACKAGE BEDRIJF_PKG AS
- TYPE CURSOR_TYPE IS REF CURSOR;
- PROCEDURE getbedrijf(bedrijf_cursor OUT BEDRIJF_PKG.CURSOR_TYPE);
- PROCEDURE createbedrijf(p_naam bedrijven.naam%TYPE,
- p_adres bedrijven.ADRES%TYPE,
- p_postcode bedrijven.postcode%TYPE,
- p_tel bedrijven.tel%TYPE,
- p_email bedrijven.email%TYPE,
- p_site bedrijven.WEBSITE%TYPE,
- p_land bedrijven.land%TYPE);
- END BEDRIJF_PKG;
- /
- create or replace PACKAGE CONTACTEN_PKG AS
- PROCEDURE CREATE_CONTACTEN(p_aanspr contacten.aanspreektitel%TYPE,
- p_naam contacten.naam%TYPE,
- p_voornaam contacten.voornaam%TYPE,
- p_bedrijf contacten.bedrijf%TYPE,
- p_functie contacten.functie%TYPE,
- p_tel contacten.tel%TYPE,
- p_gsm contacten.gsm%TYPE,
- p_taal contacten.taal%TYPE);
- PROCEDURE GETCONTACTEN(p_contact IN bedrijven.bedrijf_id%TYPE,
- p_aanspr OUT contacten.aanspreektitel%TYPE,
- p_naam OUT contacten.naam%TYPE,
- p_voornaam OUT contacten.voornaam%TYPE,
- p_functie OUT contacten.functie%TYPE,
- p_tel OUT contacten.tel%TYPE,
- p_gsm OUT contacten.gsm%TYPE,
- p_taal OUT contacten.taal%TYPE);
- /* TODO enter package declarations (types, exceptions, methods etc) here */
- END CONTACTEN_PKG;
- /
- create or replace PACKAGE CONTRACT_PKG AS
- TYPE CURSOR_TYPE IS REF CURSOR;
- PROCEDURE getcontract(p_studnr IN studenten.studentnr%TYPE,
- contract_cursor OUT CONTRACT_PKG.CURSOR_TYPE);
- PROCEDURE createcontract(p_opmaakdtm contract.opmaakdatum%TYPE,
- p_stud contract.student%TYPE,
- p_startdtm contract.startdatum%TYPE,
- p_einddtm contract.einddatum%TYPE,
- p_contact contract.contact%TYPE);
- END CONTRACT_PKG;
- /
- create or replace PACKAGE STAGEPLAATS_PKG AS
- TYPE CURSOR_TYPE IS REF CURSOR;
- PROCEDURE getstageplaats(stage_cursor OUT STAGEPLAATS_PKG.CURSOR_TYPE,
- p_bedrijf IN bedrijven.bedrijf_id%TYPE,
- p_opleiding IN opleiding.opleiding_id%TYPE);
- PROCEDURE createstageplaats(p_bedrijf stageplaats.bedrijf%TYPE,
- p_opleiding stageplaats.opleiding%TYPE,
- p_onderwerp stageplaats.onderwerp%TYPE,
- p_aantal stageplaats.aantal%TYPE,
- p_beschrijving stageplaats.beschrijving%TYPE);
- PROCEDURE getvalidate(val_cursor OUT STAGEPLAATS_PKG.CURSOR_TYPE);
- PROCEDURE getstageplaats_leerkracht(leerkr_cursor OUT STAGEPLAATS_PKG.CURSOR_TYPE,
- p_opleiding IN opleiding.opleiding_id%TYPE);
- END STAGEPLAATS_PKG;
- /
- create or replace PACKAGE STUDENT_PKG AS
- TYPE CURSOR_TYPE IS REF CURSOR;
- PROCEDURE GETSTUDENT(p_studnr IN studenten.studentnr%TYPE,
- student_cursor OUT STUDENT_PKG.CURSOR_TYPE);
- PROCEDURE CREATESTUDENT(p_studnr studenten.studentnr%TYPE,
- p_naam studenten.naam%TYPE,
- p_voornaam studenten.voornaam%TYPE,
- p_adres studenten.adres%TYPE,
- p_postcode studenten.postcode%TYPE,
- p_email studenten.email%TYPE,
- p_tel studenten.tel%TYPE,
- p_gsm studenten.gsm%TYPE,
- p_rijksnr studenten.rijksnr%TYPE,
- p_geboorte studenten.geboorte%TYPE,
- p_stage studenten.stage%TYPE,
- p_pass studenten.wachtwoord%TYPE,
- p_opleiding studenten.opleiding%TYPE,
- p_stageplaats studenten.stageplaats%TYPE);
- END STUDENT_PKG;
- /
- create or replace PACKAGE LEERKRACHT_PKG AS
- PROCEDURE getwachtwoord(p_mail IN stageleerkrachten.email%TYPE,
- p_pass OUT stageleerkrachten.wachtwoord%TYPE);
- PROCEDURE getopleiding(p_mail IN stageleerkrachten.email%TYPE,
- p_naam OUT opleiding.naam%TYPE);
- END LEERKRACHT_PKG;
- /
- create or replace PACKAGE BODY BEDRIJF_PKG AS
- PROCEDURE getbedrijf(bedrijf_cursor OUT BEDRIJF_PKG.CURSOR_TYPE) AS
- BEGIN
- OPEN bedrijf_cursor FOR
- SELECT naam
- FROM bedrijven;
- END getbedrijf;
- PROCEDURE createbedrijf(p_naam bedrijven.naam%TYPE,
- p_adres bedrijven.ADRES%TYPE,
- p_postcode bedrijven.postcode%TYPE,
- p_tel bedrijven.tel%TYPE,
- p_email bedrijven.email%TYPE,
- p_site bedrijven.WEBSITE%TYPE,
- p_land bedrijven.land%TYPE) AS
- BEGIN
- INSERT INTO bedrijven(bedrijf_id, naam, adres, postcode, tel, email, website, land)
- VALUES (bedr_id_seq.NEXTVAL, p_naam, p_adres, p_postcode, p_tel, p_email, p_site, p_land);
- COMMIT;
- END createbedrijf;
- END BEDRIJF_PKG;
- /
- create or replace PACKAGE BODY CONTACTEN_PKG AS
- PROCEDURE CREATE_CONTACTEN(p_aanspr contacten.aanspreektitel%TYPE,
- p_naam contacten.naam%TYPE,
- p_voornaam contacten.voornaam%TYPE,
- p_bedrijf contacten.bedrijf%TYPE,
- p_functie contacten.functie%TYPE,
- p_tel contacten.tel%TYPE,
- p_gsm contacten.gsm%TYPE,
- p_taal contacten.taal%TYPE) AS
- BEGIN
- INSERT INTO contacten(contact_id, aanspreektitel, naam, voornaam, bedrijf, functie, tel, gsm, taal)
- VALUES (cont_id_seq.NEXTVAL, p_aanspr, p_naam, p_voornaam, p_bedrijf, p_functie, p_tel, p_gsm, p_taal);
- COMMIT;
- END CREATE_CONTACTEN;
- PROCEDURE GETCONTACTEN(p_contact IN bedrijven.bedrijf_id%TYPE,
- p_aanspr OUT contacten.aanspreektitel%TYPE,
- p_naam OUT contacten.naam%TYPE,
- p_voornaam OUT contacten.voornaam%TYPE,
- p_functie OUT contacten.functie%TYPE,
- p_tel OUT contacten.tel%TYPE,
- p_gsm OUT contacten.gsm%TYPE,
- p_taal OUT contacten.taal%TYPE) AS
- BEGIN
- SELECT aanspreektitel, naam, voornaam, functie, tel, gsm, taal
- INTO p_aanspr, p_naam, p_voornaam, p_functie, p_tel, p_gsm, p_taal
- FROM contacten
- WHERE contacten.bedrijf = p_contact;
- END GETCONTACTEN;
- END CONTACTEN_PKG;
- /
- create or replace PACKAGE BODY CONTRACT_PKG AS
- PROCEDURE getcontract(p_studnr IN studenten.studentnr%TYPE,
- contract_cursor OUT CONTRACT_PKG.CURSOR_TYPE) AS
- BEGIN
- OPEN contract_cursor FOR
- SELECT c.contract_id, c.opmaakdatum, c.startdatum, c.einddatum, con.naam, con.voornaam, b.naam
- FROM contract c ,contacten con, bedrijven b
- WHERE c.student = p_studnr
- AND c.contact = con.contact_id
- AND con.bedrijf = b.bedrijf_id;
- END getcontract;
- PROCEDURE createcontract(p_opmaakdtm contract.opmaakdatum%TYPE,
- p_stud contract.student%TYPE,
- p_startdtm contract.startdatum%TYPE,
- p_einddtm contract.einddatum%TYPE,
- p_contact contract.contact%TYPE) AS
- BEGIN
- INSERT INTO contract(contract_id, student, opmaakdatum, startdatum, einddatum, contact)
- VALUES(contr_id_seq.NEXTVAL, p_stud, p_opmaakdtm, p_startdtm, p_einddtm, p_contact);
- COMMIT;
- END createcontract;
- END CONTRACT_PKG;
- /
- create or replace PACKAGE BODY STAGEPLAATS_PKG AS
- PROCEDURE getstageplaats(stage_cursor OUT STAGEPLAATS_PKG.CURSOR_TYPE,
- p_bedrijf IN bedrijven.bedrijf_id%TYPE,
- p_opleiding IN opleiding.opleiding_id%TYPE) AS
- BEGIN
- OPEN stage_cursor FOR
- SELECT stage_id, bedrijf, opleiding, onderwerp, aantal, beschrijving
- FROM stageplaats
- WHERE bedrijf = p_bedrijf
- AND opleiding = p_opleiding;
- END getstageplaats;
- PROCEDURE getstageplaats_leerkracht(leerkr_cursor OUT STAGEPLAATS_PKG.CURSOR_TYPE,
- p_opleiding IN opleiding.opleiding_id%TYPE)as
- BEGIN
- OPEN leerkr_cursor FOR
- SELECT s.stage_id, b.naam, opl.naam, ond.naam, aantal, beschrijving
- FROM stageplaats s, opleiding opl, onderwerp ond, bedrijven b
- WHERE opleiding = p_opleiding
- AND s.bedrijf = b.bedrijf_id
- AND s.opleiding = opl.opleiding_id
- AND s.onderwerp = ond.onderwerp_id;
- END getstageplaats_leerkracht;
- PROCEDURE createstageplaats(p_bedrijf stageplaats.bedrijf%TYPE,
- p_opleiding stageplaats.opleiding%TYPE,
- p_onderwerp stageplaats.onderwerp%TYPE,
- p_aantal stageplaats.aantal%TYPE,
- p_beschrijving stageplaats.beschrijving%TYPE) AS
- BEGIN
- INSERT INTO stageplaats(stage_id, bedrijf, opleiding, onderwerp, aantal, beschrijving)
- VALUES(stag_id_seq.NEXTVAL, p_bedrijf, p_opleiding, p_onderwerp, p_aantal, p_beschrijving);
- COMMIT;
- END createstageplaats;
- PROCEDURE getvalidate(val_cursor OUT STAGEPLAATS_PKG.CURSOR_TYPE) AS
- BEGIN
- OPEN val_cursor FOR
- SELECT stud.naam, stud.voornaam, o.naam, b.naam
- FROM studenten stud, bedrijven b, stageplaats s, opleiding o
- WHERE stud.stage = 1
- AND stud.opleiding = o.OPLEIDING_ID
- AND s.bedrijf = b.bedrijf_id
- AND stud.stageplaats = s.stage_id;
- END getvalidate;
- END STAGEPLAATS_PKG;
- /
- create or replace PACKAGE BODY STUDENT_PKG AS
- PROCEDURE GETSTUDENT(p_studnr IN studenten.studentnr%TYPE,
- student_cursor OUT STUDENT_PKG.CURSOR_TYPE) AS
- BEGIN
- OPEN student_cursor FOR
- SELECT s.naam, s.voornaam, s.adres, s.postcode, p.gemeente, s.email, s.tel, s.gsm, s.rijksnr, s.geboorte, s.wachtwoord, o.naam, s.stageplaats
- FROM studenten s, postcodes p, opleiding o
- WHERE s.studentnr = p_studnr
- AND s.postcode = p.code
- AND s.opleiding = o.OPLEIDING_ID;
- END GETSTUDENT;
- PROCEDURE CREATESTUDENT(p_studnr studenten.studentnr%TYPE,
- p_naam studenten.naam%TYPE,
- p_voornaam studenten.voornaam%TYPE,
- p_adres studenten.adres%TYPE,
- p_postcode studenten.postcode%TYPE,
- p_email studenten.email%TYPE,
- p_tel studenten.tel%TYPE,
- p_gsm studenten.gsm%TYPE,
- p_rijksnr studenten.rijksnr%TYPE,
- p_geboorte studenten.geboorte%TYPE,
- p_stage studenten.stage%TYPE,
- p_pass studenten.wachtwoord%TYPE,
- p_opleiding studenten.opleiding%TYPE,
- p_stageplaats studenten.stageplaats%TYPE) AS
- BEGIN
- INSERT INTO studenten(studentnr, naam, voornaam, adres,
- postcode, email, tel, gsm, rijksnr,
- geboorte, stage, wachtwoord, opleiding, stageplaats)
- VALUES(p_studnr, p_naam, p_voornaam, p_adres, p_postcode,
- p_email, p_tel, p_gsm, p_rijksnr, p_geboorte,
- p_stage, p_pass, p_opleiding, p_stageplaats);
- COMMIT;
- END CREATESTUDENT;
- END STUDENT_PKG;
- /
- CREATE OR REPLACE PACKAGE BODY LEERKRACHT_PKG AS
- PROCEDURE getwachtwoord(p_mail IN stageleerkrachten.email%TYPE,
- p_pass OUT stageleerkrachten.wachtwoord%TYPE) AS
- BEGIN
- SELECT wachtwoord
- INTO p_pass
- FROM stageleerkrachten
- WHERE email = p_mail;
- END getwachtwoord;
- PROCEDURE getopleiding(p_mail IN stageleerkrachten.email%TYPE,
- p_naam OUT opleiding.naam%TYPE) AS
- BEGIN
- SELECT o.naam
- INTO p_naam
- FROM stageleerkrachten s, opleiding o
- WHERE email = p_mail
- AND s.opleiding = o.opleiding_id;
- END getopleiding;
- END LEERKRACHT_PKG;
- /
- CREATE OR REPLACE PROCEDURE getaantalstats
- (p_jaar IN stats.jaar%TYPE,
- p_opleiding OUT opleiding.naam%TYPE,
- p_onderwerp OUT onderwerp.naam%TYPE)
- IS
- BEGIN
- SELECT opl.naam, ond.naam
- INTO p_opleiding, p_onderwerp
- FROM opleiding opl, onderwerp ond, stats s
- WHERE s.opleiding = opl.opleiding_id
- AND s.onderwerp = ond.onderwerp_id
- AND s.jaar = p_jaar;
- END getaantalstats;
- /
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement