Enabled für Tabellen eintrag

[hoika]

Hallo,

Delphi-Quellcode:

procedure TForm10.Button_DoEditClick(Sender: TObject);
begin
if (Table1['Benutzername'] <> 'Admin') and (Table1['Passwort'] <> '123')then
begin
  if Application.MessageBox('Wollen sie wirklich diesen Benutzer ändern','Löschinformation',68)=6 Then
    begin
     Table1.Edit;
    end;
  end
else
   Application.MessageBox('Sie können diesen Administrator nicht ändern','Änderninformation',48);
end;

Macht aber so nicht viel Sinn,
wieso sollte der Admin nicht änderbar sein ?

Falls du das bist ...
Packe die Admin-Daten in eine eigene Tabelle,
und prüfe beim Login beide Tabellen (Admin und normale User)
Dann musst du nicht so viel drumrumprogrammieren.


Heiko