保存设置信息

一个完整的系统,通常会提供一些自定义的设置给用户,以便满足不同的用户需要。
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