Somar um campo e exibir em um edit

Question

Tenho uma tabela de vendas com um campo chamado total que � o valor total de cada venda. Como posso somar todos os totais e exibir em um edit ou label?Estou usando ADOQuery, MySQL e Delphi 2006....

Paullsoftware · Answer

creio que � s� fazer uma varredura na taleba...

procedure TfLocacao.Total;
begin
vTotal:=0;
With DM_BANCO do
     begin
          DETLOCACAO.First;
          While Not DETLOCACAO.Eof do
                begin
               if  DETLOCACAO.FieldByName(�BONUS�).AsString = �N� Then
                vTotal := vTotal + DETLOCACAO.FieldbyName(�VALOR_FILME�).AsCurrency;
                DETLOCACAO.Next;
                end;
          vTotal := vTotal;
          LOCACAO.Edit;
          LOCACAOTotal.Value := vTotal;
          LOCACAO.Post;
          LOCACAO.ApplyUpdates;
     end;
//n1
// lblTotal.Caption := �R$ � + FormatFloat(�#,,0.00�,vTotal);
end;

hoje n�o fa�o mais assim, mais a l�gica � essa, espero ter ajudado :wink:

Mcsmarmcs · Answer

Funcionou, excelente!S� uma pergunta: vc disse q n�o faz mais desta forma, como vc faz ent�o?...

Mcsmarmcs · Answer

Resolvi o problema que queria, mais ainda pode ficar melhor.
O c�digo abaixo precisa aparecer 12 vezes, pois seria uma vez pra cada m�s, mas certamente teria como compactar isso. Eu preciso exibir a soma de cada m�s em um campo edit diferente.

procedure Tgrafvendas.BitBtn2Click(Sender: TObject);
var
vTotal: double;
begin
vTotal:=0;
dm.consvendas.Close;
dm.consvendas.SQL.Clear;
dm.consvendas.SQL.Add(�SELECT * FROM vendas WHERE EXTRACT(MONTH FROM data_venda) = 2�);
dm.consvendas.Open;
dm.consvendas.First;
While Not dm.consvendas.Eof do
begin
if dm.consvendas.FieldByName(�total�).AsString <> �0� then
vTotal := vTotal + dm.consvendas.FieldbyName(�total�).AsCurrency;
dm.consvendas.Next;
end;
vTotal := vTotal;
edit2.Text := �R$ � + FormatFloat(�#,,0.00�,vTotal);}
end;

Marco Salles · Answer

Isto mesmo , mas use o Sum p�[code:1:2566545a33]procedure Tgrafvendas.BitBtn2Click(Sender: TObject); begin vTotal:=0; dm.consvendas.Close; dm.consvendas.SQL.Clear; dm.consvendas.SQL.Add(�SELECT Sum(Total) as Soma FROM vendas WHERE EXTRACT(MONTH FROM data_venda) = 2�); dm.consvendas.Open; edit2.Text := currencyString + FormatFloat(�#,,0.00�,dm.consvendas.fieldByName(�Soma�).ascurrency);} end;[/code:1:2566545a33][quote:2566545a33]A unica sugest�o , que voce pode criar um DataSet para este processo ,efetuar esta soma e depois destrui-lo.. Aqui estou usando o seu DataSet[u:2566545a33]dm.consvendas[/u:2566545a33] , que [b:2566545a33]n�o[/b:2566545a33] deve ter nenhum field definido no seu editor de fields.. Sen�o da erro..[/quote:2566545a33]...

Paullsoftware · Answer

creio que o Marcos responde pra mim... assim � bem mais r�pido e o ponteiro n�o sai do registro!...

Mcsmarmcs · Answer

O comando SUM n�o � necess�rio, pois vTotal j� vai somar todos os campos da coluna. Da forma como est� j� funciona perfeitamente.Valeu pela aten��o!...

Marco Salles · Answer

cita��o de mcsmarmcs[quote:e2e10bacb6]Resolvi o problema que queria, mais ainda pode ficar melhor. O c�digo abaixo precisa aparecer 12 vezes, pois seria uma vez pra cada m�s, mas certamente teria como compactar isso. Eu preciso exibir a soma de cada m�s em um campo edit diferente. [/quote:e2e10bacb6]cita��o de Amcro salles[quote:e2e10bacb6]Isto mesmo , mas use [/quote:e2e10bacb6]cita��o de paullsoftware[quote:e2e10bacb6]creio que o Marcos responde pra mim... assim � bem mais r�pido e o ponteiro n�o sai do registro![/quote:e2e10bacb6]cita�ao de mcsmarmcs[quote:e2e10bacb6]O comando SUM n�o � necess�rio, pois vTotal j� vai somar todos os campos da coluna. Da forma como est� j� funciona perfeitamente. [/quote:e2e10bacb6]Veja , da maneira que voce fez usando um Sql para acessar o Base de Dados [quote:e2e10bacb6]dm.consvendas.SQL.Add(�SELECT * FROM vendas WHERE EXTRACT(MONTH FROM data_venda) = 2�); [/quote:e2e10bacb6][u:e2e10bacb6]acho que voce deve usar o Sum [/u:e2e10bacb6], ao invez do While.. Em pequenas aplica�oes desktop , com base de dados pequena , pode n�o perceber diferen�a. Mas sua performace pode ser prejudicada se n�o usar o Sum em muitas oputra situa�oes...

Mcsmarmcs · Answer

Levando-se em conta o desempenho, realmente vale a pena usar o SUM....

F�rum Somar um campo e exibir em um edit #341060