帮助文档中关于注册例子中出现的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 帮助文档中关于注册例子中出现的问题

共有2443人关注过本帖树形打印复制链接主题：帮助文档中关于注册例子中出现的问题

有点蓝

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：109489 积分：557107 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2023/9/15 11:07:00 [显示全部帖子]

每个实例都只是演示处理和这个实例有关的功能逻辑，是不会通盘考虑整个项目所有其它功能的合理性的。

既然知道这个错误会导致事件异常就把AfterOpenProject事件根据代码放到try里处理，然后到catch中退出项目即可

http://www.foxtable.com/webhelp/topics/2070.htm

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：109489 积分：557107 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2023/9/15 14:14:00 [显示全部帖子]

确定按钮没有必要加这个判断，因为AfterOpenProject事件有相关的判断的

有点蓝

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：109489 积分：557107 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2023/9/15 14:15:00 [显示全部帖子]

如果想避免1楼的错误，try就行了呀

try

Dim n As Integer = GetConfigValue("Count",1)
Dim Code As String = GetConfigValue("Register" & ComputerId,"")
Dim Ok As Boolean
If Code > "" AndAlso DecryptText(Code,"abc","abc") = ComputerId Then '如果注册码正确
    OK = True
Else
    If n > 30 Then
        Forms("注册").Open()
        Code = GetConfigValue("Register" & ComputerId,"")
        If Code > "" AndAlso DecryptText(Code,"abc","abc") = ComputerId Then '如果注册码正确
            OK = True
        End If
    End If
    If n > 60 AndAlso Ok = False Then
        Messagebox.Show("您正在使用的产品已经超出试用次数!")
        Syscmd.Project.Exit()
    End If
End If
n = n + 1
SaveConfigValue("Count",n)

Catch ex As Exception
Messagebox.Show("注册异常!")
Syscmd.Project.Exit()
End Try