ib table ile alakalı ufak bir sorun

[true_false]

merhablar sorum şudur

modal result olmayan bir formum var datamodulumde sadece ib databesim bulunuyor
ikinci formda ib transection,ibtable,datasource var
şu kodları yazıyom

Kod: Tümünü seç

procedure Tariza_kayit.FormCreate(Sender: TObject);
        begin
        IBTransaction1.StartTransaction;
        IBTable1.Open ;
        IBTable1.Append;
        end;

procedure Tariza_kayit.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if IBTable1.Modified and (MessageDlg('değişiklikler kaybedeceksin kaydetmek istiyormusunuz',mtInformation,[mbYes,mbNo],0 ) = mryes)  then
         begin
           IBTransaction1.RollbackRetaining;
           IBTable1.Close;
         end;
end;

değişiklik yapıp yes butonuna bastığımda tekrar forma döndüğüm zaman db gridim açılmıya yani ibtable open olmuyo

not=şimdiden vermiş olduğunuz cevaplar için teşekkür ederim

[aslangeri]

S.A.
eğer gridin arızakayıt formundaki ibtable ye bağlı ise yes dediğin zaman onu kapatmışsın. o yüzden kapalı geliyordur.
birde vatandaşa kaydetmek isteyip istemediğini sormuşsun.evet deyincede kaydettirmemişsin.?
ne yapmak istiyorsun ?

[true_false]

sorun odeil
formu açtığım zaman table open ediyom kapattığım zaman ise
close luyom tekrar formu çağırdığımda ilk yaptığım işlemler gerçekleşmiyor yani table open olmuyor
bilmem anblatabildimmi


not bu benim kapsamlı olarak yaptığım ilk veri tabanı destekli delphi uygulaması olacak komik şeyler yazdığım zaman lütfen cahilliğime verin formun amacı herhalde bilgi paylaşmak!! değerli vaktinizi bana ayırdığınız için teşekkür ederim

[aslangeri]

haaa bak şimdi oldu.
sorunu başta şöle yazsana.

Kod: Tümünü seç

procedure Tariza_kayit.FormCreate(Sender: TObject); 
        begin 
        IBTransaction1.StartTransaction; 
        IBTable1.Open ; 
        IBTable1.Append; 
        end; 

bu procedurde yazanları
formun onshowuna taşı.
burda sen işlemleri formun createsinde yapıyorsun oda 1 kere gerçekleşiyor. formun onshow una yazarsan formu her çağırdığında ibtable open olur.
Kolay gelsin.

[true_false]

teşekkürler
yalnız daha sonra bayabi çene sarfediceğim