Sonucu aktif görmek

[loxka]

Kod: Tümünü seç

procedure TForm3.Table2AfterOpen(DataSet: TDataSet);
var
topla:real;
begin
Table2.first;
topla:=0;
while not table2.eof do
begin
topla:=topla +Table2tutar.AsFloat ;
Table2.next;
DBedit6.Text:=floattostr(topla);

end;

formu açtığımda DBEdit6 da sonucu göremiyorum, yardımcı olursanız sevinirim, Teşekkür ederim.

[hbahadir]

TDBEdit bileşeni yerine TEdit bileşenini kullan. Yada DBEdit6 ' nın bağlı olduğu veri tabanı alanına değerini kayıt edersen otomatik olarak gösterecektir.

[loxka]

Tedit bileşenine yazdırsam DB edit ile nasıl bağlantı kuracağım, Veri tabanı alanına bu derleme ile nasıl yapacağım

[selman]

sen sadece Tedite yazdırdığın zaman kaydetmi veya hangi tuşunu kullanmak istiyorsanda
table2.edit;
table2tutar.asstring:=edit1.text;
table2.post;
şeklinde
edite girdiğin bilgiyide db ye kaydetmiş olursun Kolay gelsin

[selimr]

biraz karıştırdın galiba..

zaten toplam tutarı, alan değerini topla değişkenine aktararak elde etmişsin..

sadece o değeri tedit bileşenine aktaracaksın okadar..

----

[loxka]

Tamam tedit bileşenine aktardım ama benim istediğim bunu DBEdit6 yada aktarmak ve kaydetmek

[selman]

selam
o zaman tutat diye dbn bir alanın olsun
dbeditini ayarlar datasource ve datafieldini
sonra
dbedit6.text:=edit1.text;
şeklinde aktarabilirsin...............

[ofenX]

Merhaba,

TDBEdit bileşeni yerine TEdit bileşenini kullan. Yada DBEdit6 ' nın bağlı olduğu veri tabanı alanına değerini kayıt edersen otomatik olarak gösterecektir.

Arkadaşımızın demek istediği:
Mesela şu an ibdataset1 i ,dbedit6 yı kullandığınızı farzedelim.
vt nizde TUTAR diye bir alan olduğunu ve bunu dbedit6 ya bağladığınızı farzedelim.

Kod: Tümünü seç

ibdataset1.fieldbyname('TUTAR').AsInteger:=topla;

şeklinde kullanın demek istemiş.

Kolay gelsin.