Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Sql en çok satılan [Çözüldü]
#11
(04-07-2017, Saat: 13:31)dilo Adlı Kullanıcıdan Alıntı:
          
while Not Eof do
          begin
            AdetSay := AdetSay + FieldByName('ADET').AsInteger;
            Sheet.Cells[Row, 1] := FieldByName('URUNKODU').AsString;
            Sheet.Cells[Row, 2] := FieldByName('URUN').AsString;
            Sheet.Cells[Row, 3] := FieldByName('MODEL').AsString;
            Sheet.Cells[Row, 4] := AdetSay;
            Inc(Row);
            Next;
          end;

Bunu şu şekilde düzeltmelisin, dikkat ettiysen AdetSay, ürünler değiştiğinde de toplamaya devam ediyor...

while Not Eof do
          begin
            { AdetSay := AdetSay + FieldByName('ADET').AsInteger;  BU SATIRDA ÖNCEKİ SATIRLARIN TOPLAMINI DA ALIYORSUN... }
            Sheet.Cells[Row, 1] := FieldByName('URUNKODU').AsString;
            Sheet.Cells[Row, 2] := FieldByName('URUN').AsString;
            Sheet.Cells[Row, 3] := FieldByName('MODEL').AsString;
            Sheet.Cells[Row, 4] := FieldByName('ADET').AsString;
            Inc(Row);
            Next;
          end;
YouTube Delphi Tips
"Yaşlanarak değil, yaşayarak tecrübe kazanılır. Zaman insanları değil, armutları olgunlaştırır" Peyami Safa
WWW
Cevapla
#12
Bu şekilde işini görecektir...

   
 SQL.Add('Select Sum(ADET) As ADET, URUNKODU, URUN, MODEL From SATILAN');
     SQL.Add('Where TARIH Between :TRH1 And :TRH2 Group By URUNKODU');

while Not Eof do
         begin
           Sheet.Cells[Row, 1] := FieldByName('URUNKODU').AsString;
           Sheet.Cells[Row, 2] := FieldByName('URUN').AsString;
           Sheet.Cells[Row, 3] := FieldByName('MODEL').AsString;
           Sheet.Cells[Row, 4] := FieldByName('ADET').AsString;
           Inc(Row);
           Next;
         end;
Cevapla
#13
(04-07-2017, Saat: 15:15)brs Adlı Kullanıcıdan Alıntı: Bu şekilde işini görecektir...

   
 SQL.Add('Select Sum(ADET) As ADET, URUNKODU, URUN, MODEL From SATILAN');
     SQL.Add('Where TARIH Between :TRH1 And :TRH2 Group By URUNKODU');

while Not Eof do
         begin
           Sheet.Cells[Row, 1] := FieldByName('URUNKODU').AsString;
           Sheet.Cells[Row, 2] := FieldByName('URUN').AsString;
           Sheet.Cells[Row, 3] := FieldByName('MODEL').AsString;
           Sheet.Cells[Row, 4] := FieldByName('ADET').AsString;
           Inc(Row);
           Next;
         end;



Emeği geçen herkese teşekkür. 

+ puanlar verildi  Smile
Cevapla
#14
(04-07-2017, Saat: 16:02)dilo Adlı Kullanıcıdan Alıntı: ...
Emeği geçen herkese teşekkür. 

+ puanlar verildi  Smile

Puan hassasiyetiniz için teşekkür ederiz.
Konuya 20 saatte 13 yorum yapılmış. Bu vesile ile formun aktivitesine yardımcı olan tüm DelphiCan'lara ayrıca teşekkür ederiz.
Delphi Can'dır!
WWW
Cevapla


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  En çok satılan miktarı bulmak. OZCANK 3 403 08-02-2025, Saat: 16:35
Son Yorum: Hayati
  FastReport Dinamik Sayıya Göre Etiket Bastırma [ÇÖZÜLDÜ] bünyamin68 2 393 09-01-2025, Saat: 13:47
Son Yorum: bünyamin68
  paslibvlcplayerin gec acilmasi sorunu-COZULDU sadikacar60 7 518 08-10-2024, Saat: 09:25
Son Yorum: mrmarman
  [Çözüldü] HTTP üzerinden RTSP ile IP kamera stream işlemek Abdullah ILGAZ 4 6.287 08-10-2024, Saat: 09:20
Son Yorum: sadikacar60
  çözüldü-screenshot yapmak hk. sadikacar60 16 7.452 19-06-2024, Saat: 16:12
Son Yorum: bydelphi



Konuyu Okuyanlar: 1 Ziyaretçi