IsRecordLocked()
IsRecordLocked() – Sperr-Prüfung eines Datensatzes
Die Funktion prüft, ob der aktuelle Datensatz vom eigenen oder einem anderen Benutzer gesperrt ist.
Hinweis
Die Funktion sollte ab Version 6.1 nicht mehr verwendet werden. Dafür stehen nun direkte Funktionen der Tabellen (TBeStandardTable, TBeRightsTable, TBeAdsQuery oder TBeMemTable) zur Verfügung.
oTable.CbIsRecordLocked()
Parameter | Beschreibung |
|---|---|
aTable:O | Tabellenobjekt, Default = Standard-Tabelle |
Rückgabewert
Logisch
Beispiel
CODE
|oDab000:DB:='waDAB000, 1', bIsLocked|
// Datensatz ggf. entsperren
bIsLocked := IsRecordLocked(oDab000),
if bIsLocked then
DBUnlock(oDab000),
endif,
writeln(IsRecordLocked(oDab000), recno(oDab000)), //.F. (Datensatz nicht gelockt)
DBLock(oDab000), // Datensatz locken
writeln(IsRecordLocked(oDab000), recno(oDab000)), //.T. (Datensatz gelockt)
// Ursprungszustand herstellen
if not bIsLocked then
DBUnlock(oDab000)
endif,