Guten Tag,
Ich bin neu in diesem Forum und auch was das Programmieren angeht da ich eine Umschulung angefangen habe und mit Lazarus(2.2.4) Arbeite.
Derzeit Programmiere ich einen Gaszähler mit MariaDB-10 und einem DBGrid, leider bekomme ich es aber nicht hin das mein Neu Eingetragener Wert ("Neu" im DBGrid) dann als Alter Stand in der nächen Reihe Eingetragen wird ("Stand" im DBGrid). Mein Code ist leider noch nicht so Gut/schön da ich noch reltiv am Anfang stehe.
Über Hilfe würde ich micht sehr freuen.
(Bild vom DBGrid Häng ich einfach mal an Genau wie den Code der bisher Zum Füllen des DBGrids Zuständig ist)
https://s20.directupload.net/images/221107/xv6rlpso.png
Mein Bisheriger Code:
Code:
//------------------------------------------------------------------------------
//
SQL Table füllen (DBGrid)
//------------------------------------------------------------------------------
begin
with DB_Query_Eintragen do
begin
Application.ProcessMessages;
Close;
SQL.Clear;
SQL.Text:='select * from daten';
ExecSQL;
Active:=True;
Edit;
Last;
zStand:=FieldByName('Stand').AsInteger;
Append;
//FieldByName('Stand').AsInteger:=FieldByName('Neu').AsInteger;
FieldByName('Datum').AsDateTime:=Date;
FieldByName('Zeit').AsString:=TimeToStr(Time);
FieldByName('Name').AsString:=CbB_Name.Text;
DB_Query_Eintragen.FieldByName('Stand').AsVariant:=0;
x:=StrToInt(LbE_Zaehler.Text);
FieldByName('Neu').AsVariant:=(x);
y:=x-zStand;
FieldByName('Neu').AsVariant:=StrToInt(LbE_Zaehler.Text);
FieldByName('Verbrauch').AsVariant:=IntToStr(y);
Post;
Table_Daten.Refresh;
Close;
end;
end;
end;
MFG