1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:

procedure TVMain.BitBtnSummeClick(Sender: TObject);
trech1,trech2:single;
Var tagesdatum:String;
begin
  Tagesdatum := DateToStr(now); //Tagesdatum in Stringvariable
  DM.ADOAbrechnung.SQL.Clear; 
  DM.ADOAbrechnung.SQL.Text := 'Select * from Abrechnung WHERE (datum like ' + QuotedStr(tagesdatum) + ')'; //Datenbank nach Tagesdatum Filtern
  DM.ADOabrechnung.Open;
  DM.ADOTSK.Edit; //Tabelle in Editmodus
  DM.ADOTSK.Insert; //Neuen Datensatz anlegen
  DM.ADOTSK.FieldByName('Datum').AsDateTime :=StrToDate(tagesdatum); //Tagesdatum an Tabell in Feld Datum übergeben
  try
    DM.ADOabrechnung.First;
    begin
      while not DM.ADOAbrechnung.EOF do

      begin
        trech1 := StrToFloat(DM.ADOAbrechnung.FieldByName('Summe').AsString); //Wert aus Feld Summe erster datensatz in Variable
        trech2 := (trech1 + trech2); // Addition Startwert für trech2 ist 0
        DM.ADOTSK.Edit; //Tabelle Editmodus
        DM.ADOTSK.FieldByName('Summe').AsString := FloatToStrF(trech2, ffnumber, 7, 2); //Ergebnis aus Addition in Tabelle schreiben
        DM.ADOTSK.Post; //Tabelle speichern
        DM.ADOAbrechnung.Next; //Nächster Datensatz beginne bei trech1:= ........
      end;

    end;
  finally
DM.ADOTSK.Open; //Alles fertig aktualisiere Tabelle
  end;
    end;					

1:
2:
3:
4:
5:
6:

INSERT INTO Summentabelle(Datum, Summe)
  SELECT aDatum, aSumme FROM(
    SELECT Datum AS aDatum, SUM(Summe) AS aSumme
    FROM Abrechnung 
    WHERE (aDatum like tagesdatum)
    GROUP BY aDatum) x