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?