Проектирование баз данных

nextval, 'Спонсор 6', 20000);INSERT INTO SPONSOR VALUES (my_sponsor.nextval, 'Спонсор 7', 30000); INSERT INTO TOURNAMENT VALUES (MY_TOURNAMENT.nextval, 'Турнир 1', 'Россия', 100, 1);INSERT INTO TOURNAMENT VALUES (MY_TOURNAMENT.nextval, 'Турнир 1', 'Россия', 100, 2);INSERT INTO TOURNAMENT VALUES (MY_TOURNAMENT.nextval, 'Турнир 2', 'США', 20, 3);INSERT INTO TOURNAMENT VALUES (MY_TOURNAMENT.nextval, 'Турнир 3', 'США', 35, 4);INSERT INTO TOURNAMENT VALUES (MY_TOURNAMENT.nextval, 'Турнир 4', 'Великобритания', 150,5);INSERT INTO TOURNAMENT VALUES (MY_TOURNAMENT.nextval, 'Турнир 5', 'Бельгия', 200, 5);INSERT INTO TOURNAMENT VALUES (MY_TOURNAMENT.nextval, 'Турнир 5', 'Бельгия', 200, 6);INSERT INTO TOURNAMENT VALUES (MY_TOURNAMENT.nextval, 'Турнир 5', 'Бельгия', 200, 7);EXCEPTIONWHEN OTHERS THENv_err_code := SQLCODE;v_err_text := SQLERRM; DBMS_OUTPUT.PUT_LINE('Привыполнениипроизошлаошибка. ' ||TO_CHAR(v_err_code)|| '-'||v_err_text);END pINI;PROCEDURE pDELETEASv_err_code Number;v_err_textVARCHAR2(100);BEGINDELETE FROM TOURNAMENTWHERE TOURNAMENT_COUNT IN (SELECT MIN(TOURNAMENT_COUNT) FROM TOURNAMENT);EXCEPTIONWHEN OTHERS THENv_err_code := SQLCODE;v_err_text := SQLERRM; DBMS_OUTPUT.PUT_LINE('Привыполнениипроизошлаошибка. ' ||TO_CHAR(v_err_code)|| '-'||v_err_text);END pDELETE;PROCEDURE pVIEW(NUM IN NUMBER)ASv_err_code NUMBER;v_err_textVARCHAR2(100);v_name TOURNAMENT_VIEW.TOURNAMENT_NAME%TYPE;v_sum TOURNAMENT_VIEW.SPONSOR_SUM%TYPE;CURSOR get_sum IS SELECT TOURNAMENT_NAME, SUM(SPONSOR_SUM) FROM TOURNAMENT_VIEWgroup By TOURNAMENT_NAMEHAVING SUM(SPONSOR_SUM) < NUMORDER BY TOURNAMENT_NAME;BEGINOPEN get_sum;LOOPFETCH get_sum INTO v_name, v_sum;EXIT WHEN get_sum%NOTFOUND;DBMS_OUTPUT.put_line('Полученыданные:' ||v_name||' '||TO_CHAR(v_sum));END LOOP;CLOSE get_sum;EXCEPTION WHEN OTHERS THENv_err_code := SQLCODE;v_err_text := SQLERRM; DBMS_OUTPUT.PUT_LINE('Привыполнениипроизошлаошибка. ' ||TO_CHAR(v_err_code)|| '-'||v_err_text);END pVIEW;END PKGTOURNAMENT;Проверимналичиесозданныхобъектов.SELECT * FROMuser_objectsWHEREobject_type IN ('PACKAGE','TABLE','VIEW', 'TRIGGER')На рисунке 1 представлена физическая модель созданной БДРисунок 1 – Физическая модель БДЗаполним таблицы данными. Для этого вызовем процедуру pINI.Проверим данные в таблицах.SELECT * FROMSPONSOR;SELECT * FROMTOURNAMENT;Проверим выполнение процедуры pDELETE, которая должна удалить запись в таблице TOURNAMENTcминимальным количеством участников равных 20).Поменяем системную дату на 13 число и проверим срабатывание триггера. В результате получаем следующее сообщение, подтверждающее работу триггера.Меняем дату на не 13 число и снова проверяем.Посредством процедуры pVIEW выведем все турниры имеющие финансирование меньше 1000000.