ACCESS登录用户验证

恶魔中的死神

请问这个那里出现问题了？为什么总是提示“登录失败”啊？

恶魔中的死神

恶魔中的死神

[e]
.版本 2

.版本 2
.支持库 xplib
.支持库 eDB
.支持库 spec
.程序集 窗口程序集3
.子程序 _登录_创建完毕
.局部变量 用户1, 文本型
XP风格 (#蓝色风格)

' 数据库连接及记录集判断（开始）=================================================
.如果 (数据库连接1.连接Access (“c:\haocai\haocai.mdb”, “zhao1985316”))
    标签3.文本颜色 ＝ #蓝色
    .如果真 (记录集1.置连接 (数据库连接1))
        标签3.标题 ＝ “数据库连接成功！”
    .如果真结束
.否则
    标签3.文本颜色 ＝ #红色
    标签3.标题 ＝ “数据库连接失败！”
.如果结束
' 数据库连接及记录集判断（结束）==================================================
记录集1.打开 (“server_denglu”, #数据表名)


.计次循环首 (记录集1.记录数量, )
    记录集1.读文本 (“username”, 用户1)
    组合框1.加入项目 (用户1, )
    记录集1.到下一条 ()
.计次循环尾 ()




.子程序 _按钮1_被单击
.局部变量 用户名1, 文本型
.局部变量 密码1, 文本型
.局部变量 比对, 文本型
.局部变量 比对2, 文本型

.判断开始 (组合框1.内容 ＝ “”)
    信息框 (“请输入用户名”, #警告图标, “提示窗口”)
    返回 ()
.判断 (编辑框1.内容 ＝ “”)
    信息框 (“请输入密码”, #警告图标, “提示窗口”)
    返回 ()
.默认
.判断结束

.计次循环首 (记录集1.记录数量, )
    记录集1.读文本 (“username”, 比对)
    记录集1.读文本 (“password”, 比对2)
    .如果 (组合框1.内容 ＝ 比对 且 编辑框1.内容 ＝ 比对2)
        信息框 (“登录成功”, 0, )
    .否则
        信息框 (“登录失败”, 0, )
    .如果结束
    记录集1.到下一条 ()
    跳出循环 ()
.计次循环尾 ()
调试输出 (登录.数据库连接1.最后错误)

.子程序 _按钮2_被单击
结束 ()



[/e]

Mrdong

{:3_244:}好啊就是要这个

wo82333668

学习了，谢谢楼主了谢谢！

骑着蜗牛狂奔

喂喂真么简单的拿出来丢人吖

恶魔中的死神

我这个是问题求助。请大家看清楚些。我这样写出问题了。找不出问题。

天蝎

学习一下，有源码的话，最好了

浪漫

源码去那拉？