急~~!!怎样在ACCESS中做一个带有用户名、密码的登陆窗体?
发布网友
发布时间：2022-04-29 06:14
共3个回答
热心网友
时间：2022-04-10 17:54
看你的样子，是不是把登录窗体做成绑定窗体了？？
不要绑定窗体，窗体中的用户名和登录密码两个文本框不要和表字段绑定，不需要神马有效性规则...只需要：
1.建好用户表，表中设好用户名和密码；
2.登录窗体中【进入系统】按钮的单击事件代码：
if isnull(me.用户名) or isnull(me.登录密码) thenmsgbox "请输入正确的用户名和密码！"
elseif isnull(DLookup("密码","用户表","用户名='" & me.用户名 & "'")) then
msgbox "用户名不存在！"
elseif DLookup("密码","用户表","用户名='" & me.用户名 & "'")=me.登录密码 then
docmd.openform 窗体名称
else
msgbox "密码错误！"
end if
'祝你成功！
热心网友
时间：2022-04-10 19:29
用VBA，先建立一个用户表，在窗体上拉两个文本框输入用户名和密码用，再拖一个按钮，在VBA工程模块中找到按钮名称，并在他的Click事件中加入下面的代码：
Private Sub Command1_Click() '//假设你的按钮名叫Command1'//连接数据库去查找用户
Dim cnn As ADODB.Connection '//连接对象
Dim rs As ADODB.Recordset '//数据集合
Set cnn = CurrentProject.Connection '//连接对象就是本身，临时连接就好了
Set rs = New ADODB.Recordset '//实例化数据集合
rs.Open "Select * from 用户表 where 用户名='" + Trim(Me.Text1) + "' and 密码='"+Trim(Text2)+"'", cnn '//注意不要画蛇添足写个Text1.Text，ACCESS不一样，写属性会让你不停去找焦点的，这里是打开数据集合
If rs.EOF Then '//如果没找到记录，就说明验证错误了嘛
MsgBox "对不起！用户名或密码错误，请重新输入！",vbOkOnly,"系统消息"
Me.Text1=""
Me.Text2="" '//如果验证失败，两个文本框空值
Me.Text1.SetFucos '//让光标焦点跳到Text1用户名输入框上去
Else '//如果查到了用户数据，那就登陆成功了
MsgBox "登陆成功","系统消息"
你需要打开的窗体名称.Show
Me.Hide '//隐藏自己，打开你要打开的窗体界面
End If '//结束IF循环
End Sub '//结束按钮事件
这只是个简单例子，希望对你有帮助，写完代码要把窗体设置成启动模式，只启动登陆窗体就好了，人家看到你用户表做登陆事件也是没意义的。ACCESS本身就可以设置密码安全，他其实不是开发环境，本身就是个软件，你做好了验证别人拿着往别的表一导入，一样的可以用。
ACCESS打开的时候把文件取消打开，然后在文件菜单下面找到打开，找到你的文件
右下脚有个按钮，选择以独占形式打开，进入ACCESS后在安全里就可以设置密码了，
这个密码比上面的策略安全，别人很难破解
不知道楼主能不能看懂
参考文献：
http://www.51zxw.net/list.aspx?cid=335 自学网
http://www.ote.com/tech/access/ 2345软件教程
http://www.51vba.com/ 51VBA教程
热心网友
时间：2022-04-10 21:20
