Einzelnen Beitrag anzeigen

xDdaviiDxD

Registriert seit: 1. Nov 2022
Ort: Sachsen-Anhalt
16 Beiträge
 
FreePascal / Lazarus
 
#1

Lazarus DBGrid Eintrag

  Alt 7. Nov 2022, 10:25
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
  Mit Zitat antworten Zitat