Zeit im Label aktualisieren

[tom_po]

Ich habe eine kleine Lagerverwaltung (DBisam Datenbank), wo ich Lagereingänge und ausgänge registriere.

Alles klappt soweit gut (war bis dahin nur mit grosser Hilfe von marabu möglich), die Lageraus-und eingänge werden mit aktuellem Datum und Uhrzeit verbucht, dabei die Bestände aktualisiert.

Nach der Verbuchung soll in Label6 das Datum und die Uhrzeit der Bechung angezeigt werden, dies funktoioniert auch beim ersten mal gut, doch bei der zweiten Buchung ändert sich die Uhrzeit nicht.
Hier der Code:

Delphi-Quellcode:

procedure Tmovestock.Button1Click(Sender: TObject);     //Eingang Material
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;

    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;
  label6.Caption := datetimetostr(Datetimepicker1.dateTime);
  button3.Click;
end;

button3 aktualisiert den Bestand des Vorrats in dbedit1 so:

Delphi-Quellcode:

procedure Tmovestock.Button3Click(Sender: TObject);
begin
dbisamquery3.SQL.Clear;
dbisamquery3.sql.Add('select stock from stockfabric where code='+quotedstr(combobox1.Text));
dbedit1.Text:='stock';
dbisamquery3.ExecSQL;
end;

anbei noch ein bild der Form

[MrKnogge]

Da ich den TDateTimePicker mit der Datumsansicht sehe, gehe ich davon aus, dass du bei dem TDateTimePicker nicht die Uhrzeit aktualisierst. Nimm statt dem TDateTimePicker mal := Now; gruss

[tom_po]

hab's jetzt so erweitert, jedoch, die Uhrzeit ändert sich nicht, wenn ich eine 2. Buchung mache, weder im Label6, noch in der Datenbank, dort wird immer mit derselben Uhrzeit gebucht, wie die Form aufgerufen wurde:

Delphi-Quellcode:

procedure Tmovestock.Button1Click(Sender: TObject);     //Eingang Material
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;

    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;
  Datetimepicker1.Date:=now;
  label6.Caption := datetimetostr(Datetimepicker1.dateTime);
  button3.Click;
end;

[tom_po]

bin jetzt selbst darauf gekommen, jetzt gehts so:

Delphi-Quellcode:

procedure Tmovestock.Button1Click(Sender: TObject);     //Eingang Material
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;

    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;
  Datetimepicker1.Date:=Date;
  Datetimepicker1.Time:=Time;
  label6.Caption := datetimetostr(Datetimepicker1.dateTime);
  button3.Click;
end;

verstehe allerdings nicht, wieso es mit dienem Vorschlag (now) nicht geht!!??

[pacman1986]

oder
  Datetimepicker1.DateTime := Now;

[MrKnogge]

lass den TDateTimePicker doch weg, sondern benutz nur "now"

[tom_po]

ich hab's jetzt so:

Delphi-Quellcode:

Datetimepicker1.Date:=Date;
  Datetimepicker1.Time:=Time;
  //label6.Caption := datetimetostr(Datetimepicker1.dateTime);
  label6.Caption := datetimetostr(now);
  button3.Click;

die Aktualisierung des Datums und der Zeit brauche ich hier, sonst wird die Lagerbewegung in der datenbank nicht aktualisiert

[pacman1986]

und was hatt das mit dem tdatetimepicker zu tun den brauchst du nicht...

ps : dt brauchst du auch nicht;

einfach

Params.ParamByName('datum').Value := now; und unten das selbe dann kannst du den tdatetimepicker Löschen und die variable brauchst du auch nicht ...

[tom_po]

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