- 注册时间
- 2013-2-8
- 最后登录
- 2013-2-9
- 在线时间
- 1 小时
编程入门
- 魔鬼币
- 89
|
发表于 2013-2-8 21:22:25
|
显示全部楼层
sfasfafasf.版本 2
.支持库 spec
.支持库 iext
.程序集 窗口程序集1
.程序集变量 用户注册, 文本型, , "0"
.程序集变量 用户登录, 文本型, , "0"
.程序集变量 用户修改密码, 文本型, , "0"
.程序集变量 在线状态, 文本型, , "0"
.子程序 _服务器1_数据到达
.如果真 (寻找文本 (到文本 (服务器1.取回数据 ()), “yonghuzhucefengefu”, , 假) ≠ -1)
用户注册 ＝ 分割文本 (到文本 (服务器1.取回数据 ()), “yonghuzhucefengefu”, )
判断是否被注册 (用户注册 [3], 用户注册 [1])
.如果真结束
.如果真 (寻找文本 (到文本 (服务器1.取回数据 ()), “yonghudenglufengefu”, , 假) ≠ -1)
用户登录 ＝ 分割文本 (到文本 (服务器1.取回数据 ()), “yonghudenglufengefu”, )
判断用户登录 (用户登录 [1], 用户登录 [2])
.如果真结束
.如果真 (寻找文本 (到文本 (服务器1.取回数据 ()), “yonghuxiugaimimafengefu”, , 假) ≠ -1)
用户修改密码 ＝ 分割文本 (到文本 (服务器1.取回数据 ()), “yonghuxiugaimimafengefu”, )
判断用户修改密码 (用户修改密码 [1], 用户修改密码 [2], 用户修改密码 [3], 用户修改密码 [4])
.如果真结束
.如果真 (寻找文本 (到文本 (服务器1.取回数据 ()), “tishiwoshifouzaixian”, , 假) ≠ -1)
在线状态 ＝ 分割文本 (到文本 (服务器1.取回数据 ()), “tishiwoshifouzaixian”, )
用户在线状态 (在线状态 [1], 在线状态 [2], 在线状态 [3])
调试输出 (“真”)
.如果真结束
.子程序 用户在线状态
.参数 用户昵称, 文本型
.参数 用户密码, 文本型
.参数 在线状态, 文本型
.局部变量 n1, 整数型
.局部变量 a, 整数型
.局部变量 n2, 整数型
.计次循环首 (用户列表框.取表项数 (), n1)
.如果真 (用户昵称 ＝ 用户列表框.取标题 (n1 － 1, 0))
.如果真 (用户密码 ＝ 用户列表框.取标题 (n1 － 1, 1))
用户列表框.现行选中项 ＝ n1 － 1
用户列表框.置标题 (用户列表框.现行选中项, 3, 在线状态)
跳出循环 ()
.如果真结束
.如果真结束
.计次循环尾 ()
.计次循环首 (用户列表框.取表项数 (), n2)
.如果真 (用户列表框.取标题 (n1 － 1, 2) ＝ “”)
用户列表框.删除表项 (n1 － 1)
.如果真结束
.计次循环尾 ()
.子程序 判断用户修改密码
.参数 账号, 文本型
.参数 密码, 文本型
.参数 新密码, 文本型
.参数 用户注册码, 文本型
.局部变量 注册码是否正确, 逻辑型
.局部变量 要改的用户是否存在, 逻辑型
.局部变量 要改的用户密码是否正确, 逻辑型
.局部变量 n1, 整数型
.局部变量 v, 整数型
.局部变量 a1, 整数型
要改的用户密码是否正确 ＝ 真
注册码是否正确 ＝ 真
.计次循环首 (用户列表框.取表项数 (), n1)
.判断开始 (账号 ＝ 用户列表框.取标题 (n1 － 1, 0))
要改的用户是否存在 ＝ 真
.判断开始 (密码 ＝ 用户列表框.取标题 (n1 － 1, 1))
要改的用户密码是否正确 ＝ 真
.判断开始 (用户注册码 ＝ 用户列表框.取标题 (n1 － 1, 2))
注册码是否正确 ＝ 真
跳出循环 ()
.默认
注册码是否正确 ＝ 假
跳出循环 ()
.判断结束
.默认
要改的用户密码是否正确 ＝ 假
跳出循环 ()
.判断结束
.默认
要改的用户是否存在 ＝ 假
.判断结束
.计次循环尾 ()
.如果真 (要改的用户是否存在 ＝ 真 且 要改的用户密码是否正确 ＝ 真 且 注册码是否正确 ＝ 真)
用户列表框.现行选中项 ＝ n1 － 1
用户列表框.插入表项 (v, , , , , )
用户列表框.置标题 (用户列表框.现行选中项, 1, 新密码)
.计次循环首 (用户列表框.取表项数 (), a1)
.如果真 (用户列表框.取标题 (a1 － 1, 2) ＝ “”)
用户列表框.删除表项 (a1 － 1)
.如果真结束
.计次循环尾 ()
服务器1.发送数据 (服务器1.取回客户 (), “密码 修改成功”, )
.如果真结束
.如果真 (要改的用户是否存在 ＝ 假)
服务器1.发送数据 (服务器1.取回客户 (), “ 用户不存在 ”, )
.如果真结束
.如果真 (要改的用户密码是否正确 ＝ 假)
服务器1.发送数据 (服务器1.取回客户 (), “ 用户 密码错误 ”, )
.如果真结束
.如果真 (注册码是否正确 ＝ 假)
服务器1.发送数据 (服务器1.取回客户 (), “ 用户 注册码错误 注册码是用户修改密码的唯一凭证 ”, )
.如果真结束
调试输出 (要改的用户是否存在, 要改的用户密码是否正确, 注册码是否正确)
.子程序 判断用户登录
.参数 用户账号, 文本型
.参数 用户密码, 文本型
.局部变量 n1, 整数型
.局部变量 用户是否存在, 逻辑型
.局部变量 用户密码是否正确, 逻辑型
.局部变量 用户是否在线, 逻辑型
.计次循环首 (用户列表框.取表项数 (), n1)
.如果真 (用户是否存在 ＝ 假)
.判断开始 (用户账号 ＝ 用户列表框.取标题 (n1 － 1, 0))
用户是否存在 ＝ 真
.如果真 (用户密码是否正确 ＝ 假)
.判断开始 (用户密码 ＝ 用户列表框.取标题 (n1 － 1, 1))
用户密码是否正确 ＝ 真
.如果 (用户列表框.取标题 (n1 － 1, 3) ＝ “在线”)
用户是否在线 ＝ 真
.否则
用户是否在线 ＝ 假
.如果结束
.默认
用户密码是否正确 ＝ 假
.判断结束
.如果真结束
跳出循环 ()
.默认
用户是否存在 ＝ 假
.判断结束
.如果真结束
.计次循环尾 ()
.如果真 (用户是否存在 ＝ 真 且 用户密码是否正确 ＝ 真)
.如果真 (用户是否在线 ＝ 真)
服务器1.发送数据 (服务器1.取回客户 (), “ 登录失败 原因： 1.此用户已经登录 ”, )
.如果真结束
.如果真 (用户是否在线 ＝ 假)
服务器1.发送数据 (服务器1.取回客户 (), “登录成功”, )
.如果真结束
.如果真结束
.如果真 (用户是否存在 ＝ 假 且 用户密码是否正确 ＝ 真)
服务器1.发送数据 (服务器1.取回客户 (), “登录失败 原因： 1.用户不存在 ”, )
.如果真结束
.如果真 (用户是否存在 ＝ 假 且 用户密码是否正确 ＝ 假)
服务器1.发送数据 (服务器1.取回客户 (), “登录失败 原因： 1.用户不存在 ”, )
.如果真结束
.如果真 (用户是否存在 ＝ 真 且 用户密码是否正确 ＝ 假)
服务器1.发送数据 (服务器1.取回客户 (), “登录失败 原因： 1.用户密码错误 ”, )
.如果真结束
.子程序 判断是否被注册
.参数 注册码, 文本型
.参数 用户是否被注册, 文本型
.局部变量 n1, 整数型
.局部变量 a, 整数型
.局部变量 注册码是否存在, 逻辑型
.局部变量 n2, 整数型
.局部变量 用户被注册了没, 逻辑型
注册码是否存在 ＝ 假
用户被注册了没 ＝ 假
.计次循环首 (用户列表框.取表项数 (), n2)
.判断开始 (用户是否被注册 ＝ 用户列表框.取标题 (n2 － 1, 0))
用户被注册了没 ＝ 真
跳出循环 ()
.默认
用户被注册了没 ＝ 假
.判断结束
.计次循环尾 ()
.如果真 (用户列表框.取表项数 () ＝ 0)
用户被注册了没 ＝ 假
.如果真结束
.如果真 (用户被注册了没 ＝ 假)
.计次循环首 (注册码列表框.取表项数 (), n1)
.判断开始 (注册码 ＝ 注册码列表框.取标题 (n1 － 1, 0))
用户列表框.插入表项 (a, , , , , )
用户列表框.置标题 (a, 0, 用户注册 [1])
用户列表框.置标题 (a, 1, 用户注册 [2])
用户列表框.置标题 (a, 2, 用户注册 [3])
用户列表框.置标题 (a, 3, “未激活”)
注册码列表框.删除表项 (n1 － 1)
调试输出 (注册码)
注册码是否存在 ＝ 真
跳出循环 ()
.默认
注册码是否存在 ＝ 假
.判断结束
.计次循环尾 ()
.如果真结束
.如果真 (注册码是否存在 ＝ 真 且 用户被注册了没 ＝ 假)
服务器1.发送数据 (服务器1.取回客户 (), “===== 恭喜您！ 注册成功 =====”, )
.如果真结束
.如果真 (用户被注册了没 ＝ 假)
.如果真 (注册码是否存在 ＝ 假)
服务器1.发送数据 (服务器1.取回客户 (), “===== 注册失败 原因：1.注册码不可用 2.注册码已经被注册 =====”, )
.如果真结束
.如果真结束
.如果真 (用户被注册了没 ＝ 真)
服务器1.发送数据 (服务器1.取回客户 (), “===== 用户名已经被注册 请重新输入 =====”, )
.如果真结束
.子程序 _编辑框添加验证码_按下某键, 逻辑型
.参数 键代码, 整数型
.参数 功能键状态, 整数型
.如果真 (键代码 ＝ #回车键)
添加注册码 ()
.如果真结束
.子程序 添加注册码
.局部变量 n1, 整数型
.局部变量 注册码是否可用, 逻辑型
.局部变量 o, 整数型
.局部变量 n2, 整数型
.如果真 (编辑框添加验证码.内容 ＝ “”)
信息框 (“请填写 注册码”, 0, “提示”)
返回 ()
.如果真结束
.计次循环首 (注册码列表框.取表项数 (), n1)
.如果 (编辑框添加验证码.内容 ＝ 注册码列表框.取标题 (n1 － 1, 0))
信息框 (“列表已经存在此注册码 注册码不可重复”, 0, “提示”)
注册码是否可用 ＝ 假
跳出循环 ()
.否则
注册码是否可用 ＝ 真
.如果结束
.计次循环尾 ()
.如果真 (注册码列表框.取表项数 () ＝ 0)
注册码是否可用 ＝ 真
.如果真结束
.如果真 (注册码是否可用 ＝ 假)
编辑框添加验证码.内容 ＝ “”
编辑框添加验证码.获取焦点 ()
返回 ()
.如果真结束
.计次循环首 (用户列表框.取表项数 (), n2)
.如果 (编辑框添加验证码.内容 ＝ 用户列表框.取标题 (n2 － 1, 2))
注册码是否可用 ＝ 假
信息框 (“此注册码已经被注册 注册码不可重复”, 0, “提示”)
跳出循环 ()
.否则
注册码是否可用 ＝ 真
.如果结束
.计次循环尾 ()
.如果真 (注册码是否可用 ＝ 真)
注册码列表框.插入表项 (o, , , , , )
注册码列表框.置标题 (0, 0, 编辑框添加验证码.内容)
.如果真结束
编辑框添加验证码.内容 ＝ “”
编辑框添加验证码.获取焦点 ()
.子程序 _按钮添加_被单击
添加注册码 ()
.子程序 __启动窗口_将被销毁
用户列表存到文件 (用户列表框, 取运行目录 () ＋ “\用户列表.kdb”)
验证码列表存到文件 (注册码列表框, 取运行目录 () ＋ “\验证码列表.kdb”)
.子程序 用户列表存到文件
.参数 列表, 超级列表框
.参数 文件存放路径, 文本型
.局部变量 列号
.局部变量 行号
.局部变量 头标记, 字节集
.局部变量 中间标记, 字节集
.局部变量 尾标记, 字节集
.局部变量 文件号
.局部变量 项目数值, 文本型
中间标记 ＝ { 255, 255, 255, 255, 255, 255, 255, 255, 0, 0, 0, 0, 0, 0, 0, 0 }
尾标记 ＝ { 0, 0 }
()
|
|
楼主: 緣分不在服務
需要拿来用用
