《Access数据库实用教程教学课件作者第2版苏传芳教学资源课件Access数据库实用教程教学课件作者第2版苏传芳教学资源课件第8章模块2010章节》由会员分享，可在线阅读，更多相关《Access数据库实用教程教学课件作者第2版苏传芳教学资源课件Access数据库实用教程教学课件作者第2版苏传芳教学资源课件第8章模块2010章节（93页珍藏版）》请在金锄头文库上搜索。
1、第8章 模块,8.1 模块的基础知识 8.2 VBA程序设计基础 8.3 模块的创建 8.4 宏转换为VBA代码,8.1 模块的基础知识,模块是一种重要的Access数据库对象，是用VBA（Visual Basic for Application）语言编写的程序代码。编程模块使用的是Microsoft Office内置的VBA编程语言，用来完成一些用向导操作或宏操作指令无法完成的功能，使数据库系统的功能更加灵活、更加完善。VBA与独立的Visual Basic编程语言互相兼容。,8.1 模块的基础知识,8.1.1 模块的概念 1模块 模块是用VBA语言的声明和过程编写的程序代码段，作为一个整体
2、被存储和使用。 模块由一个或多个过程组成，模块中的每一个过程都可以是一个函数过程或是一个子程序过程。 模块有两个基本类型：类模块和标准模块。,8.1 模块的基础知识,模块有两个基本类型：类模块和标准模块。 （1）类模块 类模块包含类定义的模块，包括属性和方法的定义。窗体和报表模块都是类模块。用户也可以自定义类模块。 （2） 标准模块 标准模块包含在数据库窗口的模块对象列表中，是不与任何对象相关联的通用过程。这些过程可以在数据库中的任何位置被直接调用执行。,8.1 模块的基础知识,2模块与宏的区别 使用宏不需要编程，使用模块需要编程。 模块的运行速度比宏的运行速度要快，而VBA包含宏的所有等效语
3、句，且在数据库维护、错误信息处理、内置函数的使用及创建处理对象等方面有着明显的优势，所以模块的功能远比宏的功能强大。,8.1 模块的基础知识,3过程 过程是用VBA语言编写的程序代码段，由声明和一系列需要执行的操作语句组成。过程是模块的一个单元，可以被放置在标准模块或类模块中。 过程分为Sub过程和Function过程两类。区别在于Sub过程没有返回值而Function过程有返回值。,8.1 模块的基础知识,（1）Sub过程 执行一系列的操作或运算，但是没有返回值。 定义格式： Private | Public Static Sub过程名(参数列表) 语句组 End Sub 参数列表格式： B
4、yVal参数名 As 类型, 调用格式： Call过程名(实参) 或 过程名 实参,8.1 模块的基础知识,（2）Function 过程 Function 过程又称为函数，执行结果会返回一个值。 定义格式： Private|Public Static Function 过程名(参数 列表) as 返回值类型 语句组 End Function 说明： 函数是特殊的过程。,8.1 模块的基础知识,（3）事件过程 事件过程是一种特殊的Sub过程。当某对象的某个事件被触发时，便自动调用该对象的该事件过程进行处理，这种机制称为事件驱动机制。事件过程是把事件和过程合为一体，利用事件驱动机制来启动执行过程。
5、,8.1 模块的基础知识,定义事件过程使用的是固定格式，由系统提供，不需要人工书写。 Private Sub 对象名_事件名(参数列表) 事件响应代码 End Sub 说明： 事件过程除了由系统自动来调用之外，也可以在程序中用代码来调用。,8.1 模块的基础知识,8.1.2 VBA开发环境 VBA的开发环境即VBA编辑器，又称为VBE（Visual Basic Editor），不仅可以用于编辑已录制的宏和编写新的宏，更主要的还是用于创建和编辑VBA程序。 VBE窗口由菜单栏、工具栏、工程资源管理器、属性窗口和代码窗口组成。,8.2 VBA程序设计基础,8.2.1 数据类型、常量及变量 1常用的
6、数据类型,8.2 VBA程序设计基础,8.2 VBA程序设计基础,2常量 常量是指在程序运行的过程中其值始终不变的量，VBA支持以下几种类型的常量。 数值常量： 由数字组成，如123.55,67893。 字符常量： 由定界符“括起来的符号串，如“Access 2010“。 日期常量： 由定界符#括起来，如 #12/12/2012#。,8.2 VBA程序设计基础, 符号常量： 符号常量的名称具有一定的含义，用于替代数值或字符串。使用const语句可以定义常量，该常量的值不能修改或重新赋值，也不能创建与固有常量同名的常量。 例如： const PI = 3.14159265 const date
7、= #4/6/2013# const conversion=“Access 2010“,8.2 VBA程序设计基础, 固有常量： 是Access或应用库的一部分。VBA中定义的固有常量可以在宏或者VB中使用。 VBA中的固有常量以vb开头，Access中的固有常量以ac开头。 可以使用对象浏览器查看对象库中的固有常量。 系统定义常量： True、False 和 Null。,8.2 VBA程序设计基础,3变量 变量指的是在程序运行的过程中其值可以改变的量。变量是用来存放数据的，在使用前应该先声明，声明的目的是限定变量的数据类型和取值范围。 （1）变量的命名 在声明变量之前要给变量命名，给变量命名
8、必须遵循命名规则。,8.2 VBA程序设计基础,变量的命名规则： 变量名只能由字母、数字和下画线组成，且第一个字符必须是字母。 变量名中的字母不区分大小写。 如abc、Abc和ABC被认为是同一个变量名。 变量名中不允许出现空格、$、 等符号，且长度不超过255个字符。 变量名不能为VBA的关键字。,8.2 VBA程序设计基础,（2）变量声明 格式： Dim变量名 as 数据类型 或 Dim变量名1 as 数据类型1，变量名2 as 数据类型2，,变量名N as 数据类型N 例如： Dim a as Integer Dim username as String ,password as Lon
9、g 说明： 如果变量不声明VBA会默认该变量为Variant类型。,8.2 VBA程序设计基础,（3）变量的作用域 变量的作用域是指变量有效值的作用范围，分为局部变量和全局变量。 局部变量： 用Dim声明的变量是局部变量，其作用域或者是所属的子程序 SubEnd Sub 范围，或者是其所属的模块的范围。如果用Private声明变量，效果也是如此。 全局变量： 如果声明变量时使用Public，则该变量是全局变量，其作用域是数据库中的所有过程。,8.2 VBA程序设计基础,如： Public Dim x as integer Dim y as integer 其中，x是全局变量，其作用域是数据库中
10、的所有过程；y是局部变量，其作用域是变量所在的模块。,8.2 VBA程序设计基础,4数组变量 数组变量是把相同类型的变量合为一组，整体地参与数据处理。 分为静态数组和动态数组两种。,8.2 VBA程序设计基础,（1）静态数组 声明格式： Dim 数组名 （维数定义） as 类型 其中，维数定义用于指定数组的维数。 各维的范围如下。 一维数组： to 二维数组： to ， to 类推可以定义更高维的数组。 说明：如果不指定下标下界，默认的下界为0。,8.2 VBA程序设计基础,（2）动态数组 静态数组的长度是固定的，而动态数组的数组长度是可以改变的。 创建方法如下： 声明一个未指明大小及维数的数
11、组。 用ReDim语句再次声明数组的长度。 说明： 若要保存原数组中的值，可以用ReDim Preserve语句来扩充数组。,8.2 VBA程序设计基础,【例8-1】动态数组的使用。 Dim dyn() As Integer ReDim dyn(5) For i = 1 To 5 dyn(i) = 2 * i Next i ReDim Preserve dyn(Ubound(dyn) + 10),8.2 VBA程序设计基础,8.2.2 运算符和表达式 1算术表达式 算术表达式是指能够进行加、减、乘、除等数学运算的表达式。算术表达式使用算术运算符进行连接。 算术运算符包括： （幂次运算符）、-（
12、负号运算符）、*（乘法运算符）、/（除法运算符）、（整除运算符）、Mod（求余运算符）、+（加法运算符）和-（减法运算符）。 【例8-2】计算表达式 20+True+ “23“的值。,8.2 VBA程序设计基础,2字符串表达式 字符串表达式是指用连接运算符“+”或“&”连接起来的两个个或多个的字符串。 【例8-3】将字符串“Access 2010”、“ VBA编程基础”连接，生成新字符串“Access 2010 VBA编程基础”。 “Access 2010“ & “ VBA编程基础“ 或 “Access 2010“+“ VBA编程基础“,8.2 VBA程序设计基础,【例8-4】字符串的连接。
13、“123“ + “456“ 结果为 “123456“ “123“ & “456“ 结果为 “123456“ “123“ & 456 结果为 “123456“ “123“ + 456 结果为 579 “abc“ & 123 结果为 “abc123“ “abc“ +123 结果为 出错 “123“+True 结果为 122 说明： 为了避免混乱，连接字符串时最好使用“”作为连接运算符。,8.2 VBA程序设计基础,3关系表达式 关系运算符可用来比较两个数或表达式的大小，也称为比较运算符。 关系表达式是用关系运算符连接算术表达式组成的式子。 关系表达式的结果为逻辑型，如果关系成立则返回True，否则
14、返回False。,8.2 VBA程序设计基础,关系运算符的含义及说明,8.2 VBA程序设计基础,说明： 当两个操作数是数值型时，按其大小比较。 当两个操作数是字符型时，按字符从左到右比较ASCII码值，ASCII码值大的字符串大。如果第一个字符相同，则比较第二个字符，依次类推，直到出现ASCII码值不相等的字符。汉字字符大于西文字符。 【例8-5】若有a$=“my Access“，b$=“my Visual Basic“，则a$b$的值为False，a$b$的值为True。,8.2 VBA程序设计基础,4逻辑表达式 逻辑运算又称为布尔运算，是用逻辑运算符连接成的式子称为逻辑表达式。当操作数为
15、数值型数据时，其结果仍为数值型；当操作数为逻辑型数据时，其结果为逻辑型，即逻辑真为True，逻辑假为False。,8.2 VBA程序设计基础,逻辑运算符的含义及说明,8.2 VBA程序设计基础,【例8-6】学校要选拔优秀学生干部，必须同时满足下列3个条件：年龄小于22岁、政治面貌为团员或党员、成绩总分高于350分。 表达式为： 年龄350 注意： 当逻辑运算符用于数值型数据的运算时，则以二进制形式逐位进行逻辑运算。 例如： 若 a=10，b=8，则 a And b 的值为8；a Or b 的值为10；a Xor b 的值为2；Not a 的值为-11。,8.2 VBA程序设计基础,5.运算符的
16、优先级 算术运算符=字符运算符关系运算符逻辑运算符 当一个表达式中有多种运算符时，优先级高的先进行运算，优先级低的后进行运算。 用户可以通过加括号的方法来改变优先级的顺序，强制某一部分先执行，括号内的运算会优于括号外的运算。,8.2 VBA程序设计基础,8.2.3 常用内部函数 VBA提供了大量的内部函数供用户调用。内部函数按功能可以分为数学函数、转换函数、字符串函数、日期与时间函数等。,8.2 VBA程序设计基础,常用数学函数及功能,（1）数学函数,8.2 VBA程序设计基础,常用转换函数及功能,（2）转换函数,8.2 VBA程序设计基础,常用转换函数及功能,8.2 VBA程序设计基础,常用字符串函数及功能,（3）字符串函数,8.2 VBA程序设计基础,【例 8-7】字符串函数的使用。 Ucase(“abcdef“) 结果为 “ABCDEF“。 Left(“ABCDEFG“,4) 结果为 “ABCD“ 。 Mid(“ABCD
