ler uma tabela e retornar a soma

Delphi

23/02/2003

Estou querendo ler uma determinada tabela e somar os dados de um determinado campo, de acordo com um criterio a ser escolhido pelo usuario. O resultado será atualizado em um determinado registro, tb de acordo com o critério.
O que posso fazer?[size=18:b464a051b2][/size:b464a051b2]


Anonymous

Anonymous

Curtidas 0

Respostas

Henry

Henry

23/02/2003

Brother pelo que entendi...............
Somar o conteudo...

no evento onclick do botão:
var
calc : real;
begin
calc:= 0;
table1.first;
while not table1.eof do
begin
calc := calc + table1campo.value;
table1.next;
end;
messagedlg (´O calculo realizado foi´ + format (´¬´m´ [calc]), mtinformation, [mbok], 0);

essa rotina vai calcula as somas do campo que vc escolheu e vai mostrar uma mensagem com o calculo total....

Obs:
´table1campo´ e uma parasintese que vc deve troca pelo campo que deseja calcular, como salario, EX: table1Salario.value..

.... Ai para realizar as consultas com paramentro, e so especificar na linguagem............ se vc tiver alguma duvida, entre em conttato comigo.......Espero ter te ajudado........ Aquele abraço......Henry


GOSTEI 0
POSTAR