FORMA EFICIENTE DE CONSULTAR TABELAS
Código
SOMANDO TABELA DE FORMA EFICIENTE
var
contador: Integer; // criando soma no total do pedido
soma: real; // variaveis
begin
contador:= Banco.TabItem.RecordCount;
if contador = 0 then
exit
else
soma := 0;
Banco.TabItem.First;
repeat
soma:= StrToFloat(Banco.TabItemTotalapagar.value) + soma;
Banco.TabItem.Next;
contador:= contador -1;
until contador = 0;
EDIT1.TEXT:= '';
EDIT1.FLOATSTRTO(SOMA);
Publicidade
Vote na dica
Quantidade de votos: 0 votos
Aceitação: 0%
Detalhes da dica
Categoria: Banco de dados
Adicionada dia: 13/06/09
Por: Leandro Silva
Visualizada: 4100 vezes
Adicionada dia: 13/06/09
Por: Leandro Silva
Visualizada: 4100 vezes
COLUNISTAS
Publicidade
Enquete
O que achou do novo site?
Validações
Publicidade
Enquete
O que achou do novo site?
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009