edit-Wert als float in Tabelle speichern

[tom_po]

Hallo marabu!

Zunächst mal ein ganz grosses Dankeschön, du warst mir wirklich eine sehr grosse Hilfe, funktioniert wunderbar, habe jetzt noch die Aktualisierung des Datums in meiner Tabelle "stockfabric" mit eingebaut und mache jetzt auf die ähnliche Art mit button2 meine Lagerausgänge.
Toll!!!!!!!!

Delphi-Quellcode:

procedure Tmovestock.Button2Click(Sender: TObject);
var
  dt: TDateTime;
  fs: TFormatSettings;
begin
  // weil du im Edit keinen Dezimalpunkt verwendest:
  fs.DecimalSeparator := ',';
  dt := DateTimePicker1.DateTime;
  with dbisamquery1 do
  begin
    SQL.Text := 'insert into movestock(code, ausgang, datum) '
              + 'values (:code, :ausgang, :datum)';
    Params.ParamByName('code').Value := combobox1.Text;
    Params.ParamByName('ausgang').Value := StrToFloat(edit1.Text);
    Params.ParamByName('datum').Value := dt;
    ExecSQL;

    SQL.Text := 'update stockfabric set stock = stock - :stock where code =  :code';
    Params.ParamByName('code').Value := combobox1.Text;
    Params.ParamByName('stock').Value := StrToFloat(edit1.Text);
    ExecSQL;
    SQL.Text := 'update stockfabric set date = :datum where code =  :code';
    Params.ParamByName('datum').Value := dt;
    ExecSQL;
  end;
  edit1.Text := '';
  combobox1.Text := '';
end;

Kurze Frage noch: Kann ich die beiden Updates unten nicht zusammen nehmen, also das updaten des datums gleich mit dem ersten update-query miteinbehziehen?

[marabu]

Selbstverständlich.

Delphi-Quellcode:

// ...
    SQL.Text := 'update stockfabric set stock = stock - :stock, '
              + 'date = :datum where code =  :code';
    Params.ParamByName('code').Value := combobox1.Text;
    Params.ParamByName('stock').Value := StrToFloat(edit1.Text);
    Params.ParamByName('datum').Value := dt;
    ExecSQL;

marabu