adoquery after scroll

[ademcicek]

aşağıdaki kodları query after scroll olayına yazıyorum. yapacağı işi tam olarak yazıyor. yaptığı iş bir tablodaki birim fiyatlar girildikçe veya değişiklik yapıldığında en düşük fiyat veren firmayı ve malzmeleri vermiş olduğu toplam parayı hesaplıyor.

sorun şurada çıkıyor. after scroll la yazdığım için kayıt eklerken ve açıp kapatırken çok yavaşlıyor. 4 dakika beklediğim oluyor 100 kayıt girerken(döngüyle ekletiyorum). ben bu kodları hangi olaya yazdığımda refresh sorunu yaşamadan ve program yavaşlamadan çalıştırabilirim.

kapalı olan kodlar ise denemelerim.
kolay gelsin.


// ADOQuery_Piyasa_Fiyat_Arastirmasi.AfterScroll := nil;
ADOQuery_GenelSorgu.Close;
ADOQuery_GenelSorgu.SQL.Clear;
ADOQuery_GenelSorgu.SQL.Text := 'select firma_adi,sum(Tutar) from Piyasa_Fiyat_Arastirmasi where id=:id group by firma_Adi order by sum(Tutar)';
ADOQuery_GenelSorgu.Parameters.ParamByName('id').Value := ADOQuery_Ihaleid.AsInteger;
ADOQuery_GenelSorgu.Open;

ADOQuery_Fiyat_Arastirmasi_Detay.DisableControls;
ADOQuery_Fiyat_Arastirmasi_Detay.Edit;
// FMin_Uygun_Firma;
ADOQuery_Fiyat_Arastirmasi_DetayUygun_Firma.AsString :=
ADOQuery_GenelSorgu.Fields[0].AsString;
// FMin_Yaklasik_Maliyet;
ADOQuery_Fiyat_Arastirmasi_DetayProforma_Fiyat.AsCurrency :=
ADOQuery_GenelSorgu.Fields[1].AsCurrency;
ADOQuery_Fiyat_Arastirmasi_Detay.Post;
ADOQuery_Fiyat_Arastirmasi_Detay.EnableControls;

// ADOQuery_Piyasa_Fiyat_Arastirmasi.AfterScroll := ADOQuery_Piyasa_Fiyat_Arastirmasi.AfterScroll;
// ADOQuery_Fiyat_Arastirmasi_Detay.Requery();

[akgun83]

Merhaba,
yanılmıyorsam afterscroll olayı kayıtlar arasında dolaşırkende tetikleniyor. AfterPost'a yazmayı deneyin. Böylece sadece kayıt eklendiğinde veya değiştirildiğinde çalışmış olur.

Kolay gelsin.

[ademcicek]

teşekür ederim afterposta yazınca sorun kalmadı.
kolay gelsin