IBTable toplam

[CiTiZEN]

Slmlar arkadaşlar ilk defa yapacağım bir özellik oldugu için araştırmalarda sonuca ulaşamadım kodlar oldukca yabancı geldi benim yapmak istediğime gelince bir veritabanı var bu veritabanına sürekli yapılan satışlar girilecek ve toplam isimli alandaki fiyatlar bir dbtext , label veya herhangi bi bileşende toplanacak şöyle;
Grafik düzgün olmadı umarım anlatabilmişimdir.

grid.jpg (28.35 KiB) 2935 kere görüntülendi

bu konu hakkında yardım ederseniz sevinirm en azından nasıl yapmam gerekir basit bişey olabilir ama daha önce böyle birşey yapmadığım için yapamadım
Kolay Gelsin.

[White Rose]

Bu dbgridin bağlı bulunduğu tablenin afterpost ve after delete eventine sql ile toplama işlemi yapan kod(*) yazarak çıkan sonucu labele, texte yada dbtexte yazdırabilirsiniz.

(*)kod:
tquery.close;
tquery.clear;
tquery.sql.text='select sum(toplama yapılacak alan) as toplam from table';
tquery.open;
label1.caption:=tquery.fieldbyname('Toplam').asstring;

[CiTiZEN]

Çok teşekkür ediyorum fakat programda sistem ibtable üzerine kurulu durumda query yaptığım zamanda hata alıyorum ama programın bağlantı sisteminide değiştirmek imkansız ibtable ile yapmak mümkün mü bu toplama işlemini

[unicorn64]

olay ekranda göstermekse ve gridde gösteriyorsanız cxgrid ( ve belki başka gridler de ) footer özelliğinden yararlanabilirsiniz.

cxgrid'de footer a eklenen alanla istenilen kolon değeri üzerinde sum , count gibi işlemler yaptırıp göstermek mümkün tek satır kod yazmadan...

[CiTiZEN]

Deiğiniz gibi ekranda ve grid de gösteriyorum ve ekranı yazdırıyorum şimdilik bi sorun yok ama cxgrid bildigim kadarıyla devexpress in ve ücretli sorun şu ki elimdeki proje bu cumartesine tamamlanmak zorunda eksiklerimden en önemlisi bu satın alacak ve ugraşacak vaktim yok bunun ücretsiz sürümü vs varsa link verebilirmisiniz veya ibtable ile toplama işlemini yapacak kod varsa paylaşırsanız sevinirm.
kolay gelsin

[unicorn64]

peki manuel olarak kendiniz toplama yapsanız?

Kod: Tümünü seç

function Topla:double;
var
  toplam:double;
begin
  IBTable1.First;
  toplam:=0;
  while not IBTable1.Eof do
  begin
    toplam:=toplam+  IBTable1.FieldByName('Alan Adı').AsFloat;
    IBTable1.Next;
  end;
  result:=toplam;
end;

[CiTiZEN]

Hocam ilginiz için çok teşekkür ederim,manuel demişsiniz bu kodun tam olarak nasıl işlediğini veya bir buton yardımıyla label a değerin nasıl aktarıldığını yazarsanız çok yardımcı olmuş olursunuz
Kolay gelsin

[conari]

fonksiyon tek alan için için yazılmış, yani parametre verilmiyor alan adı. kullanışlı olmamış

Kod: Tümünü seç

var
  toplam:double;
begin
 IBTable1.First;
toplam:=0;
  while not IBTable1.Eof do
  begin
    toplam:=toplam+  IBTable1.FieldByName('Alan Adı').AsFloat;
    IBTable1.Next;
  end;
  label.caption=FloatToStr(toplam);// buna şarlayabilir.

[unicorn64]

forumda şuan mesaj sayınız 323 görünüyor. az çok delphi bildiğiniz aşikar. ama şu fonksiyonu anlamamış olmanızı aripsedim.
hadi anlamamış olabilirsiniz bunu foruma sorana kadar bir delphi kitabından delphide fonksiyon tanımı ve kullanımı kısmına baksanız cevabı anında bulurdunuz.

lütfen yanlış anlamayın yargılamak gibi bi niyetim yok.buna hakkım da yok zaten.
sadece eğer programlama üzerine birşeyler yapıp kendinizi bu konuda geliştirmek ve bunu kendinize bir iş edinmek istiyorsanız,
biraz kitap okumanız gerektiğini vurgulamak istedim. tamam forum erçekten güzel, çok genişbir bilgi kaynağı,ama her konuda sor gelen kodu kopyala yapıştır şeklinde ilerleme bence yanlış bi yöntem.

sözlerim aslında size değil tüm forum kullanıcılarına...
umarım yanlış anlaşılmamışımdır.

fonksiyon açıklaması aşağıda

Kod: Tümünü seç

  IBTable1.First; //tablonun ilk kaydına konumlan
  toplam:=0; //toplamı sıfırla
  while not IBTable1.Eof do // tablo sonuna gelene kadar dön
  begin
    toplam:=toplam+  IBTable1.FieldByName('Alan Adı').AsFloat; // aktif satırdaki toplamı alınacak alanın değerini float olarak al ve toplam değişkeniyle topla
    IBTable1.Next; // sonraki kayda konumlan
  end;
  result:=toplam; // toplam sonucunu geri gönder

kullanımı ise

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
begin
  label1.caption:=floattostr(topla);
end;

[CiTiZEN]

Elbetteki kitaplar okudum ve okumaya devam ediyorum tarzınız güzel kopyala yapıştırla işlerin yürümeyeceğinin bende farkındayım ama başta da söylediğim gibi bu konuyu ilk defa yapacagım için araştırmalarımda da kodlar aşırı yabancı geldi o yüzden içinden çıkamadım yardımlarınız için hepinize teşkkür ediyorum saygılarımla