易语言启动前输入密码
就是有两个窗口,第一个窗口输入密码,如果密码正确就打开第二个窗口,密码错误提示密码错误,没有输入就提示没有输入密码我会多多给分的...
就是有两个窗口,第一个窗口输入密码,如果密码正确就打开第二个窗口,密码错误提示密码错误,没有输入就提示没有输入密码
我会多多给分的 展开
我会多多给分的 展开
3个回答
展开全部
用户名的编辑框取名:UserName 密码输入编辑框取名:Pwd
.版本 2
.子程序 __启动窗口_创建完毕
UserName.内容 =""
UserName.获取焦点 ()
.子程序 _登陆_被单击
.如果 (UserNam.e.内容 ≠ “”)
.如果 (Pwd.内容 ≠ “”)
.如果 (Pwd.内容 = “888888”)
载入 (主窗口, , 真)
.否则
信息框 (“密码不正确!请重新输入。”, 0, )
Pwd.内容 = “”
Pwd.获取焦点 ()
.如果结束
.否则
信息框 (“密码不能为空!”, 0, )
Pwd.获取焦点 ()
.如果结束
信息框 (“系统无此用户,请核对!”, 0, )
UserName.获取焦点 ()
.否则
信息框 (“用户名不能为空!”, 0, )
UserName.获取焦点 ()
.如果结束
.版本 2
.子程序 __启动窗口_创建完毕
UserName.内容 =""
UserName.获取焦点 ()
.子程序 _登陆_被单击
.如果 (UserNam.e.内容 ≠ “”)
.如果 (Pwd.内容 ≠ “”)
.如果 (Pwd.内容 = “888888”)
载入 (主窗口, , 真)
.否则
信息框 (“密码不正确!请重新输入。”, 0, )
Pwd.内容 = “”
Pwd.获取焦点 ()
.如果结束
.否则
信息框 (“密码不能为空!”, 0, )
Pwd.获取焦点 ()
.如果结束
信息框 (“系统无此用户,请核对!”, 0, )
UserName.获取焦点 ()
.否则
信息框 (“用户名不能为空!”, 0, )
UserName.获取焦点 ()
.如果结束
展开全部
.版本 2
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
编辑框密码.输入方式 = 2
.子程序 _按钮登陆_被单击
.如果 (编辑框用户名.内容 = “” 或 编辑框密码.内容 = “”)
信息框 (“请输入账号和密码!”, 0, )
编辑框用户名.获取焦点 ()
' 假设账号为123,密码为345!
.否则
.如果 (编辑框用户名.内容 ≠ “123” 或 编辑框密码.内容 ≠ “345”)
信息框 (“用户名或密码错误!”, 0, )
编辑框用户名.获取焦点 ()
.否则
载入 (窗口1, , 假)
_启动窗口.销毁 ()
.如果结束
.如果结束
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
编辑框密码.输入方式 = 2
.子程序 _按钮登陆_被单击
.如果 (编辑框用户名.内容 = “” 或 编辑框密码.内容 = “”)
信息框 (“请输入账号和密码!”, 0, )
编辑框用户名.获取焦点 ()
' 假设账号为123,密码为345!
.否则
.如果 (编辑框用户名.内容 ≠ “123” 或 编辑框密码.内容 ≠ “345”)
信息框 (“用户名或密码错误!”, 0, )
编辑框用户名.获取焦点 ()
.否则
载入 (窗口1, , 假)
_启动窗口.销毁 ()
.如果结束
.如果结束
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
新建-通过向导创建-通用向导 右面 通用密码登陆管理向导
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询