Aylara göre kayıt sayılarını serpiştirmek

[NewMember]

Arkadaşlar bir tablodaki satır sayısını yani kayıt sayısını aylara göre nasıl serpiştiririm.
Örneğin 20 kayıt olan bir tabloda kayıttarihi alanına göre şöyle bir çıktı almak nasıl bir sql ile mümkün olabilir.

Ocak Şubat Mart Nisan Mayıs Haziran ..........Aralık
5 4 0 2 6 3 0 Toplam 20 kayıt

Teşekkürler...

[White Rose]

s.a.
Benim buna benzer aylara göre borç-alacak toplamlarını gösteren bir kodum vardı size göre değiştirdim sanırım bu kodlarla yaparsınız

Kod: Tümünü seç

................
var
St:string;
......................
     St:='Case Extract(Month From TARIH_ALANI) '+
         'When 1  THEN ''01-Ocak'' '+
         'When 2  THEN ''02-Şubat'' '+
         'When 3  THEN ''03-Mart'' '+
         'When 4  THEN ''04-Nisan'' '+
         'When 5  THEN ''05-Mayıs'' '+
         'When 6  THEN ''06-Haziran'' '+
         'When 7  THEN ''07-Temmuz'' '+
         'When 8  THEN ''08-Ağustos'' '+
         'When 9  THEN ''09-Eylül'' '+
         'When 10 THEN ''10-Ekim'' '+
         'When 11 THEN ''11-Kasım'' '+
         'Else         ''12-Aralık'' End TARIH, ';

     If Chc_Yil.Checked Then Begin   // Yıla göre seçilmişse
           query.SQL.Text:='Select '+St+' count(*) KAYIT_SAYISI  FROM TABLE '+
                          'Where TARIH_ALANI Is Not Null And Extract(Year From TARIH_ALANI)='''+Edt_Yil.Text+''' '+
                          'Group By Extract(Month From TARIH_ALANI) ORDER BY Extract(Month From TARIH_ALANI)';
     End Else Begin  // Yıl bilgisi yoksa / Tamamı
           query.SQL.Text:='Select '+St+' count(*) KAYIT_SAYISI  FROM TABLE '+
                          'Where TARIH_ALANI Is Not Null '+
                          'Group By Extract(Month From TARIH_ALANI) ORDER BY Extract(Month From TARIH_ALANI)';
     end;
    query.open;

[yusuf simsek]

memorytable nesnesine gerekli alanları tanımladıktan sonra ( kodu, adı, vb... ) ayları ( Ocak,subat,mart... ) tanımlayıp, runtime da memorytable'a kayıtları ilgili ayın altına ekleyip gridde gösterebilirsin...