做access数据库的时候，怎么通过验证用户名和密码登陆到主窗体

不需要用VBA。用窗体和宏来做。

用设计视图新建一个窗体，在用工具箱里的按钮(组合框)如图

再来就编写宏，库员1和aaa是用户名和密码。这里你可以编写，然后在下方的操作参数那里要记得设计打开的窗体是什么和消息，就可以了。 那个窗体的确定按钮可以进入属性来设置，

下面是我做的方法

先创建一个用户表，里面有用户名葛密码，，，然后弄两个文本框，一个名为name，一个为名为password 在登录按钮用VBA代码，代码如下：

If IsNull(Me![name]) Then

MsgBox "请选择用登录用户!", 64, "系统提示"

Me![name].SetFocus

Else

If IsNull(Me![password]) Then

MsgBox "请输入密码,密码不能为空!", 64, "系统提示"

Me![password].SetFocus

Else

Dim stemp As String

Dim rs As ADODB.Recordset

Set rs = New ADODB.Recordset

stemp = "select * from 用户表 where 用户名='" & Me![name] & "'"

rs.Open stemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

If rs("密码") <> Me![password] Then

MsgBox "密码错误,请重新输入!", vbOKOnly, "系统提示"

Me![password] = ""

Me![password].SetFocus

Else

DoCmd.Close

DoCmd.OpenForm "主菜单"

End If

End If

End If

1. 用系统内置的Administrator系统超级用户登录。在默认情况下，Administrator账号的密码是空的。因此，我们可在“带命令行的安全模式”下，以系统超级用户Administrator的身份进入系统，然后用“Net User”命令强制更改用户密码或新建用户账号。也可在出现经典登录界面要求输入用户名和密码时，输入Administrator账号，再用空密码进入系统(在Windows XP中如不出现经典登录界面，可按住Ctrl+Alt后连按两下Del键即可)。用这种方法登录系统后，我们就可以删除或新建用户账号了。然而，这种方法只能对付系统本来就没有给默认的Administrator账号设置密码的情况。要是原系统中已经给它设置了密码，则根本无法用这种方法登录系统，更不要说用“Net user”了。

2. 删除系统文件夹System32\Config下的SAM文件。这种方法只在Windows 2000中有效，要是用来对付Windows XP和Windows 2003，则会在启动系统时出现“安全账户初始化失败”的提示，使整个系统无法使用。

3. 在DOS状态下，将系统文件夹System32下的logon.scr改成其他名称，再将cmd.exe改成logon.scr后重新启动系统。等上10 分钟后，系统会将改了名的cmd.exe文件当作屏幕保护程序自动运行，这样便进入DOS界面。这时，我们就可用net user命令给系统添加用户或更改密码了。但实际上，在Windows XP SP1(SP2)和Windows 2003中，用这种方法进入后，不再像前几个版本一样具有系统超级用户Administrator权限。当用Net user添加用户时，系统会提示“发生系统错误。拒绝访问”，让你根本无法添加用户。

4. 用WindowsKey、DreamPackPL等软件更改系统登录密码。但这些软件不是找不到有效的注册码，就是界面不够友善，操作步骤也太复杂。对于一般用户而言，面对一串串英文往往会不知所措。

那么，有没有更好的方法来轻松修改系统登录密码呢？答案是肯定的。ERD Commander 2003就是一款可以轻松修改系统管理员密码的傻瓜化软件，而且这款软件对Windows 2000/XP/2003各种版本的系统均有效

设置启动界面