paradox queryfieldnamechange deki mysqlqueryfilednamechange olayı

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

paradox queryfieldnamechange deki mysqlqueryfilednamechange olayı

Mesaj gönderen jakarta2 »

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: 4740
Kayıt: 09 Ara 2003 08:13
Konum: İstanbul
İletişim:

Re: paradox queryfieldnamechange deki mysqlqueryfilednamechange olayı

Mesaj gönderen mrmarman »

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 ....Resim
yusuf simsek
Üye
Mesajlar: 330
Kayıt: 09 Mar 2004 11:18
Konum: Konya
İletişim:

Re: paradox queryfieldnamechange deki mysqlqueryfilednamechange olayı

Mesaj gönderen yusuf simsek »

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