.版本 2
.程序集 窗口程序集_启动窗口
.子程序 __启动窗口_创建完毕
编辑框1.获取焦点 ()
.子程序 _按钮1_被单击
.如果真 (编辑框1.内容 ＝ “”) ' 如果编辑框1内容为空弹出信息框,返回是不继续向下执行,如果编辑框有内容则向下执行
信息框 (“请输入账号”, 0, , )
返回 ()
.如果真结束
.如果真 (编辑框2.内容 ＝ “”)
信息框 (“请输入密码”, 0, , )
返回 ()
.如果真结束
.如果真 (编辑框1.内容 ＝ “123456” 且 编辑框2.内容 ＝ “456789”)
信息框 (“登陆成功”, 0, , )
返回 ()
.如果真结束
信息框 (“账号或密码错误”, 0, , )
.子程序 _按钮2_被单击
_启动窗口.销毁 ()
.子程序 _编辑框1_按下某键, 逻辑型
.参数 键代码, 整数型
.参数 功能键状态, 整数型
.如果真 (键代码 ＝ #回车键)
编辑框2.获取焦点 ()
.如果真结束
.子程序 _编辑框2_按下某键, 逻辑型
.参数 键代码, 整数型
.参数 功能键状态, 整数型
.如果真 (键代码 ＝ #回车键)
_按钮1_被单击 ()