! CODEBANK 2012 !
İNDİRMEK&DETAYLI BİLGİ ALMAK İÇİN BURAYI TIKLAYINIZ.
ÖNEMLİ AÇIKLAMA: MUTLAKA OKUYUNUZ!
0 Üye ve 1 Ziyaretçi konuyu incelemekte.
procedure TForm1.IBQuery1AfterPost(DataSet: TDataSet);beginif (DataSet is TIBQuery) thenBeginTIBQuery(DataSet).ApplyUpdates();TIBQuery(DataSet).Transaction.CommitRetaining;Endelseif (DataSet is TIBTable) thenTIBTable(DataSet).Transaction.CommitRetainingelseif (DataSet is TIBDataSet) thenTIBDataSet(DataSet).Transaction.CommitRetaining;end;