（中职）数据库应用基础（Access 2010）06电子课件.pptx

《（中职）数据库应用基础（Access 2010）06电子课件.pptx》由会员分享，可在线阅读，更多相关《（中职）数据库应用基础（Access 2010）06电子课件.pptx（59页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、YCF正版可修改PPT（中职）数据库应用基础（Access 2010）06ppt电子课件模块6VBA编程u6.1 VBA概述u6.2 VBA编程基础知识u6.3 VBA中的控制语句6.1 VBA概述（1）启动Access 2010，新建一个空数据库，切换到“数据库工具”选项卡，在“宏”组中单击“Visual Basic”按钮，如图6-1所示。图6-1 单击“Visual Basic”按钮简单VBA编程示例6.1.16.1 VBA概述（2）在弹出的“Microsoft Visual Basic for Applications”窗口中，选择“插入”菜单中的“模块”命令，弹出代码编辑窗口，输入VB

2、A代码，如图6-2所示。图6-2 输入VBA代码简单VBA编程示例6.1.16.1 VBA概述（3）单击“保存”按钮，在弹出的“另存为”对话框中输入模块名称，如图6-3所示。单击“是”按钮保存模块。图6-3 输入模块名称简单VBA编程示例6.1.16.1 VBA概述（4）选择“运行”菜单中的“运行子过程/用户窗体”命令，如图6-4所示，结果如图6-5所示。图6-4 运行模块图6-5 VBA运行结果简单VBA编程示例6.1.16.1 VBA概述面向对象编程的基本知识6.1.2面向对象(object oriented,OO)是软件开发方法。面向对象的概念和应用已超越了程序设计和软件开发，扩展到如数

3、据库系统、交互式界面、应用结构、应用平台、分布式系统、网络管理结构、CAD（计算机辅助设计）技术、人工智能等领域。面向对象是一种对现实世界的理解和抽象方法，是计算机编程技术发展到一定阶段的产物。Visual Basic、Visual FoxPro、Visual C+都是面向对象程序设计语言。6.1 VBA概述在自然界中，一个对象就是一个实体，如一部手机、一本书都是一个对象。在面向对象程序设计中，对象代表应用程序中的元素，如表、查询、窗体、按钮等。类是一组具有相同数据结构和相同类型操作的对象的集合。属性是对象的特征。每一种对象都有一组特定的属性，这在属性窗口中可以看到。在现实生活中每一个物体都有

4、其自己的属性，如手机的品牌、型号和颜色等都是手机的属性。事件是对象能够识别的动作。例如，鼠标移动、单击等都会产生一个事件，事件的发生通常是用户操作的结果。1.对象2.类3.属性4.事件面向对象编程的基本知识6.1.26.1 VBA概述方法是一个对象能够响应某一事件然后去执行的动作。不同对象有不同的方法，如open是打开、close是关闭等。集合由许多与对象有关的键和值组成，其中的键和值是配对的，如一本书是一个对象，书的页码是键，页码对应的内容是值，所有配对的页码和内容组成了书这个对象的集合。过程是由代码组成的单元，包含一系列计算语句和执行语句。每一个过程都有名称，且过程名不能与所在模块的模块名

5、相同。5.方法6.集合7.过程面向对象编程的基本知识6.1.26.1 VBA概述为便于编写代码、表达式、宏等，系统提供了三个生成器：生成器的相关概念6.1.3(1)(2)(3)表达式生成器宏生成器代码生成器6.1 VBA概述1.表达式生成器表达式生成器涵盖了所有可用的函数、常量及各对象的属性等，如图6-6所示。图6-6 表达式生成器生成器的相关概念6.1.36.1 VBA概述2.宏生成器宏生成器可以实现宏的设计，如图6-7所示。图6-7 宏生成器生成器的相关概念6.1.36.1 VBA概述3.代码生成器图6-8 代码生成器生成器的相关概念6.1.3打开代码生成器就会进入VBA的编程环境，如图6

6、-8所示，可以实现代码的编写、程序的调试工作，同时系统工具栏中提供了大量的设计视图等。6.2 VBA编程基础知识1.VBA标准数据类型VBA的标准数据类型与Access中的数据类型相似，其常用的数据类型如表6-1所示。表6-1 VBA标准数据类型6.2.1 数据类型6.2 VBA编程基础知识（1）逻辑型（Boolean）。例如：Dim I As Boolean（2）日期型（Date）。例如：Dim mydate As Datemydate=#6/6/2020（3）字符串型（String）。例如：Dim I As StringI=请输入值（4）货币型（Currency）。例如：Dim money

7、 As Currency（5）整型（Integer）。例如：Dim x As IntegerDim y%2.常用数据类型的定义方法VBA中有多种数据类型，常用数据类型的定义方法如下。6.2.1 数据类型6.2 VBA编程基础知识在程序运行过程中，其值不能被改变的量称为常量，在VBA中有4种常量。直接常量符号常量固有常量系统定义常量6.2.2 常量6.2 VBA编程基础知识1.直接常量直接出现在代码中的常量称为直接常量。例如：l整型：15、20。l字符型：I am a student。l数值型：3.14159、56、8.432E-15。l日期型：#2020-08-08#。l逻辑型：True、Fa

8、lse。2.符号常量符号常量就是用标识符来表示一个常量，以便于程序的维护和阅读。在VBA中使用关键字Const 声明符号常量，其定义方法如下：Const Const Const Const 常量名常量名常量名常量名 常数表达式常数表达式常数表达式常数表达式例如，把3.1415926定义为PI，在编写程序时可以在使用圆周率的地方使用PI，定义的方法如下：Const PI=3.1415926Const PI=3.1415926Const PI=3.1415926Const PI=3.14159266.2.2 常量6.2 VBA编程基础知识3.固有常量固有常量由两个字母前缀指明了定义该常量的对象库。

9、在VBA中选择“视图”菜单下的“对象浏览器”命令就能看到系统中可以使用的固有常量，如图6-9所示。例如，来自Access库的常量以“Ac”开头，来自ADO库的常量以“Ad”开头，而来自Visual Basic库的常量则以“Vb”开头。4.系统定义常量所谓系统定义常量是指VBA系统预先定义好的用户可以直接引用的量。系统定义常量有True、False和Null。图6-9 对象浏览器6.2.2 常量6.2 VBA编程基础知识在程序运行过程中，值可以改变的量称为变量。变量的三要素是变量的命名、变量类型、变量的值。变量类型变量的值变量的命名6.2.3 变量6.2 VBA编程基础知识变量名由字母、数字和下

10、划线组成，但必须以字母开头，其中不能包含标点符号或空格等，也不能是Visual Basic关键字（如Dim、If）和保留字（如Str）。变量名不区分大小写，而且字符个数最长只能有255个。显式声明隐式声明6.2.3 变量1.1.变量的命名变量的命名2.2.变量的声明变量的声明变量的声明方式有两种：显式声明和隐式声明。6.2 VBA编程基础知识使用类型说明符定义变量的数据类型时，在变量名后加VBA的类型说明符。类型说明符定义变量属于隐式声明。l%：短整数。l#：双精度数。l&：长整数。l$：字符串。l!：单精度。l：货币。例如，a%=12（变量a是整型，值是12）、name$=中国（声明变量na

11、me是字符串类型，同时赋了值）既没有显式声明，也没有加类型说明符，隐式声明了变体型变量。6.2.3 变量3.3.用类型说明符声明变量类型用类型说明符声明变量类型6.2 VBA编程基础知识6.2.3 变量4.4.变量的使用范围变量的使用范围变量在不同位置的作用域是不同的，分为局部变量、私有变量和公共变量。局部变量只能在定义它的过程内使用，在其他过程中无法存取局部变量，用Dim、Static来声明，作用在子过程中。私有变量只能在定义它的模块及其子过程内使用，而在其他模块中无法使用，用Dim、Private声明，作用在窗体/模块的声明区域。公共变量在任何模块和过程中都可以访问，公共变量需要在模块的声

12、明区域用Public声明。6.2 VBA编程基础知识用Dim语句来对数组变量进行声明。格式：Dim Dim Dim Dim 数组名（数组下标上界）数组名（数组下标上界）数组名（数组下标上界）数组名（数组下标上界）As As As As 数组类型数组类型数组类型数组类型6.2.3 变量5.5.数组变量的声明数组变量的声明例如：lDim ab（5）As String：声明了数组ab有6个元素，元素为ab（0）ab（5）。lDim xy（1-5）As Integer：声明了数组xy有5个元素，分别为xy（1）xy（5）。lDim name（2,3）As String：声明了一个2行3列的二维数组，类

13、型为String。6.2 VBA编程基础知识1.运算符VBA中的运算符可分为算术运算符、字符串运算符、关系运算符、逻辑运算符和对象运算符等。VBA中的运算符算术运算符字符串运算符关系运算符逻辑运算符对象运算符6.2.4 运算符和表达式6.2 VBA编程基础知识（1）算术运算符。算术运算符和算术表达式是VBA中最常用的，算术运算符见表6-2。表6-2算术运算符技巧：优先级从高到低是由1到6。6.2.4 运算符和表达式6.2 VBA编程基础知识（2）字符串运算符。字符串运算就是将两个字符串连接起来生成一个新的字符串。字符串运算符有“&”和“+”。需要注意两者的区别，当两个被连接的数据都是字符型时，

14、它们的作用相同；当数字型和字符型连接时，“&”把数据都转化成字符型然后连接，“+”把数据都转化成数字型然后连接。例如：u123+456 结果为123456。u123&456 结果为123456。uabc&123结果为abcf123。u123&456结果为123456。uabc+123结果为出错。u123+456 结果为579。6.2.4 运算符和表达式6.2 VBA编程基础知识（3）关系运算符。关系运算符是对两个表达式作比较，比较的结果为一个逻辑值真（True）和假（False）。若关系成立，则为真（True），反之则为假（False），见表6-3。表6-3关系运算符技巧：进行字符串比较时,按

15、字符的ASCII码值从左到右依次比较，直到出现不同的字符为止。字符的大小顺序：汉字字符 字母(按字母顺序且不分大小写)数字 空格。6.2.4 运算符和表达式6.2 VBA编程基础知识（4）逻辑运算符。逻辑运算符用于对两个逻辑量进行逻辑运算，其结果仍然是一个逻辑值，见表6-4。表6-4逻辑运算符的真值表AND（与运算）：当AND连接的表达式均为真时，整个表达式的值为真，否则为假。OR（或运算）：当OR连接的表达式均为假时，整个表达式的值为假，否则为真。NOT（非运算）：当NOT连接的表达式为真时，整个表达式的值为假。6.2.4 运算符和表达式6.2 VBA编程基础知识6.2.4 运算符和表达式（

16、5）对象运算符。用来指明随后出现的项目类型的运算符叫对象运算符。对象运算符有“！”和“.”两种。“！”运算符的作用是引用一个窗体、报表或控件，“.”运算符通常用于引用窗体、报表或控件等对象的属性。6.2 VBA编程基础知识2.表达式6.2.4 运算符和表达式变量常量函数运算符（1）表达式的组成圆括号表达式通过运算得出结果，运算结果的类型由操作数的数据和运算符共同决定。6.2 VBA编程基础知识2.表达式6.2.4 运算符和表达式（2）表达式的书写规则要改变运算符的运算顺序，只能使用圆括号且圆括号必须成对出现。表达式从左至右书写。乘号不能省略。圆括号必须成对出现。运算符不能相邻。（3）运算符的运

17、算优先级运算符的运算优先级为：算术运算字符串运算关系运算逻辑运算。6.3 VBA中的控制语句VBA程序是语句的集合，语句是能够完成某项操作的一条完整命令，它包含关键字、函数、运算符、变量、常量及表达式等。用户通过流程控制语句实现程序执行流程。1.VBA语句的三种类型（2 2）（1 1）（3 3）声明语句赋值语句执行语句6.3 VBA中的控制语句2.VBA语句书写规则YOUR TITLE HERE一条语句可分若干行书写，用续行符将语句分开，即用“_”作为第一行结尾，将剩余语句写在下一行。（1）（2）如果一行语句输入完成后显示为红色，则表示该语句存在错误。（3）（4）（5）一行可书写几条语句，之间

18、用冒号（：）分隔。尽量使用提示信息。代码不区分大小写。6.3 VBA中的控制语句程序有以下三种基本结构。（1）顺序结构：按语句排列顺序依次执行，如图6-10所示。（2）选择结构：又称为条件结构，根据不同条件选择执行不同操作，如图6-11所示。（3）循环结构：重复执行某段程序代码，如图6-12所示。图6-10 顺序结构图6-11 选择结构图6-12 循环结构3.程序的三种结构6.3 VBA中的控制语句6.3.1 If语句格式：If If If If 条件条件条件条件 Then Then Then Then 语句块语句块语句块语句块End IfEnd IfEnd IfEnd If功能：当条件为真时

19、，执行Then后面的语句块，否则执行End If后面的语句。1.单行If语句6.3 VBA中的控制语句格式：If If If If 条件条件条件条件 Then Then Then Then 语句块语句块语句块语句块1 1 1 1ElseElseElseElse 语句块语句块语句块语句块2 2 2 2End IfEnd IfEnd IfEnd If功能：条件为真时，执行语句块1；条件为假时，执行语句块2。6.3.1 If语句2.多行If语句6.3 VBA中的控制语句格式：If If If If 条件条件条件条件1 Then1 Then1 Then1 Then 语句块语句块语句块语句块1 1 1

20、1ElseIf ElseIf ElseIf ElseIf 条件条件条件条件2 Then2 Then2 Then2 Then 语句块语句块语句块语句块2 2 2 2 ElseElseElseElse 语句块语句块语句块语句块n+1n+1n+1n+1End IfEnd IfEnd IfEnd If6.3.1 If语句3.IfThenElseIf语句功能：依次判断条件，如果找到一个满足的条件，则执行其下面的语句块，然后跳过End If执行后面的程序。如果所列出的条件都不满足，则执行Else语句后面的语句块；如果所列出的条件都不满足，又没有Else子句，则直接跳过End If，不执行任何语句块。这也叫

21、If语句的嵌套。6.3 VBA中的控制语句6.3.2 循环语句将一段程序重复执行指定的次数，其中使用一个计数变量统计执行的次数。格式：For For For For 循环变量初值循环变量初值循环变量初值循环变量初值 To To To To 终值终值终值终值 Step Step Step Step 步长步长步长步长 语句块语句块语句块语句块 Exit ForExit ForExit ForExit For 语句块语句块语句块语句块Next Next Next Next 循环变量循环变量循环变量循环变量1.ForNext循环结构说明：u初值：循环变量先被赋予初值。u终值：判断循环变量是否超出终值。

22、u步长：循环变量的增量，是一个数值表达式。uExit For：程序一旦执行到Exit For语句时，无论循环变量是否超出终值，立即退出循环，执行Next后的语句。6.3 VBA中的控制语句（1）计算10的阶乘。（2）说出以下程序的运行结果。6.3.2 循环语句p=1*2*3*10。Dim p As Longp=1For i=1 To 10 p=p*iNext iDebug.Print 10的阶乘p=&ps=0For i=1 To 10 Step 2 s=s+i i=i+1Next iDebug.Print s结果为22。6.3 VBA中的控制语句6.3.2 循环语句2.DoLoop循环DoLo

23、op循环结构语句有5种形式。(1）Do WhileLoop格式：Do While Exit Do Loop（2）Do UntilLoopDo Until Exit Do Loop（3）DoLoop WhileDo Exit Do Loop While 6.3 VBA中的控制语句6.3.2 循环语句2.DoLoop循环DoLoop循环结构语句有5种形式。（4）DoLoop UntilDo Exit Do Loop Until（5）DoLoopDo Exit Do Loop6.3 VBA中的控制语句6.3.2 循环语句3.WhileWend语句格式：While Wend说明：该语句的功能与Do W

24、hile Loop实现的循环完全相同。先判断条件表达式的值，当条件表达式的值为True时，执行循环体内语句；当条件表达式的值为False时退出循环，并执行Wend后面的语句。当程序执行到Wend语句时，重新返回到循环的开始语句，再次判断条件表达式的值。6.3 VBA中的控制语句6.3.3 Goto语句Goto语句用于在程序执行过程中实现无条件转移。格式：Goto 标号Goto 行号功能：无条件地将程序转移至标号和行号的位置，并从该位置继续执行程序。标号定义时，标号名必须从代码行的第一列开始书写，且标号名后加冒号“:”。6.3 VBA中的控制语句6.3.3 Goto语句【例6-1】在数据库中创建

25、一个计算半径为10的圆的面积模块。（1）创建一个名为“计算”的数据库，然后切换到“创建”选项卡，单击“宏与代码”组中的“模块”按钮，如图6-13所示。（2）进入VBA编程环境，在“模块1（代码）”窗口中输入代码，如图6-14所示。图6-13 单击“模块”按钮图6-14 代码窗口6.3 VBA中的控制语句6.3.3 Goto语句（3）选择“运行”菜单下的“运行子过程/用户窗体”命令（或者按F5功能键），打开运行结果对话框，如图6-15所示。（4）单击工具栏中的“保存”按钮，将该模块命名为“计算圆面积”，如图6-16所示。图6-15 运行结果对话框图6-16 保存模块对话框6.3 VBA中的控制语

26、句6.3.3 Goto语句【例6-2】设计“成绩表初始化查询”。（1）打开“学生管理数据库”，在设计视图中创建“成绩表初始化”窗体。（2）将窗体界面设置为如图6-17所示的样式，含1个选项组、2个组合框和4个命令按钮。图6-17“成绩表初始化”窗体及空间布局6.3 VBA中的控制语句6.3.3 Goto语句（3）按表6-5设置窗体和控件的属性。表6-5窗体和控件属性设置6.3 VBA中的控制语句6.3.3 Goto语句（4）在查询生成器中新建一个追加查询，追加记录的目标是“学生成绩表”，如图6-18所示，具体设计要求如图6-19所示，然后保存为“成绩表初始化查询”。图6-18 创建追加查询图6

27、-19 查询生成器设置6.3 VBA中的控制语句6.3.3 Goto语句（5）创建带参数的查询“指定学年学期的记录数”。该查询的作用是获得“学生成绩表”中用户指定的学年学期的记录数，它在查询设计视图中的设置如图6-20所示。图6-20 创建“指定学年学期的记录数”查询6.3 VBA中的控制语句6.3.3 Goto语句（6）编写事件代码。“显示该学期成绩表记录”按钮的主要功能是如果在“学生成绩表”中存在选中的学年学期的成绩记录，则显示这些记录；如果不存在，则不显示并作相应提示。下面是该命令按钮的Click事件代码。Private Sub Command22_Click()Dim x As Int

28、egerDim tj As String条件=学年=+Me.Zhkxn+and 学期=+Me.Zhkxq+x=DCount(ID,学生成绩表,tj)If x 0 ThenElse MsgBox 没有数据,vbOKOnly,系统提示End IfEnd Sub6.3 VBA中的控制语句6.3.3 Goto语句“初始化成绩表”按钮的Click事件代码的功能是取得“学生成绩表”中在当前窗口选定学年学期的记录数并赋给x，用以判定是否已经进行过初始化。若x大于0表示已经过初始化处理，要删除原有的数据记录才能重新初始化；若x不大于0，则可以进行初始化，调用“成绩表初始化查询”来完成相应记录的增加。“删除该学

29、期成绩数据”按钮的主要功能是取得“学生成绩表”中指定学年学期的记录数，并赋给变量x，如果x=0，则表明还没有进行过初始化，无须删除；如果x0，则进行数据删除处理。记录的删除是利用SQL语句来实现的。6.3 VBA中的控制语句6.3.3 Goto语句“关闭”按钮的Click事件代码如下。Private Sub Command26_Click()On Error GoTo Err_命令10_ClickDoCmd.CloseExit_命令10_Click:Exit SubErr_命令10_Click:MsgBox Err.DescriptionResume Exit_命令10_ClickEnd Su

30、b6.3 VBA中的控制语句6.3.3 Goto语句（7）调试运行窗体，测试窗体中各个命令按钮的代码是否能够正常运行。小结本模块介绍了VBA编程的基本知识，包括数据类型、流程控制语句等，同时介绍了系统功能模块设计制作的一般方法和步骤。VBA的编程理论知识和技巧内容非常多，应重点掌握以下知识点。（1）VBA采用的是与VB相同的可视化Basic语言。（2）面向对象是软件开发方法，它包含对象、类、属性、事件、方法、集合、过程。（3）系统提供了3个生成器，分别是表达式生成器、宏生成器和代码生成器。（4）掌握10种数据类型和书写方法。（5）算术运算符有：+（加）、-（减、取负）、*（乘）、/（除）、Mo

31、d（取余）、（整除）、（乘幂）。（6）关系运算符有：=（等于）、（不等于）、（大于）、=（大于等于）、=（小于等于）。（7）连接运算符有：&和。（8）逻辑运算符有：OR（或）、AND（与）和NOT（非）。（9）VBA的语句分为3种类型：声明语句、赋值语句和执行语句。（10）VBA程序有3种基本结构：顺序结构、选择结构和循环结构。习题一、选择题1.VBA提供了多种数据类型，存放姓名通常采用（）数据类型。A、Byte B、IntegerC、String D、Single2.以下运算符优先级最高的是（）。A、算术运算符 B、关系运算符C、逻辑运算符 D、字符串运算符3.假定有以下程序段：n=0For

32、 i=1 To 3For j=-4 To-1n=n+1Next jNext i习题运行完毕后，n的值是（）。A、0 B、3 C、4 D、124、VBA中定义符号常量可以用关键字（）。A、Const B、Dim C、Public D、Static二、填空题1.b=5*2+3/3,b的结果为 。2.布尔型数据，True(真)存储为-1，False(假)存储为 。三、简答题1.什么是对象？2.对象的属性和方法有什么区别？四、操作题1.利用If语句求3个数X、Y、Z中的最大数，并将其放入MAX变量中。2.新建一数据库，在该数据库中添加名为“统计字符数”的窗体，在“输入字符串：”文本框中输入一个字符串，

33、单击“统计”按钮后，要求在“字符串长度：”文本框中以蓝色、加粗显示该字符串的长度。例如，输入“abcde123”，则单击“统计”按钮后，“字符串长度：”文本框中显示为蓝色并加粗的，如图6-21所示。单击“清空”按钮，则清除两个文本框中显示的内容。图6-21 显示效果习题3.新建一数据库，在该数据库中创建一名称为“基础代谢率计算”的窗体，可根据身高、年龄、体重及性别计算人体基础代谢率，如图6-22所示。(1)标签采用隶书、18号字体。(2)窗体主体中包括身高、年龄和体重3个文本框控件，性别采用选项组控件。(3)身高、年龄和体重3个文本框左对齐，大小相同。(4)在录入身高、年龄、体重和性别后，单击“计算”按钮将输出基础代谢率的计算结果。基础代谢率的计算方法如下，体重单位为kg，身高单位为cm。女性：61+(9.6体重)+(1.72身高)-(4.7年龄)=基础代谢率；男性：67+(13.73体重)+(5身高)-(6.9年龄)=基础代谢率。图6-22 基础代谢率计算窗体习题Thanks