保存设置信息
一个完整的系统,通常会提供一些自定义的设置给用户,以便满足不同的用户需要。
FoxTable提供了一些函数,分别用于保存、读取和维护设置信息。
SaveConfigValue
保存设置信息
语法:
SaveConfigValue(Name, Value)
Name: 设置名称
Value: 设置值
设置信息经过加密储存,安全性比一般的方式更有保证。
GetConfigValue
读取设置信息。
语法:
GetConfigValue(Name, DefaultValue)
Name: 设置名称
DefaultValue:默认设置值,如果指定名称的设置不存在,则返回此值。
SaveAllConfigItem
保存所有的设置,无参数。
在默认情况下,只有单击菜单中的保存按钮,设置信息才会保存。
如果希望单独或者强制保存设置信息,可执行此方法。
RemoveConfigItem
删除指定名称的设置。
语法:
RemoveConfigItem(Name)
Name: 要删除的设置名称。
ClearConfigItem
删除所有的设置,无参数。
示例
假定你提供给客户的是一个试用版本,希望最多使用30次,可以在项目事件AfterProject事件中加入如下代码:
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
提示:如果启动项目而不保存,是不会计算试用次数的。
----以上是帮助里头的介绍