DROP TABLE OSOBY;

CREATE TABLE OSOBY(
    ID NUMBER(6) PRIMARY KEY,
    IMIE VARCHAR2(100 CHAR),
    NAZWISKO VARCHAR2(100 CHAR),
    MIASTO VARCHAR2(100 CHAR)
);

INSERT INTO OSOBY VALUES(1,'Lech','Pawlak','Warszawa');
INSERT INTO OSOBY VALUES(2,'Karol','Lechowski','Radom');
INSERT INTO OSOBY VALUES(3,'Andrzej','Łukawski','Sosnowiec');
INSERT INTO OSOBY VALUES(4,'Janusz','Łuk','Czarnobyl');


CREATE OR REPLACE PROCEDURE CW5_3 IS
BEGIN
    HTP.HTMLOPEN;
      HTP.HEADOPEN;
        HTP.TITLE('Ćwiczenie 3');
      HTP.HEADCLOSE;
      HTP.BODYOPEN;
          HTP.TABLEOPEN('border="1"');
            HTP.TABLEHEADER('ID');
            HTP.TABLEHEADER('Imię');
            HTP.TABLEHEADER('Nazwisko');
            HTP.TABLEHEADER('Miasto');
          FOR I IN (SELECT * FROM OSOBY) LOOP
            HTP.TABLEROWOPEN;
            HTP.TABLEDATA(I.ID);
            HTP.TABLEDATA(I.IMIE);
            HTP.TABLEDATA(I.NAZWISKO);
            HTP.TABLEDATA(I.MIASTO);
            HTP.TABLEROWCLOSE;
        END LOOP;
        HTP.TABLECLOSE;
      HTP.BODYCLOSE;
    HTP.HTMLCLOSE;
    EXCEPTION
        WHEN OTHERS THEN HTP.PRINT('BŁĄD');
END;
/



CREATE OR REPLACE PROCEDURE CW5_1 IS
    BDATA VARCHAR2(100);
BEGIN
    SELECT TO_CHAR(SYSDATE,'DD:MM:RRRR HH24:MI:SS') INTO BDATA FROM DUAL;
    HTP.HTMLOPEN;
        HTP.HEADOPEN;
            HTP.TITLE('Ćwiczenie 1');
        HTP.HEADCLOSE;
        HTP.BODYOPEN;
                HTP.HEADER(1,'Bieżąca data:');
                HTP.PRINT(BDATA);
        HTP.BODYCLOSE;
    HTP.HTMLCLOSE;
END;