.易语言如何制作登录系统
1. 根据上面讲的方法绘制组件,规范命名
首先需要在易语言中创建一个新的程序界面,并在上面放置以下组件:
- 用户编辑框:用于输入用户名
- 口令编辑框:用于输入密码
- 确定按钮:点击后执行登录操作
- 取消按钮:点击后关闭程序
这些组件需要有规范的命名,方便后续的代码编写和维护。例如:
- 用户编辑框命名为"用户编辑框"
- 口令编辑框命名为"口令编辑框"
- 确定按钮命名为"确定按钮"
- 取消按钮命名为"取消按钮"
2. 复制代码
下面是登录系统的核心代码:
```
.版本 2
.支持库 dp1
.程序集 添加用户程序集
.子程序 _取消按钮_被单击
销毁 ()
.子程序 _确定按钮_被单击
.局部变量 变量1, 整数型
.如果真 (删首尾空 (用户编辑框.内容) "")
信息框 ("用户名不能为空,请输入用户名!", 信息图标, "错误")
用户编辑框.获取焦点 ()
用户编辑框.被选择字符数 -1
返回 ()
.如果真结束
.计次循环首 (取数组成员数 (用户), 变量1) 判断是否已经存在该用户名
.如果真 (用户 [变量1] 删首尾空 (用户编辑框.内容))
信息框 ("用户名" 左引号 用户编辑框.内容 右引号 "已经存在,请勿重复添加!", 信息图标, "错误")
返回 ()
.如果真结束
.计次循环尾 ()
.如果 (口令编辑框.内容 复核口令编辑框.内容)
.如果真 (口令编辑框.内容 "")
信息框 ("用户口令不能为空,请重新输入用户口令!", 信息图标, "错误")
口令编辑框.获取焦点 ()
口令编辑框.被选择字符数 -1
返回 ()
.如果真结束
加入成员 (用户, 删首尾空 (用户编辑框.内容))
配置文件_添加用户 (删首尾空 (用户编辑框.内容), 取数据摘要 (到字节集 (口令编辑框.内容)))
连续赋值 ("", 用户编辑框.内容, 口令编辑框.内容, 复核口令编辑框.内容)
用户编辑框.获取焦点 ()
.否则
信息框 ("密码复核错误,请重新设置密码!", 错误图标, )
口令编辑框.获取焦点 ()
返回 ()
.如果结束
.子程序 _添加用户窗口_创建完毕
.局部变量 变量1, 整数型可视 真
.子程序 _确定按钮_获得焦点确定按钮.类型 1取消按钮.类型 0
.子程序 _取消按钮_获得焦点确定按钮.类型 0取消按钮.类型 1
.子程序 _用户编辑框_获得焦点确定按钮.类型 1取消按钮.类型 0用户编辑框.被选择字符数 -1
.子程序 _口令编辑框_获得焦点确定按钮.类型 1取消按钮.类型 0口令编辑框.被选择字符数 -1
.子程序 _复核口令编辑框_获得焦点确定按钮.类型 1取消按钮.类型 0复核口令编辑框.被选择字符数 -1
```
这段代码实现了用户注册的基本功能,包括判断用户名是否重复、密码是否一致等。在用户注册成功后,会将用户名和加密后的密码保存到配置文件中。
版权声明:本文内容由互联网用户自发贡献,本站不承担相关法律责任.如有侵权/违法内容,本站将立刻删除。