realizar una consulta por fecha o numerodefactura o importegasto

[Goyo]

ya lo hice como me indicaste, solo que no me muestra nada, todo el codigo lo pongo en un SpeedButton1, la base de datos es una de Paradox, el edit1.text hace referencia al campo fechadeservicio (tipo Date), el edit2.text hace referencia a un campo tipo entero (numerofactura) y el edit3.text hace referencia a un dato tipo moneda ($), lo hice de la siguiente manera:

Código Delphi [-]
procedure TFrmBuscarVehiculo.SpeedButton1Click(Sender: TObject);
 var consulta : string;
begin
  consulta:='Select * from BitacoraVehiculos';
  if edit1.Text<>'' then
     consulta:=consulta+ ' fechadeservicio='+ QuotedStr(edit1.text)//Suponiendo que este campo toma Valores String
     else   if edit2.Text<>'' then
               consulta:=consulta+ ' numerofactura='+ QuotedStr(edit2.text)
     else   if edit3.Text<>'' then
               consulta:=consulta+ ' importe='+ QuotedStr(edit3.text);
     query1.SQL.Text:=consulta;
     query1.ExecSQL;
 end;

para que se ejecute la consulta debo pulsar el boton de busqueda, el query1 lo puse en el formulario de busqueda.., osea que este formulario (FrmBusquedas) lo llamo desde otro formulario llamado (FrmBitacora) y dentro de este formulario tengo un dbgri1 con todos los registros...

de antemano muchas gracias...

[vtdeleon]

Saludos

Prueba

Código Delphi [-]
procedure TFrmBuscarVehiculo.SpeedButton1Click(Sender: TObject);
 var consulta : string;
begin
  consulta:='Select * from BitacoraVehiculos';
  if edit1.Text<>' ' then begin
    Query1.Sql.Text:=consulta+ ' fechadeservicio=:fecha';
    Query1.ParamByName(fecha).asDate:=StrtoDate(fecha.text);
//Suponiendo que este campo toma Valores String
  end else 
  if edit2.Text<>' ' then begin
    Query1.Sql.Text:=consulta+ ' numerofactura=:fact'
    Query1.ParamByname('fact').AsInteger:= StrtoInt(edit2.text);
  end else
  if edit3.Text<>' ' then begin
    Query1.Sql.Text:=consulta+ ' importe=:importe'
    Query1.ParamByName('importe').Asfloat:=StrtoFloat(edit3.text);
  end;
//     query1.SQL.Text:=consulta;
//     query1.ExecSQL;//<==Esto no se utiliza para una sentencia de Consulta.
  Query1.Open;
 end;

Intenta esto