lock( ) 函数示例

下面的示例先锁定表 customer 和表 employee 中的前四个记录，再解除对记录的锁定。

close databases
open database (home( ) + 'samples\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