onexit olayına procedure işletiyorum dbedite yazamıyorum

[AliErdem]

Kod: Tümünü seç

procedure TForm1.toplam;
var
ebat1,ebat2,adet,toplam:real;
begin
ebat1:=strtofloat(dbedit3.Text)/100;
ebat2:=strtofloat(dbedit4.Text)/100;
adet:=strtofloat(dbedit5.Text);
toplam:=ebat1*ebat2*adet;
dbedit6.Text:=floattostrf(toplam,ffgeneral,6,2);
end;

Kod: Tümünü seç

procedure TForm1.DBEdit5Exit(Sender: TObject);
begin
toplam;
end;

dbedit5 in onexit olayında toplam procedure çalıştırıyorum ama dbedit6 ya yazmıyor

dbedit6'ya tab ile geçilmiyor yani enabled:=false; ama oraya yazdırmak istiyorum . teşekkürler

[mrmarman]

DBEdit6'ya yazmak yerine, DBEdit6'nın bağlı olduğu tabloyu edit edip ilgili alana yazın ve post edin. Otomatik belirir.

[AliErdem]

teşekkür ediyorum son hali

Kod: Tümünü seç

procedure TForm1.toplam;
var
ebat1,ebat2,adet,toplam:real;
sonuc:string;
begin
ebat1:=strtofloat(dbedit3.Text)/100;
ebat2:=strtofloat(dbedit4.Text)/100;
adet:=strtofloat(dbedit5.Text);
toplam:=ebat1*ebat2*adet;
sonuc:=floattostrf(toplam,ffgeneral,6,2);
IBDataSet1.FieldByName('toplam').AsString:=sonuc;

end;

belki birinin işine yarar klay gele.