查看
保存设置信息
一个完整的系统,通常会提供一些自定义的设置给用户,以便满足不同的用户需要。
FoxTable提供了一些函数,分别用于保存、读取和维护设置信息。
示例
假定你提供给客户的是一个试用版本,希望最多使用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