- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 软件注册 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=159999)
-- 发布时间：2021/1/16 21:26:00
-- 软件注册
我在项目afterproject事件中加入如下代码，用于软件注册：
Dim usecount As Integer = GetConfigValue("试用次数",0) \'定义一个整数变量,来记录系统打开次数
Dim RegOk As Boolean = GetConfigValue("注册状态",False) \'定义一个逻辑变量,来记录注册成功与否
If regok = False Then \'若是未注册状态
usecount = usecount +1 \'则计数器+1
SaveConfigValue("试用次数",usecount) \'保存试用次数
If usecount < 20 Then
StatusBar.Message2 = " 您使用的是试用版,目前已使用" & usecount & "次,还能试用" & 20-usecount & "次"
Else
Forms("注册").open \'打开注册窗体
Return
End If
End If
Forms("页眉").show() \'共有窗口
Forms("主界面").show() \'主窗口
Forms("页眉").Panel.parent.parent.parent.BringToFront \'提升窗口
Forms("导航窗口").open
For Each dt As DataTable In DataTables
dt.SysStyles("emptyarea").BackColor = Color.white
Next
Tables("预算资金申请单").Cols("项").DropForm = "功能下拉窗体"
Tables("预算资金申请单").Cols("申请单位").ComboList = DataTables("收款单位信息").GetComboListString("收款单位名称")
Tables("预算资金申请单").Cols("经款").DropForm = "经济下拉窗体"
Tables("预算资金申请单").Cols("部款").DropForm = "部门经济下拉窗体"
StatusBar.Message1 = "欢迎使用 如皋市江安镇财政所申请单管理系统! 今天是:" & Date.Today
StatusBar.Message3 = "程序设计:万久兵"
-- 发布时间：2021/1/16 22:02:00
-- 回复：（rgbjwjb）软件注册
用注册表来记录这个数量看看
-- 发布时间：2021/1/17 20:13:00
--
当前项目的注册状态已经是true了，改为false再重新测试
-- 发布时间：2021/1/18 15:02:00
--
谢谢！