软件注册 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

我在项目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

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

Tables("预算资金申请单").Cols("项").DropForm = "功能下拉窗体"

Tables("预算资金申请单").Cols("申请单位").ComboList = DataTables("收款单位信息").GetComboListString("收款单位名称")

Tables("预算资金申请单").Cols("经款").DropForm = "经济下拉窗体"

Tables("预算资金申请单").Cols("部款").DropForm = "部门经济下拉窗体"

StatusBar.Message1 = "欢迎使用如皋市江安镇财政所申请单管理系统! 今天是:" & Date.Today

StatusBar.Message3 = "程序设计:万久兵"

StatusBar.Message2 显示不正常， Forms("注册").open 也不执行，请问如何修改？谢谢！

下载信息 [文件大小：下载次数： ]
点击浏览该文件:江安预算单管理.zip

主题：软件注册