Functions.BLOBRootGet 方法 |
命名空间: XSharp.RT
1FUNCTION UpdateSettings() 2 LOCAL aSettings AS ARRAY 3 USE customer NEW SHARED VIA "DBFCDX" 4 IF BLOBRootLock() 5 // 获取当前设置 6 aSettings := BLOBRootGet() 7 IF EMPTY(aSettings) 8 // 该函数将 aSettings 9 // 填充为默认数据 10 aSettings := GetDefaultSettings() 11 ENDIF 12 // 该函数将允许用户 13 // 修改设置 14 IF ModifySettings(aSettings) 15 // 最后将设置 16 // 保存到 BLOB 文件中 17 BLOBRootPut(aSettings) 18 ENDIF 19 BLOBRootUnLock() 20 ELSE 21 aSettings := {} 22 Alert("无法在 root; 23 区获得锁") 24 ENDIF 25 CLOSE 26 RETURN aSettings