保存设置信息

保存设置信息

一个完整的系统，通常会提供一些自定义的设置给用户，以便满足不同的用户需要。
Foxtable提供了一些函数，分别用于保存、读取和维护设置信息。

SaveConfigValue

保存设置信息

语法：

SaveConfigValue(Name, Value)

Name：设置名称
Value：设置值

设置信息经过加密储存，安全性比一般的方式更有保证。

GetConfigValue

读取设置信息。

语法：

GetConfigValue(Name, DefaultValue)

Name：设置名称
DefaultValue：默认设置值，如果指定名称的设置不存在，则返回此值。

RemoveConfigItem

删除指定名称的设置。

语法：

RemoveConfigItem(Name)

Name: 要删除的设置名称。

ClearConfigItem

删除所有的设置，无参数。

示例

假定你提供给客户的是一个试用版本，希望最多使用30次，可以在项目事件AfterOpenProject中加入如下代码：

Dim n As Integer
n = GetConfigValue("Count",1) '假定保存试用次数的设置名称为Count
If n > 30 Then
    Messagebox.Show("您正在使用的产品已经超出试用次数!")
    Syscmd.Project.Exit()
Else
    n = n + 1
    SaveConfigValue("Count",n)
End If

提示：如果启动项目而不保存，是不会计算试用次数的。

辅助输入

为方便大家准确输入设置名称，在代码编辑器中提供了一个辅助功能：

本页地址：http://www.foxtable.com/webhelp/topics/1544.htm