Somar Campos

Delphi

15/02/2003

Ola Pessoal ,
Estou desenvolvendo um sisteminha para cadastrar resultados da Lotomania, tenho uma tabela onde cadastro os resultados e gostaria de fazer um estudo de quantas vezes cada dezena saiu e não estou conseguindo encontrar uma maneira de fazer a soma das vezes que saiu cada dezena. Se fosse possivel somar todas as dezenas de so vez e mostrar em Edits, se não for possivel pode ser de outra forma.

Exemplo:

Dezena Nº Vezes
01 35
02 56
03 71
... ...

Se alguem puder ajudar ficarei muito grato.


Anonymous

Anonymous

Curtidas 0

Respostas

Anonymous

Anonymous

15/02/2003

SQL da QryContador:

SELECT Count(*)
FROM Tabela
WHERE Dezena1 = :NrDezena
OR Dezena2 = :NrDezena
OR Dezena3 = :NrDezena
OR Dezena4 = :NrDezena
OR ...

procedure TForm1.Button1Click(Sender: TObject);
var
I: Word;
begin
for I := 0 to 99 do
begin
TEdit(FindComponent(´Edit´ + IntToStr(I + 1))).Text :=
GetNrVezes(I);
end;
end;

function TForm1.GetNrVezes(Value: Word): String;
begin
with QryContador do
begin
ParamByName(´NrDezena´).AsInteger := Value;
Open;
try
if IsEmpty then
Result := ´0´
else
Result := Fields[0].AsString;
finally
Close;
end;
end;


GOSTEI 0
POSTAR