Ver Mensaje Individual
  #27  
Antiguo 24-05-2018
DiegoPucho DiegoPucho is offline
Miembro
NULL
 
Registrado: ago 2017
Posts: 36
Reputación: 0
DiegoPucho Va por buen camino
Smile Filtrar mientras se teclea

Hola y buenas... Soy nuevo y espero poder expresarme como es debido... Tengo problemas con un dbgrid, el cual quiero hacer una consulta: tengo 3 RadioButton y un MaskEdit1. Todo conectado a la base de datos y funcionando... me muestra la consulta pero no como espero que le haga...

En el RadioButton1....
Código Delphi [-]
procedure TFrmModArt.BuscarCódigoExecute(Sender: TObject);
begin
   TsPageControl1.ActivePage:=BUSCADOR;
   if sRadioButton1.checked then
   begin
   ABSQProductos.Close;
   ABSQProductos.SQL.Text := 'SELECT * FROM tbarticulos WHERE Codigo='+quotedStr(sMaskEdit1.text);
   sStatusBar2.Panels[0].Text := 'BUSQUEDA POR CÓDIGO';
   ABSQProductos.Open;
   sStatusBar2.Panels[2].Text := 'CANTIDAD DE PRODUCTOS: '+ IntTostr(ABSQProductos.RecordCount);
   end
else
   begin
   ABSQProductos.Close;
   ABSQProductos.SQL.Text := 'SELECT * FROM tbarticulos=';
   sStatusBar2.Panels[0].Text := 'TODOS LOS PRODUCTOS';
   ABSQProductos.Open;
   sStatusBar2.Panels[2].Text := 'CANTIDAD DE PRODUCTOS: '+ IntTostr(ABSQProductos.RecordCount);
   end;
end;

y en el MaskEdit1.....
Código Delphi [-]
procedure TFrmModArt.sMaskEdit1Change(Sender: TObject);
begin
   ABSQProductos.Close;
   ABSQProductos.SQL.Clear;
   ABSQProductos.SQL.Add('Select * ' + 'From tbarticulos WHERE Descripcion LIKE (' + QuotedStr('%' + sMaskEdit1.Text + '%') + ') ');
   ABSQProductos.Open;
end;

Lo que esta haciendo es que tengo que apretar el RadioButton para que busque... y yo quiero que mientras escribo en el edit me lo valla ordenando, según en que RadioButton este...

Desde ya muchas gracias...
Responder Con Cita