|
楼主 |
发表于 2018-11-28 23:22:20
|
显示全部楼层
广东省佛山市
- .版本 2
- .支持库 mysql
- .支持库 spec
- .子程序 _按钮_登录_被单击
- .局部变量 局部_查找语句, 文本型
- .局部变量 局部_记录集, 整数型
- .局部变量 局部_计次, 整数型
- .局部变量 局部_名称, 文本型
- .局部变量 局部_密码, 文本型
- 局部_查找语句 = “select * from zhh”
- 执行SQL语句 (全局_MySQL句柄, 局部_查找语句)
- 局部_记录集 = 取记录集 (全局_MySQL句柄)
- .计次循环首 (取记录集行数 (局部_记录集), 局部_计次)
- 读字段值 (局部_记录集, “名称”, 局部_名称)
- 读字段值 (局部_记录集, “密码”, 局部_密码)
- .如果真 (编辑框_用户名.内容 = “”)
- 信息框 (“请您输入账号!”, #信息图标, “提示信息”, )
- 返回 ()
- 编辑框_用户名.获取焦点 ()
- .如果真结束
- .如果真 (编辑框_密码.内容 = “”)
- 信息框 (“请您输入密码!”, #信息图标, “提示信息”, )
- 返回 ()
- 编辑框_密码.获取焦点 ()
- .如果真结束
- .如果 (编辑框_用户名.内容 ≠ 局部_名称)
- 信息框 (“用户名不存在,请您zc账号!”, #警告图标, “提示信息”, )
- 返回 ()
- .否则
- .如果结束
- .如果 (编辑框_用户名.内容 = 局部_名称 且 编辑框_密码.内容 ≠ 局部_密码)
- 信息框 (“密码错误,请重新输入密码!”, #警告图标, “提示信息”, )
- 编辑框_密码.内容 = “”
- 编辑框_密码.获取焦点 ()
- 返回 ()
- .否则
- .如果结束
- .如果 (编辑框_用户名.内容 = 局部_名称 且 编辑框_密码.内容 = 局部_密码)
- 信息框 (“登录成功,欢迎使用本系统!”, #信息图标, “提示信息”, )
- 载入 (主界面, , 真)
- 返回 ()
- .否则
- .如果结束
- 调试输出 (局部_名称)
- 调试输出 (局部_密码)
- 到下一行 (局部_记录集)
- .计次循环尾 ()
- 释放记录集 (局部_记录集)
- 是这里,上面图片错了
复制代码 |
|