Otra opción es "separar" la parte visual de la parte de "los datos".
Igual que de entrada, has eliminado el
Edit_Codigo.Text de donde tenías la consulta y lo has convertido en un parámetro, puedes hacer lo mismo con el
Dataset.
Código Delphi
[-]Modulo.EliminarArticulo(Edit_Codigo.Text);
De forma que esta llamada quedaría así:
Código Delphi
[-]Modulo.EliminarArticulo(Edit_Codigo.Text, ADataset);
Y luego podrías tener u procedimiento (en la parte voisual) que cogiera los valores del Dataset y los asignara a los campos visuales:
Código Delphi
[-]Modulo.EliminarArticulo(Edit_Codigo.Text, ADataset);
AsignarVvaloresRetorna(ADataset);
Y el procedimiento quedaría así (en la parte visual):
Código Delphi
[-]
procedure AsignarValoresRetorna(ADataset:TDataset);
begin
With ADataset do
begin
Edit_Descripcion.Text := FieldByName('Desc_Producto').AsString;
Edit_PreUnitario.Text := FieldByName('Precio').AsString;
ComboBox_IVA.Text := FieldByName('Valor_IVA').AsString;
Edit_Ganancia.Text := FieldByName('Porcentaje_Ganancia').AsString;
SpinEdit_Stock.Text := FieldByName('Cant_Existente').AsString;
SpinEdit_StockMinimo.Text := FieldByName('Cant_Minima').AsString;
SpinEdit_CantRep.Text := FieldByName('Cant_Reposicion').AsString;
ComboBox_Seccion.Text := FieldByName('Desc_Seccion').AsString;
ComboBox_Categoria.Text := FieldByName('Desc_Categoria').AsString;
ComboBox_Proveedor.Text := FieldByName('Denominacion').AsString;
Edit_CodProveedor.Text := FieldByName('Cod_Producto_Proveedor').AsString;
SpinEdit_UniProveedor.Text := FieldByName('Unidad_Proveedor').AsString;
Edit_CodBarras.Text := FieldByName('Cod_Barras').AsString;
end;
end;