RSS

FORMA EFICIENTE DE CONSULTAR TABELAS

25 nov


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);

Anúncios
 
Deixe um comentário

Publicado por em 25/11/2009 em Estudos Delphi

 

Deixe um comentário

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s

 
%d blogueiros gostam disto: