Fórum Somar os Valores de um DBGRID #372180

Fiz um form aonde mostro os valores de todas as vendas efetuadas naquele dia.Mas tb gostaria de somar os valores que são mkostrados no DBGRID tentei fazer um select sum. Mas ianda assim Ele me soma toda a tabela.


procedure TForm19.FormShow(Sender: TObject);
begin
datamodule1.Qpaga.Close;
datamodule1.Qpaga.SQL.Clear;
datamodule1.Qpaga.SQL.Add(´Select * from formPagamento´);
datamodule1.Qpaga.SQL.Add(´Where data_venda = :data_venda´);
datamodule1.Qpaga.Parameters.ParamByName(´data_venda´).Value := date ();
datamodule1.Qpaga.Open;
end;