Kayıtlar arasında işlem yapmak

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
Kullanıcı avatarı
melekmiyim
Üye
Mesajlar: 7
Kayıt: 04 Tem 2005 12:11
İletişim:

Kayıtlar arasında işlem yapmak

Mesaj gönderen melekmiyim »

mrb arkadaşlar.
bana kayıtlar arasında nasıl işelm yapabileceğimi söylermisiniz.
örneğin ahmet adındaki müşterinin para dbedit kutusundaki kaydına 10 ytl girdim. mehmet adındaki müşterininkine ise 20 ytl para girdim burdaki 10 ile 20 ytl yi toplayan kodları bana söylermisiniz.
ilginiz için şimdiden teşekkürler.....
"Impossible Nothing"
ng
Üye
Mesajlar: 192
Kayıt: 01 Mar 2004 11:49
Konum: Bursa
İletişim:

Mesaj gönderen ng »

1.bu kayıtlar atrasında ortak bir nokta bulup, ortak notaya bağlı bir select cümlesi oluşturabilirsin.

Kod: Tümünü seç

Select sum(para)  from tbl_faturaayrinti where faturano=1
fatura nosu 1 olan tüm kayıtlardaki para alanını toplar.
2. Sıra ile tüm kayıtlarda dolaşıp toplatabilirsin.

Kod: Tümünü seç

  tabl1.first;
  while not tabl1.eof do
  begin
     toplam:=Toplam+table1para.asfloat;
    table1.next;
  end;
Bununlada bir tablo içindeki para alanlarının tamamını toplayabilirsin.
Aslında ne istediğini tam olarak yazarsan daha net cevaplar alabilirsin.
Kullanıcı avatarı
melekmiyim
Üye
Mesajlar: 7
Kayıt: 04 Tem 2005 12:11
İletişim:

Mesaj gönderen melekmiyim »

ya sadece kayıtlardaki girilen paraları toplamak istiyorum hepsi bu kadar. verdiğn cevap içinde teşekkürler ama bir türlü olmadı ya.
"Impossible Nothing"
Kullanıcı avatarı
Hancet
Üye
Mesajlar: 107
Kayıt: 08 May 2005 01:18
Konum: Burdan...
İletişim:

Mesaj gönderen Hancet »

toplamlarıda tutar adında veritabanında sakladığımızı var sayar isek

Kod: Tümünü seç

while table1.eof do
begin
     table1.tutar.value:=table1.tutar.value+table1.para;
     table1.next;
end;
böyle olması lazım bi dene istersen
Kolay gelsin
Varmı Beni İçinizde Tanıyan?
Yaşanmadan Çözülmeyen Sır Benim
Kalmasada Şöhretimi Duymayan,
Kimliğimi Tarif etmek zor Benim.
Kimsesizim hısmım da çok, hasmım da,
Görünmezim cismim de yok, resmim de,
Dil üzmezim, tek hece var ismimde,
Barınağım Delphi denen yer Benim..!
Kullanıcı avatarı
melekmiyim
Üye
Mesajlar: 7
Kayıt: 04 Tem 2005 12:11
İletişim:

Mesaj gönderen melekmiyim »

teşekkürler oldu bu sefer
"Impossible Nothing"
Cevapla