|
30精币
求解答!
.版本 2
.支持库 iext
.子程序 _服务器1_数据到达
.局部变量 分割, 字节集, , "0"
.局部变量 计次, 整数型
分割 = 分割字节集 (服务器1.取回数据 (), 到字节集 (#分割), )
.如果真 (到文本 (分割 [1]) = #登录)
登录 (到文本 (分割 [2]), 到文本 (分割 [3]), 服务器1.取回客户 ())
返回 ()
.如果真结束
.如果真 (到文本 (分割 [1]) = #zc)
zc (到文本 (分割 [2]), 到文本 (分割 [3]), 到文本 (分割 [4]), 到文本 (分割 [5]), 到文本 (分割 [6]), 到文本 (分割 [7]), 服务器1.取回客户 ())
返回 ()
.如果真结束
.子程序 登录
.局部变量 计次, 整数型
.局部变量 状态, 文本型
.计次循环首 (超级列表框1.取表项数 (), 计次)
.如果真 (超级列表框1.取标题 (计次 - 1, 1) = 帐号)
.如果真 (超级列表框1.取标题 (计次 - 1, 2) = 密码)
状态 = “登录成功”
跳出循环 ()
.如果真结束
状态 = “密码错误”
跳出循环 ()
.如果真结束
处理事件 ()
.计次循环尾 ()
.如果真 (状态 ≠ “登录成功”)
.如果真 (状态 ≠ “密码错误”)
状态 = “账号无效”
.如果真结束
.如果真结束
服务器1.发送数据 (网协, 到字节集 (#登录 + #分割 + 状态), )
.子程序 zc
.局部变量 状态, 文本型
.局部变量 计次, 整数型
.局部变量 索引, 整数型
.计次循环首 (超级列表框1.取表项数 (), 计次)
.如果真 (超级列表框1.取标题 (计次 - 1, 1) = 帐号)
状态 = “zc失败账号存在”
.如果真结束
处理事件 ()
.计次循环尾 ()
.如果真 (状态 ≠ “zc失败”)
索引 = 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (索引, 0, 到文本 (超级列表框1.取表项数 ()))
超级列表框1.置标题 (索引, 1, 手机号码)
超级列表框1.置标题 (索引, 2, 用户)
超级列表框1.置标题 (索引, 3, 邮箱)
超级列表框1.置标题 (索引, 4, 密码)
超级列表框1.置标题 (索引, 5, QQ)
超级列表框1.置标题 (索引, 6, 推荐人)
状态 = “zc成功”
.如果真结束
服务器1.发送数据 (网协, 到字节集 (#zc + #分割 + 状态), )
|
最佳答案
查看完整内容
登录位置,添加三个文本参数,zc位置添加七个文本参数即可
|