Para miktarını toplma

[akineton]

Arkadaşlar dbEdit 2 ye girilen para miktarını toplayıp form 4de ki dbEdit1 e yazdırmama lazım ve aynı zamanda vt ye kaydecek Veritabanı firebird yardımcı olursanız seviinimr..

[babyboy]

ilk once global bi değişken tanımla. mes: (dbedit2degeri:integer) sonra
Edit2-den gelen değeri, dbedit2degeri değişenine ata

Kod: Tümünü seç

dbedit2degeri :=StrToInt(DBEdit2.Text);

dbedit2degeri adlı değişkeninle istedtidiyini topla,çık ve s.
DBEdit2-ni hangi form-unda kullanıyorsan (mesela: form2), onu Form4-dün Unitinde USES kısmına ekle.

Kod: Tümünü seç

USES
Unit2;

Daha sonra,
Form4-de Buttonun onclickinde

Kod: Tümünü seç

DBEdit1.Text :=IntToStr(dbedit2degeri);

kodunu yaz. FireBird kullanmadığım için bu kısımda sana yardımcı olamıyacağım, üzgünüm.

[akineton]

tşk ederim verdiğiniz cevap için..

[akineton]

yav arkadaşlar biraz kod yazdım ama eksiklikler oldu rica etsem siz yardım edermisinz..

procedure TForm8.BitBtn1Click(Sender: TObject);
Var
toplamborc:Integer;
Form4.IBTable1.FieldyByName=('TOPLAM_BORC');
//Form8deki dbEdit 2ye girilen para miktarını toplayıp
//Form4deki TOPLAM-BORC alanına yazdırlamlıyım.
Form4.IBTable1.Post;
Form4.IBTable1.Refresh;
Form8.Close;
end;

[babyboy]

Kodun bir az karışık geldi bana, ben hep MySQL kullandığım için FireBird-le alakalı bi şey söylemğe eçkiniyorum ama bu yazdığın kod bence çalışmamalı

Kod: Tümünü seç

Form4.IBTable1.FieldyByName=('TOPLAM_BORC');

Sebin VeriTabananında sanırım TOPLAM_BORC adlı kolonun var.Onu değişkene atamak istiyorsun eğer öyleyse bu kod böyle yazılmalı (MySQL ile ilgili componentlerde böyle yazılıyor)

Kod: Tümünü seç

toplamborc := Form4.IBTable1.FieldByName('TOPLAM_BORC').AsInteger;

toplamborc adlı değişkenine VeriTabanındakı TOPLAM_BORC adlı kolonundakı değerini yukarıdakı gibi atamalısın.

Sorunu doğru anladıysam böyle olmalı, yok ama sen toplamborc değişkeninin değerini veritabanına (TOPLAM_BORC kolumnuna) göndermek istiyorsan o zaman odu aşağıdakı gibi yazacaksın yazacaksın.

Kod: Tümünü seç

Form4.IBTable1.ParamByName('TOPLAM_BORC').AsInteger := toplamborc;

[akineton]

hocam kod aşşa yukarı dediğin gibi yani şöyle ORTAK_ALAN tablosundali TOPLAM-BORC kolununda birimi göstecez basıl deriz ?