Somat�ria - Bem simples

Question

Quero que ao abrir um formul�rio num determinado campo apare�a a somat�ria de todos valores do produtos cadastrados na respectiva Query.
Se algu�m puder me informar, receba o meu mais sincero obrigado.

Alo�sio Santos
spider.luck@bol.com.br.
(74) 9979-6194

Skaarj · Answer

pelo que entendi vc vai tr q somar o total d uma compra por ex?
tnta assim
var
total:real;
begin
total:=0;
query1.open;
while not query1.eof do
begin
total:= total+query1.fieldbyname(�valor�) .asfloat;
query1.next;
end;
showmessage(�Total: �+floattostr(total));

Marco Salles · Answer

Poderia Usar T.b  a Fun��o Sum() Do Sql....

Pro-luck · Answer

S� quero acrescentar que estou utilizando Paradox.Obrigado....

F�rum Vini · Answer

Ol�,use esse SQL:�Select SUM(Campo) as SomaCampo, outrocampo1, outrocampo2 from nome_tabela;�Troque:nome_tabela -> nome da sua tabelaCampo -> nome do campo a ser somadoSomaCampo -> Nome do campo que ser� criado com a somaOutroCampo1, OutroCampo2 etc-> outros campos da sua tabela.Espero ter ajudado.Vinicius....

Marco Salles · Answer

Para Ser Mais Detalhista, Segue Um Exemplo Pronto. Acrescente No Seu Form Um Componente Query e Um Edit. No Evento OnShow Do Form Escreva As Seguintes Instru��es.

procedure TForm1.FormShow(Sender: TObject);
var
Soma:Integer;
begin
Query1.Close;
Query1.SQL.Clear;
query1.SQL.Add(�Select Sum(Campo) SomaCampo From Nome_Tabela�);
Query1.Prepare;
query1.open;
Soma:=Query1.FieldByName(�SomaCampo�).AsInteger;
Edit1.Text:=IntToStr(Valor);
end;

P:s Concordo Como O Vini em Genero, Numero e Grau. Mas Como o Exemplo estava Pronto Para Ser Postado, Resolvi Assim Mesmo Postar

F�rum Somat�ria - Bem simples #212911