Ich möchte jetzt noch bei Klick des Button1 den Wert, den ich im edit1 eingebe hinzuaddieren zum bereits bestehenden Wert (feld "stock") des feldes "code" (=combobox1.text) der tabelle "stockfabric"
mein jetziger code ist so:
Delphi-Quellcode:
procedure Tmovestock.Button1Click(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, eingang, datum) '
+ '
values (:code, :eingang, :datum)';
Params.ParamByName('
code').Value := combobox1.Text;
Params.ParamByName('
eingang').Value := StrToFloat(edit1.Text);
Params.ParamByName('
datum').Value := dt;
ExecSQL;
end;
begin
dbisamquery4.SQL.Clear;
dbisamquery4.sql.Add('
update stockfabric set stock = '+edit1.Text+'
where code = '+quotedstr(combobox1.Text));
dbisamquery4.ExecSQL;
end;
edit1.Text := '
';
combobox1.Text := '
';
end;
das heisst, ich schaffe es, edit1 zu übernehmen, ich möchte ihn jedoch hinzuaddieren zum bestehenden wert des feldes "stock", das auch den datatyp float hat!