如果真 (取反 (删全部空 (编辑框_注册_用户名.内容
) ≠
“” 且 编辑框_注册_密码.内容 ≠
“” 且 编辑框_注册_邮箱.内容 ≠
“”))
信息框 (“有内容未填写,注册失败!”, 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, ,
)
返回 ()释放记录集 (用户记录集句柄)