Trigger Nedir
Bir tablo üzerinde belirli bir olaya bağlı olarak tetiklenip çalışan SQL kodlarıdır. Tablo üzerindeki triggerları tetikleyen olaylar insert, update, delete olaylarıdır. Bu olaylara istinaden 3 ana tip triggerdan bahsedilir. Bunlar insert triggerı update triggerı, delete triggerı şeklindedir. Bir tablo üzerinde bu olayların öncesinde ve sonrasında tetiklenecek istenildiği kadar trigger yazılabilir. Fakat genel eğilim ve kullanım her bir olay için tek bir trigger kullanmak şeklindedir.
Örneğin stok hareketleri sonucunda stok miktarlarının azalması veya artması işlemlerinin, veya tahakkuk ve tahsilatlar sonucu cari hesapların etkilenmesi işlemlerinin triggerlar aracılığı ile yapılmaları tipik bir trigger kullanım yeridir. Ayrıca referential integrity’yi sağlamak amacı ile de trigger kullanımı çok tercih edilir. İlişkisel bir veritabanında örneğin PERSONEL tablosundaki kişinin bolum bilgisi amaçlı olarak BOLUM_NO tutulması ve bolumun adının da BOLUM tablosundan bulunması yapıldığını düşünürsek. Eğer 1 numaralı bolum herhangi bir personele kullanıldıysa BOLUM tablosundan BOLUM_NO değeri 1 olan kaydın kesinlikle silinememesi gerekmektedir. Bu tür kontrollerin yapılarak veri bütünlüğünün korunmasıdır referential integrity. Bu amaçla yazılan veya bir veritabanı tasarım aracı kullanıldıysa onun otomatik olarak yazdığı trigger kodları sayesinde bu bütünlük korunur. Çünkü BOLUM tablosunun delete trigger’inda gerekli kontrolleri yapacak kod yazılır ve eğer silinmek istenen BOLUM_NO herhangi bir personel için kullanıldıysa bu silme işlemine izin verilmez.
Stored Procedure
Stored Procedure ise bir tabloya bağlı olmaksızın veritabanı içinde tanımlanan belirli bir işi yapmaya yönelik kodlardır. Bu kodlar yazıldığı zaman aynı zamanda compile edildikleri için query optimizer tarafından optimize edilmiş en hızlı şekilde çalışmaya hazır kodlardır. Bu kodlar hem triggerlar içinden hem de veritabanı dışındaki her hangi bir ortamdan (Delphi içinden) kolayca çağırılabildikleri için kullanım amaçları geniştir.
Örneğin her türlü raporu stored procedure kullanarak yazmak mümkündür ve de tavsiye edilir. Örneğin Delphi tarafında veritabanı üzerinde işler yapan bir fonksiyonunuzu stored procedure haline getirmek işlemlerin çok daha hızlı çalışacak olması sebebi ile tavsiye edilir.
Hem trigger hem de stored procedure veritabanı üzerindeki kodlar olmaları sebebi ile veritabanını sunan Server üzerinde çalışırlar. Client&Server mimarinin güçlü enstrümanlarındandırlar. Client Server mimarideki SQL veritabanları tarafından desteklenmektedir. (Oracle, Sybase, MS SQL, Interbase, FireBird vs..) Verilerin bulunduğu Server üzerinde çalışmalarından dolayı veriler client ile Server arasında gidip gelmezler ve de serverdan client tarafına minimum veri çekilmiş olur. Ayrıca yazacağınız stored procedure verilerle çok yoğun uğraşmıyor bile olsa eğer güçlü bir sunucunuz varsa client makinenizin işlemcisinden tasarruf için bile bazı işleri server işlemcisine yüklemek adına stored procedure yazılabilir. Ya da çok kullanıcılı bir sistemde programlar içinde kullanılan tarih ve saat bilgisinin serverdan alınabilmesi için de stored procedure kullanmak basit de olsa bir kullanım şekli olabilir.
Bir örnek ile hem trigger hem de stored procedure kullanımının teknik detayına inelim. Söyle bir örneğimiz olsun. Çok basit olarak bir URUN tablosu ve bu tabloda stok miktarı tutuluyor olsun. URUN_GIRIS ve URUN_SATIS seklinde 2 tane de ürünlerin hareketlerini tutacağımız farklı tablolar olsun. Tabloların yapısı şu şekilde olsun.
URUN (URUN_NO, URUN_ADI)
URUN_GIRIS (URUN_NO, GIRIS_ZAMANI, GIRIS_MIKTARI)
URUN_SATIS (URUN_NO, SATIS_ZAMANI, SATIS_MIKTARI)
URUN_STOK (URUN_NO, STOK_MIKTARI)
Veritabanı tasarımının ERD (Entity Relationship Diagram) şeması şu şekildedir.
Tabloları ilişkisel bir şekilde oluşturacak SQL kodu son bölümde ek olarak verilmiştir.
Şimdi yapmak istediğimizi açıklayalım. URUN_GIRIS tablosuna kayıtlar girdikçe yani bir üründen belirli miktarlarda girişler yapıldıkça o ürüne ait URUN_STOK tablosundaki STOK_MIKTARI alanının değerini giriş miktarı kadar arttırmalıyız. Tabi ki bunun tersi de olabilmeli yani yapılmış bir ürün girişi kaydı silinirse de bu sefer STOK_MIKTARI değeri silinen giriş kadar azaltılarak eski haline getirilmeli. Ve de eğer giriş miktarı diyelim ki 100 adet iken 50 adet olarak değiştirilirse de bu sefer bu duruma göre o ürünün STOK_MIKTARI alanı güncellenebilmeli. Bunu şu şekilde yapacağız. Öncelikle bir stored procedure yazacağız bu stored procedure’e parametre olarak URUN_NO ve GIRIS_MIKTARI’ nı göndereceğiz ve ilgili ürünün STOK_MIKTARI’ nı giriş miktarı kadar arttıracak. Yazdığımız bu stored procedure’ u de URUN_GIRIS tablosunun insert triggerından çağıracağız.
Insert triggerından çağıracağımız stored procedure’un adı SPI_URUN_GIRIS olsun. Bu procedur’un kodu şu şekildedir.
Kod: Tümünü seç
Sybase için
Create procedure dba.SPI_URUN_GIRIS(@URUN_NO integer,@GIRIS_MIKTARI integer)
as
begin
declare @DLR_KAYIT_SAYISI integer
select @DLR_KAYIT_SAYISI = count(*) from dba.URUN_STOK where URUN_NO = @URUN_NO
if @DLR_KAYIT_SAYISI = 0
insert into dba.URUN_STOK(URUN_NO,STOK_MIKTARI) values(@URUN_NO,0)
update dba.URUN_STOK set
STOK_MIKTARI = STOK_MIKTARI+@GIRIS_MIKTARI where
URUN_NO = @URUN_NO
End;
Interbase için
CREATE PROCEDURE SPI_URUN_GIRIS ( URUN_NO INTEGER, GIRIS_MIKTARI INTEGER) AS
DECLARE VARIABLE DLR_KAYIT_SAYISI integer;
begin
select count(*)
from URUN_STOK where URUN_NO = :URUN_NO
INTO DLR_KAYIT_SAYISI;
if (DLR_KAYIT_SAYISI=0) then
insert into URUN_STOK(URUN_NO,STOK_MIKTARI) values(:URUN_NO,0);
update URUN_STOK set
STOK_MIKTARI = STOK_MIKTARI+:GIRIS_MIKTARI where
URUN_NO = :URUN_NO;
EndKod: Tümünü seç
Sybase için
Create procedure dba.SPD_URUN_GIRIS(@URUN_NO integer, @GIRIS_MIKTARI integer)
as
begin
update dba.URUN_STOK set
STOK_MIKTARI = STOK_MIKTARI-@GIRIS_MIKTARI where
URUN_NO = @URUN_NO
delete from dba.URUN_STOK where
URUN_NO = @URUN_NO and STOK_MIKTARI = 0
end
Interbase için
CREATE PROCEDURE SPD_URUN_GIRIS ( URUN_NO INTEGER, GIRIS_MIKTARI INTEGER) AS
begin
update URUN_STOK set
STOK_MIKTARI = STOK_MIKTARI-:GIRIS_MIKTARI where
URUN_NO = :URUN_NO;
delete from URUN_STOK
where URUN_NO=:URUN_NO and STOK_MIKTARI=0;
endKod: Tümünü seç
Sybase için
call SPI_URUN_GIRIS(newrows.URUN_NO, newrows.GIRIS_MIKTARI);
Interbase için
execute procedure SPI_URUN_GIRIS NEW.URUN_NO, NEW.GIRIS_MIKTARI;Kod: Tümünü seç
Sybase için
Create trigger tD_URUN_GIRIS after delete on DBA.URUN_GIRIS
referencing old as oldrows
for each row
begin
call SPD_URUN_GIRIS(oldrows.URUN_NO,oldrows.GIRIS_MIKTARI)
end
Interbase için
CREATE TRIGGER TD_URUN_GIRIS FOR URUN_GIRIS AFTER DELETE POSITION 0 AS
BEGIN
execute procedure SPD_URUN_GIRIS OLD.URUN_NO, OLD.GIRIS_MIKTARI;
ENDKod: Tümünü seç
insert into URUN(URUN_NO,URUN_ADI) values (1,'Defter');
insert into URUN(URUN_NO,URUN_ADI) values (2,'Kalem');
insert into URUN(URUN_NO,URUN_ADI) values (3,'Silgi');Kod: Tümünü seç
insert into URUN_GIRIS(URUN_NO,GIRIS_MIKTARI) values (1,10);
insert into URUN_GIRIS(URUN_NO,GIRIS_MIKTARI) values (2,20);
insert into URUN_GIRIS(URUN_NO,GIRIS_MIKTARI) values (3,25);Kod: Tümünü seç
Delete from URUN_GIRIS where URUN_NO=3;Şimdi gelelim en çok hoşuma giden noktaya. Aslında iki tane stored procedure yazmak yerine bu procedureler içindeki kodları doğrudan trigger içinde yazabilirdik. Aslında doğru. Fakat iş update triggerına gelince iş biraz değişiyor. Kişi hem URUN_NO alanını update etmiş olabilir hem de GIRIS_MIKTARI alanını, dolayısıyla yapılan update ile ilgili bu en basit örneğimizde bile bir takım kontroller yapmak durumunda kalacağız. Sonuçta çalışan bir kodu yazmak belki çok da zor olmayabilir ama. Projenin daha komplike olduğunu ve de benim bir çok projemde olduğu gibi insert triggerından çağırılan procedure’un onlarca satırdan oluşabildiğini ve farklı farklı bir çok tabloya bilgi güncelleyebildiğini düşünürseniz. O zaman iş update triggerını hatasız yazmaya gelince çok zor olurdu eğer bu kodları procedure içinde değil de doğrudan trigger içinde yazsaydık.
Bu durumda yaptığımız ise aynen şudur. Update triggerı içinden update işlemini bir silme ve bir insert işleminin birleşimi gibi düşünüp update edilmeden önceki değerler ya da silinen değerler ile SPD ile başlayan yani delete triggerından çalıştırdığımız procedure’u, onun arkasından da yeni değerler ile yani insert edildiğini varsaydığımız değerler ile de SPI ile başlayan yani insert triggerından çağırılan procedure’u çağırmamız yeterli olacaktır. URUN_GIRIS tablosunun update triggerının sonuna eklenmesi gerekli kod şu şekildedir.
Kod: Tümünü seç
Sybase için
call SPD_URUN_GIRIS(oldrows.URUN_NO,oldrows.GIRIS_MIKTARI);
call SPI_URUN_GIRIS(newrows.URUN_NO, newrows.GIRIS_MIKTARI);
Interbase için
execute procedure SPD_URUN_GIRIS OLD.URUN_NO, OLD.GIRIS_MIKTARI;
execute procedure SPI_URUN_GIRIS NEW.URUN_NO, NEW.GIRIS_MIKTARI;Yeri gelmişken burada nemli bir noktaya değinelim. Örneğin:
Kod: Tümünü seç
update URUN_GIRISI set GIRIS_MIKTARI=GIRIS_MIKTARI+5;Benzer şekilde URUN_SATIS tablosunun triggerlarından çağırılmak üzere stored procedureleri ve triggerları yazalım.
Kod: Tümünü seç
Sybase için
create procedure dba.SPI_URUN_SATIS(@URUN_NO integer,@SATIS_MIKTARI integer)
as
begin
declare @DLR_KAYIT_SAYISI integer
select @DLR_KAYIT_SAYISI = count(*) from dba.URUN_STOK where URUN_NO = @URUN_NO
if @DLR_KAYIT_SAYISI = 0
insert into dba.URUN_STOK(URUN_NO,STOK_MIKTARI) values(@URUN_NO,0)
update dba.URUN_STOK set
STOK_MIKTARI = STOK_MIKTARI-@SATIS_MIKTARI where
URUN_NO = @URUN_NO
end
create procedure dba.SPD_URUN_SATIS(@URUN_NO integer, @SATIS_MIKTARI integer)
as
begin
update dba.URUN_STOK set
STOK_MIKTARI = STOK_MIKTARI+@SATIS_MIKTARI where
URUN_NO = @URUN_NO
delete from dba.URUN_STOK where
URUN_NO = @URUN_NO and STOK_MIKTARI = 0
end
Interbase için
CREATE PROCEDURE SPI_URUN_SATIS ( URUN_NO INTEGER, SATIS_MIKTARI INTEGER) AS
DECLARE VARIABLE DLR_KAYIT_SAYISI integer;
begin
select count(*)
from URUN_STOK where URUN_NO = :URUN_NO
INTO DLR_KAYIT_SAYISI;
if (DLR_KAYIT_SAYISI=0) then
insert into URUN_STOK(URUN_NO,STOK_MIKTARI) values(:URUN_NO,0);
update URUN_STOK set
STOK_MIKTARI = STOK_MIKTARI-:SATIS_MIKTARI where
URUN_NO = :URUN_NO;
End
CREATE PROCEDURE SPD_URUN_SATIS ( URUN_NO INTEGER, SATIS_MIKTARI INTEGER) AS
begin
update URUN_STOK set
STOK_MIKTARI = STOK_MIKTARI+:SATIS_MIKTARI where
URUN_NO = :URUN_NO;
delete from URUN_STOK
where URUN_NO=:URUN_NO and STOK_MIKTARI=0;
endKod: Tümünü seç
call SPI_URUN_SATIS(newrows.URUN_NO,newrows.SATIS_MIKTARI)Kod: Tümünü seç
create trigger tD_URUN_SATIS after delete on DBA.URUN_SATIS
referencing old as oldrows
for each row
begin
call SPD_URUN_SATIS(oldrows.URUN_NO,oldrows.SATIS_MIKTARI);
end;Sybase URUN_SATIS tablosunun update triggerı sonuna eklenecek kod:
Kod: Tümünü seç
call SPD_URUN_SATIS(oldrows.URUN_NO,oldrows.SATIS_MIKTARI);
call SPI_URUN_SATIS(newrows.URUN_NO,newrows.SATIS_MIKTARI)Kod: Tümünü seç
execute procedure SPI_URUN_SATIS NEW.URUN_NO, NEW.SATIS_MIKTARI;Kod: Tümünü seç
CREATE TRIGGER TD_URUN_SATIS FOR URUN_SATIS AFTER DELETE POSITION 0 AS
BEGIN
execute procedure SPD_URUN_SATIS OLD.URUN_NO, OLD.SATIS_MIKTARI;
ENDKod: Tümünü seç
execute procedure SPD_URUN_SATIS OLD.URUN_NO, OLD.SATIS_MIKTARI;
execute procedure SPI_URUN_SATIS NEW.URUN_NO, NEW.SATIS_MIKTARI;Stored Procedure ile rapor hazırlamaya da bir örnek verecek olursak. İstenilen bir tarih aralığında stok hareketlerini listeleyecek bir raporu bu yapıdan alabilmek için şöyle bir stored procedure hazırlamalıyız.
Kod: Tümünü seç
Sybase için
create procedure dba.SP_TARIH_ARALIGINDA_STOK_HAREKETLERI(@BASLANGIC_TARIHI date,@BITIS_TARIHI date)
as
begin
select TARIH=UG.GIRIS_ZAMANI,U.URUN_ADI,HAREKET_TIPI='GIRIS',MIKTAR=UG.GIRIS_MIKTARI from
URUN_GIRIS as UG,URUN as U where
UG.URUN_NO = U.URUN_NO and convert(date,UG.GIRIS_ZAMANI) between @BASLANGIC_TARIHI and @BITIS_TARIHI union
select TARIH=US.SATIS_ZAMANI,U.URUN_ADI,HAREKET_TIPI='SATIS',MIKTAR=US.SATIS_MIKTARI from
URUN_SATIS as US,URUN as U where
US.URUN_NO = U.URUN_NO and convert(date,US.SATIS_ZAMANI) between @BASLANGIC_TARIHI and @BITIS_TARIHI order by
1 asc,2 asc
end
Interbase için
CREATE PROCEDURE SP_STOK_HAREKETLERI ( BASLANGIC_TARIHI DATE, BITIS_TARIHI DATE) RETURNS ( TARIH DATE, URUN_ADI CHAR(40), HAREKET_TIPI CHAR(5), MIKTAR INTEGER) AS
begin
for
select UG.GIRIS_ZAMANI,U.URUN_ADI,'GIRIS',UG.GIRIS_MIKTARI from
URUN_GIRIS UG,URUN U where
UG.URUN_NO = U.URUN_NO and cast(UG.GIRIS_ZAMANI as date) between :BASLANGIC_TARIHI and :BITIS_TARIHI union
select US.SATIS_ZAMANI,U.URUN_ADI,'SATIS',US.SATIS_MIKTARI from
URUN_SATIS US,URUN U where
US.URUN_NO = U.URUN_NO and cast(US.SATIS_ZAMANI as date) between :BASLANGIC_TARIHI and :BITIS_TARIHI order by
1 asc,2 asc
INTO :TARIH, :URUN_ADI, :HAREKET_TIPI,:MIKTAR
DO
SUSPEND;
endKod: Tümünü seç
Sybase için
CALL DBA.SP_TARIH_ARALIGINDA_STOK_HAREKETLERI('2003.01.01' , '2003.12.31' )
Interbase için
select * from SP_STOK_HAREKETLERI ('2003.01.01','2003.12.31')Kod: Tümünü seç
Sybase için
DBA.SP_TARIH_ARALIGINDA_STOK_HAREKETLERI :BASLANGIC_TARIHI, :BITIS_TARIHI
Interbase için
select * from SP_STOK_HAREKETLERI (:BASLANGIC_TARIHI, :BITIS_TARIHI)Özetle şunu söylemek isterim ki bu tarz veritabanı tarafında olup biten hadiselerin mutlaka ama mutlaka örnekteki yöntemlerle yapılmasını öneririm. Bu şekilde yazacağınız bir stok takip ve cari takip programının stok değerlerinde ve cari değerlerinde data girişi sonucunda hata oluşma ihtimali sıfırdır. Bütün bu işlemlerin Delphi tarafında yapılması da mümkün olmakla birlikte daha fazla kod daha fazla kontrol gerektirmekte ve risk taşımaktadır. Şöyle ki bir gün tablolarınıza sizin program dışında bilgi girişi yapacak bir başka arabirim ortaya çıktığında mesela SQL Explorer’dan elle bilgi girmeniz söz konusu olduğunda stok miktarları veya cari hesaplar gelişmelerden habersiz beklemekle yetineceklerdir. Oysa bu işlemlerin veritabanı tarafında yapılması sayesinde triggerları tetiklemeyecek bir bilgi girişi olamayacağı için siz programını içinde farklı ekranlarda farklı şeyler yaparken cari hesapları tamamen unutabilirsiniz. Oraları da etkileyecek kodlar yazmakta olup olmadığınızı düşünmenize gerek yok.
Egzersiz Tavsiyesi: Bu örnekte URUN_STOK tablosundaki STOK_MIKTARI alanı girişlerle arttırılıp çıkışlarla da azaltılarak stok miktarı takip edilmiştir. Fakat seminerde yapılan örnekte girişler TOPLAM_GIRIS isimli bir alana eklenip çıkışlar da TOPLAM_CIKIS isimli bir başka alana eklenerek ve aradaki farktan hareketle de stok miktarı bilgisinin üretilmesi daha uygun bir yöntemdir. Böylece anlık olarak toplam giriş ve toplam çıkış miktarları da takip edilebilmektedir. Bu örnek üzerinde çalışma yapan arkadaşlar bu örneği bu şekilde bir yapıya dönüştürecek bir çalışmayı gerçekleştirebilirler.
Sybase Adaptive Server Anywhere için tabloların, indekslerin ve referential integrity’yi sağlayacak şekilde trigger’lari oluşturacak kod:
Kod: Tümünü seç
CREATE TABLE URUN (
URUN_NO INTEGER NOT NULL,
URUN_ADI VARCHAR(40) NOT NULL,
PRIMARY KEY (URUN_NO) );
CREATE UNIQUE INDEX XPKURUN ON URUN( URUN_NO ASC);
CREATE TABLE URUN_SATIS (
URUN_NO INTEGER NOT NULL,
SATIS_ZAMANI DATETIME NOT NULL DEFAULT CURRENT TIMESTAMP,
SATIS_MIKTARI INTEGER NOT NULL,
PRIMARY KEY (URUN_NO, SATIS_ZAMANI));
CREATE UNIQUE INDEX XPKURUN_SATIS ON URUN_SATIS
( URUN_NO ASC, SATIS_ZAMANI ASC);
CREATE INDEX XIF1192URUN_SATIS ON URUN_SATIS( URUN_NO ASC);
CREATE TABLE URUN_GIRIS (
URUN_NO INTEGER NOT NULL,
GIRIS_ZAMANI DATETIME NOT NULL DEFAULT CURRENT TIMESTAMP,
GIRIS_MIKTARI INTEGER NOT NULL,
PRIMARY KEY (URUN_NO, GIRIS_ZAMANI) );
CREATE UNIQUE INDEX XPKURUN_GIRIS ON URUN_GIRIS
( URUN_NO ASC, GIRIS_ZAMANI ASC);
CREATE INDEX XIF1191URUN_GIRIS ON URUN_GIRIS( URUN_NO ASC);
CREATE TABLE URUN_STOK (
URUN_NO INTEGER NOT NULL,
STOK_MIKTARI INTEGER NOT NULL DEFAULT 0,
PRIMARY KEY (URUN_NO));
CREATE UNIQUE INDEX XPKURUN_STOK ON URUN_STOK(URUN_NO ASC);
create trigger tD_URUN after DELETE on URUN
referencing old as oldrows
for each row
begin
declare numrows INTEGER;
declare parent_delrstrct_err EXCEPTION FOR SQLSTATE VALUE 'Parent Delete Restrict';
declare child_delrstrct_err EXCEPTION FOR SQLSTATE VALUE 'Child Delete Restrict';
select count(*) into numrows
from URUN_SATIS
where URUN_SATIS.URUN_NO = oldrows.URUN_NO;
if (numrows > 0) then
signal parent_delrstrct_err
end if;
select count(*) into numrows
from URUN_GIRIS
where URUN_GIRIS.URUN_NO = oldrows.URUN_NO;
if (numrows > 0) then
signal parent_delrstrct_err
end if;
end;
create trigger tU_URUN after UPDATE on URUN
referencing old as oldrows new as newrows
for each row
begin
declare numrows INTEGER;
declare parent_updrstrct_err EXCEPTION FOR SQLSTATE VALUE 'Parent Update Restrict';
declare child_updrstrct_err EXCEPTION FOR SQLSTATE VALUE 'Child Update Restrict';
if oldrows.URUN_NO <> newrows.URUN_NO then
update URUN_SATIS
set URUN_SATIS.URUN_NO = newrows.URUN_NO
where URUN_SATIS.URUN_NO = oldrows.URUN_NO;
end if;
if oldrows.URUN_NO <> newrows.URUN_NO then
update URUN_GIRIS
set URUN_GIRIS.URUN_NO = newrows.URUN_NO
where URUN_GIRIS.URUN_NO = oldrows.URUN_NO;
end if;
end;
create trigger tI_URUN_SATIS after INSERT on URUN_SATIS
referencing new as newrows
for each row
begin
declare numrows INTEGER;
declare parent_insrstrct_err EXCEPTION FOR SQLSTATE VALUE 'Parent Insert Restrict';
declare child_insrstrct_err EXCEPTION FOR SQLSTATE VALUE 'Child Insert Restrict';
select count(*) into numrows
from URUN
where newrows.URUN_NO = URUN.URUN_NO;
if (numrows = 0) then
signal child_insrstrct_err
end if;
end;
create trigger tU_URUN_SATIS after UPDATE on URUN_SATIS
referencing old as oldrows new as newrows
for each row
begin
declare numrows INTEGER;
declare parent_updrstrct_err EXCEPTION FOR SQLSTATE VALUE 'Parent Update Restrict';
declare child_updrstrct_err EXCEPTION FOR SQLSTATE VALUE 'Child Update Restrict';
if oldrows.URUN_NO <> newrows.URUN_NO then
select count(*) into numrows
from URUN
where newrows.URUN_NO = URUN.URUN_NO;
if (numrows = 0 ) then
signal child_updrstrct_err
end if;
end if;
end;
create trigger tI_URUN_GIRIS after INSERT on URUN_GIRIS
referencing new as newrows
for each row
begin
declare numrows INTEGER;
declare parent_insrstrct_err EXCEPTION FOR SQLSTATE VALUE 'Parent Insert Restrict';
declare child_insrstrct_err EXCEPTION FOR SQLSTATE VALUE 'Child Insert Restrict';
select count(*) into numrows
from URUN
where newrows.URUN_NO = URUN.URUN_NO;
if (numrows = 0 ) then
signal child_insrstrct_err
end if;
end;
create trigger tU_URUN_GIRIS after UPDATE on URUN_GIRIS
referencing old as oldrows new as newrows
for each row
begin
declare numrows INTEGER;
declare parent_updrstrct_err EXCEPTION FOR SQLSTATE VALUE 'Parent Update Restrict';
declare child_updrstrct_err EXCEPTION FOR SQLSTATE VALUE 'Child Update Restrict';
if oldrows.URUN_NO <> newrows.URUN_NO then
select count(*) into numrows
from URUN
where newrows.URUN_NO = URUN.URUN_NO;
if (numrows = 0 ) then
signal child_updrstrct_err
end if;
end if;
end;Kod: Tümünü seç
CREATE TABLE URUN (
URUN_NO INTEGER NOT NULL,
URUN_ADI VARCHAR(40) NOT NULL,
PRIMARY KEY (URUN_NO));
CREATE UNIQUE INDEX XPKURUN ON URUN( URUN_NO);
CREATE TABLE URUN_GIRIS (
URUN_NO INTEGER NOT NULL,
GIRIS_ZAMANI DATE DEFAULT 'now' NOT NULL,
GIRIS_MIKTARI INTEGER NOT NULL,
PRIMARY KEY (URUN_NO, GIRIS_ZAMANI));
CREATE UNIQUE INDEX XPKURUN_GIRIS ON URUN_GIRIS
( URUN_NO, GIRIS_ZAMANI);
CREATE INDEX XIF803URUN_GIRIS ON URUN_GIRIS( URUN_NO);
CREATE TABLE URUN_SATIS (
URUN_NO INTEGER NOT NULL,
SATIS_ZAMANI DATE DEFAULT 'now' NOT NULL,
SATIS_MIKTARI INTEGER NOT NULL,
PRIMARY KEY (URUN_NO, SATIS_ZAMANI));
CREATE UNIQUE INDEX XPKURUN_SATIS ON URUN_SATIS
( URUN_NO, SATIS_ZAMANI);
CREATE INDEX XIF804URUN_SATIS ON URUN_SATIS( URUN_NO);
CREATE TABLE URUN_STOK (
URUN_NO INTEGER NOT NULL,
STOK_MIKTARI INTEGER DEFAULT 0 NOT NULL,
PRIMARY KEY (URUN_NO));
CREATE UNIQUE INDEX XPKURUN_STOK ON URUN_STOK( URUN_NO);
CREATE EXCEPTION ERWIN_PARENT_INSERT_RESTRICT 'Cannot INSERT Parent table because Child table exists.';
CREATE EXCEPTION ERWIN_PARENT_UPDATE_RESTRICT 'Cannot UPDATE Parent table because Child table exists.';
CREATE EXCEPTION ERWIN_PARENT_DELETE_RESTRICT 'Cannot DELETE Parent table because Child table exists.';
CREATE EXCEPTION ERWIN_CHILD_INSERT_RESTRICT 'Cannot INSERT Child table because Parent table does not exist.';
CREATE EXCEPTION ERWIN_CHILD_UPDATE_RESTRICT 'Cannot UPDATE Child table because Parent table does not exist.';
CREATE EXCEPTION ERWIN_CHILD_DELETE_RESTRICT 'Cannot DELETE Child table because Parent table does not exist.';
CREATE TRIGGER tD_URUN FOR URUN AFTER DELETE AS
DECLARE VARIABLE numrows INTEGER;
BEGIN
select count(*)
from URUN_SATIS
where URUN_SATIS.URUN_NO = OLD.URUN_NO into numrows;
IF (numrows > 0) THEN
BEGIN
EXCEPTION ERWIN_PARENT_DELETE_RESTRICT;
END
select count(*)
from URUN_GIRIS
where
URUN_GIRIS.URUN_NO = OLD.URUN_NO into numrows;
IF (numrows > 0) THEN
BEGIN
EXCEPTION ERWIN_PARENT_DELETE_RESTRICT;
END
END !!
CREATE TRIGGER tU_URUN FOR URUN AFTER UPDATE AS
DECLARE VARIABLE numrows INTEGER;
BEGIN
IF (OLD.URUN_NO <> NEW.URUN_NO) THEN
BEGIN
update URUN_SATIS
set URUN_SATIS.URUN_NO = NEW.URUN_NO
where URUN_SATIS.URUN_NO = OLD.URUN_NO;
END
IF (OLD.URUN_NO <> NEW.URUN_NO) THEN
BEGIN
update URUN_GIRIS
set URUN_GIRIS.URUN_NO = NEW.URUN_NO
where URUN_GIRIS.URUN_NO = OLD.URUN_NO;
END
END !!
CREATE TRIGGER tI_URUN_GIRIS FOR URUN_GIRIS AFTER INSERT AS
DECLARE VARIABLE numrows INTEGER;
BEGIN
select count(*)
from URUN
where NEW.URUN_NO = URUN.URUN_NO into numrows;
IF ( numrows = 0 ) THEN
BEGIN
EXCEPTION ERWIN_CHILD_INSERT_RESTRICT;
END
END !!
CREATE TRIGGER tU_URUN_GIRIS FOR URUN_GIRIS AFTER UPDATE AS
DECLARE VARIABLE numrows INTEGER;
BEGIN
select count(*)
from URUN
where NEW.URUN_NO = URUN.URUN_NO into numrows;
IF ( numrows = 0 ) THEN
BEGIN
EXCEPTION ERWIN_CHILD_UPDATE_RESTRICT;
END
END !!
CREATE TRIGGER tI_URUN_SATIS FOR URUN_SATIS AFTER INSERT AS
DECLARE VARIABLE numrows INTEGER;
BEGIN
select count(*)
from URUN
where NEW.URUN_NO = URUN.URUN_NO into numrows;
IF ( numrows = 0 ) THEN
BEGIN
EXCEPTION ERWIN_CHILD_INSERT_RESTRICT;
END
END !!
CREATE TRIGGER tU_URUN_SATIS FOR URUN_SATIS AFTER UPDATE AS
DECLARE VARIABLE numrows INTEGER;
BEGIN
select count(*)
from URUN
where NEW.URUN_NO = URUN.URUN_NO into numrows;
IF ( numrows = 0 ) THEN
BEGIN
EXCEPTION ERWIN_CHILD_UPDATE_RESTRICT;
END
END !!
