Advertisement
Guest User

CinemaDB

a guest
Jun 20th, 2019
178
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.16 KB | None | 0 0
  1. create PACKAGE BODY CINEMA_PACKAGE AS
  2.  
  3. -- LOGIN - provjera korisnika u bazi
  4. procedure p_check_login(i_email in varchar2,
  5. i_password in varchar2,
  6. o_login out number,
  7. o_errcod out number,
  8. o_message out varchar2) AS
  9. l_email varchar2(30);
  10. l_pass varchar2(30);
  11. l_id number(8);
  12.  
  13. BEGIN
  14. l_email := null;
  15. l_pass := null;
  16. l_id := null;
  17. o_login := 0;
  18. o_errcod := 0;
  19. o_message := ' ';
  20. SELECT
  21. k.user_id,
  22. k.email,
  23. k.lozinka
  24. INTO
  25. l_id,
  26. l_email,
  27. l_pass
  28. FROM
  29. korisnici k
  30. WHERE
  31. k.email = i_email AND
  32. k.lozinka = i_password;
  33.  
  34. o_login := 1;
  35.  
  36. EXCEPTION
  37. WHEN OTHERS THEN
  38. o_login := 3;
  39. o_errcod := 103;
  40. o_message := 'Dogodila se greška u obradi podataka. Molimo pokušajte ponovno';
  41. end p_check_login;
  42.  
  43. -------unos korisnika
  44. procedure p_insert_user(i_ime in varchar2,
  45. i_prezime in varchar2,
  46. i_email in varchar2,
  47. i_lozinka in varchar2,
  48. o_success out number,
  49. o_errcod out number,
  50. o_message out varchar2) AS
  51. l_email varchar2(30);
  52. BEGIN
  53. l_email := ' ';
  54. o_success := 0;
  55. o_errcod := 0;
  56. o_message := ' ';
  57.  
  58. INSERT INTO KORISNICI (ime,prezime,email,lozinka)
  59. VALUES (i_ime,i_prezime,i_email,i_lozinka);
  60.  
  61. SELECT
  62. k.email
  63. INTO
  64. l_email
  65. FROM
  66. korisnici k
  67. WHERE
  68. user_id = (SELECT MAX(user_id) FROM KORISNICI);
  69. IF (i_email = l_email) THEN
  70. o_success := 1;
  71. ELSE
  72. o_success := 2;
  73. END IF;
  74. EXCEPTION
  75. WHEN OTHERS THEN
  76. o_success := 3;
  77. o_errcod := 102;
  78. o_message := 'Dogodila se greška u unosu podataka. Molimo pokušajte ponovno';
  79. end p_insert_user;
  80.  
  81. END CINEMA_PACKAGE;
  82. /
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement