Functions.DbUnLockAll 方法 |
命名空间: XSharp.RT
1cLast := "Winston" 2USE sales SHARED NEW VIA "DBFNTX" 3Sales->DBSetIndex("salefnam") 4Sales->DBSetIndex("salelnam") 5USE colls SHARED NEW VIA "DBFNTX" 6Colls->DBSetIndex("collfnam") 7Colls->DBSetIndex("colllnam") 8IF Colls->DBSeek(cLast) 9 IF Colls->Deleted() 10 QOut("记录已删除: ", Colls->Deleted()) 11 IF Colls->RLock() 12 Colls->DBRecall() 13 QOut("记录已恢复...") 14 ENDIF 15 ENDIF 16ELSE 17 QOut("未找到") 18 DbUnLockAll() // 移除所有工作区中 19ENDIF // 的所有锁定