paradox queryfieldnamechange deki mysqlqueryfilednamechange olayı

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
jakarta2
Üye
Mesajlar: 69
Kayıt: 20 Nis 2015 05:51
İletişim:

paradox queryfieldnamechange deki mysqlqueryfilednamechange olayı

Mesaj gönderen jakarta2 » 07 Kas 2015 04:01

Paradox veritabanı kullanırken tform.queryfilednamechange olayına kod yazabiliyordum. Veritabanımı değiştirdim mysql'e geçtim mydac'ın query'sinde tablodaki filedler görünüyor ama filedname olayları yok. Bunun için ne yapabilirim.

Örneğin;

procedure Tfmteklif.quTeklifHareketleriAdetChange(Sender: TField);
var tutar : integer;
begin
quteklifhareketleri.FieldByName('Tutar').AsFloat := quteklifhareketleri.FieldByName('Adet').AsInteger *
quteklifhareketleri.FieldByName('Birimfiyati').AsFloat;
tutar := strtoint(lbttutar.Caption);
tutar := tutar + quteklifhareketleri.FieldByName('Tutar').AsInteger;
lbttutar.Caption := inttostr(tutar);
grliste.Invalidate;
end;

Yukarıdaki kodu nasıl hayata geçirebilirim?

Kullanıcı avatarı
mrmarman
Üye
Mesajlar: 4731
Kayıt: 09 Ara 2003 08:13
Konum: Ankara
İletişim:

Re: paradox queryfieldnamechange deki mysqlqueryfilednamechange olayı

Mesaj gönderen mrmarman » 07 Kas 2015 07:39

Anlaşılan:
- Tablodaki ADET hanesi değiştiğinde (Muhtemelen GRID üzerinde direkt müdahale ediyorsun ve EDIT mode devam ettiğin halde) otomatik olarak tutarın da değişmesini istiyorsun.

- FireDac FDQuery ve AdoQuery'de istediğin şey var ama bize hangi veritabanı nesnesi kullandığını da yazmalısın ki ona göre bir çözüm sunmaya gayret edelim. Başka özel üçüncü parti birşey mi bilmiyoruz.

- DataSet'in AfterPost olayı işini görmez mi ? Bütün datasetlerde bir şekilde vardır.
Resim Resim

yusuf simsek
Üye
Mesajlar: 310
Kayıt: 09 Mar 2004 11:18
Konum: Konya
İletişim:

Re: paradox queryfieldnamechange deki mysqlqueryfilednamechange olayı

Mesaj gönderen yusuf simsek » 10 Kas 2015 10:17

Tutar alanını CALCULATER olarak tanımlayıp, bağlantı sağladığın Query nesnesinde ONCALCULATOR alanınıa

quteklifhareketleri.FieldByName('Tutar').AsFloat := quteklifhareketleri.FieldByName('Adet').AsInteger * quteklifhareketleri.FieldByName('Birimfiyati').AsFloat;

satırını ekleyerek te çözüme ulaşabilirsin.
Bugün bir kez daha,
Hiç Birşey Bilmediğimi Öğrendim!!!

https://extrayazilim.com

Cevapla