PS易语言开发的注册登录系统含易数据库

这次用PS美化了界面。希望大家喜欢。

.如果 (编辑框_账号.内容 ＝ “” 或 编辑框_密码.内容 ＝ “”)
信息框 (“请输入账号密码！”, #错误图标, , )
返回 ()
.否则
.如果 (到整数 (取文本长度 (编辑框_账号.内容)) ＜ 6 或 到整数 (取文本长度 (编辑框_密码.内容)) ＜ 6)
信息框 (“输入账号或密码过短！”, #错误图标, , )
返回 ()
.否则

.如果结束
.如果 (读 (1) ＝ 编辑框_账号.内容)
信息框 (“该用户名已注册！请重新注册！”, #信息图标, , )
.否则
加空记录 ()
写 (1, 编辑框_账号.内容)
写 (2, 编辑框_密码.内容)
信息框 (“注册成功！请重新登录！”, #信息图标, , )
.如果结束

.如果结束
连续赋值 (“”, 编辑框_账号.内容, 编辑框_密码.内容)