Access 2010--第9章 模块对象的设计及应用第9-1讲 模块对象概述
合集下载
ACCESS实例教程(数据库的编程)--ppt课件全
Set db=ws.OpenDatabase(数据库的地址与文件名) ' 打开数据库
Set rs=db.OpenRecordSet(表名、查询名或SQL语句) ' 打开记录集
ppt课件 ACCESS实例教程 9
Do While not rs.EOF ' 循环遍历整个记录集直至记录集末尾
……
' 对字段的各种操作
Access实例教程
ppt课件
1
ACCESS实例教程
——数据库编程（第9章）
ppt课件
2
本章要点： 1，用ADO访问数据库 2，用DAO访问数据库 3，程序运行错误处理
ppt课件 ACCESS实例教程 3
9.1 VBA数据库访问接口
VBA数据库访问接口是指VBA与后台数据库的连接部分， 也就是VBA与Access数据库连接的方法。
ppt课件 ACCESS实例教程 22
（5）转到窗体视图，如果输入的编号与表中的编号有重复，单 击命令按钮后显示消息框，输入的信息不能追加到表中。
mandType=查询类型
'指定命令对象的查询类型
mandText=查询字符串
'建立命令对象的查询字符串
rs. Open cm, 其他参数
'打开记录集
do while not rs.EOF
'循环开始
……
'对字段的各种操作
rs.movenext
'记录指针移到下一条
loop
'返回到循环开始处
作区和打开数据库两条语句用下面一条语句代替：
Set db = CurrentDb()
该语句是Access的VBA给DAO提供的数据库打开快捷方式。
CH09-Access 2010数据库应用基础教程-骆焦煌-清华大学出版社
第9章 学生成绩管理系统 开发案例
本章学习目标 掌握系统的功能、模块设计 掌握表字段、表关系的设计 掌握查询、窗体、报表的创建 能够将宏命令和VBA代码应用到系统中 会对系统进行调试和运行等
本章学习内容 9.1系统分析与设计 9.2数据库设计 9.3学生成绩管理系统实现
9.1系统分析与设计
随着科学技术的不断提高，计算机科学日渐成熟，其强大的功能已 为人们深刻认识，它已进入人类社会的各个领域并发挥着越来越重要的 作用。作为计算机应用的一部分，使用计算机对学生成绩信息进行管理 ，具有手工管理所无法比拟的优点。例如：检索迅速、查找方便、可靠 性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地 提高学生档案管理的效率，也是企业的科学化、正规化管理，与世界接 轨的重要条件。
是否主键 是 否 否
4．“教师信息”表 “教师信息”表中存储教师的个人信息，比如教师编号、姓名、性别 等。 “教师信息”表的字段结构如下表所示。
字段名称 教师编号
姓名 性别 参加工作时间 政治面貌 学历 职称 学院编码 毕业院校 婚否
数据类型 文本 文本 文本
日期/时间 文本 文本 文本 文本 超链接 是/否
是否主键 是 否 否 否
6．“身份证”表 “身份证”表中存储学生的身份证号，比如学号、身份证号。 “身份证”表的字段结构如下表所示。
字段名称 学号
身份证号
数据类型 文本 文本
字段大小 10 255
是否主键 是 否
7．“学生成绩”表 “学生成绩”表存储学生成绩信息，比如学号、课程号、成绩等。 “学生成绩”表的字段结构如下表所示。
字段大小 4 10 1
10 5 5 2
是否主键 是 否 否 否 否 否 否 否 否 否
本章学习目标 掌握系统的功能、模块设计 掌握表字段、表关系的设计 掌握查询、窗体、报表的创建 能够将宏命令和VBA代码应用到系统中 会对系统进行调试和运行等
本章学习内容 9.1系统分析与设计 9.2数据库设计 9.3学生成绩管理系统实现
9.1系统分析与设计
随着科学技术的不断提高，计算机科学日渐成熟，其强大的功能已 为人们深刻认识，它已进入人类社会的各个领域并发挥着越来越重要的 作用。作为计算机应用的一部分，使用计算机对学生成绩信息进行管理 ，具有手工管理所无法比拟的优点。例如：检索迅速、查找方便、可靠 性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地 提高学生档案管理的效率，也是企业的科学化、正规化管理，与世界接 轨的重要条件。
是否主键 是 否 否
4．“教师信息”表 “教师信息”表中存储教师的个人信息，比如教师编号、姓名、性别 等。 “教师信息”表的字段结构如下表所示。
字段名称 教师编号
姓名 性别 参加工作时间 政治面貌 学历 职称 学院编码 毕业院校 婚否
数据类型 文本 文本 文本
日期/时间 文本 文本 文本 文本 超链接 是/否
是否主键 是 否 否 否
6．“身份证”表 “身份证”表中存储学生的身份证号，比如学号、身份证号。 “身份证”表的字段结构如下表所示。
字段名称 学号
身份证号
数据类型 文本 文本
字段大小 10 255
是否主键 是 否
7．“学生成绩”表 “学生成绩”表存储学生成绩信息，比如学号、课程号、成绩等。 “学生成绩”表的字段结构如下表所示。
字段大小 4 10 1
10 5 5 2
是否主键 是 否 否 否 否 否 否 否 否 否
Access 2010--第9章 模块对象的设计及应用第9-0讲 第9章概述
9-0
第9章 模块对象的设计及应用 ——概述
第9章 模块对象的设计及应用
教学内容
9.1 模块对象概述
模块对象的概念 模块对象的分类 模块对象的组成
9.3 模块对象的执行与调试
模块对象的执行 模块对象的调试
9.4 模块对象的应用案例
模块中过程的协作 将宏转换为模块
9.2 模块对象的建立
类模块的建立 标准模块的建立
第Байду номын сангаас章 模块对象的设计及应用
学习目标
认知目标：
了解模块对象的基本概念、组成、分类 掌握建立模块对象的基本方法
能力目标:
学会建立类模块与标准模块(重点)
学会执行和调试模块 能进行简单模块的设计与应用（难点）
第9章 模块对象的设计及应用 ——概述
第9章 模块对象的设计及应用
教学内容
9.1 模块对象概述
模块对象的概念 模块对象的分类 模块对象的组成
9.3 模块对象的执行与调试
模块对象的执行 模块对象的调试
9.4 模块对象的应用案例
模块中过程的协作 将宏转换为模块
9.2 模块对象的建立
类模块的建立 标准模块的建立
第Байду номын сангаас章 模块对象的设计及应用
学习目标
认知目标：
了解模块对象的基本概念、组成、分类 掌握建立模块对象的基本方法
能力目标:
学会建立类模块与标准模块(重点)
学会执行和调试模块 能进行简单模块的设计与应用（难点）
[工学]9ACCESS模块程序设计
![[工学]9ACCESS模块程序设计](https://img.taocdn.com/s3/m/e84d0d937e192279168884868762caaedd33baf0.png)
〔三〕变量声明 1. 语法： Dim VariableName [As Type] Static VariableName [As Type] Public VariableName [As Type] Private VariableName [As Type] 2. 说明： 其中Dim等是关键字,说明这个语句是变量的声 明语句.VariableName是变量名, Type是这个变量 对应的类型.如果没有As Type子句,则默认该变量 为变体<Variant>类型.
End Sub 2. 说明： 其中Sub和End Sub括定了过程的开始和结 束,SubName是过程名, VarName是这个过程的参 数, Type是参数的类型.如果有多个参数,则参数之 间以逗号分隔.过程语句也称为过程体,决定了过 程的功能.
〔二〕函数声明语法： Function FuncName<VarName As Type> [As FuncType]
1. 函数语句: FuncName=<表达式>
End Function 2. 说明： 其中Function和End Function括定了函数的开始 和结束, FuncName是函数名, FuncType是这个函 数的返回值数据类型.VarName是这个函数的参数, Type是这个参数的数据类型.如果有多个参数,则 参数之间以逗号分隔.要注意的是,函数中必须要 有对函数名的赋值,才能结束函数.
〔九〕数据类型间的关系 数据类型之间可以使用各种转换函数进行转换, 如CStr,Cint可以分别转换为字符和整数型等.VBA 还提供了一类判断数据类型的函数,如：IsDate可 以判断是否为日期型等.MicroSoft Access中数据 表中的数据存储类型与VBA中的数据类型几乎都 可以找到对应和匹配.
Access 2010数据库第九章 模块和VBA
对象有如下一些基本特点： 继承性：指一个对象可以继承其父类的属性及操作。 多态性：指不同对象对同样的作用于其上的操作会有不同的反 应。 封装性：指对象将数据和操作封装在其中。用户只能看到对象 的外部特性，只需知道数据的取值范围和可以对该数据施加的 操作，而不必知道数据的具体结构以及实现操作的算法。
1.运算符 VBA提供了算术运算符、字符串运算符、关系运算符和布尔运 算符。
2.表达式 用运算符把运算分量连接而成的符合VBA语法要求的式子就是表 达式，运算分量可以是常量、变量、对象属性和函数，根据表达式 值的数据类型可以分成如下几种： 算术表达式：（3+5） Mod 3 *(80/2)
5.Do-Loop循环语句 前测型循环： Do While 条件表达式 循环语句组 [Exit Do] Loop 后测型循环： Do 循环语句组 [Exit Do] Loop While 条件表达式
9.2.5 数组
1.定义数组 {Dim|Public}数组名(正整数常量) As 数据类型 2.数组应用 【例9-1】 随机产生10个100以内的随机整数，求其中比平均值 大的整数。为此设计如图9-9所示的窗体，放置三个锁定的只读 文本框Text1、Text2和Text3，并放置一个命令按钮cmd。适 当设置窗体及其控件的属性。
2．对象的属性 每个对象都有属性，对象的属性定义了对象的特征，诸如大 小、颜色、字体或某一方面的行为。使用VBA代码可以设置或者 读取对象的属性数值。修改对象的属性值可以改变对象的特性。 设置对象属性值的语法格式如下：
对象名.属性 = 属性值
有些属性并不能设置，这些属性或者只能读取此属性（只读属 性），或者只能写入此属性（只写属性）。还可以通过属性的返 回值，来检索对象的信息。
Access数据库技术与应用基础_09模块与VBA编程基础
2016/7/12
9.3 VBA程序设计基础
Visual Basic是微软公司推出的可视化应用程序开 发语言，简称VB。由于VB功能强大且编程简单易 学，因此微软公司将它的一部分代码结合到office 中，形成了VBA。VBA语法与Visual Basic 编程 语言互相兼容。在Access 程序设计中，当某些操 作不能用其他Access 对象实现，或者实现起来很 困难时，就可以利用VBA语言编写代码，完成这 些复杂任务。
2016/7/12
1、赋值语句 赋值语句可以将常量或常量表达式的值赋给变量 或对象的属性，一般格式为： <变量名>=<表达式> 或 [<对象名>.]<属性名>=<表达式> （1） <变量名>应符合变量的命名规则，<对象名> 缺少时为当前窗体或报表。 （2） 首先计算“=”（赋值运算符）右边表达式的 值，将此值赋给“=”左边的变量或对象属性。
2016/7/12
例9．1 创建一个名为Welcome的模块，其功能是 用来显示欢迎消息框。 操作步骤： （1）选择数据库窗口中的“模块”对象，单击 “新建”按钮，打开VBA编辑界面。 （2）执行“插入”｜“过程”菜单命令。在弹出 的“添加过程”对话框中填写过程的名称、选择 过程类型和范围，单击“确定”按钮后，出现 Welcome过程的编写窗口。
2016/7/12
4．MsgBox函数和MsgBox语句 MsgBox函数或语句可以产生一个消息框，消息框中给出 提示信息，用户可以根据提示信息选择后面的操作。 函数格式为： MsgBox（消息字符串[，按钮与图标样式][，对话框标题 字符串]） 语句格式为： MsgBox 消息字符串[，按钮与图标样式][，对话框标题字 符串] 两种格式的区别是，MsgBox函数会产生一个返回值，用 户需要将返回值赋给一个变量。MsgBox语句无返回值， 仅是单纯的信息显示。
9.3 VBA程序设计基础
Visual Basic是微软公司推出的可视化应用程序开 发语言，简称VB。由于VB功能强大且编程简单易 学，因此微软公司将它的一部分代码结合到office 中，形成了VBA。VBA语法与Visual Basic 编程 语言互相兼容。在Access 程序设计中，当某些操 作不能用其他Access 对象实现，或者实现起来很 困难时，就可以利用VBA语言编写代码，完成这 些复杂任务。
2016/7/12
1、赋值语句 赋值语句可以将常量或常量表达式的值赋给变量 或对象的属性，一般格式为： <变量名>=<表达式> 或 [<对象名>.]<属性名>=<表达式> （1） <变量名>应符合变量的命名规则，<对象名> 缺少时为当前窗体或报表。 （2） 首先计算“=”（赋值运算符）右边表达式的 值，将此值赋给“=”左边的变量或对象属性。
2016/7/12
例9．1 创建一个名为Welcome的模块，其功能是 用来显示欢迎消息框。 操作步骤： （1）选择数据库窗口中的“模块”对象，单击 “新建”按钮，打开VBA编辑界面。 （2）执行“插入”｜“过程”菜单命令。在弹出 的“添加过程”对话框中填写过程的名称、选择 过程类型和范围，单击“确定”按钮后，出现 Welcome过程的编写窗口。
2016/7/12
4．MsgBox函数和MsgBox语句 MsgBox函数或语句可以产生一个消息框，消息框中给出 提示信息，用户可以根据提示信息选择后面的操作。 函数格式为： MsgBox（消息字符串[，按钮与图标样式][，对话框标题 字符串]） 语句格式为： MsgBox 消息字符串[，按钮与图标样式][，对话框标题字 符串] 两种格式的区别是，MsgBox函数会产生一个返回值，用 户需要将返回值赋给一个变量。MsgBox语句无返回值， 仅是单纯的信息显示。
Access数据库应用技术第九章模块与VBA编程
Access数据库应用技术第九章模块与VBA编程要内容模块与VBA编程9.1 模块的基本概念9.2 VBA编程基础9.3 面向对象程序设计的概念9.4 VBA程序流程控制结构与语句9.5 过程定义与参数传递9.6 VBA程序运行调试9.7 VBA数据库编程9.1 模块的基本概念1.模块的分类Access中模块可以分为两类：类模块和标准模块。
类模块是一种包含对象定义的模块，当创建一个新的事物时即在程序中创建一个新的对象。
窗体和报表模块都属于类模块。
标准模块中含有常用的子过程和函数过程，不与其他任何对象相关联，而是在数据库的其他模块中进行调用。
9.1 模块的基本概念2.宏转换为模块Access中可以根据需要把设计好的宏对象转换成模块代码形式。
【实例9-1】将“学生管理.mdb”数据库中已建立的宏“打开表”转换为模块。
9.1 模块的基本概念3.在模块中执行宏在模块中执行宏，可以使用DoCmd对象的RunMacro方法。
DoCmd对象是Access提供的一个重要对象，它的功能是通过调用Access的内置方法，在VBA中实现某些特定的操作。
执行宏的格式为：DoCmd. RunMacro MacroName。
9.2 VBA编程基础9.2.1 VBE编辑环境9.2.2 VBA语法基础9.2.1 VBE编辑环境1.类模块进入VBE环境的方法在窗体或报表的属性窗口中选择“事件”选项卡，单击任一事件过程右侧的按钮，进入“选择生成器”对话框9.2.1 VBE编辑环境2.标准模块进入VBE环境的方法在数据库管理界面选择“模块”对象，单击“新建”按钮，或打开已存在的模块对象都可进入VBE环境还可通过执行“工具”菜单的“宏”命令，在级联菜单中选择“Visual Basic编辑器”9.2.1 VBE编辑环境3.在VBE环境中编写VBA代码VBA代码是由语句组成的，代码编写时需遵循一定的书写规则。
(1)断行(2)续行(3)注释(1)断行(4)采用缩进格式书写程序1.变量和常量1.变量和常量(1)变量变量用于临时保存数据，程序运行变量的值可以改变。
Access数据库应用基础教程习题集答案
Access数据库应用基础教程习题集答案Access数据库应用基础教程习题集答案第1章数据库系统概述1. 什么是数据库?什么是数据库系统?答：数据库(database)是存放数据的仓库，严格的讲，数据库是长期存储在计算机内,有组织的，可共享的大量数据集合。
数据库系统(database systems)，是由数据库及其管理软件组成的系统。
它是为适应数据处理的需要而发展起来的一种较为理想的数据处理的核心机构。
它是一个实际可运行的存储、维护和应用系统提供数据的软件系统，是存储介质、处理对象和管理系统的集合体。
2. 什么是数据库管理系统?它有哪些主要功能?答：数据库管理系统(database management system)是一种操纵和管理数据库的大型软件，用于建立、使用和维护数据库，简称dbms。
它对数据库进行统一的管理和控制，以保证数据库的安全性和完整性。
数据库管理系统的主要功能有：数据定义、数据操作、数据库的运行管理、数据组织、数据库的保护、数据库的维护和通信。
3. 说出几种常用的数据模型。
答：层次模型、网状模型、关系模型。
4. 什么是关系模型?答：关系模型是用二维表的形式表示实体和实体间联系的数据模型。
5. 简述数据库设计的步骤。
答：需求分析、概念结构设计、逻辑结构设计、物理结构设计、数据库的建立和测试、数据库运行和维护。
第2章 SQL 语言简介1. 什么是SQL语言?SQL语言具有哪些特点和功能?答：SQL是一种数据库查询和程序设计语言，用于存取数据以及查询更新和管理关系数据库系统。
SQL的特点和功能有：查询，操作，定义和控制四个方面，SQL语言具有高度的非过程化，语言简洁，语义明显，语法结构简单，直观易懂的特点。
SQL语言即可以作为独立语言使用，用户可以在终端键盘上直接键入SQL命令对数据库进行操作，也可以作为嵌入式语言，嵌入到其他高级语言中。
2. SQL语言包含哪几个部分?答：SQL语言包含4个部分：数据定义语言(DDL-Data Definition Language)、数据查询语言(DQL-Data Query Language)、数据操纵语言(DML-Data Manipulation Language)、数据控制语言(DCL-Data Control Language)3. 在联接查询中，包含哪几类联接?答：联接可分为3类：(1)内部联接(典型的联接运算，使用类似于 = 或的比较运算符)。
Access 2010--第9章 模块对象的设计及应用第9-2讲 模块对象的建立
一、类模块的建立
2. 自定义类模块的建立
在类模块的属性窗口中，可 以修改类名称和Instancing 属性。 Instancing属性用来设置当 用户设置了一个该类的引用 时，这个类在其它工程中是 否可见。 这个属性有两个值： Private值表示不可见， PublicNonCreatable值表示 可见。
一、类模块的建立
2. 自定义类模块的建立--“添加过程”对话框
“添加过程”对话框
一、类模块的建立
2. 自定义类模块的建立
上图对话框中，选择“类型”为“属性”，名称框中输入 属性名（如：size），单击“确定”，代码窗口将自动添 加属性的读写过程，如下图所示。
其中，Property Get过程提供属性的读功能，Property let过程提供属性的写功能。
一、类模块的建立
2. 自定义类模块的建立----举例
Public Property Get 期限() As Variant 期限 = qx End Property Public Property Let 期限(ByVal vNewValue As Variant) If vNewValue > 0 Then qx = vNewValue End If End Property Private Sub Class_Initialize() je = 1000 qx = 12 End Sub Public Function 利息() As Single 利息 = 金额 * 期限 * 利率 End Function
进入VBE环境，弹出代码编辑器显示如图所示。
一、类模块的建立
1.窗体类模块和报表类模块的建立—举例
“单击”事件代码编辑器
代码窗口中光标所在行的上下各有一行代码，它是该事件
第9章 Access 2010的使用
第9章 Access 2010的使用
• 10.1.2 Backstage 视图 • Backstage 视图是 Access 2010 中的新功能。它包含应 用于整个数据库的命令和信息（如“压缩和修复” ），以及早期版本中“文件”菜单的命令（如“打 印”）。 • Backstage 视图占据功能区上的“文件”选项卡，并 包含很多以前出现在 Access 早期版本的“文件”菜 单中的命令。Backstage 视图还包含适用于整个数据 库文件的其他命令。在打开 Access 但未打开数据库 时（例如，从 Windows“开始”菜单中打开 Access） ，可以看到 Backstage 视图。
第9章 Access 2010的使用
• 10.3.4.4 输入掩码 • “输入掩码”属性用于设置字段、文本框以及组合 框中的数据格式，并可对允许输入的数值类型进 行控制。要设置字段的“输入掩码”属性，可以 使用Access自带的“输入掩码向导”来完成。例如 设置电话号码字段时，可以使用掩码引导用户准 确地输入格式为。 • 10.3.4.5 设置有效性规则和有效性文本 • 当输入数据时，有时会将数据输入错误，如将薪 资多输入一个0，或输入一个不合理的日期。事实 上，这些错误可以利用“有效性规则”和“有效 性文本”两个属性来避免。
大学计算机基础
第1章 “计算机与信息技术概述” 第2章 “计算机系统结构与硬件基础” 第3章 “操作系统” 第4章 “Word 2010的使用” 第5章 “Excel 2010的使用”
第6章 “PowerPoint 2010的使用” 第7章 “多媒体技术与常用工具软件” 第8章 “计算机网络技术基础” 第9章 “Access 2010的使用”
第9章 Access 2010的使用
ACCESS数据库案例教程 刘丽 课件 第9章 系统开发
9.3 设计数据库
在进行数据库应用系统开发时，一定要设 计好数据库，设计好数据库中应有的数据 表和数据表之间的关系、数据表的结构， 然后再设计由数据表生成的查询，设计窗 体和报表，以及使用宏和VBA对成绩管理 系统的开发。 数据库应用系统的数据量越大，数据的来 源越复杂，数据库设计的好坏就越显得重 要，它将影响着整个系统的设计过程。
9.1 9.2
数据库应用系统设计流程 需求分析及主要功能模块 设计数据库
9.3
9.4 9.5 9.6 9.7
建立操作界面
创建成绩管理系统报表
实现学生成绩管理系统
维护学生成绩管理系统
9.1 数据库应用系统设计流程
数据库应用系统的开发设计过程一般 采用生命周期理论。生命周期理论是应 用系统从提出需求、形成概念开始，经 过分析论证、系统开发、使用维护，直 到淘汰或被新的应用系统所取代的一个 全过程。其设计过程可以分为6个阶段： 需求分析、概念设计、逻辑设计、物理 设计、数据库实施和运行、数据库的使 用和维护。
结合Access自身的特点，使用Access开发 一个数据库应用系统，其系统设计步骤如下： 1. 首先用户提出要求； 2. 初步调查，了解情况，进行可行性分析； 3. 设计数据库，建立系统功能模块结构图； 4. 设计数据输入界面，如窗体、数据访问页等； 5. 设计数据输出界面，如报表、查询界面等；
统计汇总报表是在设计报表时，对报表的数据源 进行统计分析，使报表输出的数据不仅是数据源 中原有的内容，同时还有统计结果。学生成绩汇 总报表，如图9-10所示。
图9-10 学生成绩汇总报表
9.6 实现学生成绩管理系统
学生成绩管理系统的功能包括：学生 信息和教师信息的录入、浏览、更新、 查询和打印。该系统的基本流程是启动 “学生成绩管理系统”时，首先打开 “系统登录”窗体，要求输入用户密码， 若密码正确，系统打开“主界面”窗体。 “主界面板”窗体包含控制整个数据库 的各项功能。
Access 2010--第9章 模块对象的设计及应用第9-3讲 模块对象的执行与调试
一、模块对象的执行
3. 模块间过程调用原则 模块是由过程组成的，因此，模块的调用执 行也必然受到过程间调用的限制。 从模块调用的功能来看，模块有事件模块和 通用模块之分。
事件模块在窗体或报表的控件属性中，由事件
所驱动，被系统所调用；
通用模块不与控件相关联，其中的过程既可以
被事件模块所调用也可以被通用模块所调用。
（4）自定义类模块中的过程作为类实例对象的方法 被调用。
二、模块的调试
1.单步跟踪 系统开发完成后，对系统中的模块程序进行 调试，是找出模块程序中错误的重要环节。 常用调试模块的手段有：
单步跟踪、
设置断点
添加监视
二、模块的调试
1.单步跟踪 单步跟踪可以彻底了解程序的执行顺序。 VBA中用“逐语句”命令来实现单步跟踪。 具体步骤如下：
一、模块对象的执行
3. 模块间过程调用原则 过程间调用原则
（1）类模块中的事件过程中可以调用本模块中的过 程，也可以调用通用模块中的公共过程。
（2）通用模块中的过程可以调用本模块中的过程或 其它通用模块中的公共过程，但不可以调用窗体或报 表类模块中的过程。 （3）不同类模块内的过程相互之间不能直接调用。
在“立即窗口”中输入以下命令。 debug.Print age0("370101197801012121") 执行命令后，立即窗口输出结果：38
一、模块对象的执行
2.标准模块的执行
显示居民生日
在“立即窗口”中输入以下命令 Birthday("370101197801012121")
执行命令后，弹出窗口如图所示。
一、模块对象的执行
2.标准模块的执行 标准模块中的过程往往需要在窗体或报表模 块的事件过程中被调用执行。 要调试执行标准模块中的过程，用户可直接 在VBE窗口中，先将插入点放在要执行的过 程中，然后用以下3种方法调试执行过程。
Access基础教程-Access2010第九章
长春师范大学计算机科学与技术学院
9.1 9.2 9.3 9.4 9.5
程序流程控制 文件 过程调用 计时器Timer ADO数据库编程实例
本章是对第8章所涉及到的部分基础内容在实际应用角 度的延伸。把握VBA的语法结构和应用技巧与掌握高级语言 的方法大体一致，最重要的一点就是具备程序的分析和设计 能力，也就是说针对给定的程序我们要能够读懂其功能；而 针对给定的应用问题我们要能够运用所掌握的知识予以实现。 本章将VBA的应用问题分为了程序流程控制、文件、过 程调用、计时器Timer和ADO数据库编程实例五个部分， 从分析和设计两个方面针对具体的实例加以阐述，主要介绍 分析的重点和设计的思路，希望能够对读者在Access数据 库较为复杂的应用方面给予帮助。
本例是For循环结构和块If语句的应用 集合，分析的重点在于块If的选择分支， 分支一为当K=1时，x=x+y+z；分 支二为当K=2时，x=2*x+2*y+2*z； 分支三为当K=3时， x=3*x+3*y+3*z。与选择结构的例3 相比较，本例中赋值语句右端的变化 是在变量参与运算后才进行赋值的。 循环共执行3次，当K=1时， x=1+1+1=3；当K=2时， x=2*3+2*1+2*1=10；当K=3时， x=3*10+3*1+3*1=36。所以当程 序运行结束之后x的值为36。
例7：窗体中有一名为Command1的命令按钮，其单 击事件过程如下所示，试分析单击该命令按钮后消息框中的 显示内容。 Private Sub Command1_Cllick（） Dim M（10） As Integer 本例是For循环语句和数组的集合 应用，一维数组M的下限为0、上 For k=1 to 10 限为10，循环变量k的取值为1到 M（k）=12-k 10。For循环的作用在本例中是为 数据M中的元素赋值，下标为k的元 Next k 素其值为12-k，如：M（1）值为 x=6 11，M（10）值为2。消息框中显 M（2+M（x）），首 MsgBox M（2+M（x）） 示的消息为 先要计算出M（x）的值，x=6， End Sub 所以M（x）=6；因此M（2+M
9.1 9.2 9.3 9.4 9.5
程序流程控制 文件 过程调用 计时器Timer ADO数据库编程实例
本章是对第8章所涉及到的部分基础内容在实际应用角 度的延伸。把握VBA的语法结构和应用技巧与掌握高级语言 的方法大体一致，最重要的一点就是具备程序的分析和设计 能力，也就是说针对给定的程序我们要能够读懂其功能；而 针对给定的应用问题我们要能够运用所掌握的知识予以实现。 本章将VBA的应用问题分为了程序流程控制、文件、过 程调用、计时器Timer和ADO数据库编程实例五个部分， 从分析和设计两个方面针对具体的实例加以阐述，主要介绍 分析的重点和设计的思路，希望能够对读者在Access数据 库较为复杂的应用方面给予帮助。
本例是For循环结构和块If语句的应用 集合，分析的重点在于块If的选择分支， 分支一为当K=1时，x=x+y+z；分 支二为当K=2时，x=2*x+2*y+2*z； 分支三为当K=3时， x=3*x+3*y+3*z。与选择结构的例3 相比较，本例中赋值语句右端的变化 是在变量参与运算后才进行赋值的。 循环共执行3次，当K=1时， x=1+1+1=3；当K=2时， x=2*3+2*1+2*1=10；当K=3时， x=3*10+3*1+3*1=36。所以当程 序运行结束之后x的值为36。
例7：窗体中有一名为Command1的命令按钮，其单 击事件过程如下所示，试分析单击该命令按钮后消息框中的 显示内容。 Private Sub Command1_Cllick（） Dim M（10） As Integer 本例是For循环语句和数组的集合 应用，一维数组M的下限为0、上 For k=1 to 10 限为10，循环变量k的取值为1到 M（k）=12-k 10。For循环的作用在本例中是为 数据M中的元素赋值，下标为k的元 Next k 素其值为12-k，如：M（1）值为 x=6 11，M（10）值为2。消息框中显 M（2+M（x）），首 MsgBox M（2+M（x）） 示的消息为 先要计算出M（x）的值，x=6， End Sub 所以M（x）=6；因此M（2+M
Access 2010--第9章 模块对象的设计及应用第9-4讲 模块对象的应用案例
1.同一模块中过程的协作
（2）在“modu2”代码窗口中创建函数过程 ，输入以下代码。
Public Function fun1(n As Single) As Single Dim i As Single, t As Single t = 1 For i = 1 To n t = t * i Next fun1 = t End Function Public Function fun2(n As Single, m As Single) As Single fun2 = fun1(n) / (fun1(m) * fun1(n - m)) End Function
一、模块中过程的协作
2．不同模块间过程的协作
Private Sub command2_Click() cd1.金额 = Me.Text2.Value cd1.期限 = Me.Text3.Value Me.Text5.Value = cd1.利息 Me.Refresh End Sub
③“退出”按钮（Command3）的代码如下。 Docmd.close
一、模块中过程的协作
1.同一模块中过程的协作
（3）保存模块。
（4）在“立即窗口”中输入命令 ? Fun2(5,2) 执行命令后，立即窗口显示结果为 10
一、模块中过程的协作
2．不同模块间过程的协作
【例9-6】设计一个窗体frm4，设计视图如 图9-13所示。在text1文本框中输入存款人 的身份证号码，在text2和text3文本框中输 入存款额和期限，单击“计算年龄”按钮（ Command1），计算存款人年龄并显示在 text4中，单击“计算利息”按钮（ Command2），计算利息并显示在text5中,单 击“退出”按钮（Command3），关闭窗体 frm4。
（2）在“modu2”代码窗口中创建函数过程 ，输入以下代码。
Public Function fun1(n As Single) As Single Dim i As Single, t As Single t = 1 For i = 1 To n t = t * i Next fun1 = t End Function Public Function fun2(n As Single, m As Single) As Single fun2 = fun1(n) / (fun1(m) * fun1(n - m)) End Function
一、模块中过程的协作
2．不同模块间过程的协作
Private Sub command2_Click() cd1.金额 = Me.Text2.Value cd1.期限 = Me.Text3.Value Me.Text5.Value = cd1.利息 Me.Refresh End Sub
③“退出”按钮（Command3）的代码如下。 Docmd.close
一、模块中过程的协作
1.同一模块中过程的协作
（3）保存模块。
（4）在“立即窗口”中输入命令 ? Fun2(5,2) 执行命令后，立即窗口显示结果为 10
一、模块中过程的协作
2．不同模块间过程的协作
【例9-6】设计一个窗体frm4，设计视图如 图9-13所示。在text1文本框中输入存款人 的身份证号码，在text2和text3文本框中输 入存款额和期限，单击“计算年龄”按钮（ Command1），计算存款人年龄并显示在 text4中，单击“计算利息”按钮（ Command2），计算利息并显示在text5中,单 击“退出”按钮（Command3），关闭窗体 frm4。
《Access数据库实用教程》第九章模块和VBA程序设计
• 2．VBE窗口 • VBE窗口可分为标准工具栏、工程窗口、属性窗口 和代码窗口4部分，如图9-3所示。
•
另外，还有对象窗口、对象浏览器、立即窗 口、本地窗口和监视窗口等，可以通过“视图” 菜单的相应选项选择显示。
• 1．标准工具栏 • 标准工具栏中包括创建模块时常用的命令按钮，可通 过选中或撤消“视图”菜单中“工具栏”菜单中的 “标准”按钮来确定显示还是隐藏标准工具栏。标准 工具栏及其上按钮如图9-4所示。
9.1.2 模块和过程
• 模块由若干过程组成。过程是VBA程序代码 的容器，是程序中的若干较小的逻辑部件，可 分为子程序和函数过程，每种过程都有其独特 的功能。过程可以简化程序设计任务，还可以 增强或扩展Visual Basic的构件。另外，过程还 可用于共享任务或压缩重复任务，如减少频繁 运算等。
9.3 创建模块
9.3.1 创建新模块
• 1．创建标准模块 • 打开数据库，单击数据库窗口左边对象列表 中的“模块”选项，然后单击工具栏上的“新 建按钮”，即“Visual Basic编辑器”，显示模 块设计视图并创建空白标准模块，或单击 “Visual Basic编辑器”菜单栏中“插入”按钮， 在弹出的下拉列表中选择“模块”选项，也会 出现一个空白的标准模块，如图9-5所示。此时 在代码窗口即可进行编辑。
9.4.3 变量
• 变量是指程序运行过程中，其值可以发生变 化的量。变量可以是任意VBA所支持的数据类 型。 • 变量由变量名标识，其命名规则是：以字母 或字符开头，不超过255个字符的字符串。使用 变量可以增加程序代码的可读性和可维护性。
• 1．子过程 • 子过程是由Sub和End Sub语句包含起来的VBA语句 其格式如下： • [Private|Public|Friend] Sub 子过程名（参数列表） • <子过程语句> • Exit Sub • <子过程语句> • End Sub
access 2010 第9章
32
9.3 宏的执行与调试
9.3.2 宏的调试 单步执行：执行在对话框中列出的操作， 如果没有错误，下一个操作会出现在对话框 中。 暂停：停止该宏的执行并关闭该对话框。 继续：关闭单步模式并继续执行该宏的后 继部分。
33
本章小结
1.宏及其相关概念。 2.创建宏及宏组的方法。 3.设置宏的操作参数。 4.直接运行宏，在宏组中运行宏。 5.在窗体、报表和控件的事件中运行宏。 6.宏的调试。
（4）OpenForm操作 使用OpenForm操作，可以从窗体“设 计”视图、“打印预览”或“数据表”视图 中打开一个窗体，可以选择窗体的数据输入 与窗口方式并限制窗体所显示的记录。
7
9.1 宏的概述
（5）Close操作 使用Close操作可以关闭指定的 Microsoft Access窗口，这个窗口可以是一 个运行着的窗体视图、数据表视图、查询视 图、报表视图、宏对象视图等等。如果没有 指定窗口，则关闭当前的活动窗口。
26
9.2 宏的创建与设计
宏设计工具栏的一些常用按钮：
按钮 名称 宏名 功能 显示/隐藏宏设计窗体中的“宏名”列
条件
显示/隐藏宏设计窗体中的“条件”列
插入行
在当前光标位置插入一行
删除行
删除当前光标所在位置一行
运行
运行宏
单步
一次运行一条宏命令
27
9.2 宏的创建与设计
9.2.3 创建与设计宏组 多个宏放在一起将组成一个宏组，它的 创建和设计类似于宏的创建和设计。
13
9.1 宏的概述
（2）RunMacro操作 使用RunMacro操作可以运行一个独立 的宏或者一个位于宏组中的宏。
14
9.1 宏的概述
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
了解模块的组成和分类
能力目标
模块与宏的区别 类模块与标准模块的区别（重点、难点） 能写出模块的一般组成结构（重点）
一、模块对象的概念
1.模块对象的基本概念 什么是模块？
模块和数据表、查询、窗体、报表、宏一样是
Access数据库的一种基本对象。
模块由VBA语言来定义，作为一个程序单元，它
用户自定义类模块和系统类模块
用户自定义类模块用于定义一个类，其中包括成 员变量和成员方法的定义。有了类的定义之后， 就可以在其它模块中将类实例化为一个对象。 系统类模块有与窗体相关联的窗体类模块和与报 表相关联的报表模块两种，它们封装了窗体或报 表对象的事件代码和处理方法。
二、模块对象的分类
二、模块对象的分类
2. 标准模块
标准模块与类模块的主要区别在于：
（1）存储数据的方法不同。标准模块中公共变量 的值改变后，其后执行的所有代码引用的都是变量 改变后的值。类模块则有很好的容器封装性，所包 含的数据是相对于实例对象而独立存在的。
二、模块对象的分类
2. 标准模块
（2）标准模块中数据和过程的存活期与整个程序 的存活期相同，它们伴随程序的启动而开始，伴随 着程序的关闭而结束。类模块实例中的数据和过程 只存在于对象的存活期，它们随对象的创建而创建 ，随对象的撤销而消失。
③自定义类模块中必须用New关键字创建实例。窗 体和报表类模块中可以用Docmd和OpenReport方法来 创建实例，也可以通过引用窗体或报表类模块的属 性或方法来创建。
二、模块对象的分类
2. 标准模块
标准模块也称为全局模块，用于存放整个程序的 公共变量和可以从数据库任意位置运行的、与其 它对象都无关的常规过程。 在标准模块中，通常使用关键字Public来定义公 共过程，这类过程可以被整个程序所调用，若使 用关键字Private定义过程，则表示该过程是仅供 本标准模块内部使用的私有过程。
一、模块对象的概念
2.模块对象与宏对象的区别
从使用难易程度上看，宏更加简单，它直接使 用Access提供给的操作，不需要编程，较易掌 握。模块的使用则较为复杂，要求用户熟悉VBA 语言，并具备一定的编程知识和能力。 从运行速度上看，宏的运行速度比较标准模块中的公共变量可以在程序的任何地 方使用，类模块中的公共变量只能在引用该类模块 的实例对象时才能被访问。
三、模块对象的组成
模块由VBA通用声明部分和一个或多个过程组成。
通用声明部分主要包括：Option声明语句、变量、常 量或自定义数据类型的声明。 过程可以是没有返回值的Sub过程也可以是有返回值的 Function过程。
9-1
第9章 模块对象的设计及应用
——模块对象概述
第9章 模块对象的设计及应用
——模块对象概述
教学内容
模块对象的概念
模块对象的基本概念 模块对象与宏对象的区别
模块对象的分类
类模块 标准模块
模块对象的组成
第9章 模块对象的设计及应用
——模块对象概述
学习目标
认知目标：
理解模块的基本概念及其用途
三、模块对象的组成
实例
这是一个名为“第 一个模块例题”的 标准模块。 该模块由声明部分 、一个名为subex1 的sub过程和一个 名为circarea的 Funtion过程组成
本课小结
模块对象的概念
模块对象的基本概念 模块对象与宏对象的区别 类模块 标准模块
模块对象的分类
1. 类模块 VBA中的模块有两种基本类型：
类模块
标准模块
类模块是以类的形式封装的模块，是面向对 象编程的基本单位。类模块中模块级变量的 作用域存在于类实例对象的存活期，随对象 的创建而创建，随对象的撤销而撤销。
二、模块对象的分类
1. 类模块
（1）类模块的类型
Access的类模块又分为两大类：
1. 类模块
（2）自定义类模块与窗体或报表类模块的区别
主要区别有以下三方面： ①自定义类模块通常没有内置的用户界面，窗 体或报表类模块都有内置的用户界面。自定义类模 块更适合于无须界面的工作，如完成查找及修改数 据库或进行大量计算等任务。
二、模块对象的分类
1. 类模块
②自定义模块提供Initialize和Terminate事件， 以执行在类实例打开和关闭时执行的操作。在窗体 或报表类模块中则是通过Load和Close事件实现相似 功能。
2.模块对象与宏对象的区别
从二者本质上看，模块和宏都是一种程序，宏 的每个基本操作在VBA中都有相应的等效命令， 在模块中利用这些语句就能实现宏的所有功能
从实现功能上看，宏只能实现Access提供给的 基本操作，模块可以自定义过程和函数，能完 成更为复杂的计算。因此，模块的功能比宏更 加强大。
封装了解决问题的程序代码和数据。
一、模块对象的概念
1.模块对象的基本概念 模块对象可以基于预定义的类来创建，也可 以基于用户自定义的类来创建。 另外，Access VBA中还有一类特殊的模块对 象——标准模块。标准模块一般用于存放公 共过程，不与其它任何Access对象相关联。 。
一、模块对象的概念
模块对象的组成
课后作业
熟悉本课所学概念和关于模块的基本知识 理清模块对象与宏对象的区别 理清类模块与标准模块的区别 预习下一节内容