下一步，让我们开始写代码吧，我把代码直接贴出来了，愿意的朋友可以直接复制粘贴进你的按钮，就成了。不过你很好学的话，我也希望你好好阅读一下，代码是很有趣的东西，有时我很恨它们，但有时很爱它们。
[进入]按钮的代码：
‘这一段是用来检查有没有输入用户名或密码的
If IsNull(Trim(Me.用户名)) Then
DoCmd.Beep
MsgBox ("请输入用户名称！")
Else
If IsNull(Trim(Me.密码)) Then
DoCmd.Beep
MsgBox ("请输入密码！")
Else
‘以下是用来与［登陆表］做对比的
Me.RecordSource = "select * from 登陆表 where 用户名= '" & Me.用户名 & "' and 密码='" & Me.密码 & "'"
'Set rs = GetRS(str)
If Me.Recordset.EOF Then
DoCmd.Beep
MsgBox ("没有这个用户或密码有误,请重新输入！")
Me.用户名 = ""
Me.密码 = ""
Me.用户名.SetFocus
Exit Sub
Else
DoCmd.Close
‘试用版使用次数的限制
If n = 50 Then
DoCmd.Close
Else
n = n + 1
MsgBox ("欢迎使用承德县干部管理系统！")
check = True '设置登陆标志
DoCmd.OpenForm ("主查询窗体")
End If
End If
End If
进入按钮的基本功能是：
（1） 检查用户名或密码是否为空；如果其中的为空，进行友好提示。
（2） 比对登陆表，发现不匹配进行友好提示
（3） 如果一切都OK，提示欢迎，打开主窗体。
按钮的使用需要和对应的表进行匹配，我们在下面一节会做出系统的说明。总之，封面的制作是成套的，你用这个办法，就需要做一系列的事情，才能保证它正常成功地实现你要的效果。
代码看得头痛，如果你是菜鸟，以下这些信息或者对你有些帮助：
DoCmd的各类方法：这是个好东东，它可以指挥计算机做好多事情，docmd.beep是让电脑发出“嘟”的一声，提醒你错了。Docmd.runsql是运行一条SQL语句。反正docmd是指挥家，它可以让窗体打开，让窗体关上，让你头上生出朵花来，反正你如果有空，好好看看它都可以干些什么，如果不想死啃书的话，注意多在找码当中找到它的各类用法，它是盘相当不错的菜，变化很多的。
Me.啥啥啥：ME是指当前窗体，Me.RecordSource意思是当前窗体的记录源，Me.Recordset.EOF这句话的意思是当前记录集为空，Me.用户名.SetFocus是将“用户名”字段设为焦点。
SQL代码里的头痛之处：
"select * from 登陆表 where 用户名= '" & Me.用户名 & "' and 密码='" & Me.密码 & "'"
以上这一段是一句SQL语句，我们常常需要用到，SQL的语法我不多说，但要想让ACCESS里用起来，它与窗体字段的合并是让我十分头痛的一个地方，老是因为多引号，少引号产生错误。Me.用户名是窗体上的一个字段，在与SQL合并的时候，是不能被双引号引用的，所以要在引用它之前，把其它的SQL语句先引起来，就是这一段："select * from 登陆表 where 用户名= '"，在SQL语句里，“AND”是“且”条件的连接词，合并时就不能再用它了，我们用“&”这个符号，在好多查询条件当中，ACCESS认’姓名’，所以单引号也不能缺，大家睁大眼睛，会发现在［用户名= ］后面，有一个小小的单引号吧。所以你在抄人家代码的时候，千万要十分十分地小心，漏掉一点点，你那边也会成不了事儿。虽然天下文章一大抄，但会抄和不会抄，也要拼眼力呀！
［退出］按钮要简单地多，直接退出就可以了，我就不抄代码了。
说到按钮，我有个血的教训，一定得提醒大家一下。一开始，我不是直接放按钮的，而是直接放图片的，因为图片也有“单击”事件，我把漂亮的按钮图片直接嵌进去，认为用“单击”事件，也可以实现一样的效果。但是，开发环境下是可以的，一旦我编译了之后，就不行了。
后来发现用按钮比较保险，只是因为ACCESS的按钮只有方头方脑的这一种，不想自寻烦恼的还是直接找个方头方脑的按钮图片，比较妥当。当然，我属于喜欢自寻烦恼的，所以我做了这个：
大家看见了吧，不按的时候，它是一个圆角的按钮，但一按，难看的方头方脑的黑框线还是会出现，对比之下：
这个东东就显得比较耐看了。
