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...

Bienvenido a clubdelphi, por favor, lee nuestra guía de estilo, gracias.
He movido tu mensaje a un nuevo hilo y le he puesto un título descriptivo.
Saludos.

Lo que debes hacer es unificar la parte que filtra/ordena en un procedimiento aparte y luego llamarlo desde los diferentes lugares cuyo cambio deba lanzar ese filtro/orden.
Esto te permitirá separar la interfase con el usuario de la lógica de negocio.
Si en el futuro modificas el filtro/orden o agregas un nuevo filtro, solo debes modificarlo en un solo lugar (procedure Filtrar) y llamarlo desde el nuevo OnChange del componente.

Código Delphi [-]
procedure TFrmModArt.Filtrar;
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;

procedure TFrmModArt.BuscarCodigoExecute(Sender: TObject);
begin
   Filtrar;
end;

procedure TFrmModArt.sMaskEdit1Change(Sender: TObject);
begin
   Filtrar;
end

Otra cosa:
¿Estás programando con acentos?

Código Delphi [-]
procedure TFrmModArt.BuscarCódigoExecute(Sender: TObject);

Hola duilioisola excelente tu explicación... entendí a la perfección... Ahora otra pregunta... que diferencia hay entre filtrar o/y consulta... si no entendí mal para filtrar sería:
para consultar:
Esta bien???

Por otro lado:
Me quedo así... esta mal??? gracias de ante mano...

"Filtro" y "Consulta", diría que es lo mismo. (Query en inglés se traduce como consulta).
La consulta puede estar filtrada para que aparezcan registros que cumplan cierta condición.

Por lo tanto, la pregunta que debes hacerte es si quieres un registro específico o los registros que cumplan cierta condición.

Para seleccionar un registro específico, normalmente, te referirías a el por algún valor/es específico/s.
Por ejemplo un ID único o algo que sepas que núnca se repite (por ejemplo el código de un cliente en una empresa).

Código SQL [-]
/*
Para referirse a un registro específico
En este ejemplo:
- ID es un índice tipo UNIQUE KEY
- EMPRESA, CLIENTE es la PK
*/

SELECT * FROM CLIENTES 
WHERE 
ID = :ID

SELECT * FROM CLIENTES 
WHERE 
EMPRESA = :EMPRESA AND
CLIENTE = :CLIENTE

Para seleccionar un grupo de registros que cumplan una condicion.. pues creo que esto es obvio.
El único consejo es que siempre los traigas ordenados. Si no lo haces, no podrás confiar en que el primer registro es el "mas pequeño", pues el estandar SQL no especifica ningún orden por defecto.

Código SQL [-]
SELECT * FROM CLIENTES 
WHERE 
EMPRESA = :EMPRESA
ORDER BY CLIENTE

Con respecto a los acentos:
No está mal, pues compila y seguramente hace lo que quieres, pero:
Me he encontrado con muchas dificultades al tratar de lidiar con código o estructuras que utilizaban acentos, caracteres raros (ñ, ç, etc.) o espacios.
Por ejemplo

• importando CSV(coma separated values) de archivos que a veces venían codificados como UTF y otras como ANSI. La primera línea eran los nombres de los campos de tablas y al importarlos, a veces introducían caracteres raros.
• Al leer código con editores que no entienden del todo bien el juego de caracteres que deben utilizar.

Supongo que otros compañeros del club habran tenido sus dificultades, y si preguntas seguro que te cuentan sus batallitas...

duilioisola excelente tu explicación y una vez mas gracias...