易语言做一个通过网络注册程序，来登录我的软件

Question

在一个窗口上输入账号和密码注册，把注册信息发到我的数据库里，判断有没有该用户，没有的话提示成功，有的话提示失败。登录也用这个窗口登录，验证通过提示成功，没有账号或者密码提示失败。谢谢！好的话追加100分谢了

Answer 1

服务端
.版本 2
.支持库 mysql

.程序集 窗口程序集1

.子程序 _服务器1_数据到达
.局部变量 客户, 文本型
.局部变量 数据, 字节集
.局部变量 数据到文本, 文本型
.局部变量 数据分割, 文本型, , "0"
.局部变量 临时记录集, 整数型
.局部变量 密码, 文本型

客户 ＝ 服务器1.取回客户 ()
数据 ＝ 服务器1.取回数据 ()
数据到文本 ＝ 到文本 (数据)
数据分割 ＝ 分割文本 (数据到文本, “|”, )
.判断开始 (数据分割 [1] ＝ “登录”)
执行SQL语句 (mysql, “SELECT * FROM `account_tbl` where account='” ＋ 数据分割 [2] ＋ “';”)
临时记录集 ＝ 取记录集 (mysql)
读字段值 (临时记录集, “password”, 密码)
.判断开始 (字段是否为空 (临时记录集, “account”) ＝ 假)
服务器1.发送数据 (客户, “帐号错误”, )
.判断 (密码 ≠ 数据分割 [3])
服务器1.发送数据 (客户, “密码错误”, )
.默认
服务器1.发送数据 (客户, “登录成功”, )
.判断结束

.判断 (数据分割 [1] ＝ “注册”)
执行SQL语句 (mysql, “SELECT * FROM `account_tbl` where account='” ＋ 数据分割 [2] ＋ “';”)
临时记录集 ＝ 取记录集 (mysql)
.判断开始 (字段是否为空 (临时记录集, “account”) ＝ 假)
执行SQL语句 (mysql, “insert into `account_tbl` VALUES ('” ＋ 数据分割 [2] ＋ “','” ＋ 数据分割 [3] ＋ “');”)
服务器1.发送数据 (客户, “注册成功”, )
.默认
服务器1.发送数据 (客户, “帐号已存在”, )
.判断结束

.默认

.判断结束

.子程序 __启动窗口_创建完毕

mysql ＝ 连接MySql (“127.0.0.1”, “test”, “test”, “account”, 3306)

客户端

.版本 2

.程序集 窗口程序集1

.子程序 _按钮1_被单击

.如果真 (编辑框2.内容 ＝ “” 或 编辑框1.内容 ＝ “”)
信息框 (“请填写完成所有信息”, 0, )
返回 ()
.如果真结束

客户1.发送数据 (“登录” ＋ “|” ＋ 编辑框1.内容 ＋ “|” ＋ 编辑框2.内容)

.子程序 __启动窗口_创建完毕
.局部变量 服务器, 文本型
.局部变量 端口, 整数型

服务器 ＝ “127.0.0.1”
端口 ＝ 5678
.如果真 (客户1.连接 (服务器, 端口) ＝ 假)
信息框 (“对不起连接服务器失败”, 0, )
结束 ()
.如果真结束

.子程序 _客户1_数据到达
.局部变量 数据, 字节集
.局部变量 数据到文本, 文本型

数据 ＝ 客户1.取回数据 ()
数据到文本 ＝ 到文本 (数据)
.判断开始 (数据到文本 ＝ “登录成功”)
信息框 (数据到文本, 0, )
.判断 (数据到文本 ＝ “注册成功”)
信息框 (数据到文本, 0, )
.默认
信息框 (数据到文本, 0, )
.判断结束

.子程序 _注册_被单击

载入 (窗口1, , 真)

Answer 2

得交钱吧