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


  共有3515人关注过本帖树形打印复制链接

主题:帮助文档中关于注册例子中出现的问题

帅哥哟,离线,有人找我吗?
hrsoft
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:98 积分:1066 威望:0 精华:0 注册:2020/10/14 23:52:00
帮助文档中关于注册例子中出现的问题  发帖心情 Post By:2023/9/15 10:48:00 [显示全部帖子]

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

图片点击可在新窗口打开查看此主题相关图片如下:非字符2.gif
图片点击可在新窗口打开查看


 回到顶部
帅哥哟,离线,有人找我吗?
hrsoft
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
图片点击可在新窗口打开查看



 回到顶部
帅哥哟,离线,有人找我吗?
hrsoft
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:98 积分:1066 威望:0 精华:0 注册:2020/10/14 23:52:00
  发帖心情 Post By:2023/9/15 14:21:00 [显示全部帖子]

但如果不清除输入包含空格的注册码,那么每次启动系统时都会执行第二代代码的,也就是
Messagebox.Show("注册异常!")
Syscmd.Project.
Exit()

 回到顶部
帅哥哟,离线,有人找我吗?
hrsoft
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:98 积分:1066 威望:0 精华:0 注册:2020/10/14 23:52:00
  发帖心情 Post By:2023/9/15 14:54:00 [显示全部帖子]

谢谢,不过第二层代码还得加上打开注册窗口,让其修改错误的注册码,因为如果不删除或修改过来,就永远的执行第二层的代码,直接退出而无法进入系统,也无法输入正确的注册码,因为系统在加载时就直接载入之前录入的注册码,而载入的又是错误的注册码,所以就永远执行第二层代码。

 回到顶部