TBeRightsTable

Funktionen

Funktion	Beschreibung
CheckRight_Insert()	Prüfen des Neu-Rechts für den aktuellen Datensatz auf der Tabelle
CheckRight_Read()	Prüfen des Lesen-Rechts für den aktuellen Datensatz auf der Tabelle
CheckRight_Edit()	Prüfen des Ändern-Rechts für den aktuellen Datensatz auf der Tabelle
CheckRight_Delete()	Prüfen des Löschen-Rechts für den aktuellen Datensatz auf der Tabelle
CheckRight_Validate()	Prüfen des Validierungs-Rechts für den aktuellen Datensatz auf der Tabelle

Beispiel

CODE

| oTestTable |

oTestTable := BeOpen(waKDN705), // Die verwendete Tabelle muss entsprechende Rechte eingetragen haben
startseq
   // CheckUserRights ist standardmä&szlig;ig nicht aktiviert daher ist hier das Ergebnis der Abfragen immer True
   oTestTable.CheckUserRights := False,
   writeln('--- CheckUserRights = False ---'),
   writeln('Neu-Recht',          oTestTable.CheckRight_Insert()),
   writeln('Lesen-Recht',        oTestTable.CheckRight_Read()),
   writeln('Ändern-Recht',       oTestTable.CheckRight_Edit()),
   writeln('Löschen-Recht',      oTestTable.CheckRight_Delete()),
   writeln('Validierungs-Recht', oTestTable.CheckRight_Validate()),

   oTestTable.CheckUserRights := True, // Ab jetzt werden die Rechte der Tabelle geprüft

   writeln('--- CheckUserRights = True ---'),
   writeln('Neu-Recht',          oTestTable.CheckRight_Insert()),
   writeln('Lesen-Recht',        oTestTable.CheckRight_Read()),
   writeln('Ändern-Recht',       oTestTable.CheckRight_Edit()),
   writeln('Löschen-Recht',      oTestTable.CheckRight_Delete()),
   writeln('Validierungs-Recht', oTestTable.CheckRight_Validate()),
always
   BeClose(oTestTable),
stopseq,