Consulta Desde->Hasta

[[Luis M.]]

Saludos.

Pongo esta imagen para que os hagáis una idea de lo que quiero hacer.



Al pulsar el botón "Buscar" lanzo la siguiente consulta:

Código Delphi [-]
procedure TFiltroEntradaPelotas.BTBuscarClick(Sender: TObject);
var
  cPath: string;
  anyo,mes,dia: Word;
  cFecha1,cFecha2: string;
begin
  DecodeDate(DesdeFecha.Date,anyo,mes,dia);
  cFecha1 := IntToStr(anyo)+'-'+IntToStr(mes)+'-'+IntToStr(dia);
  DecodeDate(hastaFecha.Date,anyo,mes,dia);
  cFecha2 := IntToStr(anyo)+'-'+IntToStr(mes)+'-'+IntToStr(dia);

  QEntradaPelotas.Close;
  QEntradaPelotas.SQL.Text := 'Select * From ENTRADAPELOTAS Where (NUMERO >= '+ QuotedStr(DesdeEntrada.Text)+
                              ') and (NUMERO <= '+ QuotedStr(HastaEntrada.Text)+') and ('+
                              'FECHAENTRADA >= '+QuotedStr(cFecha1)+') and (FECHAENTRADA <= '+
                              QuotedStr(cFecha2)+') and ( MARCA >= '+QuotedStr(DesdeMarca.Text)+
                              ') and (MARCA <= '+QuotedStr(HastaMarca.Text)+') ORDER BY NUMERO';

  QEntradaPelotas.Open;

  cPath := ExtractFilePath(Application.ExeName);
  frxReport1.LoadFromFile(cPath + 'REPORTS\' + 'ListadoEntradasPelotasPorNumero.fr3');
  frxReport1.ShowReport;
end;

La consulta funciona bien, siempre y cuando rellene todos los "Edits".
Lo que quiero conseguir, es qué si se deja por ejemplo en blanco los Edits
Desde Nº de entrada y Hasta Nº de entrada, o cualquier otro. En la
consulta, me salga todos los datos de los Edits que no he rellenado.
La base de datos es Firebird 2.0.4
Si Tenéis cualquier idea o sugerencia al respecto, os lo agradecería.

Un saludo.