Ver Mensaje Individual
  #3  
Antiguo 12-09-2006
Avatar de Goyo
Goyo Goyo is offline
Miembro
 
Registrado: feb 2006
Posts: 89
Reputación: 21
Goyo Va por buen camino
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...
Responder Con Cita