国开《数据库基础与应用》第十一章 11-4-5：例11-5
11-4-5：例11-5
在“公司信息管理”数据库中建立一个用户登录的窗口，对“确定”命令按钮编写事件过程，要求对输入的用户名和密码给出正确与否的应答信息。
窗体创建及事件代码内容如下：
1．单击“创建”选项卡下“窗体”组中的“其他窗体”菜单，选择“模式对话框”菜单命令，创建一个空白的模式对话框窗体，进入其设计视图，如图11-13所示。
图11-13 空白的模式对话窗体
2．在窗体上放置徽标、标题和两个文本框及命令按钮，并调整控件的位置，设置背景色，其设计视图如图11-14所示。
图11-14 登录窗体的设计视图
3．对窗体中的文本框和命令按钮等控件进行属性设置，具体参数如表11-1所示。
表11-1 登录窗体控件属性参数
| 控件类型 | 名称 | 用户名： | 其他说明 |
|---|---|---|---|
| 标签 | 用户名： | ||
| 标签 | 密码： | ||
| 文本框 | username | ||
| 文本框 | password | “输入掩码”设置为“密码” | |
| 命令按钮 | cmd_ok | 确定 | |
| 命令按钮 | Cmd_cancel | 取消 |
4．在窗体设计视图中单击选中“确定”命令按钮，在其“属性表”对话窗格中，选择“事件”选项卡，如图11-15所示，在其“单击”下拉列表框中选择“[事件过程]”，然后再用鼠标单击其右边的“ 
”按钮，进入VBE，打开“确定”命令按钮的事件过程编辑窗口，系统自动加上了以“Private Sub cmd_ok_Click()”为头，以“End Sub”结束的事件过程。
图11-15 确定按钮属性设置
5．在事件过程中编写代码，检查用户输入的用户和密码是否正确。假设正确的用户名是“abc”，密码是“1234”，代码检查用户输入的用户名和密码，如果全部正确则提示输入正确，否则提示错误。事件代码对应一条If语句，使用MsgBox给出提示信息，事件过程代码如下：
Private Sub cmd_ok_Click()
If username = "abc" And password = "1234" Then
MsgBox "恭喜您！用户名和密码正确。"
Else
MsgBox "抱歉，用户名或密码错误！"
End If
End Sub
事件过程编辑完成后的代码窗体如图11-16所示。
图11-16 “确定”命令按钮事件过程代码
6．保存事件过程代码和对窗体的设计，将窗体命名为“登录窗体”。
7．以窗体视图打开“登录窗体”，在其中输入正确的用户名和密码，提示信息如图11-17所示，如果用户名或密码输入错误，则提示信息如图11-18所示。
从上面的实例中我们可以看到，给控件添加事件过程的步骤是：先选定一个控件，然后在“属性表”的“事件”选项卡下添加相关事件代码。“属性表”的最上面显示的是当前选定的窗体或控件的名称，例如我们创建的命令按钮是“cmd_ok”，创建事件过程时也用这个名称加上下划线，再加上事件名称来命名“cmd_ok_Click()”。
