怎样弄
.版本 2
.支持库 iext
.如果真 (编辑框1.内容 = “” 且 编辑框2.内容 = “”)
信息框 (“请输入登录名,密码!”, 0, )
返回 ()
.如果真结束
跳到 (1) ' 从数据库首开始
.判断开始 (查找 (读 (“登录名”) = 编辑框1.内容)) ' 查找账号是否存在
.判断开始 (读 (“密码”) = 编辑框2.内容) ' 查找密码是否有误
信息框 (“登录成功!管理员” + “(” + 编辑框1.内容 + “)”, 0 + 64, )
登录名 = 窗口1.编辑框1.内容
.默认
信息框 (“密码错误!请重新输入!”, #错误图标, )
.判断结束
.默认
信息框 (“没有该用户名”, #错误图标, )
.支持库 iext
.如果真 (编辑框1.内容 = “” 且 编辑框2.内容 = “”)
信息框 (“请输入登录名,密码!”, 0, )
返回 ()
.如果真结束
跳到 (1) ' 从数据库首开始
.判断开始 (查找 (读 (“登录名”) = 编辑框1.内容)) ' 查找账号是否存在
.判断开始 (读 (“密码”) = 编辑框2.内容) ' 查找密码是否有误
信息框 (“登录成功!管理员” + “(” + 编辑框1.内容 + “)”, 0 + 64, )
登录名 = 窗口1.编辑框1.内容
.默认
信息框 (“密码错误!请重新输入!”, #错误图标, )
.判断结束
.默认
信息框 (“没有该用户名”, #错误图标, )
温馨提示:答案为网友推荐,仅供参考