|
发表于 2024-1-9 21:19:47
|
显示全部楼层
河南省安阳市
如果真 (取反 (删全部空 (编辑框_注册_用户名.内容 ) ≠ “” 且 编辑框_注册_密码.内容 ≠ “” 且 编辑框_注册_邮箱.内容 ≠ “”)) 信息框 (“有内容未填写,注册失败!”, 0, , )返回 () 如果真 (正则匹配测试 (“^[a-zA-Z]\w{5,17}$”, 编辑框_注册_用户名.内容 ) = 假)信息框 (“账号请填写字母开头,6-18位内容!”, 0, , )返回 ()
sql = 取文本 (“select * from gly where glzh='%s'”, 编辑框_注册_用户名.内容 )如果真 (全局_数据库 = 0 )信息框 (“连接数据库异常!”, 0, , )返回 ()执行SQL语句 (全局_数据库, sql)用户记录集句柄 = 取记录集 (全局_数据库 ) 如果真 (取记录集行数 (用户记录集句柄 ) ≠ 0 ) 释放记录集 (用户记录集句柄 )信息框 (“该账号已存在!”, 0, , )返回 ()
sql = 取文本 (“insert into gly (glzh,glmm,gldqsj,glkl,glsf) values ('%s','%s',DATE_ADD(now(),INTERVAL 7 day),'%s','普通员')”, 编辑框_注册_用户名.内容, 编辑框_注册_密码.内容, 编辑框_注册_邮箱.内容 )判断 (执行SQL语句 (全局_数据库, sql ) = 真)信息框 (“账号注册成功!试用期7天长久使用联系管理员”, 0, , )信息框 (“注册失败!”, 0, , )返回 ()释放记录集 (用户记录集句柄)
|
|