QReport com Data

colega,
coloque no form 2 datedit e use o seguinte fonte...


procedure TFrm1.FormShow(Sender: TObject);
begin
Data1.date:=date-30; /// para começar 30 dias antes da data atual
data2.date:=date;
QuickRep1.Visible:=False;/// vc decide...
end;

procedure TFrm1.Data1CloseUp(Sender: TObject);
begin
if data1.date>data2.date then
Begin
ShowMessage(´A Data Inicial não Pode ser menor que a Data Final!´);
data1.date:=data2.date;
end;
end;

procedure TFrm1.BitBtn1Click(Sender: TObject);
begin
With QryGrafico do
Begin
Close;
ParamByName(´VarDataI´).AsDate:=Data1.Date;
ParamByName(´VarDataF´).AsDate:=Data2.Date;
ParamByName(´var1´).AsString:=edit1.text;
Prepare;
Open;
End;
If (QryGrafico.RecordCount=1) and (QryGraficoTotal.Value=0) then
ShowMessage(´Não Existe Vendas Neste Período Informado!´);
end;


//// coloque uma Query

a string defina assim..

select * from (nome sqa sua Tabela)
where (nome do campo da tabela) like :var1
and data Between :VarDataI and :VarDataF

ai vc faz as devidas conecções e pede o total na query

espero ter ajudado.