firebird te 2 tablodan 1 buttonla veri silme

[kirve]

merhaba arkadaslar

firebirdde 2 tablo olusturdum
1 TBLKIMLIK 2 TBLUNVAN
id id
tckimlik TBLKIMLIK_TCKIMLIK
tckimli
ad unvan

bu tablolara delphide query kullanara ve ınsert ınto komutu ile kayıtları yaptırdım tabloları birbirine gosterdim. kayıtta sorun yok ama silme isine gelince 1. tablodan dbgrindden secmis oldugum ismi hem birinci tabloda hem 2. tabloda silmek istiyorum bunun icin

DataModule2.IBQuery1.Close;
DataModule2.IBQuery1.SQL.Clear;
DataModule2.IBQuery1.SQL.Text:=('DELETE FROM TBLKIMLIK where TCKIMLIK='''+DataModule2.IBDataSet1TCKIMLIK.Value+'''');
DataModule2.IBQuery1.ExecSQL;
DataModule2.IBDataSet1.Close;
DataModule2.IBDataSet1.Open;

DataModule2.IBQuery2.Close;
DataModule2.IBQuery2.SQL.Clear;
DataModule2.IBQuery2.SQL.Text:=('DELETE FROM TBLUNVAN where TCKIMLIK='''+DataModule2.IBDataSet2TCKIMLIK.Value+'''');
DataModule2.IBQuery2.ExecSQL;
DataModule2.IBDataSet2.Close;
DataModule2.IBDataSet2.Open;
DataModule2.IBQuery3.close;
DataModule2.IBQuery3.Open;

butonun clik ozelligine bu komutu yazdim bastigimda 1. tablodaki bilgi siliniyor ama 2 tablodaki bilgi silinmiyor query ile denedim dataset ile denedim bunlar bi cok kere yerlerini deistirdim ama olmadi yardimlarinizi bekliyorum.

[kirve]

sorunumu çözdüm arkadaslar silme işine sondan başladıgımda bu is sorunsuz oluyormus :d
kusura bakmatyın