ok, ich hab's jetzt so, danke für den tip, der code ist jetzt schlanker...
Delphi-Quellcode:
procedure Tmovestock.Button1Click(Sender: TObject);
//Eingang Material
var
fs: TFormatSettings;
begin
// weil du im Edit keinen Dezimalpunkt verwendest:
fs.DecimalSeparator := '
,';
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 := now;
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 := now;
ExecSQL;
end;
label6.Caption := datetimetostr(now);
button3.Click;
end;
und den datetimepicker brauch ich jetzt wirklich nicht, denn alle buchungen sollen ja nur mit dem aktuellen datum und uhrzeit gespeichert werden, so kann man am datum nichts machen...gute idee, danke