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

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

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

hrsoft

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

加好友

发短信

等级：幼狐帖子：98 积分：1066 威望：0 精华：0 注册：2020/10/14 23:52:00

帮助文档中关于注册例子中出现的问题 发帖心情

Post By：2023/9/15 10:48:00 [只看该作者]

帮助文档中提供的示例文件“注册系统设计演示.table”，如果胡乱输入包括空格密码，则会出现下面的错误提示，关闭错误提示后即使后面设置有注册码不正确直接关闭项目退出的代码也不会执行，会直接进入系统编译后无菜单的系统界面。

此主题相关图片如下：非字符2.gif

有点蓝

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

加好友

发短信

等级：超级版主帖子：110750 积分：563676 威望：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

hrsoft

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

加好友

发短信

等级：幼狐帖子：98 积分：1066 威望：0 精华：0 注册：2020/10/14 23:52:00

Post By：2023/9/15 14:06:00 [只看该作者]

想在注册窗口加入包含空值的判断代码，

Dim tt As WinForm.TextBox = e.Form.Controls("TextBox2")

If tt.Value > "" And tt.Value.ToString.Contains(" ") = True Then

MessageBox.Show("注册码不能包含有空格，注册窗口将关闭退出!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

tt.Value = Nothing

End If

SaveConfigValue("Register" & HardDiskID, e.Form.Controls("TextBox2").Value)

e.Form.Close()

加入后如果包含有空格值则可以正常判断，但如果没有值时则会出现错误提示

此主题相关图片如下：ad.gif

有点蓝

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

加好友

发短信

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

Post By：2023/9/15 14:14:00 [只看该作者]

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

有点蓝

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

加好友

发短信

等级：超级版主帖子：110750 积分：563676 威望：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