unlock 命令示例

close databases
set reprocess to 3 automatic
store '1,2,3,4' to gcreclist	  && 锁定记录 1 到记录 4
gcoldexc = set('exclusive')	  && 保存 exclusive 设置
set exclusive off  && 允许共享表
close databases
open database (home( ) + 'samples\data\testdata')
use customer  && 打开 customer 表
select 0
use employee  && 打开 employee 表
? lock('1,2,3,4', 'customer')  && 锁定 customer 表中的前 4 个记录
? rlock(gcreclist, 'employee') && 锁定 employee 表中的前 4 个记录
unlock in customer
unlock in employee
set exclusive &gcoldexc  && 恢复原有的 exclusive 设置。