grid üzerinde gezinti

[ZeynelAbidin]

Arkadaşlar grid üzerinde gezinti yaparken panel üzerinde buluna normal editlerde o an konumlu olduğum kaydın bilgilerinin görünmesini istiyorum.Afterscroluna gerekli kodu yazıyorum ancak query açılıp kapanırken defalarca scroll olduğu için benim yazdığpım kodu defalarca işletiyor.Acaba bu yapmak istediğim işlemi nerede yapmam lazım.
Kullandığım ib komponentleri ve firebird veritabanı.Gerçi unidac komponentleriylede aynı sonucu veriyor.
Yardımlarınızı bekliyorum.

[mkysoft]

scroll içine bir if yapısı ile kontrol koymalısınız. data nesnesinin state'İ browse ise editlere veri atsın sadece.

[ZeynelAbidin]

Kod: Tümünü seç

 if qr_firma.State= dsbrowse then firma_form.data_to_edit;

eğer söylediğiniz buysa yine aynı sonuçla karşılaşıyorum.Defalarca scroll oluyor.

[sadettinpolat]

insert islemlerine baslmadan once
dataset.AfterScrol := nil diyerek baglantiyi kopartin.
insert ile kaydi ekleyin
post komutu ile kaydedin
dataset.afterscrol :=myAfterScrolEvent olarak baglantiyi yeniden saglayin.

[csunguray]

Bunun nedeni grid verilerle dolduruluyorken tüm kayıtların okunuyor olması. Bunun için Query i açarken şöyle bir teknik izleyebilirsiniz.

Kod: Tümünü seç

procedure TForm1.KapatAc;
begin
  Query1.AfterScroll := nil;
  Query1.Close
  Query1.Open;
  Query1.AfterScroll := QueryAfterScroll;
  QueryAfterScroll(Query);
end;

procedure TForm1.QueryAfterScroll(DataSet: TDataSet);
begin
  Falan filan
  Falan filan
end;

[freeman35]

Gridin datasource bağlı dbEdit yada dbLabel neden kullanmıyorsun ?
Kolay gele

[ZeynelAbidin]

On scroll olayında da form ilk aktif olduğunda üzerinde bulunan kaydı görüntülemek istersek konumlu olduğumuz kaydı değştirmek gerekiyor.Birden fazla datanın olduğu tablolarda bir sıkıntı çıkmıyor.Ancak 1 kayıtlı bir tablomuz olduğunda ilk kaydı editlere aktaramıyoruz.
db komponentlere gelince ben onları kullanmayı sevmiyorum.
Ben bu olayı şöyle çzödüm.gridin keyup ve mouseup olaylarında
eğer konumlu olduğum kayıt ile gösterimde olduğum kayıt farklıysa datalarıeditlere aktar olayını yaptım ve çok güzel bir şekilde çalışıyor.
Ayrıca ilginiz için teşekkür ederim.

[freeman35]

ozaman Table ın PrimaryKey sine bir dbEdit bağla bununun visible nı False yap, dbEdit in onChange eventinede istediğin kodu yaz.Sadece PrimaryKey değiştiğinde bir kez çalışır.
Kolay gele