.版本 2
.程序集 窗口程序集_启动窗口
.子程序 _按钮1_被单击
.如果 (编辑框1.内容 ＝ “” 且 编辑框2.内容 ＝ “”)
信息框 (“用户名或密码不能为空。”, 0, , )
信息框 (“请输入用户名及密码。”, 0, , )
编辑框1.获取焦点 ()
.否则
.如果 (编辑框1.内容 ＝ “”)
信息框 (“用户名不能为空。”, 0, , )
信息框 (“请重新输入。”, 0, , )
编辑框2.内容 ＝ “”
编辑框1.获取焦点 ()
.否则
.如果 (编辑框2.内容 ＝ “”)
信息框 (“密码不能为空。”, 0, , )
信息框 (“请重新输入密码。”, 0, , )
编辑框2.内容 ＝ “”
编辑框2.获取焦点 ()
.否则
.如果 (编辑框1.内容 ≠ “然”)
信息框 (“用户名错误。”, 0, , )
信息框 (“请重新输入用户名。”, 0, , )
编辑框2.内容 ＝ “”
编辑框1.获取焦点 ()
.否则
.如果 (编辑框2.内容 ≠ “123456789”)
信息框 (“密码错误。”, 0, , )
信息框 (“请重新输入密码。”, 0, , )
编辑框2.内容 ＝ “”
编辑框2.获取焦点 ()
.否则
图片框1.可视 ＝ 真
信息框 (“登陆成功。”, 0, , )
信息框 (“允许截图”, 0, , )
载入 (窗口1, , 假)
销毁 ()
.如果结束
.如果结束
.如果结束
.如果结束
.如果结束
.子程序 _编辑框1_按下某键, 逻辑型
.参数 键代码, 整数型
.参数 功能键状态, 整数型
.如果真 (键代码 ＝ #回车键)
_按钮1_被单击 ()
.如果真结束
.子程序 _编辑框2_按下某键, 逻辑型
.参数 键代码, 整数型
.参数 功能键状态, 整数型
.如果真 (键代码 ＝ #回车键)
_按钮1_被单击 ()
.如果真结束

请各位评鉴