ibquery ile iki tabloya kayıt

[desertstorm]

merhaba arkadaslar.. bu konu daha once acildimi bilmiyorum biraz inceledim ama formda goremedim..eger acilmissa kusura bakamyin... soruma gecmek istiyorum
simdi ben firebird ve ibexpert kullanarak 2 tablo olusturdum. 1. tablom da isimler 2. tablomda telefon nuramları kayıt edilecek
TBLKIMLIK TBLTELEFON
-id -id
-ad -kimlikid
-soyad -telno

IBQuery1.Close;
IBQuery1.SQL.Clear;
IBQuery1.SQL.Add('INSERT INTO TBLKIMLIK(TCKIMLIK,AD,SOYAD) values ('''+edit1.Text+''','''+edit2.Text+''','''+edit3.T ext+''')');
IBQuery1.Open;

IBQuery2.Close;
IBQuery2.SQL.Clear;
IBQuery2.SQL.Add('INSERT INTO TBLTELEFON(TELNO) values ('''+edit4.Text+''')');
IBQuery2.Open;

iki tabloya bilgileri girdim bu sekilde ama ikinci tablonun KIMLIKID alanına 1.tablodaki idi yazdıramadım bunu dataset kullanırken datasetin before postuna ibdataset2.fieldbyname('KIMLIKID').value:=ibdatase t1.fieldbyname('ID').value; yazıyordum v yapıyordum ama query ile bunu gerceklestiremedim..
yardımlarınızı bekliyorum