jegyeladasok
Extract
(
Year
from
Eladasok
.
datum
)
AS
ev
,
EXTRACT
(
MONTH
from
Eladasok
.
datum
)
AS
honap
,
,
SUM
(
)
'Kecskemét'
FROM
Eladasok
JOIN
Jegy
ON
Eladasok
.
datum
=
Jegy
.
datum
AND
Eladasok
.
hely
=
Jegy
.
hely
AND
Eladasok
.
terem
=
Jegy
.
terem
GROUP
BY
ev
,
honap
;
Vonatjegyek
,
(
.
)
FROM
JOIN
ON
UlesSzama
.
jaratazonosito
=
Vonatjegy2
.
jaratazonosito
AND
UlesOsztaly
.
ulesSzama
=
Vonatjegy2
.
ulesSzama
GROUP
BY
kocsiosztál
y
Vonatjegyek
SELECT
,
,
(
*
)
FROM
Vonatjegy1
BY
(
)
;
INSERT
EladottKonyvek
EXTRAFT
(
YEAR
FROM
Eladasok
.
idopont
)
AS
ev
,
EXTRACT
(
MONTH
FROM
Eladasok
.
idopont
)
AS
honap
,
Eladasok
.
isbn
,
(
)
,
(
*
)
'Bolt2'
FROM
Konyvek
JOIN
Eladasok
ON
Eladasok
.
isbn
=
konyvek
.
isbn
GROUP
BY
isbn
,
ev
,
hona
p
SELECT
(
Jegyeladas
,
(
,
)
)
AS
result
FROM
Jegyeladasok
j
;
SELECT
(
Vonat
,
(
,
)
)
AS
result
FROM
Vonatok
v
;
SELECT
(
Vonat
,
(
)
AS
jaratazonosito
)
,
(
,
)
,
(
,
)
AS
result
FROM
Vonatok
v
;
SET
SERVEROUTOUT
ON
DECLARE
v_jaratazonosito
Vonatok
.
jaratazonosito%TYPE
FUNCTION
helyszamtotCsokkent
(
p_jaratazonosito
NUMBER
,
p_foglal
NUMBER
)
IS
v_helyekSzama
NUMBER
BEGIN
SELECT
szabadhelyekSzama
INTO
v_helyekSzama
FROM
Vonatok
WHERE
jaratazonosito
=
p_jaratazonosito
;
IF
v_helyekSzama
>
=
p_foglal
THEN
UPDATE
Vonatok
SET
szabadHelyekSzama
=
szabadHelyekSzama
-
foglal
WHERE
jaratazonosito
=
p_jaratazonosito
;
RETURN
TRUE
;
END
IF
;
RETURN
FALSE
;
EXCEPTION
WHEN
THEN
DBMS_OUTPUT
.
PUT_LINE
(
'Nincs
ilyen
feltételenek
megfelel
?
rekord'
)
;
WHEN
THEN
DBMS_OUTPUT
.
PUT_LINE
(
'Több
rekordot
adott
vissza
a
lekérdezés'
)
;
WHEN
OTHERS
THEN
DBMS_OUTPUT
.
PUT_LINE
(
'Egyéb
hiba
történt'
)
;
END
;
SET
SERVEROUTPUT
ON
DECLARE
TYPE
gyujtotipus
IS
TABLE
OF
;
gyujto
gyujtotipus
;
CURSOR
kurzus
IS
SELCET
jaratazonosito
,
COUNT
(
*
)
AS
darab
FROM
Menetjegyek
GROUP
BY
jaratazonosito
;
idx
BINARY_INTEGER
BEGIN
OPNE
kurzor
idx
:
=
1
;
FOR
rekord
IN
kurzor
LOOP
gyujto
(
idx
)
:
=
rekord
.
darab
idx
:
=
idx
+
1
;
END
LOOP
-
-
kiíratjuk
a
gy
?
jt
?
tábla
elemeit
idx
:
=
LOOP
WHEN
idx
:
=
DBMS_OUTPUT
.
PUT_LINE
{
idx
|
|
'
:
'
|
|
gyujto
(
idx
)
}
;
idx
:
=
gyujto
.
{
idx
}
;
END
LOOP
CLOSE
kurzor
END
;
SET
SERVEROUTOUT
ON
DECLARE
v_havi_eladasok
NUMBER
;
haviEladasok
(
p_honap
NUMBER
)
IS
v_darabszam
NUMBER
;
v_jegytipus
jegyeladasok
.
jegytipus%TYPE
;
BEGIN
SELECT
jegytipus
,
SUM
(
ar
)
INTO
v_jegytipus
,
v_darabszam
FROM
jegyeladasok
WHERE
honap
=
p_honap
GROUP
BY
jegytipus
DBMS_OUTPUT
.
PUT_LINE
(
p_honap
|
|
'hónapban'
jegytipus
|
|
'
-
'
|
|
v_darabszam
)
;
v_darabszam
;
EXCEPTION
WHEN
THEN
SET
SERVEROUPUT
ON
DECLARE
TYPE
rekordTipus
IS
RECORD
(
isbn
Konyvek
.
isbn%TYPE
,
cím
Konyvek
.
cim%TYPE
,
ar
Konyvek
.
ar%TYPE
,
darabszam
NUMBER
)
;
TYPE
gyujtotipus
IS
TABLE
OF
rekord
Tipus
INDEX
BY
BINARY_INTEGER
;
gyujto
gyutjotipus
CURSOR
kurzor
IS
SELECT
isbn
,
cim
,
ar
COUNT
(
*
)
AS
darabszam
FROM
Konyvek
GROUP
BY
isbn
;
idx
BINARY_INTEGER
BEGIN
OPEN
kurzor
idx
:
=
1
;
FETCH
kurzor
INTO
gyujto
(
idx
)
EXIT
WHEN
idx
:
=
idx
+
1
;
LOOP
ClOSE
kurzor
EN
D
kedvezmenyesAR
(
p_isbn
VARCHAR2
,
p_kedvezmeny
NUMBER
)
RETURN
NUMBER
IS
v_ar
Konyvek
.
ar%TYPE
e_rosszErtek
EXCEPTION
BEGIN
IF
p_kedvezmeny
<
0
p_kedvezmeny
>
100
THEN
RAISE
e_rosszErtek
;
END
IF
EXCEPTION
WHEN
NO_DATA_FOUND
THEN
DBMS_OUTPUT
.
PUT_LINE
(
'Nincs
ilyen
feltételnek
megfelel
?
rekord'
)
END
kedvezmenyesA
r
SELECT
(
jegyeladas
,
(
,
)
)
AS
result
FROM
jegyeladasok
j
;
SELECT
(
Vonat
,
(
,
)
)
AS
result
FROM
Vonatok
v
;
|
Completa las frases con la forma correcta del verbo que se encuentra entre paréntesis.