access突然需要登录_Access学生登录窗体问题

2014-06-20 回答

private sub 登录_click()

if isnull(用户名) then

msgbox "用户名不能为空，请重新选择！", vbexclamation + vbokonly, "提醒您！"

me.用户名.setfocus

else

if isnull(密码) then

msgbox "注意，您忘了输入密码！", vbexclamation + vbokonly, "提醒您！"

me.密码.setfocus

else

if dlookup("密码", "用户", "用户名='" & 用户名 & "'") = [密码] then

me.visible = false

me.密码 = null

msgbox "登录成功！", vbexclamation, "提醒您"

else

msgbox "您输入的密码有误，请重新输入！", vbexclamation + vbokonly, "提醒您！"

me.密码 = null

me.密码.setfocus

end if

end if

end if

end sub

这段代码 没问题啊！你再试试吧……但是 你的数据表中 密码不能为空！

注意 你实际的窗体上 登录用的用户名、密码 等控件的名称 要用对！最好就是 与你的用户表中的名称一致！ 估计你的问题就在这里……实际上 有什么问题 还要看你实际情况 在此不好猜测……自己在检查一次吧……注意 不能使用 空密码登录！还有 一个 登录窗体 还要有一个 保护设置 就是加一个计数器 发生错误密码一次 就记录一次 如果 达到了设定的次数限制 本次登录失败 关闭数据库……

一般来说 对于 密码不是很熟悉的朋友 建议 开始学着做的时候 先尽量 使用 宏 来操作而不是使用 vba代码……使用 宏 与 主子窗体 以及查询的配合 一样 可以得到 你需要的效果 这里边 的一些逻辑关系 一般都是很直观的…

比如你这个问题：

1、首先 窗体的登录用的 “用户名” 控件 你要登陆 首先 就要输入一个用户名称……然后 根据这个名称 要查找 用户表中对应的记录……

2、然后 你要输入一个 登录密码 这个密码要与 用户表中的 数据 进行比较 如果密码不相等(就是因为这个比较 所以 用户表中的 密码不能为空)增登录不成功 只有密码相等了 才能继续登录成功……

基于这样的逻辑思维 那么 你就要建立一个 查询 作为子窗体 插入到登录窗体上 然后 可以使用 宏 命令 来对 它们 进行比较 ……剩下的 你应该懂得 ……慢慢研究一下……这里面的设计 就不会 像现在的代码 这样 那么抽象了……

最基本的都 用熟练了 再学习用代码来做 逻辑上 也就不会感到那么抽象了……你需要的 每一步操作 你只要去寻找相应的代码 就可以了 然后 把它们组合在一起 就是最后的解决方案了……