《Access数据库技术与应用基础_09模块与VBA编程基础》由会员分享，可在线阅读，更多相关《Access数据库技术与应用基础_09模块与VBA编程基础（52页珍藏版）》请在金锄头文库上搜索。
1、2018/10/14,数据库技术与应用基础 Access,第9章 模块与VBA编程基础,2018/10/14,熟悉VBA的编程环境 掌握VBA的基本语法和程序结构 熟悉Access对象模型 掌握VBA基于面向对象的编程,主要任务,第9章 模块与VBA编程基础,2018/10/14,9.1 模块的基本概念 9.1.1 类模块 9.1.2 标准模块 9.2 创建模块 9.2.1 在模块中加入过程 9.2.2 在模块中执行宏 9.3 VBA程序设计基础 9.3.1 面向对象程序设计的基本概念 9.3.2 Visual Basic 编辑环境 9.3.3 Visual Basic 数据类型和数据库对象
2、9.3.4 变量与常量 9.3.5 程序语句书写原则 9.3.6 运算符与表达式 9.3.7 常用标准函数 9.4 VBA流程控制语句 9.4.1 顺序结构 9.4.2 选择结构 9.4.3 循环结构 9.4.4 常用事件程序的设计 9.5 宏与VBA 9.5.1 将宏转换为Visual Basic代码 9.5.2 将窗体或报表中的宏转换为Visual Basic代码 9.5.3 将宏转换为模块 9.5.4 在VBA过程中实现宏操作,主要内容,第9章 模块与VBA编程基础,2018/10/14,9.1 模块的基本概念,模块是VBA代码组织形式，在Access中模块可分为两类：类模块标准模块。
3、窗体和报表模块都是类模块，而且它们各自与对应的窗体或报表相关联。窗体或报表模块通常都含有事件过程，当它们创建第一个事件过程时，Access将自动创建与窗体或报表对象相关联的类模块。 与类模块不同，标准模块不与任何对象相关联。标准模块中的程序是通用的，可以在数据库的位置被调用执行。,2018/10/14,9.1.1 类模块,类模块分为：独立类模块、窗体模块和报表模块。 独立类模块不依附于窗体和报表而独立存在，用该类模块能创建自定义对象，可以为这些对象定义属性、方法和事件。 窗体模块和报表模块都属于类模块，它们从属于各自的窗体或报表。,2018/10/14,9.1.2 标准模块,标准模块是指存放整
4、个数据库可用的函数和过程的模块。标准模块属于数据库对象，用户可以像创建其他数据库对象一样创建包含VBA代码的标准模块。模块内包含了Sub过程和Function函数过程。,2018/10/14,9.2 创建模块,过程是模块的单元组成，由VBA 代码编写而成。过程分两种类型：Sub 子过程和Function 函数过程。,2018/10/14,9.1.2 在模块中加入过程,模块是装着VBA 代码的容器。在窗体或报表的设计视图里，单击工具栏“代码”按钮或者创建窗体或报表的事件过程可以进入类模块的设计和编辑窗口；单击数据库窗体中的“模块”对象标签，然后单击“新建”按钮即可进入标准模块的设计和编辑窗口。
5、一个模块包含一个声明区域，且可以包含一个或多个子过程（以Sub 开头）或函数过程（以Function 开头）。模块的声明区域是用来声明模块使用的变量等项目。,2018/10/14,例91 创建一个名为Welcome的模块，其功能是用来显示欢迎消息框。操作步骤：（1）选择数据库窗口中的“模块”对象，单击“新建”按钮，打开VBA编辑界面。（2）执行“插入”“过程”菜单命令。在弹出的“添加过程”对话框中填写过程的名称、选择过程类型和范围，单击“确定”按钮后，出现Welcome过程的编写窗口。,2018/10/14,（3）编写过程代码。 （4）单击工具栏上的“运行子过程/用户窗体”按钮。 （5）以We
6、lcome为模块名保存该模块。,2018/10/14,9.2.2 在模块中执行宏,在模块的过程定义中，使用Docmd 对象的RunMacro 方法，可以执行设计好的宏。其调用格式为：Docmd.RunMacro MacroName , RepeatCount , RepeatExpression 其中，MaoroName 表示当前数据库中宏的有效名称；RepeatCount 川可选项，用于计算宏运行次数的整数值；RepeatExpression可选项，数值表达式，在每一次运行宏时进行计算，结果为false 时，停止运行宏。,2018/10/14,Visual Basic是微软公司推出的可视化应
7、用程序开发语言，简称VB。由于VB功能强大且编程简单易学，因此微软公司将它的一部分代码结合到office中，形成了VBA。VBA语法与Visual Basic 编程语言互相兼容。在Access 程序设计中，当某些操作不能用其他Access 对象实现，或者实现起来很困难时，就可以利用VBA语言编写代码，完成这些复杂任务。,9.3 VBA程序设计基础,2018/10/14,9.3.1 面向对象程序设计的基本概念,对象和集合 属性和方法 事件和事件过程,2018/10/14,Visual Basic 编辑器（VBE , Visual Basic Editor ）是编辑VBA 代码时使用的界面。VBE
8、 编辑器提供了完整的开发和调试工具。启动方式有如几种： 执行“工具”|“宏”|“Visual Basic编辑器”命令。 新建模块对象后，自动打开Visual Basic编辑器。 执行“插入”|“模块”命令或执行“插入”|“类模块”命令。 在模块对象的数据库窗口中，双击已有模块。 打开窗体或报表的设计视图，执行“视图”|“代码窗口”命令。,9.3.2 Visual Basic 编辑环境,2018/10/14, 打开窗体或报表的设计视图，在需要编写代码的控件上右击，从弹出的快捷菜单中选择“事件生成器”命令。 在窗体或报表上的控件上右击，从弹出的快捷菜单中执行“属性”|“事件”菜单命令，单击任何事件
9、单元格右侧的下拉箭头，从下拉列表框中选择“事件过程”。 窗口主要由标准工具栏、工程窗口、属性窗口和代码窗口等组成。,2018/10/14,例92 新建窗体并在其上放置一个命令按钮，然后创建该命令按钮的“单击”事件响应过程。操作步骤：（1）进入Access 的窗体“设计”视图，在新建窗体上添加一个命令按钮并命名为“cmdTest”。 （2）选择“Test ”命令按钮，单击右键打开属性窗体，单击“事件”卡片并设置“单击”属性为“（事件过程）”选项。,2018/10/14,（3）单击属性栏右旁的“ ”按钮，即进入新建窗体的类模块代码编辑区。在打开的代码编辑区里，可以看见系统已经为该命令按钮的“单击”
10、事件自动创建了事件过程的模板。此时，只需在模板中添加VBA 程序代码，这个事件过程即作为命令按钮的“单击”事件响应代码，这里，仅给出了一条语句：MsgBox “测试完毕！”，vbInformation,“title”。（4）按Alt + F11 组合键回到窗体“设计”视图，运行窗体，单击“test ”命令按钮即激活命令按钮“单击”事件，系统会调用设计好的事件过程来响应“单击”事件的发生，弹出“测试完毕！”消息框。,2018/10/14,标准数据类型 用户定义的数据类型 数据库对象,9.3.3 Visual Basic 数据类型和数据库对象,2018/10/14,常量常量是指在程序运行过程中值不
11、变的量。常量的使用能够增加代码的可读性，并且使代码易于维护。在VBA 中有3 种常量：直接常量、符号常量和系统常量。 变量变量是指程序运行时值会发生变化的数据。变量名的命名，同字段命名一样，变量命名不能包含有空格或除了下划线字符（_ ）外的任何其他的标点符号，其长度不得超过255 个字符。,9.3.4 变量与常量,2018/10/14,语句书写规定 注释语句 采用缩进格式书写格式,9.3.5程序语句书写原则,2018/10/14,算术运算符与表达式 关系运算符与表达式 逻辑运算符与表达式 字符串运算符与表达式,9.3.6 运算符与表达式,2018/10/14,在VBA 中，除模块创建中可以定义
12、子过程与函数过程完成特定功能外，还提供了近百个内置的标准函数，可以方便地完成许多操作。标准函数一般用于表达式中，有的能和语句一样使用。其使用形式如下：函数名（参数1 ，参数2 ，参数3 ，参数4 ，参数5 ） 其中，函数名必不可少，函数的参数放在函数名后的圆括号中，参数可以是常量、变量或表达式，可以有一个或多个，少数函数为无参函数。每个函数被调用时，都会返回一个返回值。需要指出的是：函数的参数和返回值都有特定的数据类型对应。,9.3.7 常用标准函数,2018/10/14,数学函数 字符函数 日期时间函数 合计函数,2018/10/14,VBA程序设计有三种基本控制结构：顺序结构、选择结构和循
13、环结构。所有程序都由这三种基本控制结构组成。顺序结构是程序流程中最简单的控制结构，如果编写较为复杂的程序需要使用选择结构和循环结构语句来对程序进行流程控制。 顺序结构顺序结构就是按照程序代码编写的顺序依次执行。顺序结构主要介绍赋值语句和输入输出语句。,9.4 VBA流程控制语句,2018/10/14,1、赋值语句赋值语句可以将常量或常量表达式的值赋给变量或对象的属性，一般格式为：=或.= （1） 应符合变量的命名规则，缺少时为当前窗体或报表。 （2） 首先计算“=”（赋值运算符）右边表达式的值，将此值赋给“=”左边的变量或对象属性。,2018/10/14,2Print方法在VBA中可以使用Pr
14、int方法在窗体、立即窗口及打印机上输出文本数据或表达式的值。一般格式为：对象名.Print 表达式 3InputBox函数InputBox函数可以产生一个输入对话框，等待用户输入数据并返回所输入的内容。一般格式为：InputBox（提示字符串,对话框标题字符串,默认输入数据）,2018/10/14,4MsgBox函数和MsgBox语句MsgBox函数或语句可以产生一个消息框，消息框中给出提示信息，用户可以根据提示信息选择后面的操作。函数格式为：MsgBox（消息字符串，按钮与图标样式，对话框标题字符串）语句格式为：MsgBox 消息字符串，按钮与图标样式，对话框标题字符串 两种格式的区别是，
15、MsgBox函数会产生一个返回值，用户需要将返回值赋给一个变量。MsgBox语句无返回值，仅是单纯的信息显示。,2018/10/14,例94创建Area过程，其功能是，计算圆的面积，半径值从键盘随机输入。 操作步骤： 进入Access 数据库中的模块，新建模块进入VBA的编辑器。 选择“插入”|“过程”，输入过程名。 确定后，输入过程代码。 选择“运行”|“运行子过程/用户窗体”命令，弹出输入对话框输入任意半径值后，单击“确定”按钮，弹出消息框显示面积值。,2018/10/14,例95创建一个圆的面积的窗体，通过在文本框中输入的半径值，点击计算按钮得到计算结果。 操作步骤： 进入Access
16、数据库中的窗体，添加标签、文本框和命令按钮，新建命令按钮的单击事件代码，进入VBA的编辑器，输入代码。 选择“运行窗体”命令，输入任意半径值后，单击“计算”按钮，弹出消息框显示面积值。,2018/10/14,选择结构又称为分支结构，根据条件表达式的值执行相应的操作。选择结构可分为单分支选择结构、双分支选择结构和多分支选择结构。 1单分支If语句格式：If ThenEnd If 说明：计算条件表达式的值，若值为“真”（Ture）则执行Then后面的语句，若值为“假”（False）则退出If语句继续执行下面的程序。,9.4.2 选择结构,2018/10/14,例96创建一个求绝对值的过程，其功能是，通过输入一个整数，输入这个数的绝对值。 操作步骤： 进入Access 数据库中的模块，新建模块进入VBA的编辑器。 选择“插入”|“过程”，输入过程名，这里输入绝对值。 确定后，输入过程代码。 选择“运行”|“运行子过程/用户窗体”命令，弹出输入对话框，输入任意值后，单击“确定”按钮，弹出消息框显示其绝对值。,
