第8章 模块的操作

8.2 VBA程序设计基础

常量（续）
★除“直接常量”外，Access尚有三种常量 符号常量：用一个符号（常量名）来声明的反 复使用的某个数据 Cont 常量名 = 常量值 例如： Const PI = 3.14159 系统常量：Access启动时自动创建的常量，例如： true，false，yes，no，on，off，null
★加法：+ ★减法：★乘法：* ★除法：/ ★整数除法：\ ★乘幂：^ ★求模：mod
3 / 2，结果为 1.5 5.7 \ 2.2，相当于 6 \ 2，结果为3 2^4 表示求24 11 mod 3，结果为2
8.2 VBA程序设计基础

关系运算符：运算结果为逻辑值（true，false）
★等于： = ★不等于： <> ★大于： > ★小于： < ★大于等于： >= ★小于等于： <= 例如： [年龄] >= 18 "aa" < "ab" "张" < "周"
★变量在使用前需要用变量声明语句进行声明 给变量命名 指定变量的数据类型 确定变量的作用范围 ★全局变量的声明语句 public 变量名 as 数据类型 例如： public classno as string
8.2 VBA程序设计基础

变量的声明
★模块、局部变量的声明语句 dim 变量名 as 数据类型 dim name as string dim age as integer 或者 dim 变量名（表示该变量为Variant即可变数据类型） dim myvar 或者，也可以直接使用类型说明符进行声明： x% = 168 表示变量 x 为整形变量，并将其赋值为168
8.2 VBA程序设计基础

数组（续）
★二维数组的声明 dim 数组名(下标上限1, 下标上限2) as 数据类型 例如，声明一个96行2列的二维数组 dim ages(95, 1) as integer ages(0, 0) = 1, ages(0, 1) = 18, ages(1, 0) = 2, ages(1, 1) = 19, …… ages(95, 0) = 96, ages(95, 1) = 16 遗憾，要想将姓名、年龄等不同数据类型的数据 混合存储，必须用到“自定义数据类型”！
8.2 VBA程序设计基础

变量的作用域
★作用域：变量在程序中起作用的范围 ★作用域的三个层次 局部变量：专属于某个过程或函数，在过程、 函数内部声明 模块变量：专属于某个模块，在模块中所有过 程之外声明 全局变量：公共变量，标准模块中所有过程之 外声明，这种变量在所有模块都有效
8.2 VBA程序设计基础
8.1 认识模块对象

示例之一：计算两个数的乘积
★创建“标准模块” ★在标准模块中创建计算两数乘积的过程 Sub DoMultiplication(x As Integer, y As Integer) Dim z As Integer z=x*y MsgBox x & "×" & y & " = " & z, vbInformation, "乘积报告" End Sub

变量的生命周期
★变量的生命周期，是指变量从声明开始到超出其 作用范围为止的整个有效周期 ★不同层次变量的生命周期 全局变量：从声明开始到Access应用程序运行结 束 模块变量：从声明开始到离开（不再使用）所 属的模块 局部变量：从声明开始到过程、函数运行结束
8.2 VBA程序设计基础

变量的声明
8.2 VBA程序设计基础

属性设置
★静态设置 ★动态设置：在以上“计算乘积”窗体的打开事件 中编写代码设置文本框的颜色
8.2 VBA程序设计基础

DoCmd对象
★用于调用内置方法在程序中实现Access操作 ★所调用的方法大多有参数，一些参数是必需的， 一些事可选的（省略时采用默认值） ★DoCmd对象所调用的主要方法（参见P154） 打开窗体 DoCmd.OpenForm “窗体名”, 视图参数 DoCmd.OpenForm "00主窗体", acNormal 关闭窗体 DoCmd.CloseForm “窗体名“ DoCmd.Close（关闭当前窗体）
Chapter 8
模块的操作
东莞理工学院城市学院
计算机与信息科学系
1
第8章 模块的操作
模块的基本概念 VBA程序设计基础 VBA函数的使用 模块的建立与使用 过程与参数传递

8.1 认识模块对象

基本概念
★通过宏，可以将各种窗体、报表、查询等对象 “串”起来，形成Access应用的整体效果，但是， 宏具有其局限性 ★要实现完整的Access数据库应用，必须用到VBA （Visual Basic for Application）语言来编写Access 数据库应用程序（VBA程序） ★VBA程序由模块构成，而模块是由声明、语句和 过程组成的VBA语句集合 ★VBA程序响应用户在窗体、报表等对象上所进行 的操作（事件），通过VBA语句对数据进行处理
8.2 VBA程序设计基础

常量
★常量是指用于在内存中存储程序运行过程中其值 不会发生变化的那些数据 ★在查询的表达式中，实际上已经用到各种常量， 这种常量叫做“直接常量”或“字面常量”，例如： [性别] = "男" and [姓名] like "李*" "国会1班" & 48 & "人“ in ("广州", "深圳", "珠海") Between #1989-01-01# And #1989-12-31# Right("2011级国际会计专业",3,7) DateDiff("yyyy", [出生日期], Date())
8.1 认识模块对象

基本概念（续）
★Access模块一般包括一个或多个过程，过程类似于 函数，每个过程执行一定的功能 ★Access中包括两大类模块 标准模块：完全由代码（VBA语句）构成，是 数据库对象所使用的公共过程的集合 类模块：由代码和数据构成，隶属于特定的窗 体、报表等对象，用于对窗体、报表对象中的事 件进行处理
8.2 VBA程序设计基础

常量（续）
★除“直接常量”外，Access尚有三种常量 内部常量：又称为固有常量，是系统预定义的 常量，可细分为
Access库常量，以ac开头 VBA库常量，以vb开头 DAO库常量，以db开头 ADO库常量，以ad开头
例如： MsgBox (“是否关闭窗口？”, vbYesNo, “操作提示“)
8.2 VBA程序设计基础

连接运算符：运算结果为字符串
★&：将两个操作数强制连接成单个字符串 ★+：将两个字符串连接成单个字符串 例如： MsgBox x & "×" & y & " = " & z MsgBox "国会1、2班共有" + "96" + "人"
8.2 VBA程序设计基础

面向对象程序设计（OOP）的基本概念
★OOP，以对象为中心设计模块，通过事件来驱动 程序，并通过程序代码响应并处理事件 对象（类） 属性 事件 方法 ★其他概念 集合：与对象相关的键、值构成（一本书：页 码是键，页码对应的内容是值） 过程：完成某些功能的程序代码段，包括：Sub 过程（无返回值）和Function过程（有返回值）
8.2 VBA程序设计基础

数组（参见P162-164，了解就行）
★常量、变量：用一个符号（常量、变量名）只能 表示一个数据 ★数组：用一个符号（数组名）来表示 n 个数据 ★一维数组的声明 dim 数组名(下标上限) as 数据类型 dim names(95) as string dim ages(95) as integer names(0) = "陈爱玲", names(1) = "陈慧棉", … … names(95) = "张嘉仪" ages(0) = 18, ages(1) = 19, … …ages(95) = 16
8.2 VBA程序设计基础

变量的声明（续）
★一个特殊的模块变量 me 表示对当前类模块对象的引用 例如，对“登录窗体”中“用户名”的引用，可 以是 Me!用户名.BackColor = RGB(255, 0, 0) ★静态变量 用dim声明的变量，超出变量的作用域时即不再 有效，通过用static代替dim声明变量，可使得变 量在整个模块执行期间一直有效 示例：静态变量
8.1 认识模块对象
பைடு நூலகம்
示例：用户注册
8.2 VBA程序设计基础

VBA与VB
★VB具有自己的开发环境，是一种完整的程序设计 工具（语言），而VBA寄生于已有的应用程序（如 Access、Excel），是VB的一个子集 ★VB用于创建标准的应用程序，而VBA用于实现 Office中诸多组件（如Access）的自动化 ★不必安装VB就可以运行VB开发的应用程序 （*.EXE），而VBA开发的程序必须依赖于它的 “父”程序（例如ACCESS数据库）
8.2 VBA程序设计基础

DoCmd对象（续）
★DoCmd对象所调用的主要方法（续） 打开报表 DoCmd.OpenReport “报表名”, 预览模式参数 DoCmd.OpenReport “学生成绩”, acViewPreview 关闭报表 DoCmd.CloseReport “报表名“ DoCmd.Close（关闭当前报表） 运行宏 DoCmd.RunMacro “宏名” 退出Access DoCmd.Exit