SQL i PL/SQL w ORACLE APEX część 1

Показать описание

kod do processingu cały dokończony z zamknięciem case :

BEGIN

CASE :APEX$ROW_STATUS
WHEN 'C' THEN

INSERT INTO Klienci (ID_KLIENTA, IMIE, NAZWISKO, PLEC, PESEL, TELEFON, EMAIL)
VALUES (GEN_KLIENCI.NEXTVAL, :P31_IMIE, :P31_NAZWISKO, :P31_PLEC, :P31_PESEL, :P31_TELEFON, :P31_EMAIL);

WHEN 'U' THEN
UPDATE KLIENCI
SET IMIE = :P31_IMIE,
NAZWISKO = :P31_NAZWISKO,
PLEC = :P31_PLEC,
PESEL = :P31_PESEL,
TELEFON = :P31_TELEFON,
EMAIL = :P31_EMAIL
WHERE ID_KLIENTA = :P31_ID_KLIENTA;

WHEN 'D' THEN
DELETE FROM KLIENCI WHERE ID_KLIENTA = :P31_ID_KLIENTA;

END CASE;

COMMIT;
END;

kod do walidacji:
if :P31_PESEL is null then
return 'Pesel nie może być pusty';

else
if length (:P31_PESEL) != 11 then
return 'Pesel musi mieć 11 znaków';
end if;

end if;