Einzelnen Beitrag anzeigen

hoika

Registriert seit: 5. Jul 2006
Ort: Magdeburg
8.273 Beiträge
 
Delphi 10.4 Sydney
 
#6

Re: Enabled für Tabellen eintrag

  Alt 15. Feb 2007, 17:14
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
Heiko
  Mit Zitat antworten Zitat