DbServer.BLOBRootLock 方法 |
命名空间: XSharp.VO.SDK
1FUNCTION GetSettings() 2LOCAL aCustSettings AS ARRAY 3LOCAL oDBCust AS DBServer 4 5// Open a customer file in shared mode 6oDBCust := Customer{} 7 8IF oDBCust:BLOBRootLock() 9aCustSettings := oDBCust:BLOBRootGet() 10oDBCust:BLOBRootUnlock() 11ELSE 12Alert("Could not obtain root lock") 13ENDIF 14 15oDBCust:Close() 16 17RETURN aCustSettings