TBeRightsTable
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
| oTestTable |
oTestTable := BeOpen(waKDN705), // Die verwendete Tabelle muss entsprechende Rechte eingetragen haben
startseq
// CheckUserRights ist standardmäß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,