Duda sobre comodines en consulta

[[duilioisola]]

Empezado por The Cid James

Lo que intento hacer es:
1-Cuando se habra en tform donde esta la consulta muestre todos los productos. (Esta parte es la que tengo problemas por no poder usar comodin con valores numericos con el igual)
2-Poder filtrar los productos por nombre o categoria (en el caso de la categoria lo tengo asociado a DBLookupCombobox)

Creo entender lo que quieres.

Cuando se abre el TForm el SQL debe ser el que muestra todos los productos en stock

Código SQL [-]
SELECT   
producto.id_producto, producto.Nombre, producto.Descripcion, producto.Precio_com, producto.Stock, producto.stock_minimo, 
producto.precio_vent, producto.id_categoria_producto 
FROM producto 
WHERE  
producto.estado = 1

Cuando quiera filtrar, obtienes el filtro (nombre o id) cierras el query, modificas el SQL según quieras filtrar por ID del pructo o por nombre y lo vuelves a abrir:

Código Delphi [-]
procedure FiltrarPorNombre(Nombre : string);
begin
  with QueryProductos do
  begin
     Close;
     SQL.Clear;
     SQL.Add(' SELECT ');
     SQL.Add(' producto.id_producto, producto.Nombre, producto.Descripcion, producto.Precio_com, producto.Stock, producto.stock_minimo,  ');
     SQL.Add(' producto.precio_vent, producto.id_categoria_producto  ');
     SQL.Add(' FROM producto  ');
     SQL.Add(' WHERE   ');
     SQL.Add(' producto.estado = 1 ');
     SQL.Add(' AND producto.Nombre like :nomp ');
     Params.ByName('NOMP').AsString := '%' + Nombre + '%';
     Open;
  end;
end;

procedure FiltrarPorId(Id : string);
begin
  with QueryProductos do
  begin
     [...]
     SQL.Add(' AND producto.ID = :ID ');
     Params.ByName('ID').AsInteger := id;
     Open;
  end;