rlock( ) 函数示例

下面的示例对 customer 和 employee 表中的前四个记录进行锁定和解锁。

close databases
open database (home(2) + 'data\testdata')
set reprocess to 3 automatic
store '1,2,3,4' to gcreclist
gcoldexc = set('exclusive')
set exclusive off
select 0
use employee  && 打开 Employee 表
select 0
use customer  && 打开 Customer 表
? lock('1,2,3,4', 'customer')  && 锁住 customer 表的前四个记录
? rlock(gcreclist, 'employee')  && 锁住 employee 表的前四个记录
unlock in customer
unlock in employee
set exclusive &gcoldexc