我在项目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 = "程序设计:万久兵"
StatusBar.Message2 显示不正常， Forms("注册").open 也不执行，请问如何修改？谢谢！
加好友 
发短信
Post By：2021/1/16 21:26:00 [只看该作者]
