[信息与通信]数据库在Access中创建VBA模块 08.pptVIP

第8章 在Access中创建VBA模块 要点 8.1 创建模块 8.2 数据库对象 8.3 使用ADO 8.4 调试 8.5 应用实例 8.1 创建模块 在Access中模块可以分为两类： 类模块是一种包含对象的模块，当创建一个新的事物时即在程序中创建一个新的对象。窗体和报表模块都属于类模块，而且它们各自与某一个窗体或报表相关联。窗体和报表模块通常都含有事件过程，用于响应窗体和报表中的事件，也可以在窗体和报表模块中创建新过程。 标准模块中含有常用的子过程和函数过程，以便在数据库的其他模块中进行调用。标准模块中通常只包含只一些通用过程和常用过程，并不与任何对象相关联。 在Access中可以创建标准模块、类模块和过程，选择数据库窗口中的“模块”选项卡，单击数据库窗口工具栏上的“新建”按钮，系统会打开Microsoft Visual Basic窗口，选择“插入”菜单中的“过程”、“模块”和“类模块”命令，即可添加相应的模块。 1、创建新过程 定义通用过程的格式为： [Public |Private][Static] Sub 过程名[(参数列表)] [语句块] End Sub 可采用“插入”菜单下的“过程”命令，显示添加过程对话框。也可以在代码窗口中，直接输入过程。 子过程的调用是一条独立的语句，有两种形式： Call 子过程名[(实参列表)] 或 子过程名 [实参列表] 例如，为调用Swap过程，可再添加一个过程Count，而调用的命令按钮的单击事件过程代码为： Private Sub Command0_Click() Dim a As Integer, b As Integer a = TextA.Value b = TextB.Value Swap a, b TextRA.Value = a TextRB.Value = b End Sub 2 、指定参数 在调用过程时，一般主调过程与被调过程之间有数据传递，即将主调过程的实参传递给被调过程的形参，完成实参与形参的结合，然后执行被调过程体。 在VBA中，实参与形参的结合有两种方法，即传址（ByRef）和传值（ByVal），其中传址又称为引用，是默认的方法。 3、选择变量作用域 变量的作用域 局部变量 在过程内用Dim语句声明的变量为局部变量，它只能在本过程中使用，其他过程不可访问。当声明它的过程停止运行时，该变量将不再存在。 模块级变量 模块级变量也称私有变量，它是在一个模块的任何过程外，即“通用声明”段中用Dim语句或Private语句声明的变量。对于具有私有作用域的变量，只能由它所在模块内的过程访问，而其他模块的过程是不能访问它的。 全局变量 在模块开头的“通用声明”段中，使用Public关键字声明的变量为全局变量。全局变量可以由它所在项目内的所过程和模块访问 静态变量 静态变量在程序运行过程中可保留变量的值，也就是每次调用过程时，用Static说明的变量都会保持原来的值，而用Dim说明的变量，每次调用过程时都会重新初始化。用Static说明的形式如下： Static 变量名 [As 类型] Static Sub 过程名[(参数列表)] Static Function([参数列表]) [As 类型] 过程的作用域 在VBA中，过程的作用域分为：模块级和全局级。模块级过程是在定义过程时，在Sub或Function过程前加Private，它只能被本模块中定义的过程调用；在窗体或标准模块中定义的过程，被默认是全局的，也可加Public进行显示说明，它能被应用程序中的所有模块中的过程调用。 4、完成函数的创建 函数是过程的另一种形式，当过程的执行返回一个值时，使用函数就比较简单。要创建一个自定义函数，必须使用Function过程，其格式为： [Public |Private][Static] Function 函数名([参数列表])[As 类型] [语句块] [函数名 = 表达式] [Exit Function] [语句块] [函数名 = 表达式] End Function 上面公式的实现： Public Function area(x As Single, y As Single, z As Single) As Single Dim c As Single c = 1 / 2 * (x + y + z) area = Sqr(c * (c -