[图解]ACCESS数据库也能这么做--“登陆界面”四步成

[图解]数据库也可以这样做—登陆界面四步成1

作者语：我是一个新妈妈，在怀孕的时候，我闲在家里。因此开始用ACCESS为周围的朋友做一些他们需要的数据库。我开始做了一个《保险经纪人管理系统》，后来在月子里又做了一个《汽修铺交易管理系统》，后来宝宝出生拉，我也做上了瘾。

作为一个女生，我也很喜欢漂亮和精致的各类东西，但我看来看去，为什么同类型数据库长的脸都灰头土脑的，它的操作为什么也不能充满乐趣？我希望自己做出来一些与众不同的东西，也许它也没什么奇怪的，但它应该让使用的人感觉快乐才对，我这样想的。

这里个论坛上，我发现好多和我有着差不多想法的年青人，他们也很好学，也很勤奋。我希望把我知道的尽量和他们分享。

今天我们分享漂亮的登陆界面怎么做成的。

先看看我曾经做过的登陆界面吧：

如果你认为这个登陆界面很吸引你，就请顶一下我噢，明天我继续发表它们是如何被制作出来的。

1.登陆背景图：

我不是一个美工，虽然我得说我对美好的事物很着迷，但我可不是美工。所以怎么把一张我认为不错的图变成背景，这可是难倒我的问题。不过虽然这一部分不能全部DIY，但我可以去抄。于是，我找到了“怪兽网”（）,我以前就是怪兽的发烧友，没事儿就在上面看东看西，虽然我也不做网站，但我仍旧认为，做为商业网站模板的集群发布站，它上面的作品主题鲜明，色彩艳丽，直接拿来改一改就好用了。

在这里我得多说几句，做为应用程序的界面，和网站模板有一点区别，网站模板不一定全能用来当应用程序的界面。选择尽量简洁明了的背景是很重要的。否则你会发现，美工的活儿会让你花太大的力气。好了，我找到了一个合意的背景了。就是它：

它在众多的模板当中显得很严肃，但因为我现在要做的系统是替政府做的，那政府会喜欢这种风格的界面吧。同时，它的方头方脑，会让我在下面的按钮设计当中有些天然的优势。好了，根据我的经验，找的背景图要具备以下几个要素，如果你PS功力和我一样差的话，一定要记住了：

（1）底图尽量由大块的纯色组成，因为花纹的底面会让你在修改文字时变得崩溃的。

（2）有些按钮很漂亮，但它是渐变色的，不要用。

（3）选择天然有按钮的模板，不要只看一个封面就决定你的选择，好多FLASH 动画是要点进去看才知道有多炫的。

（4）按钮要用方角的，不要用圆角的。因为ACCESS里，按钮只能做成方角的，用了圆角的点击时会出现难看的方形边框。

选好图之后，就要开始切图了，在这里我隆重推荐一个业余PS人士很喜爱的图片编辑器：sngait，它可以切范围，切窗口，最重要的，它可以切滚动窗口，把一幅图原汁原味地切下来，对于背景制作是很重要的。

好了，切图吧，除了刚才看到的封面，我采集到了如下一些可以用来当背景的图。

这些图上，我要的元素都有了，有布局，有主标位置，有图片区，有按钮区，有内容区，应有尽有。下面要做的事情就是我们女生小时候最爱干的事情了，剪剪贴贴，成为自己的背景。我那几天干得挥汗如雨，但找到了小时候为心爱的娃娃做衣服的感觉，还是很开心的。成果如下：

还有一些小背景窗底纹，我不贴了，总之衣服做出来之前，布料都是丑丑的，但衣服做出来之后，就不一样拉。背景我选择了“微软雅黑”来做为基本字体，黑配白做为基本色彩方案。大方严肃的布局，配合这个软件的基调，同时不失美感。

背景图花了2-3天的时间，从选材到制作，基本上算完成了，还有一些小背景，可以在具体需要的时候来制作。然后我们就要进入主要的工作阶段，把它们用起来。

明天继续…..

2.按钮怎么加：

首先，让我们把昨天做好的图放进窗体，新建一个空白的窗体后，大家放图片吧：

放好之后，在用户名，密码后面，加上两个［文本框］，右侧是这个空白窗体的属性，请大家按这些设置方式进行设置。

然后在下方加上：［进入］［退出］按钮。

方法是，先加普通按钮，在这里点击“取消”，因为按钮的功能是写代码的，我们不用它的引导模式：

好了，接下来把做好的按钮图片放进这个按钮就成了。

下一步，让我们开始写代码吧，我把代码直接贴出来了，愿意的朋友可以直接复制粘贴进你的按钮，就成了。不过你很好学的话，我也希望你好好阅读一下，代码是很有趣的东西，有时我很恨它们，但有时很爱它们。

[进入]按钮的代码：

‘这一段是用来检查有没有输入用户名或密码的

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的按钮只有方头方脑的这一种，不想自寻烦恼的还是直接找个方头方脑的按钮图片，比较妥当。当然，我属于喜欢自寻烦恼的，所以我做了这个：