Mateusz Macięga, gr.32

Projekt z baz danych

Księgarnia internetowa

v. 1.4

1/49

1. Model bazy danych

2/49

2. Dostępne tabele

a) autorzy

CREATE TABLE "PROJEKT_BZII"."AUTORZY"
(

"ID_AUTORA" NUMBER,

"IMIE" VARCHAR2(50 BYTE),
"NAZWISKO" VARCHAR2(75 BYTE) NOT NULL,

"DATA_URODZENIA" DATE,
"MIEJSCE_URODZENIA" VARCHAR2(100 BYTE),

"OPIS_AUTORA" VARCHAR2(1000 BYTE) NOT NULL,
CONSTRAINT "PK_AUTOR" PRIMARY KEY ("ID_AUTORA"),

CONSTRAINT "UN_OPIS_AUTORA" UNIQUE ("OPIS_AUTORA")

);

COMMENT ON COLUMN "PROJEKT_BZII"."AUTORZY"."ID_AUTORA" IS 'Identyfikator autora';

COMMENT ON COLUMN "PROJEKT_BZII"."AUTORZY"."IMIE" IS 'Imie autora';
COMMENT ON COLUMN "PROJEKT_BZII"."AUTORZY"."NAZWISKO" IS 'Nazwisko autora';

COMMENT ON COLUMN "PROJEKT_BZII"."AUTORZY"."DATA_URODZENIA" IS 'Data urodzenia autora';
COMMENT ON COLUMN "PROJEKT_BZII"."AUTORZY"."MIEJSCE_URODZENIA" IS 'Miejsce urodzenia autora';

COMMENT ON COLUMN "PROJEKT_BZII"."AUTORZY"."OPIS_AUTORA" IS 'Unikalny opis autora dla celów
administracyjnych';

COMMENT ON TABLE "PROJEKT_BZII"."AUTORZY" IS 'Tabela zawierająca autorów książek';

b) autorzy_z_ksiazkami

CREATE TABLE "PROJEKT_BZII"."AUTORZY_Z_KSIAZKAMI"

(

"ID_KSIAZKI" NUMBER NOT NULL,
"ID_AUTORA" NUMBER NOT NULL,

CONSTRAINT "PK_AUTORZY_Z_KSIAZKAMI" PRIMARY KEY ("ID_KSIAZKI", "ID_AUTORA"),
CONSTRAINT "FK_AUTORZY" FOREIGN KEY ("ID_AUTORA")

REFERENCES "PROJEKT_BZII"."AUTORZY" ("ID_AUTORA"),
CONSTRAINT "FK_KSIAZKI" FOREIGN KEY ("ID_KSIAZKI")

REFERENCES "PROJEKT_BZII"."KSIAZKI" ("ID_KSIAZKI")

);

COMMENT ON COLUMN "PROJEKT_BZII"."AUTORZY_Z_KSIAZKAMI"."ID_KSIAZKI" IS 'Identyfikator książki';

COMMENT ON COLUMN "PROJEKT_BZII"."AUTORZY_Z_KSIAZKAMI"."ID_AUTORA" IS 'Identyfikator autora';
COMMENT ON TABLE "PROJEKT_BZII"."AUTORZY_Z_KSIAZKAMI" IS 'Tabela zawierającą spis autorów

przyporządkowanych książkom';

c) kategorie

CREATE TABLE "PROJEKT_BZII"."KATEGORIE"
(

"ID_KATEGORII" NUMBER,

"NAZWA_KATEGORII" VARCHAR2(50 BYTE) NOT NULL,
CONSTRAINT "PK_KATEGORIA" PRIMARY KEY ("ID_KATEGORII"),

CONSTRAINT "UN_NAZWA_KATEGORII" UNIQUE ("NAZWA_KATEGORII")

);

COMMENT ON COLUMN "PROJEKT_BZII"."KATEGORIE"."ID_KATEGORII" IS 'Identyfikator kategorii';

COMMENT ON COLUMN "PROJEKT_BZII"."KATEGORIE"."NAZWA_KATEGORII" IS 'Nazwa kategorii';
COMMENT ON TABLE "PROJEKT_BZII"."KATEGORIE" IS 'Tabela zawierająca kategorie książek';

d) klienci

CREATE TABLE "PROJEKT_BZII"."KLIENCI"
(

"ID_KLIENTA" NUMBER,

"IMIE_KLIENTA" VARCHAR2(50 BYTE) NOT NULL,
"NAZWISKO_KLIENTA" VARCHAR2(75 BYTE) NOT NULL,

"EMAIL" VARCHAR2(90 BYTE) NOT NULL,
"NR_TELEFONU" NUMBER(9,0),

"DATA_URODZENIA" DATE,
"HASLO" VARCHAR2(32 BYTE) NOT NULL,

3/49

"PLEC" CHAR(1 BYTE) NOT NULL,

"ADRES" VARCHAR2(75 BYTE) NOT NULL,
"ADRES_NR_DOMU" VARCHAR2(8 BYTE) NOT NULL,

"ADRES_NR_MIESZKANIA" VARCHAR2(8 BYTE),
"KOD_POCZTOWY" VARCHAR2(12 BYTE) NOT NULL,

"ID_MIEJSCOWOSCI" NUMBER NOT NULL,
CONSTRAINT "PK_KLIENT" PRIMARY KEY ("ID_KLIENTA"),

CONSTRAINT "CK_EMAIL" CHECK (REGEXP_LIKE(email,'^[a-zA-Z][a-zA-Z0-9_\.\-]+@([a-zA-Z0-9-]{2,}\.)+

([a-zA-Z]{2,4}|[a-zA-Z]{2}\.[a-zA-Z]{2})$','i')),

CONSTRAINT "CK_PLEC_KLIENCI" CHECK (plec like 'M' or plec like 'K'),
CONSTRAINT "UN_EMAIL" UNIQUE ("EMAIL"),

CONSTRAINT "FK_ID_MIEJSCOWOSCI_KLIENCI" FOREIGN KEY ("ID_MIEJSCOWOSCI")
REFERENCES "PROJEKT_BZII"."MIEJSCOWOSCI" ("ID_MIEJSCOWOSCI")

);

COMMENT ON COLUMN "PROJEKT_BZII"."KLIENCI"."ID_KLIENTA" IS 'Identyfikator klienta';
COMMENT ON COLUMN "PROJEKT_BZII"."KLIENCI"."IMIE_KLIENTA" IS 'Imie klienta';

COMMENT ON COLUMN "PROJEKT_BZII"."KLIENCI"."NAZWISKO_KLIENTA" IS 'Nazwisko klienta';
COMMENT ON COLUMN "PROJEKT_BZII"."KLIENCI"."EMAIL" IS 'E-mail klienta';

COMMENT ON COLUMN "PROJEKT_BZII"."KLIENCI"."NR_TELEFONU" IS 'Numer telefonu klienta';
COMMENT ON COLUMN "PROJEKT_BZII"."KLIENCI"."DATA_URODZENIA" IS 'Data urodzenia klienta';

COMMENT ON COLUMN "PROJEKT_BZII"."KLIENCI"."HASLO" IS 'Hash hasła klienta (MD5)';
COMMENT ON COLUMN "PROJEKT_BZII"."KLIENCI"."PLEC" IS 'Pleć klienta';

COMMENT ON COLUMN "PROJEKT_BZII"."KLIENCI"."ADRES" IS 'Numer domu klienta';
COMMENT ON COLUMN "PROJEKT_BZII"."KLIENCI"."ADRES_NR_DOMU" IS 'Numer domu klienta';

COMMENT ON COLUMN "PROJEKT_BZII"."KLIENCI"."ADRES_NR_MIESZKANIA" IS 'Numer mieszkania klienta';
COMMENT ON COLUMN "PROJEKT_BZII"."KLIENCI"."KOD_POCZTOWY" IS 'Kod pocztowy adresu klienta';

COMMENT ON COLUMN "PROJEKT_BZII"."KLIENCI"."ID_MIEJSCOWOSCI" IS 'Identyfikator miejscowosci';
COMMENT ON TABLE "PROJEKT_BZII"."KLIENCI" IS 'Tabela zawierającą klientów księgarnii';

e) komentarze_ksiazki

CREATE TABLE "PROJEKT_BZII"."KOMENTARZE_KSIAZKI"
(

"ID_KOMENTARZU" NUMBER NOT NULL,

"ID_KLIENTA" NUMBER NOT NULL,
"DATA_UTWORZENIA" DATE DEFAULT sysdate NOT NULL,

"TRESC_KOMENTARZA" VARCHAR2(1200 BYTE) NOT NULL,
"ID_KSIAZKI" NUMBER NOT NULL,

"DATA_OSTATNIEJ_ZMIANY" DATE NOT NULL,
PRIMARY KEY ("ID_KOMENTARZU"),

CONSTRAINT "FK_ID_KLIENTA_KOMENTARZ" FOREIGN KEY ("ID_KLIENTA")
REFERENCES "PROJEKT_BZII"."KLIENCI" ("ID_KLIENTA"),

CONSTRAINT "FK_ID_KSIAZKI_KOMENTARZE" FOREIGN KEY ("ID_KSIAZKI")
REFERENCES "PROJEKT_BZII"."KSIAZKI" ("ID_KSIAZKI")

);

COMMENT ON COLUMN "PROJEKT_BZII"."KOMENTARZE_KSIAZKI"."ID_KOMENTARZU" IS 'Identyfikator komentarzu';
COMMENT ON COLUMN "PROJEKT_BZII"."KOMENTARZE_KSIAZKI"."ID_KLIENTA" IS 'Identyfikator klienta, który

napisal komentarz';
COMMENT ON COLUMN "PROJEKT_BZII"."KOMENTARZE_KSIAZKI"."DATA_UTWORZENIA" IS 'Data utworzenia komentarzu';

COMMENT ON COLUMN "PROJEKT_BZII"."KOMENTARZE_KSIAZKI"."TRESC_KOMENTARZA" IS 'Treść komentarzu';
COMMENT ON COLUMN "PROJEKT_BZII"."KOMENTARZE_KSIAZKI"."ID_KSIAZKI" IS 'Identyfikator książki';

COMMENT ON COLUMN "PROJEKT_BZII"."KOMENTARZE_KSIAZKI"."DATA_OSTATNIEJ_ZMIANY" IS 'Data ostatniej zmiany
komentarza';

COMMENT ON TABLE "PROJEKT_BZII"."KOMENTARZE_KSIAZKI" IS 'Tabela zawierająca komentarze klientów na temat
książek';

f) koszyki

CREATE TABLE "PROJEKT_BZII"."KOSZYKI"
(

"ID_KOSZYKA" NUMBER NOT NULL,

"ID_KLIENTA" NUMBER CONSTRAINT "NN_ID_KLIENTA_KOSZYK" NOT NULL,
CONSTRAINT "PK_ID_KOSZYKA" PRIMARY KEY ("ID_KOSZYKA"),

CONSTRAINT "FK_ID_KLIENTA_KOSZYK" FOREIGN KEY ("ID_KLIENTA")
REFERENCES "PROJEKT_BZII"."KLIENCI" ("ID_KLIENTA")

);

COMMENT ON COLUMN "PROJEKT_BZII"."KOSZYKI"."ID_KOSZYKA" IS 'Identyfikator koszyka';
COMMENT ON COLUMN "PROJEKT_BZII"."KOSZYKI"."ID_KLIENTA" IS 'Identyfikator klienta koszyka';

COMMENT ON TABLE "PROJEKT_BZII"."KOSZYKI" IS 'Tabela zawierająca koszyki klientów';

4/49

g) kraje

CREATE TABLE "PROJEKT_BZII"."KRAJE"

(

"ID_KRAJU" NUMBER,
"NAZWA_KRAJU" VARCHAR2(50 BYTE) NOT NULL,

CONSTRAINT "PK_KRAJE" PRIMARY KEY ("ID_KRAJU"),
UNIQUE ("NAZWA_KRAJU")

);

COMMENT ON COLUMN "PROJEKT_BZII"."KRAJE"."ID_KRAJU" IS 'Identyfikator kraju';
COMMENT ON COLUMN "PROJEKT_BZII"."KRAJE"."NAZWA_KRAJU" IS 'Nazwa kraju';

COMMENT ON TABLE "PROJEKT_BZII"."KRAJE" IS 'Tabela zawierająca kraje';

h) ksiazki

CREATE TABLE "PROJEKT_BZII"."KSIAZKI"

(

"ID_KSIAZKI" NUMBER,
"TYTUL" VARCHAR2(150 BYTE) NOT NULL,

"ID_WYDAWNICTWA" NUMBER NOT NULL,
"ID_OPRAWY" NUMBER,

"NUMER_WYDANIA" NUMBER(2,0) DEFAULT 1,
"LICZBA_STRON" NUMBER(6,0),

"ISBN" NUMBER(13,0),
"CENA" NUMBER(6,2) NOT NULL,

"OKLADKA" BLOB,
"ISSN" NUMBER(8,0),

"NUMER_TOMU" NUMBER(3,0),
"DATA_WYDANIA" DATE NOT NULL,

"OPIS" VARCHAR2(2500 BYTE),
CONSTRAINT "PK_KSIAZKA" PRIMARY KEY ("ID_KSIAZKI"),

CONSTRAINT "CK_CENA" CHECK (cena > 0),
CONSTRAINT "CK_NUMER_WYDANIA" CHECK (numer_wydania > 0),

CONSTRAINT "CK_LICZBA_STRON" CHECK (liczba_stron >0),
CONSTRAINT "CK_ISBN" CHECK (isbn like '__________' or isbn like '_____________'),

CONSTRAINT "CK_ISSN" CHECK (issn like '________'),
CONSTRAINT "CK_NUMER_TOMU" CHECK (numer_tomu >0),

CONSTRAINT "FK_ID_WYDAWNICTWA_KSIAZKI" FOREIGN KEY ("ID_WYDAWNICTWA")
REFERENCES "PROJEKT_BZII"."WYDAWNICTWA" ("ID_WYDAWNICTWA"),

CONSTRAINT "FK_ID_OPRAWY_KSIAZKI" FOREIGN KEY ("ID_OPRAWY")
REFERENCES "PROJEKT_BZII"."OPRAWY" ("ID_OPRAWY")

);

COMMENT ON COLUMN "PROJEKT_BZII"."KSIAZKI"."ID_KSIAZKI" IS 'Identyfikator książki';
COMMENT ON COLUMN "PROJEKT_BZII"."KSIAZKI"."TYTUL" IS 'Tytuł książki';

COMMENT ON COLUMN "PROJEKT_BZII"."KSIAZKI"."ID_WYDAWNICTWA" IS 'Identyfikator wydawnictwa książki';
COMMENT ON COLUMN "PROJEKT_BZII"."KSIAZKI"."ID_OPRAWY" IS 'Identyfikator oprawy książki';

COMMENT ON COLUMN "PROJEKT_BZII"."KSIAZKI"."NUMER_WYDANIA" IS 'Numer wydania książki';
COMMENT ON COLUMN "PROJEKT_BZII"."KSIAZKI"."LICZBA_STRON" IS 'Liczba stron książki';

COMMENT ON COLUMN "PROJEKT_BZII"."KSIAZKI"."ISBN" IS 'Kod ISBN książki';
COMMENT ON COLUMN "PROJEKT_BZII"."KSIAZKI"."CENA" IS 'Cena książki w złotych';

COMMENT ON COLUMN "PROJEKT_BZII"."KSIAZKI"."OKLADKA" IS 'Okładka książki';
COMMENT ON COLUMN "PROJEKT_BZII"."KSIAZKI"."ISSN" IS 'Kod ISSN czasopisma';

COMMENT ON COLUMN "PROJEKT_BZII"."KSIAZKI"."NUMER_TOMU" IS 'Numer tomu książki';
COMMENT ON COLUMN "PROJEKT_BZII"."KSIAZKI"."DATA_WYDANIA" IS 'Data wydania książki';

COMMENT ON COLUMN "PROJEKT_BZII"."KSIAZKI"."OPIS" IS 'Opis książki';
COMMENT ON TABLE "PROJEKT_BZII"."KSIAZKI" IS 'Tabela przechowuje pozycje ksiazek znajdujace sie w naszej

bazie';

i) magazyn

CREATE TABLE "PROJEKT_BZII"."MAGAZYN"

(

"ID_KSIAZKI" NUMBER NOT NULL,
"SZTUK_KSIAZKI" NUMBER NOT NULL,

CONSTRAINT "CK_SZTUK_KSIAZKI" CHECK (sztuk_ksiazki >=0),
CONSTRAINT "PK_MAGAZYN" PRIMARY KEY ("ID_KSIAZKI"),

CONSTRAINT "FK_KSIAZKI_MAGAZYN" FOREIGN KEY ("ID_KSIAZKI")
REFERENCES "PROJEKT_BZII"."KSIAZKI" ("ID_KSIAZKI")

);

5/49

COMMENT ON COLUMN "PROJEKT_BZII"."MAGAZYN"."ID_KSIAZKI" IS 'Identyfikator książki';

COMMENT ON COLUMN "PROJEKT_BZII"."MAGAZYN"."SZTUK_KSIAZKI" IS 'Liczba sztuk książki w magazynie';
COMMENT ON TABLE "PROJEKT_BZII"."MAGAZYN" IS 'Tabela przechowująca liczbę sztuk poszczególnych książek w

sklepie';

j) miejscowosci

CREATE TABLE "PROJEKT_BZII"."MIEJSCOWOSCI"

(

"ID_MIEJSCOWOSCI" NUMBER NOT NULL,
"NAZWA_MIEJSCOWOSCI" VARCHAR2(100 BYTE) CONSTRAINT "NN_NAZWA_MIEJSCOWOSCI" NOT NULL,

"ID_WOJEWODZCTWA" NUMBER NOT NULL,
CONSTRAINT "PK_ID_MIEJSCOWOSCI" PRIMARY KEY ("ID_MIEJSCOWOSCI"),

CONSTRAINT "FK_ID_WOJEWODZCTWA" FOREIGN KEY ("ID_WOJEWODZCTWA")
REFERENCES "PROJEKT_BZII"."WOJEWODZCTWA" ("ID_WOJEWODZCTWA")

);

COMMENT ON COLUMN "PROJEKT_BZII"."MIEJSCOWOSCI"."ID_MIEJSCOWOSCI" IS 'Identyifkator miejscowości';
COMMENT ON COLUMN "PROJEKT_BZII"."MIEJSCOWOSCI"."NAZWA_MIEJSCOWOSCI" IS 'Nazwa miejscowości';

COMMENT ON COLUMN "PROJEKT_BZII"."MIEJSCOWOSCI"."ID_WOJEWODZCTWA" IS 'Identyfikator wojewódzctwa, w
którym znajduje się miejscowość';

COMMENT ON TABLE "PROJEKT_BZII"."MIEJSCOWOSCI" IS 'Tabela przechowująca miejscowości klientów';

k) oprawy

CREATE TABLE "PROJEKT_BZII"."OPRAWY"

(

"ID_OPRAWY" NUMBER,
"RODZAJ_OPRAWY" VARCHAR2(50 BYTE) NOT NULL,

CONSTRAINT "PK_OPRAWA" PRIMARY KEY ("ID_OPRAWY"),
CONSTRAINT "UN_RODZAJ_OPRAWY" UNIQUE ("RODZAJ_OPRAWY")

);

COMMENT ON COLUMN "PROJEKT_BZII"."OPRAWY"."ID_OPRAWY" IS 'Identyfikator oprawy';
COMMENT ON COLUMN "PROJEKT_BZII"."OPRAWY"."RODZAJ_OPRAWY" IS 'Rodzaj oprawy';

COMMENT ON TABLE "PROJEKT_BZII"."OPRAWY" IS 'Tabela zawierające rodzaje oprawy książek';

l) podkategorie

CREATE TABLE "PROJEKT_BZII"."PODKATEGORIE"

(

"ID_PODKATEGORII" NUMBER,
"ID_KATEGORII" NUMBER NOT NULL,

"NAZWA_PODKATEGORII" VARCHAR2(75 BYTE) NOT NULL,
CONSTRAINT "PK_PODKATEGORIE" PRIMARY KEY ("ID_PODKATEGORII"),

CONSTRAINT "UN_NAZWA_PODKATEGORII" UNIQUE ("NAZWA_PODKATEGORII"),
CONSTRAINT "FK_ID_KATEGORII" FOREIGN KEY ("ID_KATEGORII")

REFERENCES "PROJEKT_BZII"."KATEGORIE" ("ID_KATEGORII")

);

COMMENT ON COLUMN "PROJEKT_BZII"."PODKATEGORIE"."ID_PODKATEGORII" IS 'Identyfikator podkategorii';

COMMENT ON COLUMN "PROJEKT_BZII"."PODKATEGORIE"."ID_KATEGORII" IS 'Identyfikator kategorii, do której
przynależy podkategoria';

COMMENT ON COLUMN "PROJEKT_BZII"."PODKATEGORIE"."NAZWA_PODKATEGORII" IS 'Nazwa podkategorii';
COMMENT ON TABLE "PROJEKT_BZII"."PODKATEGORIE" IS 'Tabela zawierająca podkategorie książek';

m) podkategorie_z_ksiazkami

CREATE TABLE "PROJEKT_BZII"."PODKATEGORIE_Z_KSIAZKAMI"
(

"ID_KSIAZKI" NUMBER NOT NULL,

"ID_PODKATEGORII" NUMBER NOT NULL,
CONSTRAINT "PK_PODKATEGORIE_Z_KSIAZKAMI" PRIMARY KEY ("ID_KSIAZKI", "ID_PODKATEGORII"),

CONSTRAINT "FK_ID_KSIAZKI_PODKATEGORIE" FOREIGN KEY ("ID_KSIAZKI")
REFERENCES "PROJEKT_BZII"."KSIAZKI" ("ID_KSIAZKI"),

CONSTRAINT "FK_ID_PODKATEGORII_KSIAZEK" FOREIGN KEY ("ID_PODKATEGORII")
REFERENCES "PROJEKT_BZII"."PODKATEGORIE" ("ID_PODKATEGORII")

);

COMMENT ON COLUMN "PROJEKT_BZII"."PODKATEGORIE_Z_KSIAZKAMI"."ID_KSIAZKI" IS 'Identyfikator książki';

6/49

COMMENT ON COLUMN "PROJEKT_BZII"."PODKATEGORIE_Z_KSIAZKAMI"."ID_PODKATEGORII" IS 'Identyfikator

podkategorii';
COMMENT ON TABLE "PROJEKT_BZII"."PODKATEGORIE_Z_KSIAZKAMI" IS 'Podkategorie dopasowane do książek';

COMMENT ON COLUMN "PROJEKT_BZII"."PODKATEGORIE_Z_KSIAZKAMI"."ID_KSIAZKI" IS 'Identyfikator książki';
COMMENT ON COLUMN "PROJEKT_BZII"."PODKATEGORIE_Z_KSIAZKAMI"."ID_PODKATEGORII" IS 'Identyfikator

podkategorii';
COMMENT ON TABLE "PROJEKT_BZII"."PODKATEGORIE_Z_KSIAZKAMI" IS 'Podkategorie dopasowane do książek';

n) produkty_w_koszyku

CREATE TABLE "PROJEKT_BZII"."PRODUKTY_W_KOSZYKU"
(

"ID_KOSZYKA" NUMBER NOT NULL,

"ID_KSIAZKI" NUMBER NOT NULL,
"LICZBA_SZTUK" NUMBER(3,0) DEFAULT 1 NOT NULL,

CONSTRAINT "CK_LICZBA_SZTUK" CHECK (liczba_sztuk >=1),
CONSTRAINT "FK_ID_KOSZYKA_PRODUKTY" FOREIGN KEY ("ID_KOSZYKA")

REFERENCES "PROJEKT_BZII"."KOSZYKI" ("ID_KOSZYKA"),
CONSTRAINT "FK_ID_KSIAZKI_PRODUKTY" FOREIGN KEY ("ID_KSIAZKI")

REFERENCES "PROJEKT_BZII"."KSIAZKI" ("ID_KSIAZKI")

);

COMMENT ON COLUMN "PROJEKT_BZII"."PRODUKTY_W_KOSZYKU"."ID_KOSZYKA" IS 'Identyfikator koszyka';

COMMENT ON COLUMN "PROJEKT_BZII"."PRODUKTY_W_KOSZYKU"."ID_KSIAZKI" IS 'Identyfikator książki';
COMMENT ON COLUMN "PROJEKT_BZII"."PRODUKTY_W_KOSZYKU"."LICZBA_SZTUK" IS 'Liczba sztuk książki';

COMMENT ON TABLE "PROJEKT_BZII"."PRODUKTY_W_KOSZYKU" IS 'Tabela zawierająca produkty zawarte w koszykach
klientów';

o) sprzedaze

CREATE TABLE "PROJEKT_BZII"."SPRZEDAZE"
(

"ID_SPRZEDAZY" NUMBER NOT NULL,

"ID_KOSZYKA" NUMBER NOT NULL,
"DATA_SPRZEDAZY" DATE DEFAULT sysdate NOT NULL,

CONSTRAINT "PK_ID_SPRZEDAZY" PRIMARY KEY ("ID_SPRZEDAZY"),
CONSTRAINT "FK_ID_KOSZYKA_SPRZEDAZE" FOREIGN KEY ("ID_KOSZYKA")

REFERENCES "PROJEKT_BZII"."KOSZYKI" ("ID_KOSZYKA")

);

COMMENT ON COLUMN "PROJEKT_BZII"."SPRZEDAZE"."ID_SPRZEDAZY" IS 'Identyfikator sprzedazy';

COMMENT ON COLUMN "PROJEKT_BZII"."SPRZEDAZE"."ID_KOSZYKA" IS 'Identyfikator koszyka';
COMMENT ON COLUMN "PROJEKT_BZII"."SPRZEDAZE"."DATA_SPRZEDAZY" IS 'Data dokonania transakcji';

COMMENT ON TABLE "PROJEKT_BZII"."SPRZEDAZE" IS 'Tabela zawierająca dokonane transakcje';

p) wojewodzctwa

CREATE TABLE "PROJEKT_BZII"."WOJEWODZCTWA"

(

"ID_WOJEWODZCTWA" NUMBER,
"NAZWA_WOJEWODZCTWA" VARCHAR2(50 BYTE) NOT NULL,

"ID_KRAJU" NUMBER NOT NULL,
CONSTRAINT "PK_WOJEWODZCTWA" PRIMARY KEY ("ID_WOJEWODZCTWA"),

UNIQUE ("NAZWA_WOJEWODZCTWA"),
CONSTRAINT "FK_ID_KRAJU" FOREIGN KEY ("ID_KRAJU")

REFERENCES "PROJEKT_BZII"."KRAJE" ("ID_KRAJU")

);

COMMENT ON COLUMN "PROJEKT_BZII"."WOJEWODZCTWA"."ID_WOJEWODZCTWA" IS 'Identyfikator wojewódzctwa';

COMMENT ON COLUMN "PROJEKT_BZII"."WOJEWODZCTWA"."NAZWA_WOJEWODZCTWA" IS 'Nazwa wojewódzctwa';
COMMENT ON COLUMN "PROJEKT_BZII"."WOJEWODZCTWA"."ID_KRAJU" IS 'Identyfikator kraju';

COMMENT ON TABLE "PROJEKT_BZII"."WOJEWODZCTWA" IS 'Tabela zawierającą wojewódzctwa';

r) wydawnictwa

CREATE TABLE "PROJEKT_BZII"."WYDAWNICTWA"

(

"ID_WYDAWNICTWA" NUMBER,
"NAZWA_WYDAWNICTWA" VARCHAR2(80 BYTE) NOT NULL,

CONSTRAINT "PK_WYDAWNICTWO" PRIMARY KEY ("ID_WYDAWNICTWA"),

7/49

CONSTRAINT "UN_NAZWA_WYDAWNICTWA" UNIQUE ("NAZWA_WYDAWNICTWA")

);

COMMENT ON COLUMN "PROJEKT_BZII"."WYDAWNICTWA"."ID_WYDAWNICTWA" IS 'Identyfikator wydawnictwa';
COMMENT ON COLUMN "PROJEKT_BZII"."WYDAWNICTWA"."NAZWA_WYDAWNICTWA" IS 'Nazwa wydawnictwa';

COMMENT ON TABLE "PROJEKT_BZII"."WYDAWNICTWA" IS 'Tabela zawierająca wydawnictwa książek';

s) archiwum_autorzy

CREATE TABLE "PROJEKT_BZII"."ARCHIWUM_AUTORZY"
(

"ID_AUTORA" NUMBER NOT NULL,

"RODZAJ_ZMIANY" VARCHAR2(3 BYTE) NOT NULL,
"DATA_ZMIANY" DATE DEFAULT sysdate NOT NULL,

"ID_UZYTKOWNIKA" VARCHAR2(50 BYTE) NOT NULL,
"IP_KOMPUTERA" VARCHAR2(39 BYTE) NOT NULL,

"STARE_IMIE" VARCHAR2(50 BYTE),
"STARE_NAZWISKO" VARCHAR2(75 BYTE),

"STARA_DATA_URODZENIA" DATE,
"STARE_MIEJSCE_URODZENIA" VARCHAR2(100 BYTE),

"NOWE_IMIE" VARCHAR2(50 BYTE),
"NOWE_NAZWISKO" VARCHAR2(75 BYTE),

"NOWA_DATA_URODZENIA" DATE,
"NOWE_MIEJSCE_URODZENIA" VARCHAR2(100 BYTE)

);

t) archiwum_klienci

CREATE TABLE "PROJEKT_BZII"."ARCHIWUM_KLIENCI"

(

"ID_KLIENTA" NUMBER NOT NULL,
"RODZAJ_ZMIANY" VARCHAR2(3 BYTE) NOT NULL,

"DATA_ZMIANY" DATE DEFAULT sysdate NOT NULL,
"ID_UZYTKOWNIKA" VARCHAR2(25 BYTE) NOT NULL,

"IP_KOMPUTERA" VARCHAR2(39 BYTE) NOT NULL,
"STARE_IMIE_KLIENTA" VARCHAR2(50 BYTE),

"STARE_NAZWISKO_KLIENTA" VARCHAR2(75 BYTE),
"STARY_EMAIL" VARCHAR2(50 BYTE),

"STARY_KRAJ" VARCHAR2(50 BYTE),
"STARE_WOJEWODZCTWO" VARCHAR2(50 BYTE),

"STARA_MIEJSCOWOSC" VARCHAR2(100 BYTE),
"STARY_KOD_POCZTOWY" VARCHAR2(12 BYTE),

"STARY_ADRES" VARCHAR2(100 BYTE),
"STARY_NR_DOMU" VARCHAR2(8 BYTE),

"STARY_NR_MIESZKANIA" VARCHAR2(8 BYTE),
"STARY_NR_TELEFONU" NUMBER(9,0),

"STARE_HASLO" VARCHAR2(32 BYTE),
"NOWE_IMIE_KLIENTA" VARCHAR2(50 BYTE),

"NOWE_NAZWISKO_KLIENTA" VARCHAR2(75 BYTE),
"NOWY_EMAIL" VARCHAR2(50 BYTE),

"NOWY_KRAJ" VARCHAR2(50 BYTE),
"NOWE_WOJEWODZCTWO" VARCHAR2(50 BYTE),

"NOWA_MIEJSCOWOSC" VARCHAR2(100 BYTE),
"NOWY_KOD_POCZTOWY" VARCHAR2(12 BYTE),

"NOWY_ADRES" VARCHAR2(100 BYTE),
"NOWY_NR_DOMU" VARCHAR2(8 BYTE),

"NOWY_NR_MIESZKANIA" VARCHAR2(8 BYTE),
"NOWY_NR_TELEFONU" NUMBER(9,0),

"NOWE_HASLO" VARCHAR2(32 BYTE)

);

u) archiwum_ksiazki

CREATE TABLE "PROJEKT_BZII"."ARCHIWUM_KSIAZKI"
(

"ID_ARCHIWUM_KSIAZKI" NUMBER,

"ID_KSIAZKI" NUMBER NOT NULL,
"RODZAJ_ZMIANY" VARCHAR2(3 BYTE) NOT NULL,

"DATA_ZMIANY" DATE DEFAULT sysdate NOT NULL,
"ID_UZYTKOWNIKA" VARCHAR2(25 BYTE) NOT NULL,

8/49

"IP_KOMPUTERA" VARCHAR2(39 BYTE) NOT NULL,

"STARY_TYTUL" VARCHAR2(150 BYTE),
"STARE_WYDAWNICTWO" VARCHAR2(80 BYTE),

"STARA_OPRAWA" VARCHAR2(50 BYTE),
"STARY_NUMER_WYDANIA" NUMBER(2,0),

"STARA_LICZBA_STRON" NUMBER,
"STARE_ISBN" NUMBER(13,0),

"STARE_ISSN" NUMBER(8,0),
"STARA_CENA" NUMBER(6,2),

"STARY_OPIS" VARCHAR2(2500 BYTE),
"STARA_OKLADKA" BLOB,

"NOWY_TYTUL" VARCHAR2(150 BYTE),
"NOWE_WYDAWNICTWO" VARCHAR2(80 BYTE),

"NOWA_OPRAWA" VARCHAR2(50 BYTE),
"NOWY_NUMER_WYDANIA" NUMBER(2,0),

"NOWA_LICZBA_STRON" NUMBER,
"NOWE_ISBN" NUMBER(13,0),

"NOWE_ISSN" NUMBER(8,0),
"NOWA_CENA" NUMBER(6,2),

"NOWY_OPIS" VARCHAR2(2500 BYTE),
"NOWA_OKLADKA" BLOB,

CONSTRAINT "PK_ARCHIWUM_KSIAZKI" PRIMARY KEY ("ID_ARCHIWUM_KSIAZKI")

)

3. Dostępne widoki

a) v_Archiwum

CREATE OR REPLACE VIEW "PROJEKT_BZII"."V_ARCHIWUM" AS
with tabarch as

(
select 'Archiwum aktorzy ' "Dzial",

' ' ID, ' ' "Rodzaj zmiany", ' ' "Data zmiany", ' ' "ID uzytkownika",
' ' "IP Komputera", 1 ID_tabeli, -1 tab

from dual
union

select ' ' "Dzial", to_char(id_autora) ID, rodzaj_zmiany "Rodzaj zmiany",
to_char(data_zmiany, 'DD-MM-YYYY HH24:MI:SS') "Data zmiany",

ID_uzytkownika "ID uzytkownika",
IP_komputera "IP Komputera", -2 ID_tabeli, 1 tab from archiwum_autorzy

union
select 'Archiwum klienci ' "Dzial",

' ' ID, ' ' "Rodzaj zmiany", ' ' "Data zmiany", ' ' "ID uzytkownika",
' ' "IP Komputera", 2 ID_tabeli, -1 tab

from dual
union

select ' ' "Dzial", to_char(id_klienta) ID, rodzaj_zmiany "Rodzaj zmiany",
to_char(data_zmiany, 'DD-MM-YYYY HH24:MI:SS') "Data zmiany",

ID_uzytkownika "ID uzytkownika",
IP_komputera "IP Komputera", -2 ID_tabeli, 2 tab from archiwum_klienci

union
select 'Archiwum książki ' "Dzial",

' ' ID, ' ' "Rodzaj zmiany", ' ' "Data zmiany", ' ' "ID uzytkownika",
' ' "IP Komputera", 3 ID_tabeli, -1 tab

from dual
union

select ' ' "Dzial", to_char(id_ksiazki) ID, rodzaj_zmiany "Rodzaj zmiany",
to_char(data_zmiany, 'DD-MM-YYYY HH24:MI:SS') "Data zmiany",

ID_uzytkownika "ID uzytkownika",
IP_komputera "IP Komputera", -2 ID_tabeli, 3 tab from archiwum_ksiazki

)

select "Dzial", ID, "Rodzaj zmiany", "Data zmiany", "ID uzytkownika", "IP Komputera" from tabarch
connect

by prior ID_tabeli = tab
start

with tab = -1
order SIBLINGS by "Data zmiany";

b) v_Kategorie

9/49

CREATE OR REPLACE VIEW "PROJEKT_BZII"."V_KATEGORIE" AS

with kateg as
(

select id_kategorii id_podkategorii
, nazwa_kategorii "Nazwa kategorii"

, -1 kat
from kategorie

union
select id_podkategorii

, nazwa_podkategorii "Nazwa kategorii"
, id_kategorii kat

from podkategorie
)

select lpad(' ', level*3)|| "Nazwa kategorii" "Nazwa kategorii"
from kateg

connect
by prior id_podkategorii = kat

start
with kat = -1;

c) v_Klienci

CREATE OR REPLACE FORCE VIEW "PROJEKT_BZII"."V_KLIENCI" AS
select imie_klienta "Imie klienta", nazwisko_klienta "Nazwisko klienta",

plec "Płeć", email "E-mail", nazwa_kraju "Nazwa kraju", nazwa_wojewodzctwa "Nazwa wojewódzctwa",
nazwa_miejscowosci "Miejscowość", kod_pocztowy "Kod pocztowy", adres "Adres",

adres_nr_domu "Nr. domu", nvl(adres_nr_mieszkania, '') "Nr. mieszkania",
nr_telefonu "Numer telefonu", to_char(data_urodzenia, 'DD-MM-YYYY') "Data urodzenia"

from klienci natural join miejscowosci natural join wojewodzctwa natural join kraje order by id_klienta;

d) v_Ksiazki

CREATE OR REPLACE FORCE VIEW "PROJEKT_BZII"."V_KSIAZKI" AS

select id_ksiazki ID, tytul "Tytuł książki",
nvl((select listagg(imie || ' ' || nazwisko,', ') within group (order by nazwisko)

from autorzy_z_ksiazkami natural join autorzy where id_ksiazki = ks.id_ksiazki), ' ')
"Autorzy",

(select listagg(nazwa_podkategorii, ', ') within group (order by nazwa_podkategorii)
from podkategorie_z_ksiazkami natural join podkategorie where id_ksiazki = ks.id_ksiazki)

"Podkategorie",
nazwa_wydawnictwa "Nazwa wydawnictwa", numer_tomu "Numer tomu", numer_wydania "Numer wydania", liczba_stron

"Liczba stron",
to_char( cena, '9999.99' ) "Cena",

(select sztuk_ksiazki from magazyn where id_ksiazki = ks.id_ksiazki) "Liczba sztuk książki",
rodzaj_oprawy "Rodzaj oprawy", data_wydania "Data wydania", ISBN "Kod ISBN", ISSN "Kod ISSN",

opis "Opis"

from ksiazki ks natural join wydawnictwa natural join oprawy order by ID;

e) v_Lokalizacje

CREATE OR REPLACE VIEW "PROJEKT_BZII"."V_LOKALIZACJE" AS

with lokal as
(

select id_kraju id_wojewodzctwa
, nazwa_kraju Nazwa_lok

, -1 kra
from kraje

union
select id_wojewodzctwa

, nazwa_wojewodzctwa Nazwa_lok
, id_kraju kra

from wojewodzctwa
union

select id_miejscowosci id_wojewodzctwa
, nazwa_miejscowosci Nazwa_lok

10/49

, id_wojewodzctwa kra

from miejscowosci natural join wojewodzctwa
)

select lpad(' ', level*3)|| Nazwa_lok as Nazwa
from lokal

start with kra = -1
connect by prior id_wojewodzctwa = kra

order SIBLINGS by Nazwa_lok;

f) v_Sprzedaze

CREATE OR REPLACE VIEW "PROJEKT_BZII"."V_SPRZEDAZE" AS

select id_sprzedazy "Id sprzedaży", id_koszyka "Id koszyka",imie_klienta as "Imie klienta",
nazwisko_klienta as "Nazwisko klienta",

(select sum(liczba_sztuk) from produkty_w_koszyku where id_koszyka = tab.id_koszyka group by id_koszyka)
"Liczba zakupionych sztuk",

(select sum(cena*liczba_sztuk) from produkty_w_koszyku natural join ksiazki where id_koszyka =
tab.id_koszyka group by id_koszyka)

"Suma kosztow",
to_char(data_sprzedazy, 'DD-MM-YYYY HH24:MI:SS') "Data sprzedaży"

from
(select * from sprzedaze natural join koszyki natural join klienci) tab;

g) v_SprzedzazeTop10

CREATE OR REPLACE VIEW "PROJEKT_BZII"."V_SPRZEDAZETOP10" AS
select tytul from (

select tytul, sum(liczba_sztuk) "Sztuk", rank() over (order by sum(liczba_sztuk) desc) as "Pozycja"
from (select * from (select * from produkty_w_koszyku natural join ksiazki) tab

where exists (select id_koszyka from sprzedaze s where s.id_koszyka=tab.id_koszyka)) tab where
rownum <= 10

group by (tytul));

h) v_SprzedazeTop10_men

CREATE OR REPLACE VIEW "PROJEKT_BZII"."V_SPRZEDAZETOP10_MEN" AS

select tytul from (
select tytul, sum(liczba_sztuk) "Sztuk", rank() over (order by sum(liczba_sztuk) desc) as "Pozycja"

from (select * from (select * from produkty_w_koszyku natural join ksiazki natural join koszyki natural join
klienci where plec = 'M') tab

where exists (select id_koszyka from sprzedaze s where s.id_koszyka=tab.id_koszyka)) tab where
rownum <= 10

group by (tytul));

i) v_SprzedazeTop10_women

CREATE OR REPLACE VIEW "PROJEKT_BZII"."V_SPRZEDAZETOP10_WOMEN” AS

select tytul from (
select tytul, sum(liczba_sztuk) "Sztuk", rank() over (order by sum(liczba_sztuk) desc) as "Pozycja"

from (select * from (select * from produkty_w_koszyku natural join ksiazki natural join koszyki natural join
klienci where plec = 'K') tab

where exists (select id_koszyka from sprzedaze s where s.id_koszyka=tab.id_koszyka)) tab where
rownum <= 10

group by (tytul));

4. Dostępne wyzwalacze

a) t_Autorzy – wyzwalacz odpowiedzialny za dodawanie do tabeli archiwum_autorzy dokonanych
zmian w tabeli autorzy

create or replace

trigger t_Autorzy

11/49

after insert or delete or update on autorzy

for each row
declare

uzytkownik archiwum_autorzy.id_uzytkownika%type;
ip archiwum_autorzy.ip_komputera%type;

liczba_wystapien number;

begin

SELECT USER into uzytkownik FROM DUAL; --wyciagamy uzytkownika
select SYS_CONTEXT('USERENV', 'IP_ADDRESS', 15) into ip from dual; --wyciagamy IP

if inserting then

insert into archiwum_autorzy values (:new.id_autora, 'INS', sysdate, uzytkownik,

ip, null, null,null,null, :new.imie, :new.nazwisko, :new.data_urodzenia, :new.miejsce_urodzenia);

elsif updating then

insert into archiwum_autorzy values (:new.id_autora, 'UPD', sysdate, uzytkownik,
ip, :old.imie, :old.nazwisko, :old.data_urodzenia, :old.miejsce_urodzenia,

:new.imie, :new.nazwisko, :new.data_urodzenia, :new.miejsce_urodzenia);

elsif deleting then

insert into archiwum_autorzy values (:old.id_autora, 'DEL', sysdate, uzytkownik,
ip, :old.imie, :old.nazwisko, :old.data_urodzenia, :old.miejsce_urodzenia,

null,null,null,null);
end if;

end;

b) t_Autorzy_before – wyzwalacz odpowiedzialny za dodawanie liczebników po nazwisku autora
w przypadku istnieniu już w tabeli autorzy autora z takim samym imieniem i nazwiskiem

create or replace
trigger t_Autorzy_before

before insert on autorzy
for each row

declare
liczba_wystapien number;

begin

select count(*) into liczba_wystapien from autorzy where imie=:new.imie and (nazwisko like :new.nazwisko ||

' (%' or nazwisko =:new.nazwisko);

if (liczba_wystapien >0) then

if inserting then
:new.nazwisko := :new.nazwisko || ' (' || liczba_wystapien || ')';

end if;

end if;

end;

c) t_Klienci - wyzwalacz odpowiedzialny za dodawanie do tabeli archiwum_klienci dokonanych
zmian w tabeli klienci

create or replace

trigger t_Klienci
after insert or delete or update on klienci

for each row
declare

uzytkownik archiwum_klienci.id_uzytkownika%type;
ip archiwum_klienci.ip_komputera%type;

nkraj archiwum_klienci.nowy_kraj%type;

12/49

nwojewodzctwo archiwum_klienci.nowe_wojewodzctwo%type;

nmiejscowosc archiwum_klienci.nowa_miejscowosc%type;

skraj archiwum_klienci.stary_kraj%type;
swojewodzctwo archiwum_klienci.stare_wojewodzctwo%type;

smiejscowosc archiwum_klienci.stara_miejscowosc%type;

begin

SELECT USER into uzytkownik FROM DUAL; --wyciagamy uzytkownika
select SYS_CONTEXT('USERENV', 'IP_ADDRESS', 15) into ip from dual; --wyciagamy IP

if inserting then

select nazwa_miejscowosci, nazwa_wojewodzctwa,

nazwa_kraju into nmiejscowosc,nwojewodzctwo,nkraj from miejscowosci natural join
wojewodzctwa natural join kraje where id_miejscowosci = :new.id_miejscowosci;

insert into archiwum_klienci values (:new.id_klienta, 'INS', sysdate, uzytkownik,ip,

/* stare */
null, null, null, null,null,null,null,null,null,null,null,null,

/* nowe */
:new.imie_klienta, :new.nazwisko_klienta,

:new.email,nkraj,nwojewodzctwo,nmiejscowosc, :new.kod_pocztowy, :new.adres, :new.adres_nr_domu,
:new.adres_nr_mieszkania, :new.nr_telefonu, :new.haslo);

elsif updating then
select nazwa_miejscowosci, nazwa_wojewodzctwa,

nazwa_kraju into nmiejscowosc,nwojewodzctwo,nkraj from miejscowosci natural join
wojewodzctwa natural join kraje where id_miejscowosci = :new.id_miejscowosci;

select nazwa_miejscowosci, nazwa_wojewodzctwa,

nazwa_kraju into smiejscowosc,swojewodzctwo,skraj from miejscowosci natural join
wojewodzctwa natural join kraje where id_miejscowosci = :old.id_miejscowosci;

insert into archiwum_klienci values (:new.id_klienta, 'UPD', sysdate, uzytkownik, ip,
/* stare */

:old.imie_klienta, :old.nazwisko_klienta,
:old.email,skraj,swojewodzctwo,smiejscowosc, :old.kod_pocztowy, :old.adres, :old.adres_nr_domu,

:old.adres_nr_mieszkania, :old.nr_telefonu, :old.haslo,
/* nowe */

:new.imie_klienta, :new.nazwisko_klienta,
:new.email,nkraj,nwojewodzctwo,nmiejscowosc, :new.kod_pocztowy, :new.adres, :new.adres_nr_domu,

:new.adres_nr_mieszkania, :new.nr_telefonu, :new.haslo);

elsif deleting then

select nazwa_miejscowosci, nazwa_wojewodzctwa,
nazwa_kraju into smiejscowosc,swojewodzctwo,skraj from miejscowosci natural join

wojewodzctwa natural join kraje where id_miejscowosci = :old.id_miejscowosci;

insert into archiwum_klienci values (:old.id_klienta, 'DEL', sysdate, uzytkownik, ip,
/* stare */

:old.imie_klienta, :old.nazwisko_klienta,
:old.email,skraj,swojewodzctwo,smiejscowosc, :old.kod_pocztowy, :old.adres, :old.adres_nr_domu,

:old.adres_nr_mieszkania, :old.nr_telefonu, :old.haslo,
/* nowe */

null, null, null, null,null,null,null,null,null,null,null,null);

end if;

end;

d) t_Koszyki – wyzwalacz odpowiedzialny za usunięcie wszystkich produktów z koszyka po
usunięciu danego koszyka z bazy

create or replace
trigger t_Koszyki

13/49

after delete on koszyki

for each row
declare

begin

if deleting then

delete from produkty_w_koszyku where id_koszyka = :old.id_koszyka;

end if;

end;

e) t_Ksiazki - wyzwalacz odpowiedzialny za dodawanie do tabeli archiwum_ksiazki dokonanych
zmian w tabeli ksiazki

create or replace

trigger t_Ksiazki
after insert or delete or update on ksiazki

for each row
declare

uzytkownik archiwum_ksiazki.id_uzytkownika%type;
ip archiwum_ksiazki.ip_komputera%type;

nwydawnictwo archiwum_ksiazki.nowe_wydawnictwo%type;

noprawa archiwum_ksiazki.nowa_oprawa%type;

swydawnictwo archiwum_ksiazki.stare_wydawnictwo%type;
soprawa archiwum_ksiazki.stara_oprawa%type;

begin

SELECT USER into uzytkownik FROM DUAL; --wyciagamy uzytkownika

select SYS_CONTEXT('USERENV', 'IP_ADDRESS', 15) into ip from dual; --wyciagamy IP

if inserting then

select nazwa_wydawnictwa into nwydawnictwo from wydawnictwa where id_wydawnictwa = :new.id_wydawnictwa;
select rodzaj_oprawy into noprawa from oprawy where id_oprawy = :new.id_oprawy;

insert into archiwum_ksiazki values

(
s_archiwum_ksiazki.nextval, :new.id_ksiazki, 'INS', sysdate, uzytkownik,ip,

/* stare */
null, null, null, null,null,null,null,null,null,null,

/* nowe */
:new.tytul, nwydawnictwo,

noprawa, :new.numer_wydania, :new.liczba_stron,
:new.isbn, :new.issn, :new.cena, :new.opis, :new.okladka

);

elsif updating then

select nazwa_wydawnictwa into nwydawnictwo from wydawnictwa where id_wydawnictwa = :new.id_wydawnictwa;
select rodzaj_oprawy into noprawa from oprawy where id_oprawy = :new.id_oprawy;

select nazwa_wydawnictwa into swydawnictwo from wydawnictwa where id_wydawnictwa = :old.id_wydawnictwa;

select rodzaj_oprawy into soprawa from oprawy where id_oprawy = :old.id_oprawy;

insert into archiwum_ksiazki values
(

s_archiwum_ksiazki.nextval, :new.id_ksiazki, 'UPD', sysdate, uzytkownik, ip,
/* stare */

:old.tytul, swydawnictwo, soprawa, :old.numer_wydania, :old.liczba_stron,
:old.isbn, :old.issn, :old.cena, :old.opis, :old.okladka,

/* nowe */
:new.tytul,nwydawnictwo, noprawa, :new.numer_wydania, :new.liczba_stron,

:new.isbn, :new.issn, :new.cena, :new.opis, :new.okladka
);

elsif deleting then

14/49

select nazwa_wydawnictwa into swydawnictwo from wydawnictwa where id_wydawnictwa = :old.id_wydawnictwa;
select rodzaj_oprawy into soprawa from oprawy where id_oprawy = :old.id_oprawy;

insert into archiwum_ksiazki values

(
s_archiwum_ksiazki.nextval, :old.id_ksiazki, 'DEL', sysdate, uzytkownik, ip,

/* stare */
:old.tytul, swydawnictwo, soprawa, :old.numer_wydania, :old.liczba_stron,

:old.isbn, :old.issn, :old.cena, :old.opis, :old.okladka,
/* nowe */

null,null,null,null,null,null,null,null,null,null
);

delete autorzy_z_ksiazkami where id_ksiazki = :old.id_ksiazki;

delete podkategorie_z_ksiazkami where id_ksiazki = :old.id_ksiazki;
delete magazyn where id_ksiazki = :old.id_ksiazki;

end if;

end;

5. Dostępne paczki

a) autoryzacja - paczka odpowiedzialna na logowanie oraz wygenerowanie hash'u MD5 dla
podanego hasła.

create or replace

package autoryzacja as
--definicja wyjątków paczki

NIE_POPRAWNE_HASLO exception;
PRAGMA EXCEPTION_INIT(NIE_POPRAWNE_HASLO, -20009);

NIE_ISTNIEJE_EMAIL exception;

PRAGMA EXCEPTION_INIT(NIE_ISTNIEJE_EMAIL, -20010);

--logowanie
function loguj

(
emailf klienci.email%type,

haslof varchar2
)

return number;

FUNCTION dajMD5
(

str IN VARCHAR2
)

RETURN VARCHAR2;
end autoryzacja;

create or replace
package body autoryzacja as

--logowanie

function loguj
(

emailf klienci.email%type,
haslof varchar2

)
return number as

czy_istnieje_email number;

czy_poprawne_haslo number;

begin
SET TRANSACTION ISOLATION LEVEL SERIALIZABLE;

select count(*) into czy_istnieje_email from klienci where email = emailf;

if (czy_istnieje_email = 0) then

15/49

raise_application_error( -20010, 'Podany email nie istnieje w bazie' );

end if;

select count(*) into czy_poprawne_haslo from klienci where email = emailf and haslo = dajmd5(haslof);

if (czy_poprawne_haslo = 0) then
raise_application_error( -20009, 'Nieprawidlowe haslo' );

end if;

commit;
return 0;

exception

when OTHERS then
rollback;

dbms_output.put_line(SQLERRM);
return SQLCODE;

end;

FUNCTION dajMD5 (str IN VARCHAR2)

RETURN VARCHAR2

IS v_checksum VARCHAR2(32);

BEGIN

v_checksum :=

LOWER( RAWTOHEX( UTL_RAW.CAST_TO_RAW( sys.dbms_obfuscation_toolkit.md5(input_string => str) ) ) );

RETURN v_checksum;

EXCEPTION
WHEN OTHERS THEN

dbms_output.put_line(SQLERRM);
return SQLCODE;

END dajMD5;

end autoryzacja;

b) statystyka - paczka odpowiedzialna za przechowywanie funkcji statystycznych oraz
analitycznych

create or replace

package statystyka as
--definicja wyjątków paczki

BRAK_SPRZEDAZY_MIESIAC exception;
PRAGMA EXCEPTION_INIT(BRAK_SPRZEDAZY_MIESIAC, -20035);

NIEPRAWIDLOWA_PLEC exception;

PRAGMA EXCEPTION_INIT(NIEPRAWIDLOWA_PLEC, -20036);

Function sredniaSprzedazMiesiac(miesiac number default to_number(to_char(sysdate,'MM')), rok number
default to_number(to_char(sysdate,'YYYY')))

return number;

Function zyskISprzedaz(liczba_ksiazek_f OUT number, zysk_f OUT number, termin_od date, termin_do date
default sysdate)

return number;

Function top10sprzedazy(miesiac number default to_number(to_char(sysdate, 'MM')), rok number default
to_number(to_char(sysdate, 'YYYY')))

return number;

Function top10sprzedazy(plecf varchar2, miesiac number default to_number(to_char(sysdate, 'MM')), rok
number default to_number(to_char(sysdate, 'YYYY')))

return number;

end statystyka;

create or replace

package body statystyka as

Function sredniaSprzedazMiesiac(miesiac number default to_number(to_char(sysdate,'MM')), rok number
default to_number(to_char(sysdate,'YYYY')))

16/49

return number as

czy_istnieje number;
suma number;

liczba number;
srednia number;

begin
set transaction read only;

select count(*) into czy_istnieje from sprzedaze where to_number(to_char(data_sprzedazy,'MM')) = miesiac
and to_number(to_char(data_sprzedazy,'YYYY')) = rok;

if (czy_istnieje = 0) then

raise_application_error( -20035, 'Brak sprzedazy w podanym miesiacu!');
else

select count(*) into liczba from sprzedaze

where to_number(to_char(data_sprzedazy,'MM')) = miesiac
and to_number(to_char(data_sprzedazy,'YYYY')) = rok;

--select sum(suma_koszt) into suma from sprzedaze

--where to_number(to_char(data_sprzedazy,'MM')) = miesiac
--and to_number(to_char(data_sprzedazy,'YYYY')) = rok;

commit;
return suma/liczba;

end if;

exception
when OTHERS then

rollback;
dbms_output.put_line(SQLERRM);

return SQLCODE;
end;

Function zyskISprzedaz(liczba_ksiazek_f OUT number, zysk_f OUT number, termin_od date, termin_do date

default sysdate)
return number as

begin

set transaction read only;
if (termin_od >= termin_do) then

commit;
raise_application_error( -20044, 'Nie prawidlowy okres czasu');

else

select sum(liczba_sztuk) into liczba_ksiazek_f from produkty_w_koszyku where
id_koszyka = any (select id_koszyka from sprzedaze where data_sprzedazy >= termin_od

and data_sprzedazy <= termin_do);

select sum(liczba_sztuk*cena) into liczba_ksiazek_f from produkty_w_koszyku natural join ksiazki where
id_koszyka = any (select id_koszyka from sprzedaze where data_sprzedazy >= termin_od

and data_sprzedazy <= termin_do);

commit;
return 0;

end if;

null;

exception
when OTHERS then

rollback;
dbms_output.put_line(SQLERRM);

return SQLCODE;
end;

Function top10sprzedazy(miesiac number default to_number(to_char(sysdate, 'MM')), rok number default

to_number(to_char(sysdate, 'YYYY')))
return number as

cursor kurs is
select rank() over (order by sum(liczba_sztuk) desc) as "Pozycja", tytul, sum(liczba_sztuk) "Sztuk"

from produkty_w_koszyku natural join ksiazki where id_koszyka = any
(

select id_koszyka
from sprzedaze

where

17/49

to_number(to_char(data_sprzedazy,'MM')) = miesiac and to_number(to_char(data_sprzedazy,'YYYY')) = rok)

group by tytul;

tytulf ksiazki.tytul%type;
sztukf number;

pozycjaf number;
czy_istnieje number;

begin
set transaction read only;

select count(*) into czy_istnieje from sprzedaze where to_number(to_char(data_sprzedazy,'MM')) = miesiac
and to_number(to_char(data_sprzedazy,'YYYY')) = rok;

if (czy_istnieje = 0) then

commit;
raise_application_error( -20035, 'Brak sprzedazy w podanym miesiacu!');

else
open kurs;

dbms_output.put_line('TOP10 - ' || miesiac || '.' || rok);
loop

fetch kurs into pozycjaf, tytulf, sztukf;
exit when kurs%notfound;

dbms_output.put_line(pozycjaf || '. Tytul: ' || tytulf || ', ' || sztukf || ' sztuk');
end loop;

close kurs;

commit;
return 0;

end if;

exception
when OTHERS then

rollback;
dbms_output.put_line(SQLERRM);

return SQLCODE;
end;

Function top10sprzedazy(plecf varchar2, miesiac number default to_number(to_char(sysdate, 'MM')), rok

number default to_number(to_char(sysdate, 'YYYY')))
return number as

cursor kurs is
select rank() over (order by sum(liczba_sztuk) desc) as "Pozycja", tytul, sum(liczba_sztuk) "Sztuk"

from produkty_w_koszyku natural join ksiazki where id_koszyka = any
(

select id_koszyka
from sprzedaze natural join koszyki natural join klienci

where
to_number(to_char(data_sprzedazy,'MM')) = 5 and to_number(to_char(data_sprzedazy,'YYYY')) = 2013

and plec = plecf)
group by tytul;

tytulf ksiazki.tytul%type;
sztukf number;

pozycjaf number;
czy_istnieje number;

begin
set transaction read only;

if (upper(plecf) != 'M' and upper(plecf) != 'K') then

raise_application_error( -20036, 'Nieprawidlowa plec!');
end if;

select count(*) into czy_istnieje from sprzedaze natural join koszyki natural join klienci where

to_number(to_char(data_sprzedazy,'MM')) = miesiac and to_number(to_char(data_sprzedazy,'YYYY')) = rok and
plec = upper(plecf);

if (czy_istnieje = 0) then

commit;
raise_application_error( -20035, 'Brak sprzedazy w podanym miesiacu!');

else
open kurs;

dbms_output.put_line('TOP10 - ' || miesiac || '.' || rok);
loop

fetch kurs into pozycjaf, tytulf, sztukf;

18/49

exit when kurs%notfound;

dbms_output.put_line(pozycjaf || '. Tytul: ' || tytulf || ', ' || sztukf || ' sztuk');
end loop;

close kurs;

commit;
return 0;

end if;

exception
when OTHERS then

rollback;
dbms_output.put_line(SQLERRM);

return SQLCODE;
end;

end statystyka;

c) zarzadzanieAutorami - paczka odpowiedzialna za zarządzanie autorami w bazie danych.

create or replace
package zarzadzanieAutorami as

--definicja wyjątków paczki
ISTNIEJE_AUTOR exception;

PRAGMA EXCEPTION_INIT(ISTNIEJE_AUTOR, -20007);

NIE_ISTNIEJE_AUTOR exception;
PRAGMA EXCEPTION_INIT(NIE_ISTNIEJE_AUTOR, -20008);

--dodaj autora wszystkie informacje

function dodaj
(

imief autorzy.imie%type,
nazwiskof autorzy.nazwisko%type,

data_urodzenia date,
miejsce_urodzenia autorzy.miejsce_urodzenia%type,

opis_autoraf autorzy.opis_autora%type
)

return number;

--dodaj autora bez imienia
function dodaj

(
nazwiskof autorzy.nazwisko%type,

data_urodzenia date,
miejsce_urodzenia autorzy.miejsce_urodzenia%type,

opis_autoraf autorzy.opis_autora%type
)

return number;

--usuwanie autora po ID
function usun

(
id_autoraf autorzy.id_autora%type

)
return number;

--zmień dane autora

function modyfikuj
(

id_autoraf autorzy.id_autora%type,
imief autorzy.imie%type,

nazwiskof autorzy.nazwisko%type,
opis_autoraf autorzy.opis_autora%type

)
return number;

end zarzadzanieAutorami;

create or replace
package body zarzadzanieAutorami as

19/49

--dodaj autora wszystkie informacje
function dodaj

(
imief autorzy.imie%type,

nazwiskof autorzy.nazwisko%type,
data_urodzenia date,

miejsce_urodzenia autorzy.miejsce_urodzenia%type,
opis_autoraf autorzy.opis_autora%type

)
return number as

begin

insert into autorzy values
(

s_autorzy.nextval, imief, nazwiskof, data_urodzenia, miejsce_urodzenia,opis_autoraf
);

commit;
return 0;

exception
when OTHERS then

rollback;
dbms_output.put_line(SQLERRM);

return SQLCODE;
end;

--dodaj autora bez imienia

function dodaj
(

nazwiskof autorzy.nazwisko%type,
data_urodzenia date,

miejsce_urodzenia autorzy.miejsce_urodzenia%type,
opis_autoraf autorzy.opis_autora%type

)
return number as

begin
insert into autorzy values

(
s_autorzy.nextval, null, nazwiskof, data_urodzenia, miejsce_urodzenia,opis_autoraf

);
commit;

return 0;
exception

when OTHERS then
rollback;

dbms_output.put_line(SQLERRM);
return SQLCODE;

end;

--usuwanie autora po ID
function usun

(
id_autoraf autorzy.id_autora%type

)
return number as

begin
delete from autorzy where id_autora = id_autoraf;

if SQL%notfound then

raise_application_error( -20008, 'Nie istnieje autor o takim ID' );
else

commit;
return 0;

end if;

exception
when OTHERS then

rollback;
dbms_output.put_line(SQLERRM);

return SQLCODE;
end;

--zmień dane autora

function modyfikuj

20/49

(

id_autoraf autorzy.id_autora%type,
imief autorzy.imie%type,

nazwiskof autorzy.nazwisko%type,
opis_autoraf autorzy.opis_autora%type

)
return number as

temp autorzy.id_autora%type;
begin

lock table autorzy in row share mode;
update autorzy set imie = imief, nazwisko = nazwiskof, opis_autora = opis_autoraf

where id_autora = id_autoraf;

if SQL%notfound then
raise_application_error( -20008, 'Nie istnieje autor o takim ID' );

else
commit;

return 0;
end if;

exception

when OTHERS then
rollback;

dbms_output.put_line(SQLERRM);
return SQLCODE;

end;
end zarzadzanieAutorami;

d) zarzadzanieKategoriami – paczka odpowiedzialna za zarządzanie dostępnymi kategoriami
książek.

create or replace
package zarzadzanieKategoriami as

--definicja wyjątków paczki
NIE_ISTNIEJE_KATEGORIA exception;

PRAGMA EXCEPTION_INIT(NIE_ISTNIEJE_KATEGORIA, -20011);

ISTNIEJE_KATEGORIA exception;
PRAGMA EXCEPTION_INIT(ISTNIEJE_KATEGORIA, -20012);

--dodaj kategorie

function dodaj
(

nazwa_kategoriif kategorie.nazwa_kategorii%type
)

return number;

--usuwanie kategorii po ID
function usun

(
id_kategoriif kategorie.id_kategorii%type

)
return number;

--zmień nazwe kategorii

function modyfikuj
(

id_kategoriif kategorie.id_kategorii%type,
nazwa_kategoriif kategorie.nazwa_kategorii%type

)
return number;

end zarzadzanieKategoriami;

create or replace
package body zarzadzanieKategoriami as

--dodaj kategorie
function dodaj

(
nazwa_kategoriif kategorie.nazwa_kategorii%type

21/49

)

return number as

czy_istnieje number;
begin

select count(*) into czy_istnieje from kategorie where upper(nazwa_kategorii) =

upper(nazwa_kategoriif);

if(czy_istnieje != 0) then
raise_application_error( -20012, 'Istnieje już taka kategoria' );

else
insert into kategorie values

(
s_kategorie.nextval, nazwa_kategoriif

);
commit;

return 0;
end if;

exception
when OTHERS then

rollback;
dbms_output.put_line(SQLERRM);

return SQLCODE;
end;

--usuwanie kategorii po ID

function usun
(

id_kategoriif kategorie.id_kategorii%type
)

return number as
begin

delete from kategorie where id_kategorii = id_kategoriif;

if SQL%notfound then
raise_application_error( -20011, 'Nie istnieje kategoria o takim ID' );

else
commit;

return 0;
end if;

exception

when OTHERS then
rollback;

dbms_output.put_line(SQLERRM);
return SQLCODE;

end;

--zmień nazwe kategorii
function modyfikuj

(
id_kategoriif kategorie.id_kategorii%type,

nazwa_kategoriif kategorie.nazwa_kategorii%type
)

return number as
czy_istnieje number;

czy_istnieje_id number;
cursor kurs is select id_kategorii from kategorie where id_kategorii = id_kategoriif FOR UPDATE OF

nazwa_kategorii;
tmp kategorie.id_kategorii%type;

begin

select count(*) into czy_istnieje from kategorie where upper(nazwa_kategorii) =
upper(nazwa_kategoriif);

if(czy_istnieje != 0) then

raise_application_error( -20012, 'Istnieje już taka kategoria' );
end if;

select count(*) into czy_istnieje_id from kategorie where id_kategorii = id_kategoriif;

if(czy_istnieje = 0) then

raise_application_error( -20011, 'Nie istnieje kategoria o takim ID' );

22/49

end if;

open kurs;

fetch kurs into tmp;
update kategorie set nazwa_kategorii = nazwa_kategoriif

WHERE CURRENT OF kurs;
close kurs;

commit;
return 0;

exception

when OTHERS then
rollback;

dbms_output.put_line(SQLERRM);
return SQLCODE;

end;

end zarzadzanieKategoriami;

e) zarzadzanieKlientami – paczka odpowiedzialna za zarządzanie klientami w bazie danych.

create or replace

package zarzadzanieKlientami as
--definicja wyjątków paczki

ISTNIEJE_KLIENT exception;
PRAGMA EXCEPTION_INIT(ISTNIEJE_KLIENT, -20000);

EMAIL_ZAJETY exception;

PRAGMA EXCEPTION_INIT(EMAIL_ZAJETY, -20001);

NIEPRAWIDLOWA_DATA_UR exception;
PRAGMA EXCEPTION_INIT(NIEPRAWIDLOWA_DATA_UR, -20002);

NIE_ISTNIEJE_KLIENT exception;

PRAGMA EXCEPTION_INIT(NIE_ISTNIEJE_KLIENT, -20003);

--dodaj klienta wszystkie informacje
function dodaj

(
imie_klientaf klienci.imie_klienta%type,

nazwisko_klientaf klienci.nazwisko_klienta%type,
emailf klienci.email%type,

kod_pocztowyf klienci.kod_pocztowy%type,
nr_telefonuf klienci.nr_telefonu%type,

data_urodzeniaf klienci.data_urodzenia%type,
haslof varchar2,

miejscowoscf varchar2,
id_wojewodzctwaf number,

id_krajuf number,
adresf klienci.adres%type,

adres_nr_domuf klienci.adres_nr_domu%type,
adres_nr_mieszkaniaf klienci.adres_nr_mieszkania%type,

plecf klienci.plec%type
)

return number;

--dodaj klienta bez telefonu

function dodaj
(

imie_klientaf klienci.imie_klienta%type,
nazwisko_klientaf klienci.nazwisko_klienta%type,

emailf klienci.email%type,
kod_pocztowyf klienci.kod_pocztowy%type,

data_urodzeniaf klienci.data_urodzenia%type,
haslof varchar2,

miejscowoscf varchar2,
id_wojewodzctwaf number,

id_krajuf number,
adresf klienci.adres%type,

adres_nr_domuf klienci.adres_nr_domu%type,
adres_nr_mieszkaniaf klienci.adres_nr_mieszkania%type,

23/49

plecf klienci.plec%type

)
return number;

--usuwanie klienta po ID
function usun

(
id_klientaf klienci.id_klienta%type

)
return number;

--zmień dane użytkownika
function modyfikuj

(
id_klientaf klienci.id_klienta%type,

imie_klientaf klienci.imie_klienta%type,
nazwisko_klientaf klienci.nazwisko_klienta%type,

emailf klienci.email%type,
kod_pocztowyf klienci.kod_pocztowy%type,

nr_telefonuf klienci.nr_telefonu%type,
data_urodzeniaf klienci.data_urodzenia%type,

haslof varchar2,
miejscowoscf varchar2,

id_wojewodzctwaf number,
id_krajuf number,

adresf klienci.adres%type,
adres_nr_domuf klienci.adres_nr_domu%type,

adres_nr_mieszkaniaf klienci.adres_nr_mieszkania%type,
plecf klienci.plec%type

)
return number;

end zarzadzanieKlientami;

create or replace
package body zarzadzanieKlientami as

--dodaj klienta wszystkie informacje
function dodaj

(
imie_klientaf klienci.imie_klienta%type,

nazwisko_klientaf klienci.nazwisko_klienta%type,
emailf klienci.email%type,

kod_pocztowyf klienci.kod_pocztowy%type,
nr_telefonuf klienci.nr_telefonu%type,

data_urodzeniaf klienci.data_urodzenia%type,
haslof varchar2,

miejscowoscf varchar2,
id_wojewodzctwaf number,

id_krajuf number,
adresf klienci.adres%type,

adres_nr_domuf klienci.adres_nr_domu%type,
adres_nr_mieszkaniaf klienci.adres_nr_mieszkania%type,

plecf klienci.plec%type
)

return number as

czy_email_zajety number;
czy_istnieje number;

czy_istnieje_miejscowosc number;
id_miejscowoscf_tmp number;

begin

SET TRANSACTION ISOLATION LEVEL SERIALIZABLE;

select count(*) into czy_istnieje from klienci natural join miejscowosci natural join wojewodzctwa
natural join kraje

where
upper(imie_klienta) = upper(imie_klientaf) and upper(nazwisko_klienta) = upper(nazwisko_klientaf) and

id_wojewodzctwa = id_wojewodzctwaf and upper(nazwa_miejscowosci) = upper(miejscowoscf) and
kod_pocztowy = kod_pocztowyf and

data_urodzenia = data_urodzeniaf and id_kraju = id_krajuf and id_wojewodzctwa = id_wojewodzctwaf

24/49

and upper(adres) = upper(adresf);

select count(*) into czy_email_zajety from klienci where email = emailf;

if(czy_istnieje != 0) then

raise_application_error( -20000, 'Istnieje już taki klient' );

elsif(czy_email_zajety !=0) then
raise_application_error( -20001, 'Ten email już jest zajęty' );

elsif(data_urodzeniaf >= sysdate) then

raise_application_error( -20002, 'Nieprawidlowa data urodzenia' );
else

select count(*) into czy_istnieje_miejscowosc from miejscowosci natural join wojewodzctwa

where upper(nazwa_miejscowosci) = upper(miejscowoscf) and id_wojewodzctwa = id_wojewodzctwaf and
id_kraju = id_krajuf;

if(czy_istnieje_miejscowosc != 0) then

select id_miejscowosci into id_miejscowoscf_tmp from miejscowosci natural join wojewodzctwa
where upper(nazwa_miejscowosci) = upper(miejscowoscf) and id_wojewodzctwa = id_wojewodzctwaf and

id_kraju = id_krajuf;
else

insert into miejscowosci values (s_miejscowosci.nextval, miejscowoscf, id_wojewodzctwaf)
returning id_miejscowosci into id_miejscowoscf_tmp;

end if;

insert into klienci values
(

s_klienci.nextval, imie_klientaf, nazwisko_klientaf, emailf,
nr_telefonuf, data_urodzeniaf, autoryzacja.dajmd5(haslof), upper(plecf), adresf,

adres_nr_domuf, adres_nr_mieszkaniaf, kod_pocztowyf, id_miejscowoscf_tmp
);

commit;

return 0;
end if;

exception

when OTHERS then
rollback;

dbms_output.put_line(SQLERRM);
return SQLCODE;

end;

--dodaj klienta bez telefonu
function dodaj

(
imie_klientaf klienci.imie_klienta%type,

nazwisko_klientaf klienci.nazwisko_klienta%type,
emailf klienci.email%type,

kod_pocztowyf klienci.kod_pocztowy%type,
data_urodzeniaf klienci.data_urodzenia%type,

haslof varchar2,
miejscowoscf varchar2,

id_wojewodzctwaf number,
id_krajuf number,

adresf klienci.adres%type,
adres_nr_domuf klienci.adres_nr_domu%type,

adres_nr_mieszkaniaf klienci.adres_nr_mieszkania%type,
plecf klienci.plec%type

)
return number as

czy_email_zajety number;

czy_istnieje number;
czy_istnieje_miejscowosc number;

id_miejscowoscf_tmp number;

begin
SET TRANSACTION ISOLATION LEVEL SERIALIZABLE;

select count(*) into czy_istnieje from klienci natural join miejscowosci natural join wojewodzctwa

natural join kraje

25/49

where

upper(imie_klienta) = upper(imie_klientaf) and upper(nazwisko_klienta) = upper(nazwisko_klientaf) and
id_wojewodzctwa = id_wojewodzctwaf and upper(nazwa_miejscowosci) = upper(miejscowoscf) and

kod_pocztowy = kod_pocztowyf and
data_urodzenia = data_urodzeniaf and id_kraju = id_krajuf and id_wojewodzctwa = id_wojewodzctwaf

and upper(adres) = upper(adresf);

select count(*) into czy_email_zajety from klienci where email = emailf;

if(czy_istnieje != 0) then
raise_application_error( -20000, 'Istnieje już taki klient' );

elsif(czy_email_zajety !=0) then

raise_application_error( -20001, 'Ten email już jest zajęty' );

elsif(data_urodzeniaf >= sysdate) then
raise_application_error( -20002, 'Nieprawidlowa data urodzenia' );

else

select count(*) into czy_istnieje_miejscowosc from miejscowosci natural join wojewodzctwa
where upper(nazwa_miejscowosci) = upper(miejscowoscf) and id_wojewodzctwa = id_wojewodzctwaf and

id_kraju = id_krajuf;

if(czy_istnieje_miejscowosc != 0) then
select id_miejscowosci into id_miejscowoscf_tmp from miejscowosci natural join wojewodzctwa

where upper(nazwa_miejscowosci) = upper(miejscowoscf) and id_wojewodzctwa = id_wojewodzctwaf and
id_kraju = id_krajuf;

else
insert into miejscowosci values (s_miejscowosci.nextval, miejscowoscf, id_wojewodzctwaf)

returning id_miejscowosci into id_miejscowoscf_tmp;
end if;

insert into klienci values

(
s_klienci.nextval, imie_klientaf, nazwisko_klientaf, emailf,

null, data_urodzeniaf, autoryzacja.dajmd5(haslof), upper(plecf), adresf,
adres_nr_domuf, adres_nr_mieszkaniaf, kod_pocztowyf, id_miejscowoscf_tmp

);

commit;
return 0;

end if;

exception
when OTHERS then

rollback;
dbms_output.put_line(SQLERRM);

return SQLCODE;
end;

--usuwanie klienta po ID
function usun(id_klientaf klienci.id_klienta%type)

return number as
czy_miejscowosc_uzywana number;

id_miejscowoscif number;

begin
select id_miejscowosci into id_miejscowoscif from klienci where id_klienta = id_klientaf;

delete from klienci where id_klienta = id_klientaf;

if SQL%notfound then
raise_application_error( -20003, 'Nie istnieje klient o takim ID' );

else
select count(*) into czy_miejscowosc_uzywana from klienci

where id_miejscowosci = id_miejscowoscif;

if(czy_miejscowosc_uzywana = 0) then
delete from miejscowosci where id_miejscowosci = id_miejscowoscif;

end if;

commit;

return 0;

26/49

end if;

exception

when OTHERS then
rollback;

dbms_output.put_line(SQLERRM);
return SQLCODE;

end;

--zmień dane użytkownika
function modyfikuj

(
id_klientaf klienci.id_klienta%type,

imie_klientaf klienci.imie_klienta%type,
nazwisko_klientaf klienci.nazwisko_klienta%type,

emailf klienci.email%type,
kod_pocztowyf klienci.kod_pocztowy%type,

nr_telefonuf klienci.nr_telefonu%type,
data_urodzeniaf klienci.data_urodzenia%type,

haslof varchar2,
miejscowoscf varchar2,

id_wojewodzctwaf number,
id_krajuf number,

adresf klienci.adres%type,
adres_nr_domuf klienci.adres_nr_domu%type,

adres_nr_mieszkaniaf klienci.adres_nr_mieszkania%type,
plecf klienci.plec%type

)
return number as

czy_email_zajety number;

czy_istnieje number;
czy_istnieje_miejscowosc number;

id_miejscowoscf_tmp number;

czy_miejscowosc_uzywana number;
sid_miejscowoscif number;

begin

lock table klienci in row share mode;

select id_miejscowosci into sid_miejscowoscif from klienci where id_klienta = id_klientaf;

select count(*) into czy_istnieje from klienci natural join miejscowosci natural join wojewodzctwa
natural join kraje

where
upper(imie_klienta) = upper(imie_klientaf) and upper(nazwisko_klienta) = upper(nazwisko_klientaf) and

id_wojewodzctwa = id_wojewodzctwaf and upper(nazwa_miejscowosci) = upper(miejscowoscf) and
kod_pocztowy = kod_pocztowyf and

data_urodzenia = data_urodzeniaf and id_kraju = id_krajuf and id_wojewodzctwa = id_wojewodzctwaf
and upper(adres) = upper(adresf) and id_klienta <> id_klientaf;

select count(*) into czy_email_zajety from klienci where email = emailf and id_klienta <> id_klientaf;

if(czy_istnieje != 0) then

raise_application_error( -20000, 'Istnieje już taki klient' );

elsif(czy_email_zajety !=0) then
raise_application_error( -20001, 'Ten email już jest zajęty' );

elsif(data_urodzeniaf >= sysdate) then

raise_application_error( -20002, 'Nieprawidlowa data urodzenia' );
else

select count(*) into czy_istnieje_miejscowosc from miejscowosci natural join wojewodzctwa
where upper(nazwa_miejscowosci) = upper(miejscowoscf) and id_wojewodzctwa = id_wojewodzctwaf and

id_kraju = id_krajuf;

if(czy_istnieje_miejscowosc != 0) then
select id_miejscowosci into id_miejscowoscf_tmp from miejscowosci natural join wojewodzctwa

where upper(nazwa_miejscowosci) = upper(miejscowoscf) and id_wojewodzctwa = id_wojewodzctwaf and
id_kraju = id_krajuf;

else
insert into miejscowosci values (s_miejscowosci.nextval, miejscowoscf, id_wojewodzctwaf)

returning id_miejscowosci into id_miejscowoscf_tmp;

27/49

end if;

update klienci set imie_klienta = imie_klientaf, nazwisko_klienta = nazwisko_klientaf,

email = emailf, data_urodzenia = data_urodzeniaf,
haslo = autoryzacja.dajmd5(haslof), nr_telefonu = nr_telefonuf,

plec = upper(plecf), adres = adresf, adres_nr_domu = adres_nr_domuf, adres_nr_mieszkania =
adres_nr_mieszkaniaf,

kod_pocztowy = kod_pocztowyf, id_miejscowosci = id_miejscowoscf_tmp
where id_klienta = id_klientaf;

if SQL%notfound then

raise_application_error( -20003, 'Nie istnieje klient o takim ID' );
else

select count(*) into czy_miejscowosc_uzywana from klienci

where id_miejscowosci = sid_miejscowoscif;

if(czy_miejscowosc_uzywana = 0) then
delete from miejscowosci where id_miejscowosci = sid_miejscowoscif;

end if;

commit;
return 0;

end if;
end if;

exception

when OTHERS then
rollback;

dbms_output.put_line(SQLERRM);
return SQLCODE;

end;
end zarzadzanieKlientami;

f) zarzadzanieKomentarzami – paczka odpowiedzialna za zarządzanie komentarzami na temat
książek w bazie danych

create or replace
package zarzadzanieKomentarzami as

--definicja wyjątków paczki
NIE_ISTNIEJE_KOMENTARZ exception;

PRAGMA EXCEPTION_INIT(NIE_ISTNIEJE_KOMENTARZ, -20088);

NIE_PRAWIDLOWA_DATA exception;
PRAGMA EXCEPTION_INIT(NIE_PRAWIDLOWA_DATA, -20089);

--dodaj komentarz

function dodaj
(

id_klientaf number,
tresc_komentarzaf komentarze_ksiazki.tresc_komentarza%type,

id_ksiazkif number
)

return number;

--usun komentarz po ID
function usun

(
id_komentarzuf komentarze_ksiazki.id_komentarzu%type

)
return number;

--modyfikuj komentarz

function modyfikuj
(

id_komentarzuf komentarze_ksiazki.id_komentarzu%type,
tresc_komentarzaf komentarze_ksiazki.tresc_komentarza%type

)
return number;

end zarzadzanieKomentarzami;

28/49

create or replace

package body zarzadzanieKomentarzami as
--dodaj komentarz

function dodaj
(

id_klientaf number,
tresc_komentarzaf komentarze_ksiazki.tresc_komentarza%type,

id_ksiazkif number
)

return number as

begin

insert into komentarze_ksiazki values
(

s_komentarze_ksiazki.nextval, id_klientaf, sysdate, tresc_komentarzaf,
id_ksiazkif, sysdate

);

commit;
return 0;

exception
when others then

rollback;
dbms_output.put_line(SQLERRM);

return SQLCODE;
end;

function usun

(
id_komentarzuf komentarze_ksiazki.id_komentarzu%type

)
return number as

begin

delete from komentarze_ksiazki where id_komentarzu = id_komentarzuf;

if SQL%notfound then
raise_application_error( -20088, 'Nie istnieje komentarz o takim ID' );

else
commit;

return 0;
end if;

exception

when OTHERS then
rollback;

dbms_output.put_line(SQLERRM);
return SQLCODE;

end;

--modyfikuj komentarz
function modyfikuj

(
id_komentarzuf komentarze_ksiazki.id_komentarzu%type,

tresc_komentarzaf komentarze_ksiazki.tresc_komentarza%type
)

return number as
czy_istnieje number;

begin
lock table komentarze_ksiazki in row share mode;

update komentarze_ksiazki set tresc_komentarza = tresc_komentarzaf, data_ostatniej_zmiany = sysdate
where id_komentarzu = id_komentarzuf;

if SQL%notfound then

raise_application_error( -20088, 'Nie istnieje komentarz o takim ID' );
else

commit;
return 0;

end if;

exception

29/49

when OTHERS then

rollback;
dbms_output.put_line(SQLERRM);

return sqlcode;
end;

end zarzadzanieKomentarzami;

g) zarzadzanieKrajami – paczka odpowiedzialna za zarządzanie krajami w bazie danych.

create or replace
package zarzadzanieKrajami as

--definicja wyjątków paczki
NIE_ISTNIEJE_KRAJ exception;

PRAGMA EXCEPTION_INIT(NIE_ISTNIEJE_KRAJ, -20015);

ISTNIEJE_KRAJ exception;
PRAGMA EXCEPTION_INIT(ISTNIEJE_KRAJ, -20016);

--dodaj kraj

function dodaj
(

nazwa_krajuf kraje.nazwa_kraju%type
)

return number;

--usuwanie kraju po ID
function usun

(
id_krajuf kraje.id_kraju%type

)
return number;

--zmień nazwe kraju

function modyfikuj
(

id_krajuf kraje.id_kraju%type,
nazwa_krajuf kraje.nazwa_kraju%type

)
return number;

end zarzadzanieKrajami;

create or replace
package body zarzadzanieKrajami as

--dodaj kraj
function dodaj

(
nazwa_krajuf kraje.nazwa_kraju%type

)
return number as

czy_istnieje number;
begin

select count(*) into czy_istnieje from kraje where upper(nazwa_kraju) = upper(nazwa_krajuf);

if(czy_istnieje != 0) then
raise_application_error( -20015, 'Istnieje już taki kraj' );

else
insert into kraje values

(
s_kraje.nextval, nazwa_krajuf

);
commit;

return 0;
end if;

exception
when OTHERS then

rollback;
dbms_output.put_line(SQLERRM);

return SQLCODE;
end;

30/49

--usuwanie kraju po ID
function usun

(
id_krajuf kraje.id_kraju%type

)
return number as

begin
delete from kraje where id_kraju = id_krajuf;

if SQL%notfound then

raise_application_error( -20016, 'Nie istnieje kraj o takim ID' );
else

commit;
return 0;

end if;

exception
when OTHERS then

rollback;
dbms_output.put_line(SQLERRM);

return SQLCODE;
end;

--zmień nazwe kraju

function modyfikuj
(

id_krajuf kraje.id_kraju%type,
nazwa_krajuf kraje.nazwa_kraju%type

)
return number as

czy_istnieje number;
begin

lock table kraje in row share mode;
select count(*) into czy_istnieje from kraje where upper(nazwa_kraju) = upper(nazwa_krajuf);

if(czy_istnieje != 0) then

raise_application_error( -20015, 'Istnieje już taki kraj' );
else

update kraje set nazwa_kraju = nazwa_krajuf
where id_kraju = id_krajuf;

end if;

if SQL%notfound then
raise_application_error( -20016, 'Nie istnieje kraj o takim ID' );

else
commit;

return 0;
end if;

exception

when OTHERS then
rollback;

dbms_output.put_line(SQLERRM);
return SQLCODE;

end;

end zarzadzanieKrajami;

h) zarzadzanieKsiazkami – paczka odpowiedzialna za zarządzanie ksiazkami w bazie danych.

create or replace

package zarzadzanieKsiazkami as
--definicja wyjątków paczki

NIE_ISTNIEJE_KSIAZKA exception;
PRAGMA EXCEPTION_INIT(NIE_ISTNIEJE_KSIAZKA, -20005);

NIE_PRAWIDLOWY_ROK_WYDANIA exception;

PRAGMA EXCEPTION_INIT(NIE_PRAWIDLOWY_ROK_WYDANIA, -20006);

IST_DOPASOWANIE_PODKATEGORII exception;
PRAGMA EXCEPTION_INIT(IST_DOPASOWANIE_PODKATEGORII, -20041);

31/49

NIST_DOPASOWANIE_PODKATEGORII exception;
PRAGMA EXCEPTION_INIT(NIST_DOPASOWANIE_PODKATEGORII, -20042);

NIE_ISTNIEJE_POWIAZANIE exception;

PRAGMA EXCEPTION_INIT(NIE_ISTNIEJE_POWIAZANIE, -20017);

ISTNIEJE_POWIAZANIE exception;
PRAGMA EXCEPTION_INIT(ISTNIEJE_POWIAZANIE, -20018);

--dodaj ksiazke

function dodaj
(

tytulf ksiazki.tytul%type,
id_wydawniaf ksiazki.id_wydawnictwa%type,

id_oprawyf ksiazki.id_ksiazki%type,
numer_wydaniaf ksiazki.numer_wydania%type,

numer_tomuf ksiazki.numer_tomu%type,
liczba_strongf ksiazki.liczba_stron%type,

data_wydaniaf ksiazki.data_wydania%type,
isbnf ksiazki.isbn%type,

issnf ksiazki.issn%type,
cenaf ksiazki.cena%type,

opisf ksiazki.opis%type,
okladkaf varchar2

)
return number;

--dodaj ksiazke bez okladki

function dodaj
(

tytulf ksiazki.tytul%type,
id_wydawniaf ksiazki.id_wydawnictwa%type,

id_oprawyf ksiazki.id_ksiazki%type,
numer_wydaniaf ksiazki.numer_wydania%type,

numer_tomuf ksiazki.numer_tomu%type,
liczba_strongf ksiazki.liczba_stron%type,

data_wydaniaf ksiazki.data_wydania%type,
isbnf ksiazki.isbn%type,

issnf ksiazki.issn%type,
cenaf ksiazki.cena%type,

opisf ksiazki.opis%type
)

return number;

--usuwanie ksiazki po ID
function usun

(
id_ksiazkif ksiazki.id_ksiazki%type

)
return number;

--zmień dane ksiązki

function modyfikuj
(

id_ksiazkif ksiazki.id_ksiazki%type,
tytulf ksiazki.tytul%type,

id_wydawnictwaf ksiazki.id_wydawnictwa%type,
id_oprawyf ksiazki.id_ksiazki%type,

numer_wydaniaf ksiazki.numer_wydania%type,
numer_tomuf ksiazki.numer_tomu%type,

liczba_stronf ksiazki.liczba_stron%type,
data_wydaniaf ksiazki.data_wydania%type,

isbnf ksiazki.isbn%type,
issnf ksiazki.issn%type,

cenaf ksiazki.cena%type,
opisf ksiazki.opis%type,

okladkaf varchar2
)

return number;

--dodaj podkategorie do ksiazki
function dodajPodkategorie

(

32/49

id_ksiazkif ksiazki.id_ksiazki%type,

id_podkategoriif podkategorie.id_podkategorii%type
)

return number;

--usun podkategorie z ksiazki
function usunPodkategorie

(
id_ksiazkif ksiazki.id_ksiazki%type,

id_podkategoriif podkategorie.id_podkategorii%type
)

return number;

--dodaj autora do ksiazki
function dodajAutora

(
id_ksiazkif autorzy_z_ksiazkami.id_ksiazki%type,

id_autoraf autorzy_z_ksiazkami.id_autora%type
)

return number;

--usuwanie autora z ksiazki po ID
function usunAutora

(
id_ksiazkif autorzy_z_ksiazkami.id_ksiazki%type,

id_autoraf autorzy_z_ksiazkami.id_autora%type
)

return number;

end zarzadzanieKsiazkami;

create or replace

package body zarzadzanieKsiazkami as
--dodaj ksiazke

function dodaj
(

tytulf ksiazki.tytul%type,
id_wydawniaf ksiazki.id_wydawnictwa%type,

id_oprawyf ksiazki.id_ksiazki%type,
numer_wydaniaf ksiazki.numer_wydania%type,

numer_tomuf ksiazki.numer_tomu%type,
liczba_strongf ksiazki.liczba_stron%type,

data_wydaniaf ksiazki.data_wydania%type,
isbnf ksiazki.isbn%type,

issnf ksiazki.issn%type,
cenaf ksiazki.cena%type,

opisf ksiazki.opis%type,
okladkaf varchar2

)
return number as

znak varchar2(1);

folder varchar2(100);
nazwa_pliku varchar2(100);

indeks_ostatni_slash number;
indeks_przedostatni_slash number;

czy_istnieje number;
nazwa_directory varchar2(100);

polecenie varchar2(100);
plik bfile;

bl blob:=empty_blob();
wielkosc number;

begin
savepoint poczatek;

SET TRANSACTION ISOLATION LEVEL SERIALIZABLE;

if (data_wydaniaf > sysdate) then
raise_application_error( -20006, 'Nie prawidlowy rok wydania' );

else

for i in 1..length(okladkaf) loop
znak := substr (okladkaf, i, 1);

33/49

if znak = '\' then

indeks_przedostatni_slash := indeks_ostatni_slash;
indeks_ostatni_slash := i;

end if;
end loop;

folder := substr(okladkaf, 1, indeks_ostatni_slash-1);

nazwa_pliku := substr(okladkaf, indeks_ostatni_slash+1);
nazwa_directory := substr(okladkaf, indeks_przedostatni_slash+1, indeks_ostatni_slash-

indeks_przedostatni_slash-1);

SELECT count(*) into czy_istnieje FROM all_directories
where directory_path = folder;

if (czy_istnieje = 0) then

polecenie := 'create directory ' || nazwa_directory ||' as ''' || folder || '''';
dbms_output.put_line (polecenie);

EXECUTE IMMEDIATE polecenie;
else

SELECT directory_name into nazwa_directory FROM all_directories where directory_path = folder;
end if;

plik:=bfilename(upper(nazwa_directory),nazwa_pliku);

If Dbms_Lob.Fileexists(plik)=0 Then

raise_application_error( -20030, 'Nie istnieje ten plik na dysku' );
end if;

wielkosc:=dbms_lob.getlength(plik);

insert into ksiazki values

(
s_ksiazki.nextval, tytulf,id_wydawniaf,id_oprawyf,numer_wydaniaf,liczba_strongf,

isbnf,cenaf,opisf,bl,issnf, numer_tomuf, data_wydaniaf
) returning okladka into bl;

--otwieramy oba pliki

dbms_lob.open(plik,dbms_lob.lob_readonly);
dbms_lob.open(bl,dbms_lob.lob_readwrite);

--ladowanie danych

dbms_lob.loadfromfile(bl,plik, wielkosc);

--zamykamy pliki
dbms_lob.close(bl);

dbms_lob.close(plik);

commit;
return 0;

end if;

exception
when OTHERS then

rollback to poczatek;
dbms_output.put_line(SQLERRM);

return SQLCODE;
end;

--dodaj ksiazke bez okladki

function dodaj
(

tytulf ksiazki.tytul%type,
id_wydawniaf ksiazki.id_wydawnictwa%type,

id_oprawyf ksiazki.id_ksiazki%type,
numer_wydaniaf ksiazki.numer_wydania%type,

numer_tomuf ksiazki.numer_tomu%type,
liczba_strongf ksiazki.liczba_stron%type,

data_wydaniaf ksiazki.data_wydania%type,
isbnf ksiazki.isbn%type,

issnf ksiazki.issn%type,
cenaf ksiazki.cena%type,

opisf ksiazki.opis%type
)

return number as

34/49

begin

savepoint poczatek;

if (data_wydaniaf > sysdate) then
raise_application_error( -20006, 'Nie prawidlowy rok wydania' );

else
insert into ksiazki values

(
s_ksiazki.nextval, tytulf,id_wydawniaf,id_oprawyf,numer_wydaniaf,liczba_strongf,

isbnf,cenaf,opisf,null,issnf, numer_tomuf, data_wydaniaf
);

commit;

return 0;
end if;

exception

when OTHERS then
rollback to poczatek;

dbms_output.put_line(SQLERRM);
return SQLCODE;

end;

--usuwanie ksiazki po ID

function usun
(

id_ksiazkif ksiazki.id_ksiazki%type
)

return number as

begin
delete from ksiazki where id_ksiazki = id_ksiazkif;

if SQL%notfound then

raise_application_error( -20005, 'Nie istnieje ksiazka o takim ID' );
else

commit;
return 0;

end if;

exception
when OTHERS then

rollback;
dbms_output.put_line(SQLERRM);

return SQLCODE;
end;

--zmień dane ksiązki

function modyfikuj
(

id_ksiazkif ksiazki.id_ksiazki%type,
tytulf ksiazki.tytul%type,

id_wydawnictwaf ksiazki.id_wydawnictwa%type,
id_oprawyf ksiazki.id_ksiazki%type,

numer_wydaniaf ksiazki.numer_wydania%type,
numer_tomuf ksiazki.numer_tomu%type,

liczba_stronf ksiazki.liczba_stron%type,
data_wydaniaf ksiazki.data_wydania%type,

isbnf ksiazki.isbn%type,
issnf ksiazki.issn%type,

cenaf ksiazki.cena%type,
opisf ksiazki.opis%type,

okladkaf varchar2
)

return number as

begin

begin
lock table ksiazki in row share mode;

if (data_wydaniaf > sysdate) then

raise_application_error( -20006, 'Nie prawidlowy rok wydania' );

35/49

else

update ksiazki set tytul = tytulf, id_wydawnictwa = id_wydawnictwaf,
id_oprawy = id_oprawyf, numer_wydania = numer_wydaniaf, liczba_stron = liczba_stronf,

isbn = isbnf, cena = cenaf, opis = opisf,
okladka = okladkaf, issn = issnf, numer_tomu = numer_tomuf, data_wydania = data_wydaniaf

where id_ksiazki = id_ksiazkif;
end if;

if SQL%notfound then

raise_application_error( -20005, 'Nie istnieje ksiazka o takim ID' );
else

commit;
return 0;

end if;

exception
when OTHERS then

rollback;
dbms_output.put_line(SQLERRM);

return SQLCODE;
end;

end;

--dodaj podkategorie do ksiazki

function dodajPodkategorie
(

id_ksiazkif ksiazki.id_ksiazki%type,
id_podkategoriif podkategorie.id_podkategorii%type

)
return number as

czy_istnieje number;

begin

select count(*) into czy_istnieje from podkategorie_z_ksiazkami where id_podkategorii = id_podkategorii
and id_ksiazki = id_ksiazkif;

if (czy_istnieje != 0) then

raise_application_error( -20041, 'Ta podkategoria zostala juz dopasowana do tej ksiazka' );
end if;

insert into podkategorie_z_ksiazkami values (id_ksiazkif, id_podkategoriif);

commit;
return 0;

exception

when OTHERS then
rollback;

dbms_output.put_line(SQLERRM);
return SQLCODE;

end;

--dodaj podkategorie do ksiazki
function usunPodkategorie

(
id_ksiazkif ksiazki.id_ksiazki%type,

id_podkategoriif podkategorie.id_podkategorii%type
)

return number as

czy_istnieje number;
begin

delete from podkategorie_z_ksiazkami where id_ksiazki = id_ksiazkif and id_podkategorii =

id_podkategoriif;

if SQL%notfound then
raise_application_error( -20042, 'Ta podkategoria nie zostala dopasowana do tej ksiazka' );

else
commit;

return 0;
end if;

36/49

exception

when OTHERS then
rollback;

dbms_output.put_line(SQLERRM);
return SQLCODE;

end;

--dodaj autora do ksiazki
function dodajAutora

(
id_ksiazkif autorzy_z_ksiazkami.id_ksiazki%type,

id_autoraf autorzy_z_ksiazkami.id_autora%type
)

return number as
czy_istnieje number;

czy_pierwszy_autor number;
begin

select count(*) into czy_istnieje from autorzy_z_ksiazkami where
id_ksiazki = id_ksiazkif and id_autora = id_autoraf;

if(czy_istnieje != 0) then

raise_application_error( -20018, 'Ten autor zostal juz dodany do ksiazki' );
end if;

insert into autorzy_z_ksiazkami values

(
id_ksiazkif, id_autoraf

);

commit;
return 0;

exception

when OTHERS then
rollback;

dbms_output.put_line(SQLERRM);
return SQLCODE;

end;

--usuwanie autora z ksiazki po ID
function usunAutora

(
id_ksiazkif autorzy_z_ksiazkami.id_ksiazki%type,

id_autoraf autorzy_z_ksiazkami.id_autora%type
)

return number as
czy_istnieje_autor number;

begin
delete from autorzy_z_ksiazkami where id_ksiazki = id_ksiazkif and id_autora = id_autoraf;

if SQL%notfound then

raise_application_error( -20017, 'Ten autor nie zostal dodany do tej ksiazki' );
end if;

commit;

return 0;

exception
when OTHERS then

rollback;
dbms_output.put_line(SQLERRM);

return SQLCODE;
end;

end zarzadzanieKsiazkami;

i) zarzadzanieMagazynem – paczka odpowiedzialna za zarządzanie magazynem w bazie danych.

create or replace
package zarzadzanieMagazynem as

--definicja wyjątków paczki
NIE_ISTNIEJE_KSIAZKA exception;

37/49

PRAGMA EXCEPTION_INIT(NIE_ISTNIEJE_KSIAZKA, -20026);

--dodaj sztuki ksiazki do magazynu

function dodaj
(

id_ksiazkif magazyn.id_ksiazki%type,
sztuk magazyn.sztuk_ksiazki%tyipe

)
return number;

--usuwanie sztuk ksiazki z magazynu po ID

function odejmij
(

id_ksiazkif magazyn.id_ksiazki%type,
sztuk magazyn.sztuk_ksiazki%type default 1

)
return number;

end zarzadzanieMagazynem;

create or replace
package body zarzadzanieMagazynem as

--dodaj sztuki
function dodaj

(
id_ksiazkif magazyn.id_ksiazki%type,

sztuk magazyn.sztuk_ksiazki%type
)

return number as
sztuk_ksiazkif magazyn.sztuk_ksiazki%type;

czy_istnieje number;
begin

lock table magazyn in row share mode;
select count(*) into czy_istnieje from magazyn where id_ksiazki = id_ksiazkif;

if(czy_istnieje = 0) then

insert into magazyn values (id_ksiazkif, sztuk_ksiazkif);
else

select sztuk_ksiazki into sztuk_ksiazkif from magazyn where id_ksiazki = id_ksiazkif;
update magazyn set sztuk_ksiazki = sztuk_ksiazkif + sztuk where id_ksiazki = id_ksiazkif;

if SQL%notfound then

raise_application_error( -20026, 'Nie istnieje ksiazki w magazynie o takim ID' );
else

commit;
return 0;

end if;
end if;

return 0;

exception
when OTHERS then

rollback;
dbms_output.put_line(SQLERRM);

return SQLCODE;
end;

--usuwanie kategorii po ID

function odejmij
(

id_ksiazkif magazyn.id_ksiazki%type,
sztuk magazyn.sztuk_ksiazki%type default 1

)
return number as

sztuk_ksiazkif magazyn.sztuk_ksiazki%type;
begin

lock table magazyn in row share mode;
select sztuk_ksiazki into sztuk_ksiazkif from magazyn where id_ksiazki = id_ksiazkif;

update magazyn set sztuk_ksiazki = sztuk_ksiazkif - sztuk where id_ksiazki = id_ksiazkif;

if SQL%notfound then

raise_application_error( -20026, 'Nie istnieje ksiazka w magazynie o takim ID' );

38/49

else

commit;
return 0;

end if;

return 0;
exception

when OTHERS then
rollback;

dbms_output.put_line(SQLERRM);
return SQLCODE;

end;

end zarzadzanieMagazynem;

j) zarzadzanieOprawami – paczka odpowiedzialna za zarządzanie oprawami w bazie danych.

create or replace

package zarzadzanieOprawami as
--definicja wyjątków paczki

NIE_ISTNIEJE_OPRAWA exception;
PRAGMA EXCEPTION_INIT(NIE_ISTNIEJE_OPRAWA, -20017);

ISTNIEJE_OPRAWA exception;

PRAGMA EXCEPTION_INIT(ISTNIEJE_OPRAWA, -20018);

--dodaj oprawe
function dodaj

(
rodzaj_oprawyf oprawy.rodzaj_oprawy%type

)
return number;

--usuwanie oprawy po ID

function usun
(

id_oprawyf oprawy.id_oprawy%type
)

return number;

--zmień rodzaj oprawy
function modyfikuj

(
id_oprawyf oprawy.id_oprawy%type,

rodzaj_oprawyf oprawy.rodzaj_oprawy%type
)

return number;

end zarzadzanieOprawami;

create or replace

package body zarzadzanieOprawami as
--definicja wyjątków paczki

NIE_ISTNIEJE_OPRAWA exception;
PRAGMA EXCEPTION_INIT(NIE_ISTNIEJE_OPRAWA, -20017);

ISTNIEJE_OPRAWA exception;

PRAGMA EXCEPTION_INIT(ISTNIEJE_OPRAWA, -20018);

--dodaj oprawe
function dodaj

(
rodzaj_oprawyf oprawy.rodzaj_oprawy%type

)
return number as

czy_istnieje number;
begin

select count(*) into czy_istnieje from oprawy where upper(rodzaj_oprawy) = upper(rodzaj_oprawyf);

if(czy_istnieje != 0) then
raise_application_error( -20017, 'Istnieje już taki rodzaj oprawy' );

39/49

else

insert into oprawy values
(

s_oprawy.nextval, rodzaj_oprawyf
);

commit;
return 0;

end if;
exception

when OTHERS then
rollback;

dbms_output.put_line(SQLERRM);
return SQLCODE;

end;

--usuwanie oprawy po ID
function usun

(
id_oprawyf oprawy.id_oprawy%type

)
return number as

begin
delete from oprawy where id_oprawy = id_oprawyf;

if SQL%notfound then

raise_application_error( -20018, 'Nie istnieje oprawa o takim ID' );
else

commit;
return 0;

end if;

exception
when OTHERS then

rollback;
dbms_output.put_line(SQLERRM);

return SQLCODE;
end;

--zmień rodzaj oprawy

function modyfikuj
(

id_oprawyf oprawy.id_oprawy%type,
rodzaj_oprawyf oprawy.rodzaj_oprawy%type

)
return number as

czy_istnieje number;
begin

lock table oprawy in row share mode;
select count(*) into czy_istnieje from oprawy where upper(rodzaj_oprawy) = upper(rodzaj_oprawyf);

if(czy_istnieje != 0) then

raise_application_error( -20017, 'Istnieje już taki rodzaj oprawy' );
else

update oprawy set rodzaj_oprawy = rodzaj_oprawyf
where id_oprawy = id_oprawyf;

end if;

if SQL%notfound then
raise_application_error( -20016, 'Nie istnieje oprawa o takim ID' );

else
commit;

return 0;
end if;

exception

when OTHERS then
rollback;

dbms_output.put_line(SQLERRM);
return SQLCODE;

end;

end zarzadzanieOprawami;

40/49

k) zarzadzaniePodkategoriami – paczka odpowiedzialna za zarządzanie podkategoriami książek w
bazie danych.

create or replace

package zarzadzaniePodkategoriami as
--definicja wyjątków paczki

NIE_ISTNIEJE_PODKATEGORIA exception;
PRAGMA EXCEPTION_INIT(NIE_ISTNIEJE_PODKATEGORIA, -20013);

ISTNIEJE_PODKATEGORIA exception;

PRAGMA EXCEPTION_INIT(ISTNIEJE_PODKATEGORIA, -20014);

--dodaj podkategorie
function dodaj

(
id_kategoriif podkategorie.id_kategorii%type,

nazwa_podkategoriif podkategorie.nazwa_podkategorii%type
)

return number;

--usuwanie podkategorii po ID
function usun

(
id_podkategoriif podkategorie.id_podkategorii%type

)
return number;

--zmień nazwe kategorii

function modyfikuj
(

id_podkategoriif podkategorie.id_podkategorii%type,
id_kategoriif podkategorie.id_kategorii%type,

nazwa_podkategoriif podkategorie.nazwa_podkategorii%type
)

return number;

end zarzadzaniePodkategoriami;

create or replace

package body zarzadzaniePodkategoriami as
--dodaj podkategorie

function dodaj
(

id_kategoriif podkategorie.id_kategorii%type,
nazwa_podkategoriif podkategorie.nazwa_podkategorii%type

)
return number as

czy_istnieje number;
begin

select count(*) into czy_istnieje from podkategorie where upper(nazwa_podkategorii) =
upper(nazwa_podkategoriif);

if(czy_istnieje != 0) then

raise_application_error( -20014, 'Istnieje już taka podkategoria' );
else

insert into podkategorie values
(

s_podkategorie.nextval, id_kategoriif, nazwa_podkategoriif
);

commit;
return 0;

end if;
exception

when OTHERS then
rollback;

dbms_output.put_line(SQLERRM);
return SQLCODE;

end;

--usuwanie podkategorii po ID
function usun

41/49

(

id_podkategoriif podkategorie.id_podkategorii%type
)

return number as
begin

delete from podkategorie where id_podkategorii = id_podkategoriif;

if SQL%notfound then
raise_application_error( -20013, 'Nie istnieje podkategoria o takim ID' );

else
commit;

return 0;
end if;

exception

when OTHERS then
rollback;

dbms_output.put_line(SQLERRM);
return SQLCODE;

end;

--zmień nazwe kategorii
function modyfikuj

(
id_podkategoriif podkategorie.id_podkategorii%type,

id_kategoriif podkategorie.id_kategorii%type,
nazwa_podkategoriif podkategorie.nazwa_podkategorii%type

)
return number as

czy_istnieje number;
begin

lock table podkategorie in row share mode;
select count(*) into czy_istnieje from podkategorie where upper(nazwa_podkategorii) =

upper(nazwa_podkategoriif);

if(czy_istnieje != 0) then
raise_application_error( -20014, 'Istnieje już taka podkategoria' );

else
update podkategorie set nazwa_podkategorii = nazwa_podkategoriif, id_kategorii = id_kategoriif

where id_podkategorii = id_podkategoriif;
end if;

if SQL%notfound then

raise_application_error( -20013, 'Nie istnieje podkategoria o takim ID' );
else

commit;
return 0;

end if;

exception
when OTHERS then

rollback;
dbms_output.put_line(SQLERRM);

return SQLCODE;
end;

end zarzadzaniePodkategoriami;

l) zarzadzanieSprzedazami - paczka odpowiedzialna za zarządzanie sprzedażami książek oraz
koszykami w bazie danych.

create or replace
package zarzadzanieSprzedazami as

--definicja wyjątków paczki
NIE_ISTNIEJE_SPRZEDAZ exception;

PRAGMA EXCEPTION_INIT(NIE_ISTNIEJE_SPRZEDAZ, -20033);

NIE_PRAWIDLOWA_DATA exception;
PRAGMA EXCEPTION_INIT(NIE_PRAWIDLOWA_DATA, -20034);

NIE_PRAWIDLOWA_SZTUK exception;

42/49

PRAGMA EXCEPTION_INIT(NIE_PRAWIDLOWA_SZTUK, -20035);

ISTNIEJE_SPRZEDAZ exception;

PRAGMA EXCEPTION_INIT(ISTNIEJE_SPRZEDAZ, -20036);

NIE_ISTNIEJE_KOSZYK exception;
PRAGMA EXCEPTION_INIT(NIE_ISTNIEJE_KOSZYK, -20044);

function stworzKoszyk

(
id_klientaf koszyki.id_klienta%type

)
return number;

--dodanie produktu do koszyka po ID

function dodajProduktDoKoszyka
(

id_koszykaf koszyki.id_klienta%type,
id_ksiazkif ksiazki.id_ksiazki%type,

liczba_sztukf produkty_w_koszyku.liczba_sztuk%type default 1
)

return number;

--usuwanie produktu z koszyka po ID
function usunProduktZKoszyka

(
id_koszykaf koszyki.id_klienta%type,

id_ksiazkif ksiazki.id_ksiazki%type
)

return number;

--wyczyszczenie koszyka
function wyczysckoszyk

(
id_koszykaf koszyki.id_klienta%type

)
return number;

--usuwanie koszyka po ID

function usunkoszyk
(

id_koszykaf koszyki.id_klienta%type
)

return number;

--finalizacja koszyka
function sfinalizujkoszyk

(
id_koszykaf koszyki.id_klienta%type

)
return number;

--usun sprzedaz

function usun
(

id_sprzedazyf sprzedaze.id_sprzedazy%type
)

return number;

end zarzadzanieSprzedazami;

create or replace

package body zarzadzanieSprzedazami as
function stworzKoszyk

(
id_klientaf koszyki.id_klienta%type

)
return number as

begin

43/49

insert into koszyki values (s_koszyki.nextval, id_klientaf);

commit;
return 0;

exception

when OTHERS then
rollback;

dbms_output.put_line(SQLERRM);
return SQLCODE;

end;

--dodaj produkt do koszyka
function dodajProduktDoKoszyka

(
id_koszykaf koszyki.id_klienta%type,

id_ksiazkif ksiazki.id_ksiazki%type,
liczba_sztukf produkty_w_koszyku.liczba_sztuk%type default 1

)
return number as

czy_istnieje number;

begin

if (liczba_sztukf <1) then
raise_application_error( -20035, 'Liczba sztuk musi być dodatnia');

end if;

insert into produkty_w_koszyku values (id_koszykaf, id_ksiazkif, liczba_sztukf);
commit;

return 0;

exception
when OTHERS then

rollback;
dbms_output.put_line(SQLERRM);

return sqlcode;
end;

--usuwanie sprzedazy po ID

function usunProduktZKoszyka
(

id_koszykaf koszyki.id_klienta%type,
id_ksiazkif ksiazki.id_ksiazki%type

)
return number as

begin

delete from produkty_w_koszyku where id_koszyka = id_koszykaf and id_ksiazki = id_ksiazkif;

if sql%notfound then

raise_application_error( -20044, 'Nie istnieje ksiazka w koszyku o takim ID' );
else

commit;
return 0;

end if;

exception
when OTHERS then

rollback;
dbms_output.put_line(SQLERRM);

return sqlcode;
end;

--wyczyszczenie koszyka

function wyczysckoszyk
(

id_koszykaf koszyki.id_klienta%type
)

return number as

begin

delete from produkty_w_koszyku where id_koszyka = id_koszykaf;

44/49

if SQL%notfound then
raise_application_error( -20044, 'Nie istnieje koszyk o takim ID' );

else
commit;

return 0;
end if;

exception

when OTHERS then
rollback;

dbms_output.put_line(SQLERRM);
return sqlcode;

end;

--usuwanie koszyka po ID
function usunkoszyk

(
id_koszykaf koszyki.id_klienta%type

)
return number as

begin

delete from koszyki where id_koszyka = id_koszykaf;

if SQL%notfound then
raise_application_error( -20044, 'Nie istnieje koszyk o takim ID' );

else
commit;

return 0;
end if;

exception

when OTHERS then
rollback;

dbms_output.put_line(SQLERRM);
return sqlcode;

end;

--finalizacja koszyka
function sfinalizujkoszyk

(
id_koszykaf koszyki.id_klienta%type

)
return number as

begin

insert into sprzedaze values (s_sprzedaze.nextval, id_koszykaf, sysdate);

commit;
return 0;

exception

when OTHERS then
rollback;

dbms_output.put_line(SQLERRM);
return sqlcode;

end;

--usun sprzedaz
function usun

(
id_sprzedazyf sprzedaze.id_sprzedazy%type

)
return number as

begin

delete from sprzedaze where id_sprzedazy = id_sprzedazyf;

if sql%notfound then

raise_application_error( -20005, 'Nie istnieje sprzedaz o takim ID' );
else

commit;

45/49

return 0;

end if;

exception
when OTHERS then

rollback;
dbms_output.put_line(SQLERRM);

return sqlcode;
end;

end zarzadzanieSprzedazami;

m) zarzadzanieWojewodzctwami – paczka odpowiedzialna za zarządzanie wojewodzctwami w
bazie danych.

create or replace
package zarzadzanieWojewodzctwami as

--definicja wyjątków paczki
NIE_ISTNIEJE_WOJEWODZCTWO exception;

PRAGMA EXCEPTION_INIT(NIE_ISTNIEJE_WOJEWODZCTWO, -20015);

ISTNIEJE_WOJEWODZCTWO exception;
PRAGMA EXCEPTION_INIT(ISTNIEJE_WOJEWODZCTWO, -20016);

--dodaj wojewodzctwo

function dodaj
(

id_krajuf wojewodzctwa.id_kraju%type,
nazwa_wojewodzctwaf wojewodzctwa.nazwa_wojewodzctwa%type

)
return number;

--usuwanie wojewodzctwa po ID

function usun
(

id_wojewodzctwaf wojewodzctwa.id_wojewodzctwa%type
)

return number;

--zmień nazwe kategorii
function modyfikuj

(
id_wojewodzctwaf wojewodzctwa.id_wojewodzctwa%type,

id_krajuf wojewodzctwa.id_kraju%type,
nazwa_wojewodzctwaf wojewodzctwa.nazwa_wojewodzctwa%type

)
return number;

end zarzadzanieWojewodzctwami;

create or replace
package body zarzadzanieWojewodzctwami as

--dodaj wojewodzctwo
function dodaj

(
id_krajuf wojewodzctwa.id_kraju%type,

nazwa_wojewodzctwaf wojewodzctwa.nazwa_wojewodzctwa%type
)

return number as
czy_istnieje number;

begin
select count(*) into czy_istnieje from wojewodzctwa where upper(nazwa_wojewodzctwa) =

upper(nazwa_wojewodzctwaf);

if(czy_istnieje != 0) then
raise_application_error( -20015, 'Istnieje już takie wojewodzctwo' );

else
insert into wojewodzctwa values

(
s_wojewodzctwa.nextval, nazwa_wojewodzctwaf, id_krajuf

46/49

);

commit;
return 0;

end if;
exception

when OTHERS then
rollback;

dbms_output.put_line(SQLERRM);
return SQLCODE;

end;

--usuwanie wojewodzctwa po ID
function usun

(
id_wojewodzctwaf wojewodzctwa.id_wojewodzctwa%type

)
return number as

begin
delete from wojewodzctwa where id_wojewodzctwa = id_wojewodzctwaf;

if SQL%notfound then

raise_application_error( -20016, 'Nie istnieje wojewodzctwo o takim ID' );
else

commit;
return 0;

end if;

exception
when OTHERS then

rollback;
dbms_output.put_line(SQLERRM);

return SQLCODE;
end;

--zmień nazwe kategorii

function modyfikuj
(

id_wojewodzctwaf wojewodzctwa.id_wojewodzctwa%type,
id_krajuf wojewodzctwa.id_kraju%type,

nazwa_wojewodzctwaf wojewodzctwa.nazwa_wojewodzctwa%type
)

return number as
czy_istnieje number;

begin
lock table wojewodzctwa in row share mode;

select count(*) into czy_istnieje from wojewodzctwa where upper(nazwa_wojewodzctwa) =
upper(nazwa_wojewodzctwaf);

if(czy_istnieje != 0) then

raise_application_error( -20015, 'Istnieje już takie wojewodzctwo' );
else

update wojewodzctwa set id_kraju = id_krajuf, nazwa_wojewodzctwa = nazwa_wojewodzctwaf
where id_wojewodzctwa = id_wojewodzctwaf;

end if;

if SQL%notfound then
raise_application_error( -20016, 'Nie istnieje wojewodzctwo o takim ID' );

else
commit;

return 0;
end if;

exception

when OTHERS then
rollback;

dbms_output.put_line(SQLERRM);
return SQLCODE;

end;

end zarzadzanieWojewodzctwami;

47/49

n) zarzadzanieWydawnictwami – paczka odpowiedzialna za zarządzanie wydawnictwami w bazie
danych.

create or replace

package zarzadzanieWydawnictwami as
--definicja wyjątków paczki

NIE_ISTNIEJE_WYDAWAWNITWO exception;
PRAGMA EXCEPTION_INIT(NIE_ISTNIEJE_WYDAWAWNITWO, -20023);

ISTNIEJE_WYDAWNICTWO exception;

PRAGMA EXCEPTION_INIT(ISTNIEJE_WYDAWNICTWO, -20024);

--dodaj wydawnictwo
function dodaj

(
nazwa_wydawnictwaf wydawnictwa.nazwa_wydawnictwa%type

)
return number;

--usuwanie wydawnictwa po ID

function usun
(

id_wydawnictwaf wydawnictwa.id_wydawnictwa%type
)

return number;

--zmień nazwe wydawnictwa
function modyfikuj

(
id_wydawnictwaf wydawnictwa.id_wydawnictwa%type,

nazwa_wydawnictwaf wydawnictwa.nazwa_wydawnictwa%type
)

return number;

end zarzadzanieWydawnictwami;

create or replace

package body zarzadzanieWydawnictwami as
--definicja wyjątków paczki

NIE_ISTNIEJE_WYDAWAWNITWO exception;
PRAGMA EXCEPTION_INIT(NIE_ISTNIEJE_WYDAWAWNITWO, -20023);

ISTNIEJE_WYDAWNICTWO exception;

PRAGMA EXCEPTION_INIT(ISTNIEJE_WYDAWNICTWO, -20024);

--dodaj wydawnictwo
function dodaj

(
nazwa_wydawnictwaf wydawnictwa.nazwa_wydawnictwa%type

)
return number as

czy_istnieje number;
begin

select count(*) into czy_istnieje from wydawnictwa where upper(nazwa_wydawnictwa) =
upper(nazwa_wydawnictwaf);

if(czy_istnieje != 0) then

raise_application_error( -20024, 'Istnieje już takie wydawnictwo' );
else

insert into wydawnictwa values
(

s_wydawnictwa.nextval, nazwa_wydawnictwaf
);

commit;
return 0;

end if;
exception

when OTHERS then
rollback;

dbms_output.put_line(SQLERRM);
return SQLCODE;

48/49

end;

--usuwanie wydawnictwa po ID

function usun
(

id_wydawnictwaf wydawnictwa.id_wydawnictwa%type
)

return number as
begin

delete from wydawnictwa where id_wydawnictwa = id_wydawnictwaf;

if SQL%notfound then
raise_application_error( -20023, 'Nie istnieje wydawnictwo o takim ID' );

else
commit;

return 0;
end if;

exception

when OTHERS then
rollback;

dbms_output.put_line(SQLERRM);
return SQLCODE;

end;

--zmień nazwe wydawnictwa
function modyfikuj

(
id_wydawnictwaf wydawnictwa.id_wydawnictwa%type,

nazwa_wydawnictwaf wydawnictwa.nazwa_wydawnictwa%type
)

return number as
begin

lock table wydawnictwa in row share mode;

update wydawnictwa set nazwa_wydawnictwa = nazwa_wydawnictwaf
where id_wydawnictwa = id_wydawnictwaf;

if SQL%notfound then

raise_application_error( -20023, 'Nie istnieje wydawnictwo o takim ID' );
else

commit;
return 0;

end if;

exception
when OTHERS then

rollback;
dbms_output.put_line(SQLERRM);

return SQLCODE;
end;

end zarzadzanieWydawnictwami;

49/49