Lazarus DBGrid Eintrag

[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.

[xDdaviiDxD]

Guten Tag,

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

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.