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.