Functions.DbCloseAll 方法 |
命名空间: XSharp.RT
1cLast := "Winston" 2DBUseArea(TRUE, "DBFNTX", "sales", "Sales", TRUE) 3Sales->DBSetIndex("salefnam") 4Sales->DBSetIndex("salelnam") 5DBUseArea(TRUE, "DBFNTX", "colls", "Colls", TRUE) 6Colls->DBSetIndex("collffnam") 7Colls->DBSetIndex("colllnam") 8// 选择 "Sales" 工作区 9IF (Sales->DBSeek(cLast)) 10 IF Sales->Deleted() 11 IF Sales->RLock() 12 Sales->DBRecall() 13 QOut("记录已删除: ", Sales->Deleted()) 14 ENDIF 15 ENDIF 16ELSE 17 QOut("未找到") 18ENDIF 19DBCloseAll() // 关闭所有工作区