Puts que dúvida filha da mãe... rss me ajudem..

procedure TF_Caixa.TabSheet1Show(Sender: TObject);
var
dat : String;
begin
Dat := DateToStr(Date);
D_M.QY_CAIXA.Active := FALSE;
D_M.QY_CAIXA.SQL.Clear;
D_M.QY_CAIXA.SQL.Add(´Select * from caixa where tipo = ´Entrada´ and data = ´´+Dat+´´ and (Select sum(Valor)as Total From Caixa)´);
D_M.QY_CAIXA.Active := True;
//Dia
end;


Pessoal onde esta o erro aqui ou como faço para obter o resultado?

quero que ele consulte no banco de dados na DATA de HOJE e me some os valores que contenha o tipo ENTRADA.

só que já fiz de todas as forma que sei e nada....

será que alguém pode me ajudar ?
Grato! :wink: :D