VIRTUAL PROPERTY RLockList AS USUAL GET
public virtual __Usual RLockList { get; }
1CLASS Sales INHERIT DBServer 2... 3METHOD ProcessLocked() CLASS Sales 4LOCAL siCount AS SHORTINT 5 6FOR siCount := 1 UPTO ALen(SELF:RLockList) 7SELF:GoTo(RLockList[siCount]) 8// 处理记录 9NEXT 10 11SELF:Unlock() // 释放所有锁