易语言编写登录小程序实例讲解

.程序集 窗口程序集_启动窗口

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

.如果真 (编辑框1.内容 ＝ “” 或 编辑框2.内容 ＝ “”)
  信息框 (“用户名或密码不能为空！”, 0, , )
  编辑框1.获取焦点 ()
  标签3.可视 ＝ 假
  标签4.可视 ＝ 假
  返回 ()

.如果真结束
.如果真 (编辑框1.内容 ＝ “123” 且 编辑框2.内容 ＝ “123”)
  信息框 (“登录成功！”, 0, , )
  标签3.可视 ＝ 真

  返回 ()

.如果真结束
信息框 (“登录失败！”, 0, , )
标签3.可视 ＝ 假
标签4.可视 ＝ 真


.子程序 _编辑框1_按下某键, 逻辑型
.参数 键代码, 整数型
.参数 功能键状态, 整数型

.如果真 (键代码 ＝ #回车键)

  编辑框2.获取焦点 ()

.如果真结束


.子程序 _编辑框2_按下某键, 逻辑型
.参数 键代码, 整数型
.参数 功能键状态, 整数型

.如果真 (键代码 ＝ #回车键)
  _按钮1_被单击 ()
.如果真结束



.子程序 _标签4_反馈事件, 整数型
.参数 参数一, 整数型
.参数 参数二, 整数型