SQLITE查询GROUP BY with SUM使用Delphi和Zeos

uses
  ZConnection, ZDataset;

procedure QuerySQLite;
var
  Conn: TZConnection;
  Query: TZQuery;
begin
  Conn := TZConnection.Create(nil);
  Conn.Protocol := 'sqlite-3';
  Conn.Database := 'path_to_your_database.db';
  Conn.Connect;

  Query := TZQuery.Create(nil);
  Query.Connection := Conn;
  Query.SQL.Text := 'SELECT column1, SUM(column2) as total FROM your_table GROUP BY column1';
  Query.Open;

  while not Query.Eof do
  begin
    // 处理查询结果
    ShowMessage('Column1: ' + Query.FieldByName('column1').AsString +
                ' Total: ' + Query.FieldByName('total').AsString);
    Query.Next;
  end;

  Query.Close;
  Conn.Disconnect;

  Query.Free;
  Conn.Free;
end;