Lazarus DBGrid Eintrag

[xDdaviiDxD]

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. :lol:
Ü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

[Delphi.Narium]

Delphi-Quellcode:

begin
   // Bisherige Abfrage schließen.
  DB_Query_Eintragen.Close;
  // Neues Statement zuweisen. 
  // Ohne Order By ist die Reihenfolge eher zufällig.
  // Eventuell select * from daten order by Datum, Zeit? 
  DB_Query_Eintragen.SQL.Text := 'select * from daten'; 
  // Abfrage öffnen
  DB_Query_Eintragen.Open;
  // Zum letzten Satz gehen, ohne Order By nicht zwingend der höchste, Stand, 
  // das neueste Datum, sondern nur das, was die Datenbank zufällig als Letztes liefert.
  DB_Query_Eintragen.Last; 
  // Berechnungen durchführen
  // Der Wert von Neu aus dem letzten Datensatz wird im neuen Datensatz der Wert für Stand.
  zStand        := DB_Query_Eintragen.FieldByName('Neu').AsInteger;
  xZaehlerstand := StrToInt(LbE_Zaehler.Text);
  yVerbrauch    := xZaehlerstand - zStand;
  // neuen Datensatz einfügen und Werte zuweisen  
  DB_Query_Eintragen.Append; 
  DB_Query_Eintragen.FieldByName('Datum').AsDateTime := Date;
  // Warum Datum als TDateTime und Zeit als String?
  DB_Query_Eintragen.FieldByName('Zeit').AsString := TimeToStr(Time);
  // oder DB_Query_Eintragen.FieldByName('Zeit').AsDateTime := Time;
  DB_Query_Eintragen.FieldByName('Name').AsString := CbB_Name.Text;
  DB_Query_Eintragen.FieldByName('Stand').AsInteger := zStand;
  DB_Query_Eintragen.FieldByName('Neu').AsInteger := xZaehlerstand;
  DB_Query_Eintragen.FieldByName('Verbrauch').AsInteger := yVerbrauch;
  // und Daten speichern.
  DB_Query_Eintragen.Post;
  // Abfrage schließen.
  DB_Query_Eintragen.Close;
  // Welcher Zusammenhang besteht zwischen
  // der Abfrage DB_Query_Eintragen, Table_Daten und dem DBGrid?
  Table_Daten.Refresh;
end;

Habe mal deinen Quelltext etwas überarbeitet und kommentiert, keine Ahnung, ob dadurch dein Problem gelöst werden kann.

Delphi-Quellcode:

.AsVariant

nutze ich nur, wenn ich den Datentyp nicht kenne.

Wenn x ein Integer ist, ist eine Zuweisung der Art

Delphi-Quellcode:

.AsVariant := x

, nicht zwingend sinnvoll, da ist

Delphi-Quellcode:

.AsInteger := x

bessert, dito. natürlich auch für Strings, ...

Mit welcher Datenbankkomponente ist das DBGrid verbunden? Mit DB_Query_Eintragen oder mit Table_Daten. Welche Daten enthält überhaupt Table_Daten?

Sollte das DBGrid mit DB_Query_Eintragen verbunden sein, muss

Delphi-Quellcode:

DB_Query_Eintragen.Close;

entfallen, da dadurch die Datenmenge geschlossen wird und damit keine Anzeige im DBGrid möglich ist.

[xDdaviiDxD]

Vielen Dank Für deine Hilfe und die Tipps mit der Zuweisung,

Ich werde es Gleich Testen und ein Feedback geben.

Das DBGrid ist derzeit mit der DataSource (Unter Eigenschaften) Verbunden ( Ich häng mal ein Screenshot und den Gesamten Komponenten auf dem Desinger an :-D)

https://s20.directupload.net/images/221108/9vbeyuh4.png

Hier mal der Komplett Code.

Code:

var
   x      : Integer;
   y      : Integer;
   zStand : Integer;

begin
//------------------------------------------------------------------------------
//Zählerstand darf nicht Leer sein!
//------------------------------------------------------------------------------
begin
      if (LbE_Zaehler.Text='') then
   begin
     ShowMessage('Bitte Zählerstand Eintragen.');
   end;
end;
//------------------------------------------------------------------------------
// ComboBox mit namen Darf nicht Frei Sein!
//------------------------------------------------------------------------------
begin
      if (CbB_Name.Text='') then
   begin
     ShowMessage('Bitte Namen Auswählen.');
   end;
end;
//------------------------------------------------------------------------------
// 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 David

[xDdaviiDxD]

Ich hab es jetzt Getestet und es Funktioniert Einwandfrei.

Also Nochmal Vielen Dank für deine Hilfe Delphi.Narium. :-D :thumb:

[haentschman]

Moin...8-)

Zitat:

da ich eine Umschulung angefangen habe und mit Lazarus(2.2.4) Arbeite

Ist das dein privater Code oder hat das dir der Lehrer so erklärt? :gruebel:

[xDdaviiDxD]

Moin :)

Zitat:

Ist das dein privater Code oder hat das dir der Lehrer so erklärt? :gruebel:

Das hat mir mein Chef in meinem Praktikum mit so erklärt. :-D

[haentschman]

Zitat:

Das hat mir mein Chef in meinem Praktikum mit so erklärt

...sei nicht böse...aber oh mein Gott. :shock:

Wenn du das wirklich lernen willst, nehme ich mir die Zeit dir die Fehler, unabhängig von der Funktion, in deinem Code zu erklären. Sag Bescheid...:wink:

Bitte lade mal das komplette Projekt als ZIP hoch. :wink:

PS:
Wenn du das durchgearbeitet hast, siehst du selbst einige Fehler. :zwinker:
https://www.delphi-treff.de/object-pascal/styleguide/

PS:
Bilder bitte nicht als Link sondern als Anhang direkt hier anhängen.

[xDdaviiDxD]

Zitat:

...sei nicht böse...aber oh mein Gott. :shock:

Nein bin ich nicht Keine Sorge , ich bin für jede Hilfe und jeden Tipp sehr Dankbar. :-D

Das Angebot würde ich sehr gerne Annehmen, Ich möchte es Richtig Lernen und später auch Richtig und Sauber Umsetzen können. Vielen Dank schonmal :)

Zitat:

Wenn du das durchgearbeitet hast, siehst du selbst einige Fehler. :zwinker:
https://www.delphi-treff.de/object-pascal/styleguide/

Wird Gemacht.^^

Zitat:

Bilder bitte nicht als Link sondern als Anhang direkt hier anhängen.

Oh Natürlich wird gemacht. Hätte ich mir auch Denken Können. :s


Projekt hab ich mit Angehangen

[haentschman]

Hallöle...8-)

Ich werde dein Projekt mal mit Anmerkungen versehen. Da ich auch arbeiten muß, klappt das nicht gleich. :wink: Wenn du das durchgearbeitet hast, stellt du das Ergebnis mal hier online. (ZIP)

PS:
Auf den ersten Blick ist dein Code nicht so schlimm. :thumb: Du hast aber mindestens 3 Logicfehler drin. Stichwort: Btn_EintragenClick(Sender: TObject). Schau dir das mal genauer an. :wink:

[xDdaviiDxD]

Okay mach ich :D
Bin schon dabei, könnte gegeben falls bei mir aber auch noch ein Moment Dauern :lol:

Oh Danke ich schau mir das gleich mal an und guck ob ich die Logikfehler direkt finde.

[xDdaviiDxD]

So Ich hab mal versucht das ganze mit der Hilfe des Guides etwas zu verschönern und Übersichtlicher zu machen. :-D

Ich weiß nicht ob du Die Fehler die ich Gefunden habe mit Logikfehler meinst aber ich hab gesehen das es einen Fehler gibt wenn ich den Zählerstand leer lasse wenn das Programm Läuft. :roll:
Dann hab ich noch den Fehler gefunden das er den Eintrag trotzdem macht auch wenn kein Name aus der Combobox ausgewählt ist.

Behoben hab ich das leider Bisher noch nicht da setz ich mich Morgen mal dran. :)

In den Anhang pck ich mal den Verschönerten Code.

[haentschman]

Hallöle...8-)

Anbei die Bemerkungen...

[xDdaviiDxD]

Vielen Vielen Dank haentschman!:-D

Ich hab meinen Code noch etwas angepasst und mit dem Guide und deinen Tipps/Hilfe Lesbarer gemacht.
Das hat mir extrem geholfen auch nochmal etwas mehr Verständnis dafür zu bekommen.

Danke das du dir die Zeit genommen hast :)

Eine Frage hätte ich noch, Ich hab ja die Procedure von dem Edit Feld mit der Passwort Eingabe. Ich steh grade etwas auf dem Schlauch und frage mich ob ich das noch etwas Sauberer schreiben könnte da ich mehrere Buttons erst nach Eingabe das Passwortes sichtbar machen möchte.

Code:

procedure TForm1.EditPasswortChange(Sender: TObject);

begin
  EditPasswort.PasswordChar:= #0;
  EditPasswort.PasswordChar:= '*';
    if (EditPasswort.Text ='test123') then
      BtnMinimieren.Visible:=True
    else
      BtnMinimieren.Visible:=False;

    if (EditPasswort.Text ='test123') then
      BtnSchliessen.Visible:=True
    else
      BtnSchliessen.Visible:=False;

    if (EditPasswort.Text ='test123') then
      BtnNewDb.Visible:=True
    else
      BtnNewDb.Visible:=False;
end;

MFG
David

[Klaus01]

.. du kannst das mit begin end zusammenfassen.

Delphi-Quellcode:

    if (EditPasswort.Text ='test123') then
      begin
        BtnMinimieren.Visible:=True;
        BtnSchliessen.Visible:=True;
        BtnNewDb.Visible:=True;
      end
    else
      begin
        BtnMinimieren.Visible:=False;
        BtnSchliessen.Visible:=False;
        BtnNewDb.Visible:=False;
      end;

[xDdaviiDxD]

Vielen Danke Klaus :)

[Delphi.Narium]

Alternative:

Delphi-Quellcode:

procedure TForm1.EditPasswortChange(Sender: TObject);
begin
  EditPasswort.PasswordChar := #0;
  EditPasswort.PasswordChar := '*';
  BtnMinimieren.Visible := (EditPasswort.Text = 'test123');
  BtnSchliessen.Visible := (EditPasswort.Text = 'test123');
  BtnNewDb.Visible := (EditPasswort.Text = 'test123');
end;

oder

Delphi-Quellcode:

procedure TForm1.EditPasswortChange(Sender: TObject);
begin
  EditPasswort.PasswordChar := #0;
  EditPasswort.PasswordChar := '*';
  // Es reicht, diesen Vergleich einmal zu machen.
  BtnMinimieren.Visible := (EditPasswort.Text = 'test123');
  BtnSchliessen.Visible := BtnMinimieren.Visible;
  BtnNewDb.Visible := BtnMinimieren.Visible;
end;

oder

Delphi-Quellcode:

function PruefePasswort(AEingabe, APasswort : String) : Boolean;
begin
  // Hier könnte man später auch eine beliebige Prüflogik implementieren.
  Result := AEingabe = APasswort;
end;

procedure TForm1.EditPasswortChange(Sender: TObject);
begin
  EditPasswort.PasswordChar := #0;
  EditPasswort.PasswordChar := '*';
  BtnMinimieren.Visible := PruefePasswort(EditPasswort.Text,'test123');
  BtnSchliessen.Visible := BtnMinimieren.Visible;
  BtnNewDb.Visible := BtnMinimieren.Visible;
end;

[DeddyH]

Keine Ahnung, ob das unter Lazarus funktioniert, aber so oder ähnlich würde ich es wohl machen:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    edtPassword: TEdit;
    btnBla: TButton;
    btnBlubb: TButton;
    btnWuppdi: TButton;
    procedure FormCreate(Sender: TObject);
    procedure edtPasswordChange(Sender: TObject);
    ...
  private
    { Private-Deklarationen }
    FButtons: array of TButton;
    function PasswordValid(const APassword: string): Boolean;
    ...
  end;
  
 ...
 
procedure TForm1.edtPasswordChange(Sender: TObject);
var
  i: integer;
begin
  for i := Low(FButtons) to High(FButtons) do
    FButtons[i].Visible := PasswordValid(edtPassword.Text);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  FButtons := [btnBla, btnBlubb, btnWuppdi];
end;

function TForm1.PasswordValid(const APassword: string): Boolean;
begin
  Result := APassword = 'test123';
end;

P.S.: das PasswordChar kann man direkt im Objektinspektor setzen und muss das nicht immer wieder tun.

[Delphi.Narium]

Um die Passwortprüfung nur einmal machen zu müssen:

Delphi-Quellcode:

procedure TForm1.edtPasswordChange(Sender: TObject);
var
  i : integer;
  bOk : Boolean;
begin
  bOk := PasswordValid(edtPassword.Text);
  for i := Low(FButtons) to High(FButtons) do
    FButtons[i].Visible := bOk;
end;

Je nachdem wie die Prüfung des Passwortes erfolgt (z. B. Abgleich mit Daten in einer Datenbank), kann es schon sinnvoll sein, die Prüfung des Passwortes nur einmalig vorzunehmen.

[xDdaviiDxD]

Vielen Dank euch allen,

ich werde es alles mal Durchtesten und schauen was am besten für das Projekt Passt. :-D

[xDdaviiDxD]

Guten Tag,

Ich Hoffe das ist Okay das ich hier drin einfach meine Nächste Frage stelle. :D

und zwar würde ich gern das DBGrid einmal als CSV Exportieren und später Importieren.

Mit Hilfe des Internets hab ich den Export als CSV schon "Fertig".

Code:

//==============================================================================
procedure TForm1.btnCsvExportClick(Sender: TObject);
//==============================================================================
var
 sInhalt:string;
 fDatei:textfile;
begin
 assignfile(fDatei,'C:\Lazarus_Projekte\DB_Gaszähler\DBDaten.csv');
 rewrite(fDatei);
 TableDaten.First;
while not TableDaten.EOF do
 begin
  sInhalt:='"' + TableDaten.FieldByName('idDaten').AsString +'",';
  sInhalt:=sInhalt + '"' + TableDaten.FieldByName('Datum').AsString +'"';
  sInhalt:=sInhalt + '"' + TableDaten.FieldByName('Zeit').AsString +'",';
  sInhalt:=sInhalt + '"' + TableDaten.FieldByName('Name').AsString +'"';
  sInhalt:=sInhalt + '"' + TableDaten.FieldByName('Stand').AsString +'"';
  sInhalt:=sInhalt + '"' + TableDaten.FieldByName('Neu').AsString +'"';
  sInhalt:=sInhalt + '"' + TableDaten.FieldByName('Verbrauch').AsString +'"';

  WriteLn(fDatei, sInhalt);
  TableDaten.next;
 end;
   closefile(fDatei);
end;

Mein Problem ist das ich den Import einfach nicht Hinbekomme. :s

Es sollte am besten per Button in mein DBGrid.
Würde mich sehr über weitere Hilfe Freuen.

MfG
David

[itblumi]

Falls du nur CSV Daten in deinem Grid nur anzeigen möchtest, dann kannst du in Lazarus das TCSVDataset dazu verwenden.
Falls du aber die Daten auch in deine DB importieren möchtest, dann müsstest du erst die Daten in die Datenbank importieren und dann über die DB die Daten in deinem Grid anzeigen.

Mir ist leider noch nicht ganz klar was du mit den Daten machen möchtest, deswegen kann ich dir wahrscheinlich nur teilweise helfen.

[xDdaviiDxD]

Das ganze soll Als Backup gedacht sein falls mal mit der Datenbank etwas schiefläuft, so dass ich die CSV als Backup-Datei habe und sie in dem Fall nur "Neu" Laden/Importieren muss.

Also sollten die Daten aus der CSV in die Datenbank importiert werden wenn ich den Button zum laden/Importieren Drücke.(Nur leider sind da meine Probleme das ich nicht weiß wie ich das genau Anstelle :s)

Das ganze Projekt ist ein Gaszähler welcher später auf einem RaspberryPi (als Tablet) Laufen soll.

MfG

David

[itblumi]

Im 2. post dieses Threads gab es ja schon mal eine Erklärung wie du Daten in die Datenbank eintragen kannst. Ich würde aus den CSV Daten einen SQL Insert Befehl generieren.

SQL-Befehl: INSERT INTO Tabelle (Spalte1, Spalte2, ...) VALUES (value1, value2, ..)

1. Die Spaltennamen aus der CSV auslesen, damit du den ersten Teil des Inserts Befehl generieren kannst.
2. Danach müsstest du die Values mit den Daten füllen in dem Format wie deine Datenbank sie haben möchte. Du müsstest also noch die Werte dementsprechend umwandeln (Datums Werte etc.).
3. Die Query an die Datenbank schicken.

[Klaus01]

Zitat:

Das ganze soll Als Backup gedacht sein falls mal mit der Datenbank etwas schiefläuft,

Wäre es nicht zielführender die Backup und Restorefunktionenen/programme der DB bzw. des dbms dafür zu nutzen?

Grüße
Klaus

[haentschman]

Hallöle...8-)

Zitat:

Das ganze soll Als Backup gedacht sein falls mal mit der Datenbank etwas schiefläuft

...das Ganze macht man eigentlich NICHT selbst. Jedes DBMS hat sein Backup/Restore. :zwinker:

https://mariadb.com/kb/en/backup-and-restore-overview/
https://mariadb.com/kb/en/mariabackup-overview/

[xDdaviiDxD]

Danke für eure Tipps ich werde mir das nochmal Überlegen und mir zu den Backup und Restore Durchlesen und dann etwas weiter rumprobieren in der Hoffnung das ich das dann Hinbekomme.^^

(Leider bin ich im Umgang mit SQL immer noch nicht so Bewandert. :( )

[haentschman]

PS: Welches Admin Tool benutzt du? HeidiSQL?

[xDdaviiDxD]

Genau ich benutze HeidiSQL.

[haentschman]

Das kann doch HeidiSQL...
https://www.google.de/search?q=heidi...client=gws-wiz

[xDdaviiDxD]

Guten Morgen,

Ich hab mal ne Frage kann mir jemand bei dem backup SQL statement Helfen?(ich würde das gern um die SQL statements besser zu lernen erstmal über die Statements machen wollen)
Leider Funktioniert der SQL Befehel in Heidi SQL nicht.

Code:

USE gasdaten; GO BACKUP DATABASE gasdaten TO DISK = 'c:\tmp\gasdaten.bak'

wenn ich versuche in HeidiSQL diesen Befehel Auszuführen bringt er immer

Zitat:

SQL Fehler (1064): You have an error in your SQL syntax; check the manuel that corresponds to your MariaDB server version for the right syntax to use near "DATABASE gasdaten TO DISK = 'c:\tmp\gasdaten.bak' at line 1.

ich hab es auf einem 2 PC getestet mit MySQL dort ging der Befehl nur leider ist es derzeit nicht möglich MySQL auf dem jetzigen zu Installieren.

Ich benutze derzeit MariaDB 10.6.10.

MfG

David

[Klaus01]

.. für MariaDb gibt es doch ein eigenes Backup/Restore Tool
Dies kannst Du doch per shellExecute o.ä. aufrufen.

Grüße
Klaus

[xDdaviiDxD]

Ich hab das jetzt einfach per ShellExecute gemacht.

Danke Klaus01