БД по учету продаж продукции мясокомбината

(на каждую продажу  оформляется расходная накладная). 
 

 
 

Строка расходной  накладной. Назначение: Хранение информации о проданном товаре. 

 
 

Паспортные данные. Назначение: Хранение информации о  паспортных данных индивида для его дальнейшей идентификации. 

 

Юридическое лицо. Назначение: хранение информации о юридических  лицах. 

 

Банк. Назначение: хранение названий банков. 

 

 

Триггеры:

  Этот триггер увеличивает поле Kod_stroki_praisa на единицу максимального значения, т.е. он является счетчиком (автоматическое добавление первичных ключей в таблицу Stroka_praisa)   

CREATE OR REPLACE TRIGGER COUNT_katya1_Prais

BEFORE INSERT ON Stroka_praisa

FOR EACH ROW

DECLARE

CURSOR C1 IS SELECT MAX(Kod_stroki_praisa)

FROM Stroka_praisa;

MAXID Stroka_praisa. Kod_stroki_praisa % TYPE;

BEGIN

OPEN C1;

FETCH C1 INTO MAXID;

 IF MAXID IS NULL THEN

 MAXID:=0;

 END IF;

:NEW. Kod_stroki_praisa:=MAXID+1;

END;

 

Этот триггер увеличивает  поле Kod_edinizi_izmereniya на единицу максимального значения, т.е. он является счетчиком (автоматическое добавление первичных ключей в таблицу Edinica_izmereniya)   

CREATE OR REPLACE TRIGGER COUNT _katya2_Ulica1

BEFORE INSERT ON Edinica_izmereniya

FOR EACH ROW

DECLARE

CURSOR C1 IS SELECT MAX(Kod_edinizi_izmereniya)

FROM Edinica_izmereniya;

MAXID Edinica_izmereniya. Kod_edinizi_izmereniya % TYPE;

BEGIN

OPEN C1;

FETCH C1 INTO MAXID;

 IF MAXID IS NULL THEN

 MAXID:=0;

 END IF;

:NEW. Kod_edinizi_izmereniya:=MAXID+1;

END;

 

Этот триггер увеличивает  поле Kod_Adresa на единицу максимального значения, т.е. он является счетчиком (автоматическое добавление первичных ключей в таблицу Adres)   

CREATE OR REPLACE TRIGGER COUNT_katya_3_Adres1

BEFORE INSERT ON Adres

FOR EACH ROW

DECLARE

CURSOR C1 IS SELECT MAX(Kod_Adresa)

FROM Adres;

MAXID Adres. Kod_Adresa % TYPE;

BEGIN

OPEN C1;

FETCH C1 INTO MAXID;

IF MAXID IS NULL THEN

MAXID:=0;

END IF;

:NEW. Kod_Adresa:=MAXID+1;

END; 
 

Подобные триггеры можно сделать для таблиц prais, rashodnaya_nakladnaya, zakaz, Kod_ulicy.

 

 Данный триггер через процедуру Pasport проверяет, чтобы новое зн-е серии и номера паспорта соответственно строго равнялось 10 символам. 
 

CREATE OR REPLACE TRIGGER TR_seria

BEFORE INSERT OR REPLACE UPDATE ON Pasportnye_dannye

FOR EACH ROW

BEGIN

Katya(:NEW. Seria_nomer, 10,’seria_nomer_pasporta’);

END;

 

ПРОЦЕДУРЫ 
 

1.  Данная процедура выводит ошибку, которая сообщает, что длина строки не соответствует указанному количеству цифр.

(по триггеру №5) 

CREATE OR REPLACE PROCEDURE Pasport (Strok IN VARCHAR2,

Kol IN NUMBER, Msg IN VARCHAR2) IS

BEGIN

IF LENGTH(Strok)<> Kol THEN

RAISE_APPLICATION_ERROR(-20041,’Размер’||Msg||’ должен состоять из

[`||TO CHAR(Kol)||`]символов`);

END IF;

END;