Hola.
Ahora si entiendo la relación...
Código Delphi
[-]
...
procedure TForm1.eProductoChange(Sender: TObject);
begin
if RadioGroup1.ItemIndex <> -1 then
begin
qProducto.Close;
qProducto.SQL.Clear;
qProducto.SQL.Add('SELECT * FROM PRODUCTO');
qProducto.SQL.Add('WHERE ESTADO = :STATE');
qProducto.SQL.Add('AND NOMBREPRODUCTO LIKE :NAME');
qProducto.ParamByName('STATE').Value := 1 - RadioGroup1.ItemIndex; qProducto.ParamByName('NAME').AsString := '%' + TEdit(Sender).Text + '%';
qProducto.Open;
end;
end;
(**) linea que reemplaza a:
Cita:
Empezado por cristian22
Código Delphi [-]
case radiog.ItemIndex of
0: qProductos.SQL.ADD(' where estado=1') ;
1: qProductos.SQL.ADD(' where estado=0');
end;
|
Saludos