第9章 模块与VBA程序设计

本章导读

通过Access自带的向导工具，能够创建表、窗体、报表和宏等基本对象。但是，由于创建过程完全依赖于Access内在的、固有的程序模块，这样虽然方便了用户的使用，但是同时也降低了所建系统的灵活性，对于数据库中一些复杂问题的处理则难以实现。因此，为了满足用户更加广泛的需求，Access为用户提供了自带的编程语言VBA。

VBA是Visual Basic for Applications的英文缩写，是用Basic语言作为语法基础的可视化的高级语言。它使用了对象、属性、方法和事件等概念。由于VBA也是采用Basic语言作为语法基础，就使得初学者在编程的过程中感到十分容易。

本章要点

l  模块及VBA程序设计相关概念

l  VBA程序开发环境

l  VBA程序开发基础知识

l  VBA程序控制语句

l  VBA自定义过程的定义与调用

l  VBA数据库访问技术

l  VBA程序的调试

实例—— “登录”模块的实现

通过VBA基本知识的学习，下面将实现引例中的VBA编程。主要步骤如下：

（1）启动“教务管理系统”，选择“创建”选项卡中的“窗体设计”命令按钮，打开窗体设计窗口。

（2）按图9.33所示添加窗体控件，并布局控件和设置相应控件的属性。

图9.33 “用户登录”界面设计

（3）按图9.34所示，建立“用户表”。

图9.34 用户表

（4）在“用户登录”窗体中右键单击“登录”按钮，选择“事件生成器”，打开“选择生成器”对话框，选择“代码生成器”，则打开VBE编辑窗口。输入“登录”按钮的事件过程代码如下：

Private Sub 登录_Click()

Dim cn As New ADODB.Connection

Dim rs As New ADODB.Recordset

Dim strSQL As String

Set cn = CurrentProject.Connection

strSQL = "select * from 用户表"

rs.Open strSQL, cn, asopendynamic, adLockOptimistic, adCmdText

Do While Not rs.EOF

If yhm = rs.Fields("用户名") And mm = rs.Fields("密码") Then

 DoCmd.OpenForm "主界面"

 Exit Sub

End If

rs.MoveNext

Loop

If rs.EOF Then

 MsgBox "用户名或密码不正确！"

 yhm = ""

 mm = ""

 End If

 rs.Close

 cn.Close

 Set rs = Nothing

 Set cn = Nothing

End Sub

（5）编辑“取消”按钮的事件过程代码如下：

Private Sub 取消_Click()

DoCmd.Close

End Sub

（6）保存“用户登录”窗体，运行该窗体，输入用户名和密码测试“登录”和“取消”按钮功能的实现。