《数据库技术与ACCESS应用教程 教学课件 ppt 作者 刘瑞新 第14章》由会员分享，可在线阅读，更多相关《数据库技术与ACCESS应用教程 教学课件 ppt 作者 刘瑞新 第14章（50页珍藏版）》请在金锄头文库上搜索。
1、第14章 模块与VBA编程基础,Access数据库还提供了一个子对象供用户使用，这就是模块。模块以VBA（Visual Basic Application）为基础，编写程序，以函数过程或子过程为单元的集合方式存储。通过模块的组织和VBA程序的设计，可以大大提高Access数据库应用的处理能力，解决复杂的问题。 本章主要介绍模块的概念，以及VBA的编程。 14.1 模块的基本概念 14.2 VBA概述 14.3 VBA流程控制语句 14.4 过程 14.5 面向对象程序设计 14.6 VBA程序的调试,14.1 模块的基本概念,模块是Access系统中非常重要的对象，可以通过给模块编写程序运行。
2、 14.1.1 模块的分类 14.1.2 将宏转换为模块 14.1.3 创建模块,14.1.1 模块的分类,在Access中，模块分为类模块和标准模块两种。 1. 类模块 前面介绍的窗体和报表都属于类模块，它们从属于各自的窗体和报表。在窗体或报表设计视图环境下可以用两种方法进入相应的模块代码设计区域：一是用鼠标单击“工具栏”中的“代码”按钮进入，二是为窗体或报表创建事件过程时，系统会自动进入相应代码设计区域。 2. 标准模块 标准模块一般用于存放供其它Access数据库对象使用的公共过程。在系统中可以通过创建新的模块对象而进入其代码设计环境。标准模块通常安排一些公共变量或过程供类模块里的过程调
3、用。在各个标准模块内部也可以定义私有变量和私有过程仅供本模块内部使用。 标准模块中的公共变量和公共过程具有全局性特征，其作用范围在整个应用程序中，生命周期则是伴随着应用程序的打开而开始、关闭而结束。,14.1.2 将宏转换为模块,在Access中，可以根据需要将设计好的宏转换为模块代码的形式。,14.1.3 创建模块,过程是模块的单元组成，由VBA代码编写而成。过程又分为两类：Sub子过程和Function函数过程。 1. 在模块中加入过程 2. 在模块中执行宏,14.2 VBA概述,VBA是Microsoft Office套间的内置编程语言，其语法与Visual Basic语言类似，并且相互
4、兼容。VBA能够编程实现Access对象所不能实现的操作，或者实现起来很困难的设计。 14.2.1 面向对象程序设计 14.2.2 VBA编辑环境 14.2.3 数据类型 14.2.4 常量 14.2.5 变量 14.2.6 数组 14.2.7 运算符和表达式 14.2.8 VBA常用标准函数,14.2.1 面向对象程序设计,VBA继承了传统的Visual Basic语言。 1. 面向对象程序设计概念 面向对象程序设计已经成为现今最常用的编程术语。面向对象程序设计（Object Oriented Programming，OOP）是一种计算机编程架构，将数据及对数据的操作放在一起，作为相互依存、
5、不可分割的整体来处理，它采用数据抽象和信息隐藏技术，将对象及对象的操作抽象成一种新的数据类型类，并且考虑不同对象之间的联系和对象类的重用性。概括为“对象+消息=面向对象的程序”。 2. 面向对象程序设计方法的基本特性： 面向对象程序设计方法有3个基本特性： (1) 封装性（Encapsulation） (2) 继承性（Inheritance） (3) 多态性（Polymorphisn）,14.2.1 面向对象程序设计,3. 面向对象程序设计的优缺点 使用面向对象程序设计进行开发有以下优点： (1) 易维护 (2) 质量高 (3) 效率高 (4) 易扩展,14.2.2 VBA编辑环境,VBA编辑
6、环境其实就是Visual Basic编辑器（VBE，Visual Basic Editor），是编辑VBA代码时使用的界面。Visual Basic编辑器提供了完整的开发和调试工具。VBE窗口主要由菜单栏、工具栏、工程窗口、属性窗口和代码窗口等组成。,14.2.3 数据类型,在VBA应用程序中，需要对变量的数据类型进行声明。VBA提供了较为完备的数据类型。在声明一些数据类型时，可以使用数据类型说明符号。VBA系统数据类型如表所示。,14.2.3 数据类型,自定义数据类型实质上是由系统数据类型构造的一种数据类型。 自定义数据类型可以在TypeEnd Type语句中定义。其语法格式如下： Type
7、 数据类型名 As As End Type,14.2.4 常量,常量是指在程序运行过程中值不变的量。常量的使用可以增加程序代码的可读性，并且使程序更加容易维护。 Access的常量分为直接常量、符号常量、固有常量和系统常量。 1. 直接常量 2. 符号常量 3. 固有常量 4. 系统常量,14.2.5 变量,变量是指在程序运行过程中值可以改变的量。变量的使用可以增加程序代码的灵活性。在VBA中，变量在使用之前可以进行声明，称为显示声明。也可以不声明直接使用，称为隐式声明。 1. 变量的声明 声明变量必须声明变量名和数据类型。变量名必须以字母字符开头，在同一范围内不能同名，长度不能超过255个字
8、符。数据类型就是Access提供的系统数据类型或用户自定义数据类型。 一般变量在使用之前，都得声明。声明变量可以使用Dim、Private、Public、Static或DefType关键字来声明，也可以使用数据类型说明符号。,14.2.5 变量,2. 变量的使用 声明完变量就可以使用了。变量的使用包括给变量赋值和调用变量。给变量赋值一定要注意赋值的数据类型要和变量的数据类型相容。变量的调用有作用域和生命周期的区分。 根据声明关键字的不同，变量根据作用域的不同分为本地变量、私有变量和公共变量。,14.2.6 数组,数组是一组具有相同数据类型的变量构成的有序序列。数组变量由数据变量名和数组下标组成
9、。数组在使用之前必须声明，不允许隐式声明。用户可以象声明一般变量一样声明数组。声明格式如下： Dim 数组名(数据下标下界) As 数据类型,14.2.7 运算符和表达式,运算是对数据的加工，最基本的运算形式常用一些符号来描述，这就是运算符。通过元算符可以将不同的数据连结起来，就形成了表达式。VBA根据运算符的不同，运算符和表达式分为算数运算符和表达式、连结运算符和表达式、关系运算符和表达式、逻辑运算符和表达式。 1. 算数运算符和表达式 VBA提供的算数运算符有加（+）、减（-）、乘（*）、除（/）、乘幂（）、整除（）、求模（Mod），用来进行算数运算。由算数运算符连接的表达式就是算数表达式
10、。 2. 连结运算符和表达式 VBA提供的连结运算符有“&”和“+”，用来进行多个字符串连接成一个字符串。由连结运算符连接的表达式就是字符串连结表达式,14.2.7 运算符和表达式,3. 关系运算符和表达式 VBA提供的关系运算符有相等（=）、大于（）、小于（）、大于等于（=）、小于等于（=），用来进行操作数的比较运算。由关系运算符连接的表达式就是关系表达式，关系表达式的结果只有两个：True和False。 4. 逻辑运算符和表达式 VBA提供的逻辑运算符有与（And）、或（Or）、非（Not），用来进行操作数的逻辑运算。由逻辑运算符连接的表达式就是逻辑表达式，而且逻辑运算符常与关系运算符一起
11、使用。逻辑表达式的结果也只有两个：True和False。,14.2.7 运算符和表达式,5. 运算符优先级 通常一个复杂的表达式中会包含有多种运算符，这就引出了运算符优先级，即多种运算符在一个表达式中运算先后的问题。VBA中常用运算符优先级见表。,14.2.8 VBA常用标准函数,1. 算数函数 (1) Abs绝对值函数 返回数值表达式的绝对值，其语法格式如下：Abs() (2) Fix取整函数 返回数值表达式的整数值部分，其语法格式为：Fix() (3) Int向下取整函数 向下返回数值表达式的整数值部分，其语法格式为：Int() (4) Round四舍五入函数 返回数值表达式的四舍五入位数
12、值部分，其语法格式为：Round (,) 其中是要四舍五入的数值，是四舍五入后需要保留的小数位数，是一个大于等于0的数值。 (5) Sqr开平方函数 返回数值表达式的平方根，其语法格式为：Sqr() (6) Rnd随机数函数 返回一个大于0小于1的随机小数，其语法格式为：Rnd() Rnd函数可以带参数，也可以不带。 (7) Log自然对数函数 返回数值表达式的自然对数，其语法格式为：Log() (8) Exp自然数次方函数 返回e的次方，其语法格式为：Exp(),14.2.8 VBA常用标准函数,2. 字符串函数 (1) InStr字符串检索函数 返回检索字符串包含子字符串的位置，其语法格式
13、为： InStr(,) (2) Len字符串长度检测函数 返回字符串字符个数，其语法格式为： Len() 3. 日期/时间函数 (1) 获取系统日期/时间函数 获取系统日期/时间函数有Now、Date、Time、Timer，返回当前系统的日期、时间或日期时间。 (2) 截取日期/时间函数 截取日期/时间函数有Second、Minute、Hour、Day、Month、Year、Weekday。返回截取日期时间的年、月、日、星期几、小时、分、秒。 (3) 计算日期/时间间隔函数 计算日期/时间间隔使用DateAdd函数，其语法格式为： DateAdd(,) 计算日期的间隔值使用DateDiff函数
14、，其语法格式为： DateDiff(,),14.2.8 VBA常用标准函数,4. 类型转换函数 (1) Asc字符转换字符ASCII码值函数 将字符转换成ASCII码值，其语法格式为： Asc() (2) Chr字符ASCII码值转换字符函数 将ASCII码值转换成字符，其语法格式为： Chr() (3) Str数值转换字符函数 将数值转换字符，其语法格式为： Str() (4) Val字符转换数值函数 将字符转换数值，其语法格式为： Val() 5. 测试函数 (1) IsNumeric是否是数字函数 测试表达式是否是数字，如果是返回True，否则返回False。其语法格式为： IsNume
15、ric() (2) IsDate是否是日期函数 测试表达式是否是日期，如果是返回True，否则返回False。其语法格式为： IsDate () (3) IsEmpty是否为Empty函数 测试表达式是否是为空，如果是返回True，否则返回False。其语法格式为： IsEmpty(),14.3 VBA流程控制语句,为了实现结构化编程，VBA使用了3种结构：顺序结构、分支结构和循环结构。为了实现这3种结构，VBA提供了一些常用的流程控制语句。 14.3.1 赋值语句 14.3.2 条件语句 14.3.3 循环语句 14.3.4 数据的输入/输出,14.3.1 赋值语句,赋值语句是为变量指定一个
16、值或表达式。其语法格式为： 变量名 = 值或表达式 例如， Dim myName As String Dim i As Integer Dim d As Date myName = “Tom“ i = 23456 d = DateAdd(“y“, 10, Now() 赋值语句就属于顺序结构，它是按照语句的先后顺序执行的。,14.3.2 条件语句,VBA提供了多种条件语句。 1. If语句 VBA提供了多种If条件语句，用来根据不同情况进行不同处理。其语法格式为： If Then 或 If Then End If 或 If Then Else End If 或 If Then ElseIf Else End If,14.3.2 条件语句,例如， Dim i As Integer Dim s As String i = 23456 If (i Mod 2) = 0 Then s = “偶数“ Else s = “奇数“ End If 说明：If可以嵌套使用，用以处理多种情况。,14.3.2 条件语句,2. Select Case语句 当选择条件有多种
