Ver Mensaje Individual
  #12  
Antiguo 24-11-2017
Avatar de duilioisola
[duilioisola] duilioisola is offline
Miembro Premium
 
Registrado: ago 2007
Ubicación: Barcelona, España
Posts: 1.732
Reputación: 20
duilioisola Es un diamante en brutoduilioisola Es un diamante en brutoduilioisola Es un diamante en bruto
Cita:
Empezado por The Cid James Ver Mensaje
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;
Responder Con Cita