觅风论坛 › 易语言编程 › 简单的登入器

king2065348986 发表于 2018-5-5 10:48:15

简单的登入器

.版本 2

.程序集 窗口程序集1

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



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

.如果真 (编辑框1.内容 ＝ “” 或 编辑框2.内容 ＝ “”)
    信息框 (“登入失败！”, 0, )
    编辑框1.获取焦点 ()

.如果真结束
.如果真 (编辑框1.内容 ＝ “吴水林” 且 编辑框2.内容 ＝ “123456”)
    信息框 (“登入成功！”, 0, )
    图片框1.可视 ＝ 真
    返回 ()
.如果真结束
信息框 (“登入失败！”, 0, )


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

.如果真 (键代码 ＝ #回车键)
    编辑框2.获取焦点 ()

.如果真结束


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

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

.程序集 窗口程序集1

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



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

.如果真 (编辑框1.内容 ＝ “” 或 编辑框2.内容 ＝ “”)
    信息框 (“登入失败！”, 0, )
    编辑框1.获取焦点 ()

.如果真结束
.如果真 (编辑框1.内容 ＝ “吴水林” 且 编辑框2.内容 ＝ “123456”)
    信息框 (“登入成功！”, 0, )
    图片框1.可视 ＝ 真
    返回 ()
.如果真结束
信息框 (“登入失败！”, 0, )


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

.如果真 (键代码 ＝ #回车键)
    编辑框2.获取焦点 ()

.如果真结束


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

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

海绵老爹 发表于 2018-5-5 10:50:20

前来支持~~~~~~~~~~~~~~~~~~~

sdf 发表于 2018-5-5 10:52:25

学习了，这就去试试

q13129841235 发表于 2018-5-5 10:54:30

感谢您的无私精神...

q13129841235 发表于 2018-5-5 10:56:36

我表示压力很大

黑崎一宇 发表于 2018-5-5 10:58:41

前来围观，LZ好样的！

443651433.. 发表于 2018-5-5 11:02:33

学习了！！！！

qq1124824221 发表于 2018-5-5 11:06:25

支持！！！！！！

csw96781 发表于 2018-5-5 11:10:17

感谢您的无私精神...

qq2556906318 发表于 2018-5-5 11:14:10

顶起很好的帖

查看完整版本: 简单的登入器