[ContraVeneno]

Código Delphi [-]
with UnADOQuery do begin
 If active then Close;
 SQL.Clear;
 SQL.Add('Update Cuotas')
 SQL.Add('Set Enero = :Enero');
 SQL.Add('Where Cliente = :Cliente');
 with Paramteres do begin
  ParamByName('Enero').Value := edtCuotaEnero.AsCurrency;
  ParamByName('Cliente').Value := edtIDCliente.Text;
 end; //with paramters
 ExecSQL;
end; //with