Somatória - Bem simples
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
Se alguém puder me informar, receba o meu mais sincero obrigado.
Aloísio Santos
spider.luck@bol.com.br.
(74) 9979-6194
Pro-luck
Curtidas 0
Respostas
Skaarj
10/02/2004
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));
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));
GOSTEI 0
Marco Salles
10/02/2004
Poderia Usar T.b a Função Sum() Do Sql.
GOSTEI 0
Pro-luck
10/02/2004
Só quero acrescentar que estou utilizando Paradox.
Obrigado.
Obrigado.
GOSTEI 0
Fórum Vini
10/02/2004
Olá,
use esse SQL:
´Select SUM(Campo) as SomaCampo, outrocampo1, outrocampo2 from nome_tabela;´
Troque:
nome_tabela -> nome da sua tabela
Campo -> nome do campo a ser somado
SomaCampo -> Nome do campo que será criado com a soma
OutroCampo1, OutroCampo2 etc-> outros campos da sua tabela.
Espero ter ajudado.
Vinicius.
use esse SQL:
´Select SUM(Campo) as SomaCampo, outrocampo1, outrocampo2 from nome_tabela;´
Troque:
nome_tabela -> nome da sua tabela
Campo -> nome do campo a ser somado
SomaCampo -> Nome do campo que será criado com a soma
OutroCampo1, OutroCampo2 etc-> outros campos da sua tabela.
Espero ter ajudado.
Vinicius.
GOSTEI 0
Marco Salles
10/02/2004
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
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
GOSTEI 0