Rango de fechas

[chino150]

necesito un codigo para general un reporte en quickreport de delphi 5 por rangos de dos fechas usado los componentes TDateTimePicker.

Gracias!!!!

[[enecumene]]

Código Delphi [-]
Form1:=TForm1.Create(self);
   try
     Query1.Close;
     Query1.SQL.Clear;
     Query1.SQL.Text := 'select fecha from tabla where fecha >= :desde and    fecha <= :hasta order by fecha';
    Query1.parambyname('desde').value := DBTimePicker1.date;
    Query1.parambyname('hasta').value := DBTimePicker2.date;
    Query1.Open;
    Form1.QuickRpt1.Preview;
 finally
   Form1.free;
 end;

Saludos.

[chino150]

este es el codigo que estoy usando, como puedo hacer para que la fecha se muestre en dos componentes QrLabel llamados cutfecha3 y cutfecha4 en el reporte de quick report

Código Delphi [-]
 
      procedure TfrmTest.BtnAdmClick(Sender: TObject);
begin
 qrFondos.close;
qrFondos.SQL.clear;
if (CutBox.checked=false) then begin
     qrFondos.sql.add('select * from Ofrendas');
     qrFondos.sql.add('where fecha between '+#39+DatetoStr(Cutfecha1.date)+#39+' and '+#39+DatetoStr(Cutfecha2.date)+#39);
     Case CutStatus.ItemIndex of
          0:qrFondos.sql.add('and Tipo_Recibo ='+#39+'I'+#39);
          1:qrFondos.sql.add('and Tipo_Recibo ='+#39+'R'+#39);
          end;
     qrFondos.open;
end;
if (CutBox.checked=true) then begin
   qrFondos.sql.add('select * from Ofrendas');
   Case CutStatus.ItemIndex of
       0:qrFondos.sql.add('where Tipo_Recibo ='+#39+'I'+#39);
       1:qrFondos.sql.add('where Tipo_Recibo ='+#39+'R'+#39);
       end;
   qrFondos.open;
   end;
  begin
QrAdm.preview;
end;
end;
 
end.

[[enecumene]]

Código Delphi [-]
procedure TfrmTest.BtnAdmClick(Sender: TObject);
begin
 qrFondos.close;
qrFondos.SQL.clear;
if (CutBox.checked=false) then begin
     qrFondos.sql.add('select * from Ofrendas');
     qrFondos.sql.add('where fecha between '+#39+DatetoStr(Cutfecha1.date)+#39+' and '+#39+DatetoStr(Cutfecha2.date)+#39);
     Case CutStatus.ItemIndex of
          0:qrFondos.sql.add('and Tipo_Recibo ='+#39+'I'+#39);
          1:qrFondos.sql.add('and Tipo_Recibo ='+#39+'R'+#39);
          end;
     qrFondos.open;
     Form1.cutfecha3.Caption := Cutfecha1.date;
     Form1.cutfecha4.Caption := Cutfecha2.date;
  end;
if (CutBox.checked=true) then begin
   qrFondos.sql.add('select * from Ofrendas');
   Case CutStatus.ItemIndex of
       0:qrFondos.sql.add('where Tipo_Recibo ='+#39+'I'+#39);
       1:qrFondos.sql.add('where Tipo_Recibo ='+#39+'R'+#39);
       end;
   qrFondos.open;
   Form1.cutfecha3.Caption := Cutfecha1.date;
   Form1.cutfecha4.Caption := Cutfecha2.date;
   end;
  begin
QrAdm.preview;
end;
end;
 
end.

Saludos.

[chino150]

ok

ahora esta este error Incompatible types 'Sting' and 'TDate'

[chino150]

Gracias Solucione el problem
Codigo Delphi (-)

procedure TfrmTest.BtnAdmClick(Sender: TObject);
begin
qrFondos.close;
qrFondos.SQL.clear;
if (CutBox.checked=false) then begin
qrFondos.sql.add('select * from Ofrendas');
qrFondos.sql.add('where fecha between '+#39+DatetoStr(Cutfecha1.date)+#39+' and '+#39+DatetoStr(Cutfecha2.date)+#39);
Case CutStatus.ItemIndex of
0:qrFondos.sql.add('and Tipo_Recibo ='+#39+'I'+#39);
1:qrFondos.sql.add('and Tipo_Recibo ='+#39+'R'+#39);
end;
qrFondos.open;
QrAdm.cutfecha3.Caption := DatetoStr(cutfecha1.date);
QrAdm.cutfecha4.Caption := DateToStr(CutFecha2.Date);
end;
if (CutBox.checked=true) then begin
qrFondos.sql.add('select * from Ofrendas');
Case CutStatus.ItemIndex of
0:qrFondos.sql.add('where Tipo_Recibo ='+#39+'I'+#39);
1:qrFondos.sql.add('where Tipo_Recibo ='+#39+'R'+#39);
end;
qrFondos.open;
QrAdm.cutfecha3.Caption := DatetoStr(cutfecha1.date);
QrAdm.cutfecha4.Caption := DatetoStr(cutfecha2.date);
end;
begin
QrAdm.preview;
end;
end;

end.

Muchas Gracias por su ayuda!!!!