CREATE TABLE  "ADT" 
   (	"USER_NAME" VARCHAR2(50), 
	"OBJECT_NAME" VARCHAR2(50)
   ) ;CREATE TABLE  "KLIENT" 
   (	"KOD_KLIENTA" NUMBER, 
	"FAMILIJA" VARCHAR2(50), 
	"IMJA" VARCHAR2(50), 
	"OTCHESTVO" VARCHAR2(50), 
	"ADRESS" VARCHAR2(50), 
	"TELEFON" VARCHAR2(50), 
	"SERIJA_I_NOMER_PASSPORTA" VARCHAR2(50)
   ) ;CREATE TABLE  "KLIENT_ARX" 
   (	"KOD_KLIENTA" NUMBER, 
	"FAMILIJA" VARCHAR2(50), 
	"IMJA" VARCHAR2(50), 
	"OTCHESTVO" VARCHAR2(50), 
	"ADRESS" VARCHAR2(50), 
	"TELEFON" VARCHAR2(50), 
	"SERIJA_I_NOMER_PASSPORTA" VARCHAR2(50)
   ) ;CREATE TABLE  "NOMER" 
   (	"KOD_NOMERA" NUMBER, 
	"TIP_NOMERA" NUMBER, 
	"PERECHEN_YDOBSTV" VARCHAR2(50), 
	"CENA_ZA_SYTKI" NUMBER, 
	 CONSTRAINT "NOMER_PK" PRIMARY KEY ("KOD_NOMERA") ENABLE
   ) ;CREATE TABLE  "PERECHEN_YDOBSTV_REESTR" 
   (	"PERECHEN_YDOBSTV_OLD" VARCHAR2(50), 
	"PERECHEN_YDOBSTV_NEW" VARCHAR2(50), 
	"ID_NOMER" NUMBER
   ) ;CREATE TABLE  "REGESTRCIJA" 
   (	"KOD_REGISTRACII" NUMBER, 
	"KOD_NOMERA" NUMBER, 
	"DATA_ZAEZDA" DATE, 
	"DATA_VIEZDA" DATE, 
	"STOIMOST" NUMBER, 
	"KOD_KLIENTA" NUMBER, 
	 CONSTRAINT "REGESTRCIJA_PK" PRIMARY KEY ("KOD_REGISTRACII") ENABLE
   ) ;CREATE TABLE  "REGESTRCIJA_ARX" 
   (	"USER_NAME" VARCHAR2(50), 
	"TISP_DATE" DATE
   ) ;


CREATE OR REPLACE TRIGGER  "BI_REGESTRCIJA" 
  before insert on "REGESTRCIJA"               
  for each row  
begin   
  if :NEW."KOD_REGISTRACII" is null then 
    select "REGESTRCIJA_SEQ".nextval into :NEW."KOD_REGISTRACII" from dual; 
  end if; 
end; 

/
ALTER TRIGGER  "BI_REGESTRCIJA" ENABLE;CREATE OR REPLACE TRIGGER  "BI_NOMER" 
  before insert on "NOMER"               
  for each row  
begin   
  if :NEW."KOD_NOMERA" is null then 
    select "NOMER_SEQ".nextval into :NEW."KOD_NOMERA" from dual; 
  end if; 
end; 

/
ALTER TRIGGER  "BI_NOMER" ENABLE;







/* ответ 1*/
CREATE OR REPLACE TRIGGER  "KLIENT_T1" 
AFTER insert on KLIENT
for each row
begin
IF (SUBSTR(LOWER(:new.FAMILIJA),0,2)='ив')then
INSERT INTO test.klient_arx(test.klient_arx.KOD_KLIENTA,test.klient_arx.FAMILIJA,test.klient_arx.IMJA,test.klient_arx.OTCHESTVO,test.klient_arx.ADRESS,TELEFON,
test.klient_arx.SERIJA_I_NOMER_PASSPORTA)
   VALUES(:new.KOD_KLIENTA, :new.FAMILIJA, :new.IMJA, :new.OTCHESTVO, :new.ADRESS, :new.TELEFON, :new.SERIJA_I_NOMER_PASSPORTA);
end if;
end;
/
ALTER TRIGGER  "KLIENT_T1" ENABLE;

/* ответ 2*/

CREATE OR REPLACE TRIGGER  "NOMER_T1" 
BEFORE
insert or update on "NOMER"
for each row
begin
insert into PERECHEN_YDOBSTV_REESTR 
   ( id_nomer,   PERECHEN_YDOBSTV_OLD, 
    PERECHEN_YDOBSTV_NEW)
values(:old.KOD_NOMERA,:old.PERECHEN_YDOBSTV,:new.PERECHEN_YDOBSTV) ;
end;
/
ALTER TRIGGER  "NOMER_T1" ENABLE;

/* ответ 3*/

CREATE OR REPLACE TRIGGER  "REGESTRCIJA_T1" 
after
insert or update or delete on "REGESTRCIJA"
begin
insert into REGESTRCIJA_ARX 
   (USER_NAME , 
    TISP_DATE    ) values
(USER, SYSDATE);
end;
/
ALTER TRIGGER  "REGESTRCIJA_T1" ENABLE;

 /*ответ 4*/

create or replace TRIGGER chageobj
AFTER
CREATE OR DROP OR ALTER  ON test.SCHEMA
BEGIN
INSERT INTO adt (USER_NAME,OBJECT_NAME)
VALUES(USER, DICTIONARY_OBJ_NAME );
END chageobj;
/