Tengo mi tabla BitacoraVehiculos con los campos: NumeroVehiculo, FechadeServicio, ConceptoReparacion, ConceptoServicio, NumeroFactura, DiasdeComision, LitrosGasolina, importe, importeTotal
y quisiera realizar busquedas y que los resultados me los muestre en un dbgrid
, de hecho ya tengo el codigo pero con filtros y lo que quiero es cambiar a busquedas con SQL...
Los campos con los que quiero realizar consultas son: fechadeServicio tipo D, numerofactura tipo A, importe tipo N, Diasdecomision tipo A y NumeroVehiculo tipo A de longitud 3
para ello tengo unos RadioButton y si quiero buscar por algun de estos campos se activen la consulta solicitada y me muestre los resultados en un dbgrid
Código Delphi
[-]
procedure TFrmBusquedasGenerales.SpeedButton1Click(Sender: TObject);
var consulta : string;
begin
if edit1.Text<>'' then
begin
if radiobutton1.Checked=true then
DBGrid1.DataSource.DataSet.Filter:='fechadeservicio='+chr(39)+edit1.Text+chr(39)
else if radiobutton2.Checked=true then
DBGrid1.DataSource.DataSet.Filter:='numerofactura='+chr(39)+'FACT.N. '+edit1.Text+chr(39)
else if radiobutton3.Checked=true then
DBGrid1.DataSource.DataSet.Filter:='importe='+edit1.Text
else if radiobutton4.Checked=true then
DBGrid1.DataSource.DataSet.Filter:='diasdecomision='+chr(39)+edit1.Text+chr(39)
else if radiobutton5.Checked=true then
DBGrid1.DataSource.DataSet.Filter:='NumeroVehiculo='+edit1.Text;
end
else
begin
MessageDlg('RECUERDA: selecciona una opción'+chr(13)+'y escribe el dato correcto #€%&@ jejeje',mtError,[mbOk],0);
end;
end;
disculpen pero aun soy nuevo en SQL