怎么把易语言做个登陆器 可以注册 和登陆账号密码 O(∩_∩)O谢谢

.版本 2

.程序集 启动窗口程序集
.程序集变量 密码, 文本型
.程序集变量 用户, 文本型
.程序集变量 记录, 整数型

.子程序 __启动窗口_创建完毕

.如果 (外部数据库1.打开MDB数据库 (取运行目录 () ＋ “\口腔管理.mdb”, , , , ) ＝ 真)
记录 ＝ 外部数据库1.查询 (“select * from 用户名密码 order by 用户名 ”)
外部数据库1.到首记录 (记录)
.判断循环首 (外部数据库1.尾记录后 (记录) ＝ 假)
用户 ＝ 外部数据库1.读 (记录, “用户名”)
组合框用户名.加入项目 (用户, )
外部数据库1.到后一记录 (记录)
.判断循环尾 ()
.否则
信息框 (“连接数据库失败”, 0, )
结束 ()
.如果结束

.子程序 _按钮登陆_被单击

.如果 (编辑框密码.内容 ＝ “”)
信息框 (“密码不能为空”, 0 ＋ #错误图标, “错误提示”)
编辑框密码.获取焦点 ()
.否则
.如果 (编辑框密码.内容 ＝ 密码)
载入 (窗口主, , 假)
_启动窗口.销毁 ()
载入 (窗口主, , 真)
.否则
信息框 (“登陆失败.请检查用户名或密码是否正确”, 0 ＋ #错误图标, “错误提示”)
.如果结束

.如果结束

.子程序 _组合框用户名_列表项被选择

记录 ＝ 外部数据库1.查询 (“select * from 用户名密码 where 用户名 = '” ＋ 组合框用户名.取项目文本 (组合框用户名.现行选中项) ＋ “'”)
外部数据库1.到首记录 (记录)
密码 ＝ 外部数据库1.读 (记录, “密码”)
编辑框密码.获取焦点 ()

.子程序 _按钮注册_被单击

组合框用户名.获取焦点 ()
外部数据库1.到尾记录 (记录)
.如果 (组合框用户名.内容 ＝ 外部数据库1.读 (记录, “用户名”))
信息框 (“不允许重复内容!请重新填写”, 0, “注册提醒”)
.否则
.判断开始 (组合框用户名.内容 ≠ “”)
.如果 (外部数据库1.执行 (“insert into 用户名密码(用户名,密码) values ('” ＋ 组合框用户名.内容 ＋ “','” ＋ 编辑框密码.内容 ＋ “')”, ) ＝ 真)
信息框 (“恭喜，注册成功！”, 0, )
.否则
信息框 (“对不起，注册失败！”, 0, )
.如果结束

.默认
信息框 (“用户名不能为空”, 0, “用户名输入提示”)

.判断结束

.如果结束
这是我正在用的，希望对你有所帮助，同时我也是正在学习的人，也问过好多人

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/r33r3rrxe.html