Ergebnis der Suchanfrage

• Forum: Programmieren allgemein

  AW: Lazarus DBGrid Eintrag

   
    by Delphi.Narium, 11. Nov 2022
  Um die Passwortprüfung nur einmal machen zu müssen:procedure TForm1.edtPasswordChange(Sender: TObject);
  var
  i : integer;
  bOk : Boolean;
  begin
  bOk := PasswordValid(edtPassword.Text);
  for i := Low(FButtons) to High(FButtons) do
  FButtons.Visible := bOk;
  end;
  Je nachdem wie die Prüfung des Passwortes erfolgt (z. B. Abgleich mit Daten in einer Datenbank), kann es schon sinnvoll...
• Forum: Programmieren allgemein

  AW: Lazarus DBGrid Eintrag

   
    by Delphi.Narium, 11. Nov 2022
  Alternative:
  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;
• Forum: Programmieren allgemein

  AW: Lazarus DBGrid Eintrag

   
    by Delphi.Narium, 7. Nov 2022
  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,...