Delphide Günlük Toplama İşlemi

[tunç_80]

S.A Arkadaşlar benim delphide bir fatura takip projem var.Şimdi bu proje elektrik - telefon -su v.s bölümlerden oluşuyor.
Mesela elektrik yazan butona tıkladığı n zaman kullanıcı oraya faturayla ilgili bilgiler giriyor yani fatura tutarı neyse onuda yazıyor ve bunlar bir dbGridde görüntüleniyor Bu işlem bütün fatura larda aynısı yapılıyor.Birde kasa bölümü var orda yine elektrik su telefon v.s bölümler var. Kullanıcı mesela telefona tıkladığı zaman formda bir adet dbGrid var o o gün içinde fatura ödemsi aldığı bütün kayıtlar görünüyor ve bunun altında birde edit veya label olacak oradada bir günde mesela hangi forum sayfasıysa elektrik diyelim elektrikten ne kadar para kazanıdğı yani bu fatura tutarlarının toplamı orda görünecek bu işlem böyle elektrik su ve telefon faturalarında ayrı ayrı görünücek birde toplam kasa böümü var burdada sadece bir label veya edit olacak ordada elektrik su telefon ve sudan günd ene kadar para kazandıysa onların hepsii görünecek bunu nasıl yaparım yardımcı olursanız sevinirim...

[tunç_80]

koskoca forum sitesinde şunun ne olduğunu bilen bir tek Allahın kulu yok mu ..????*

[conari]

Bilen varda sen kodun tamamını yazmamızı istiyorsun sanırım.
Nereyi yapamadığını yaz, Scriptimi oluşturamadın.
nerede tıkandın onu söyle.
Gridde bilgiler nerden geliyor nasıl getiriyorsun hayret.

[tunç_80]

sorun gayet açık ve net ama anlamayan arkadaşlar için kısa bir tekrar yapayım bir fatura takip projem var bu proje elektrik su v.s bölümlerden oluşuyor.Mesela elektrik faturası bölümünde bir günde diyelim 50 fatura yatırdı.bu ödemesi aldığı 50 faturanın toplamnı başka bir formda bir label veya edit te görüntülenmesini istiyorum girdde görünütlenmesini ben yaptım fakat toplamı nasıl bulacam onu yapamadım.

[conari]

Kod: Tümünü seç

///===>> AdoFnsBankKURFARKI TQuery
var 
toplam:Currency
toplam:=0;
  while not(AdoFnsBank.Eof)  do
   begin
   Toplam := Toplam +AdoFnsBankKURFARKI.AsCurrency  ;//toplanacak field
   AdoFnsBank.Next;
   end;

bunun haricinde farklı bir query ile getirebilirsin.

Kod: Tümünü seç

select sum(odeme) from odemelertablosu where tarih=bugün and tip=elektirik

gibi.

[tunç_80]

abicim ilginiz için tşk ederim şunu belirteyim birde kullandığım veritabanı firebird componentleer ise
data source ,IBTable,IBQuery,IBDatabase,ve birde I BTransaction, birde senin buy verdiğin kodu neyin click oalyına yazayım..

[conari]

Kod: Tümünü seç

///===>> AdoFnsBank Bu sende IBQuery
var 
toplam:Currency
begin
toplam:=0;
  while not(AdoFnsBank.Eof)  do
   begin
   Toplam := Toplam +AdoFnsBankKURFARKI.AsCurrency  ;//toplanacak field
   AdoFnsBank.Next;
   end;
end;

artık hangi Evente yazarsan yaz ben olsam.
Tip ile ilgili değişimde yapardım bir de tabi yeni kayıt eklendikten sonra yapmak lazım.

sonra edit veya label de göster.

Kod: Tümünü seç

Edit1.text:=CurrToStrF(toplam,ffCurrency,2);

[tunç_80]

vay Allah razı olsun hemi çok tşk ederim iyi çalışmalar....