Access课件-第8章.ppt

第8章 程序设计模块,主要内容,8.1 Access模块概述8.2 VBA程序设计基础8.3 MsgBox与InputBox函数8.4 VBA程序流程控制8.5 数组8.6 DoCmd对象8.7 过程8.8 数据库编程,标准模块作为数据库的对象被列在Access数据库的对象列表内，用来保存Access数据库的通用声明与通用过程。标准模块中的全局变量和全局过程具有全局特性，其作用范围在整个应用程序里，生命周期是伴随着应用程序的运行而开始，应用程序的关闭而结束。标准模块中的过程可以在数据库的任意位置调用。,8.1 Access模块概述,8.1.1 标准模块,8.1 Access模块概述,新建标准模块，在模块中添加Hello World子程序，弹出消息框“Hello World”，在“立即窗口”中显示“世界你好！”。,任务8-1,任务解决过程：新建模块：“模块1”。,输入程序代码：在“模块1”的代码窗口内输入下面的程序代码：Public Sub HelloWorld()MsgBox Hello World!End Sub,保存模块：单击Visual Basic编辑器标准工具栏内的“保存”命令按钮打开“另存为”对话框，输入模块名称“模块基本练习”并单击“确定”按钮，模块被保存到数据库内。,运行子程序，方法 在“HelloWorld”子程序代码内的任意位置单击鼠标，然后单击Visual Basic编辑器“运行”菜单的“运行子过程/用户窗体”命令，或单击“运行”命令按钮 执行子程序。运行子程序，方法：在Visual Basic编辑器内打开“立即窗口”（单击“视图”菜单下的“立即窗口”），在“立即窗口”内输入：Call HelloWorld()输入回车键确认。,相关知识点：Visual Basic编辑器窗口包含“工程资源管理器”，显示了数据库的各个模块，用鼠标双击某一模块名称将打开该模块的代码窗口。“代码窗口”，用于显示模块的程序代码。“立即窗口”，可以用来跟踪显示代码执行过程中各个变量的值。模块由声明语句和过程构成，声明语句包括下面两种：Option语句：为模块中的所有过程设置VBA选项。Dim语句：声明VBA变量。,语句：Option Compare Database是系统自动添加到所有模块的声明语句，用于设置字符串的比较方法。既以Access根据数据库的排列顺序来比较字符串的大小。子程序也称为Sub过程，是过程的一种。子程序以关键字Sub开始，以End Sub语句结束。Sub语句前面的Public表示公用的，即子程序可以在数据库任意位置调用。本例中MsgBox语句的作用是调用消息框，在消息框内显示语句中的字符串。,执行子程序有很多种办法，可以在程序代码中调用、在“立即窗口”内调用，还可以通过Visual Basic编辑器内的菜单命令调用。“立即窗口”用于测试和调试程序代码。在代码的执行过程中通过“立即窗口”能够显示、更改程序的临时变量值或属性值。在“立即窗口”内也可以进行简单的运算、调用函数或过程。“立即窗口”内每输入一条语句需要输入回车键以执行该语句。在过程中使用的Debug对象表示“立即窗口”，“Debug.Print”方法将结构显示在“立即窗口”内。,边学边练在“模块基本练习”模块内添加一个新的子程序Hello()，使其运行时显示“世界你好！”消息框，保存模块并运行子程序。新建一个窗体，在窗体上添加一个命令按钮，给命令按钮添加过程，使单击按钮调用上面程序中的Hello()子程序。,想一想什么是模块？Access VB模块有哪些？如何打开Visual Basic编辑器？你能找到3中不同方法吗？一个模块里面可不可以有多个子程序吗？,类模块是与类对象相关联的模块，也称为类对象模块。Access的类模块有3种基本形式：窗体类模块、报表类模块和自定义类模块。窗体与报表是典型的类模块。,8.1 Access模块概述,8.1.2 类模块,类模块从属于相关联的对象，其中定义的变量与过程不能被其他对象引用。类模块的生命周期随着对象的运行而开始，随着对象的关闭而关闭。窗体类模块和报表类模块内主要包含响应用户对窗体或报表操作的事件过程。,8.1 Access模块概述,8.1.2 类模块,8.1 Access模块概述,缩放图像窗体。,任务8-2,任务解决过程：新建窗体：在窗体内添加一个“图像”控件和两个命令按钮控件。适当调整窗体、图像控件、命令按钮的大小与位置。,设置窗体与对象的属性：选择窗体或窗体内的对象，单击Access工具栏上的“属性”按钮 打开对象的属性窗口，设置窗体及控件对象的属性。保存窗体，窗体名为“缩放图像”。,为命令按钮添加事件过程：在“图像缩放”窗体的设计视图内选择cmdExpand命令按钮；在命令按钮的属性窗口内选择“事件”选项卡，在“单击”事件属性内选择“事件过程”。,单击命令按钮“单击”事件属性框旁的“生成器”按钮 进入Visual Basic编辑器。由于用户在cmdExpand命令按钮的“单击”事件属性中选择了“事件过程”选项，系统为cmdExpand命令按钮自动添加了一个空的“单击”事件过程：Private Sub cmdExpand_Click()End Sub,在过程cmdExpand_Click()内输入下程序代码：imgFlower.Width=imgFlower.Width-30 imgFlower.Left=imgFlower.Left+15 imgFlower.Height=imgFlower.Height-20 imgFlower.Top=imgFlower.Top+10按照同样的方法，给命令按钮cmdContract添加“单击”事件过程和程序代码，如下图所示。,单击“保存”按钮保存模块，关闭Visual Basic编辑器，返回到Access数据库窗口。运行窗体：打开“缩放图像”的窗体视图，单击“放大”或“缩小”命令按钮，窗体内的图像将随之放大或缩小。,VBA的程序代码保存在数据库的标准模块和类模块中。模块中的语句有声明语句和过程两部分组成。模块级的声明语句声明模块级别或全局常量、变量，过程包括自定义函数、子程序和对象的事件过程。过程内部的程序代码有局部变量声明语句和可执行语句组成。,8.2 VBA程序设计基础,1.注释语句的书写格式在VBA程序中，注释语句有以下两种形式：使用Rem语句注释文字：Rem 使用单引号“”注释文字：,8.2 VBA程序设计基础,8.2.1 程序的书写格式,2.一行多语句与一语句多行Visual Basic语法规定若将多条语句写到一行内，只要在语句和语句之间加入半角冒号即可。对于很长的语句，可以将其分为几行书写。在语句的行末加入空格和一个下划线“_”（续行标志），未写完的代码写到下一行内，与上一行的代码合为一个语句。,VBA提供了12中基本数据类型和用户自定义类型。表8.2列出了基本数据类型的关键字、声明字符、占用存储空间、示例与取值范围。,8.2.2 VBA的数据类型,VBA的数据类型,VBA的数据类型,在程序运行时，那些用来保存能够随时改变的量被称为变量，变量通常用简单的字母或词汇表示，如x、a1、intC等。声明变量时由系统指派变量占用的内存空间。常量是在程序运行中不能改变的数据。,8.2.3 变量和常量,任务解决过程：新建窗体：新建窗体并进入窗体的设计视图，在窗体内添加一个文本框控件、一个标签控件和一个命令按钮控件。,已知圆的半径计算圆面积。,任务8-3,设置窗体及控件对象的属性。,保存窗体，窗体名为“已知半径计算圆面积”。,为命令按钮添加事件过程：给命令按钮“cmdCalculate”添加“单击”事件过程：Private Sub cmdCalculate_Click()Const PI=3.1415926 Dim r As Single,area As Single txtR.SetFocus r=Val(txtR.Text)area=Round(PI*r 2,2)lblArea.Caption=圆面积为：+Str(area)End Sub,运行窗体：打开“已知半径计算圆面积”窗体的“窗体视图”，在文本框内输入一个半径，单击“计算面积”命令按钮将在标签内显示出圆面积。,1.变量的命名原则变量名必须以英文字母开头，变量名称中不能包含空格、句点（.）、惊叹号（!）、或、&、$，#等字符，最长不能超过255个字符。变量名不能是VBA关键字。关键字是那些在VBA语言有特殊含义的词，是VBA语言的一部分，包括预定义的语句（如Dim、If、Sub、For）、函数（如sqr、len、val）和运算符（如Or、And）等。变量名在其有效范围内必须是唯一的。,变量,2.变量的声明VBA是一个语法非常宽松的程序设计，用户可以直接使用变量而不必声明。不经声明而使用的变量系统将按照Variant类型处理。在模块的通用声明部分添加语句：Option Explicit将强制用户必须使用Dim、Private、Public、ReDim 或 Static 语句来显式声明所有的变量，变量在声明后才能引用。这样可以减少因为变量名称的拼写失误而带来的程序错误，使得程序设计更加规范。,声明变量最常用的语句是Dim语句，其语法格式如下：Dim As 例如：Dim C 声明一个名为C的变体类型变量Dim A As Integer 声明一个名为A的整型变量Dim String1 As String 声明一个名为String1的可变长字符串,使用类型声明字符可以简化变量的声明语句，如：Dim A%声明变量A为整型变量Dim String1$声明变量String1为可变长字符串一个Dim语句可以同时声明多个变量，每个变量必须有自己的类型声明符，类型声明符不能共用。如：Dim A,B!,C As Double声明了变体类型变量A、单精度变量B，和双精度变量C。Dim X as Single,Y!,I as Integer声明单精度变量X、Y和整型变量I。,3.变量的作用域 变量定义的位置与方式不同，则它的作用域也不同。(1)局部变量变量定义在过程（函数或子程序）内部，使用Dim语句定义，变量的作用域被限定在该过程内部。(2)模块级变量 变量定义在模块的声明区，使用Dim或Private语句定义，则变量的作用域为整个模块，即模块内的所有过程都可以引用该变量。,(3)全局变量变量定义在标准模块的声明区，使用Public语句定义，则变量为全局变量。全局变量可以在任何模块的任何过程内调用。,常量是在程序运行中不能改变的数据，用户可以使用符号常量（用户定义的常量，使用具有意义的名称来代替数字或字符）来增加代码的可读性与可维护性。声明符号常量的语句格式为：Public|Private Const As=,符号常量,常量,边学边练参考本例建立窗体并编写程序，使其对输入的出生日期计算出年龄，并显示到窗体的标签对象上。建立一个窗体，在窗体上添加两个文本框、一个标签、一个命令按钮，并适当调整文本框、标签、命令按钮的大小与位置。给命令添加“单击”事件过程，使得程序运行时，将两个文本框内的数值相加后显示在标签控件内。,想一想什么是符号常量？程序中为什么要使用符号常量？表示数值类型的变量有哪些？什么是“局部变量”、“模块级变量”和“全局变量”？,MsgBox函数用于显示消息框，输出程序信息，其语法格式如下：MsgBox(prompt,buttons,title,helpfile,context)MsgBox函数各参数含义为：Prompt：必要参数，显示在对话框中的消息文本。其最大长度为1024个字符，由所用字符的宽度决定。,8.3 MsgBox与InputBox函数,8.3.1 MsgBox函数,Buttons：可选参数，用于指定消息框上显示按钮的数目及形式、使用图标的样式、缺省按钮及消息框的强制回应等。如省略，则buttons的缺省值为0。Title：可选参数，为对话框标题栏中文本。Helpfile与Context：可选参数，设置对话框的帮助文件及指定帮助主题的上下文编号。Buttons参数的取值及说明：,8.3 MsgBox与InputBox函数,1.MsgBox函数,MsgBox函数返回给程序一个整数，用来表示用户单击了哪一个按钮。,InputBox函数用来在程序执行时打开输入框，并将输入文本信息返回到程序中。InputBox函数的语法格式如下：InputBox(prompt,title,default,xpos,ypos,helpfile,context),2.InputBox函数,其中各参数的含义为：Prompt：必要参数，输入框的提示文本。其最大长度为1024个字符。如果需要在对话框中显示多行数据，则可在各行之间用回车符(Chr(13)、换行符(Chr(10)或回车换行符的组合(Chr(13)&Chr(10)来分隔。也可以使用VBA的回车换行符常数vbCrLf。Title：可选参数，为对话框标题栏中文本。如果省略该参数，则标题栏中显示应用程序的名称。,Default：可选参数，为输入框内的默认文本。如果省略该参数，则输入框初始为空。Xpos与Ypos：可选参数，数值表达式，Xpos与Ypos应成对出现。成对出现，指定对话框的左边和上边与屏幕左边和上边的距离。如果省略，则对话框会在水平方向居中，在垂直方向被放置在距下边大约三分之一的位置。Helpfile：可选参数，设置对话框的帮助文件。必须与context参数合用。Context：可选参数，指定帮助主题的上下文编号。必须与helpfile参数合用。,结构化程序设计有3种基本结构：顺序结构、选择结构、循环结构。顺序结构指的是程序代码按照由上到下的次序执行，程序代码的主体通常是顺序结构。在顺序结构的基础上，程序按照实际需要，可以包含选择结构（分支结构）、循环结构。选择结构也称为分支结构，程序依据一定的条件执行不同的语句块。实现选择结构的语句有条件语句（If）和多路分支语句（Select Case）。,8.4 VBA程序流程控制,8.4 VBA程序流程控制,输入身份证号码，从中提取性别信息。,任务8-4,任务解决过程：,新建全局子程序：在模块内添加全局子程序Identity并保存模块。,8.4.1 选择结构1.If语句,调用子程序：在“立即窗口”调用Identity子程序，系统提示输入用户姓名、用户身份证号码，输入确定后，系统回显用户信息。,If语句对给定的条件表达式进行判断，依据条件的真或假来决定执行不同的语句块。If语句有三种基本格式：语法格式1：If Then End If,相关知识点：,语法格式2：If Then Else End If,语法格式3：If Then ElseIf Then Else End If,任务8-5,2.Select Case语句,分别用If语句、Select case 将百分制成绩转化为成绩等级。,任务解决过程：新建窗体：在数据库内新建窗体并进入窗体的设计视图。在窗体内添加一个文本框（txtScore）与一个标签控件（lblScore）；适当调整窗体、文本框控件、标签控件的大小与位置。,保存窗体，窗体名为“成绩等级”。,给文本框“txtScore”添加“击键”事件过程。,打开窗体“成绩等级”的窗体视图，在文本框内输入一个成绩后单击回车键，文本框下面的标签控件上将显示相应的成绩等级。,应用Select Case语句：将前面的If语句删除或在语句前面添加单引号“”将语句转换为注释行，利用多路分支语句Select Case实现IfThenElseIf结构。,Select Case语句的语法格式如下：,相关知识点：,Select Case Case Case Case Else End Select,8.4 VBA程序流程控制,8.4.2 循环结构,循环结构用来重复执行一组语句。VBA提供了For.Next、While.Wend和Do.Loop三种循环结构。1.ForNext循环语句格式：For=To Step Next,2.WhileWend循环语句格式：While Wend,3.DoLoop循环语句格式：Do While|Until Loop或者：DoLoop While|Until,8.4 VBA程序流程控制,求解斐波那契数列的前20项。,斐波那契数列是由意大利数学家莱昂纳多斐波那契首先研究的一种递归数列，它的每一项都等于前两项之和。此数列的前几项为1，1，2，3，5等等。在生物数学中，许多生物现象都会呈现出斐波那契数列的规律。斐波那契数列相邻两项的比值趋近于黄金分割数。,任务8-6,任务解决过程：新建窗体：新建窗体并打开窗体的设计视图，在窗体内添加一个命令按钮控件；设置窗体的标题属性为“斐波那契数列”，命令按钮名称为“cmdFibonacci”、标题为“计算”；将窗体保存为“斐波那契数列”。为命令按钮添加事件过程：给“cmdFibonacci”命令按钮添加“单击”事件过程。,打开“斐波那契数列”的窗体视图，单击“计算”命令按钮，在Visual Basic编辑器的“立即窗口”显示出斐波那契数列的前20项。,边学边练利用ForNext循环计算1！+2！+3！+100！的和。百钱买百鸡问题。古时有人用100文钱买100只鸡。公鸡每只5文，母鸡每只3文，雏鸡每文3只，问：用100文钱买100只鸡共有多少中买法。,想一想如何根据ForNext结构循环变量的“初值”、“终值”、“步长”计算循环将要执行的次数？循环变量在ForNext循环语句内能够被重新赋值吗？用户这样做会带来什么问题？详细说明ForNext循环结构的执行过程。循环变量在循环结束后的值有什么规律？,8.5 数组,数组是一组具有相同类型和名称的变量的集合。数组内的每个变量称为数组元素，可以通过下标来区别这些元素。在程序中对于大量同种类型的数据，例如学生成绩，需要利用数组来表示。在其他程序设计语言中，数组中的所有元素都必须为同样的数据类型，在VBA中，数组中各元素可以是相同的数据类型，也可以是不同的数据类型。数组和变量一样也有不同的作用域。按作用域的不同可以把数组分为：过程级数组(或称为局部数组)、模块级数组以及全局数组。,8.5 数组,输入10个学生的成绩，计算并显示平均成绩、最高分与最低分。,任务8-8,任务解决过程：建立窗体：新建窗体，在窗体内加入1个标签与4个命令按钮；将标签对象的名称更改为“lblScores”,“边框样式”更改为“实线”；将4个命令按钮的标题设置为：“输入成绩”、“显示成绩”、“计算平均分”、“最高最低分”，命令按钮的名称分别为：“cmdInput”、“cmdPrint”、“cmdAverage”、“cmdMaxMin”；设置窗体的“记录选择器”、“导航按钮”、“分割线”属性为“否”。,单击“保存”按钮将窗体保存为“成绩统计”窗体。添加程序代码：单击“代码”命令按钮 进入Visual Basic编辑器；在窗体的“通用声明”区声明整型数组a，给各个命令按钮添加“单击”事件过程。,运行窗体：保存窗体并打开窗体的“窗体视图”，单击“输入成绩”命令按钮输入10个成绩，单击“显示成绩”命令按钮在窗体内的标签控件显示10个成绩，单击“计算平均分”命令按钮显示平均成绩，单击“最高最低分”命令按钮显示最高最低分。,相关知识点(1)Option Base语句用来指定数组元素的下标从1或0开始，如果没有Option Base语句明确说明，数组元素的下标默认从0开始。其格式为：Option Base 1|0 Option Base语句需要输入到模块的“通用声明”部分(2)定义一维数组的语法格式如下：Dim(To)As 其中“下界”可以省略，此时“下界”默认为通用声明里Option Base语句声明的数值。例如：Dim a(10)As Integer 声明整型数组a，有10个元素，下标从1到10。,边学边练输入10个数值，然后对这10个数进行排序，将结果显示在“立即窗口”内。想一想Option Base语句的作用是什么？,8.6 过程,过程包括函数与子程序，是Access程序代码的基本单元。函数过程也称为Function过程，简称为函数。函数能够返回函数值，在表达式中调用。函数过程以关键字Function开始，以End Function语句结束。子程序也称为Sub过程，简称为子程序。子程序用来执行某些操作，没有返回值。子程序以关键字Sub开始，以End Sub语句结束。对象的事件过程是系统内部定义的特殊Sub过程，其作用是响应窗体或报表运行时用户在对象上的操作。,已知三角形三边长求面积。,任务8-9,任务解决过程：新建窗体：新建窗体并进入窗体的设计视图,在窗体内添加三个文本框与一个命令按钮控件；适当调整窗体、标签控件、文本框控件与命令按钮的大小与位置。,设置窗体及控件对象的属性。,保存窗体，窗体名为“三角形求面积”。添加全局函数与过程：单击Access工具栏的“代码”命令按钮打开Visual Basic编辑器，打开“模块基本练习”标准模块的代码窗口；在标准模块内添加一个全局函数TriangleArea和一个全局过程ShowText。,添加事件过程：给cmdCalculate命令按钮添加“单击”事件过程。,保存模块，关闭Visual Basic编辑器。,运行窗体：打开“三角形求面积”的窗体视图，在文本框内输入三角形的三个边长，单击“计算面积”命令按钮，将在消息框内显示三角形的面积。,8.7 DoCmd对象,Access中提供了一个非常重要的对象：Docmd。使用 DoCmd 对象的方法，可以在Microsoft Access代码中运行宏操作的各个功能，诸如关闭窗口、打开窗体和设置控件值等任务。,任务8-10,用程序代码完成数据表的打开和关闭。,任务解决过程：(1)复制窗体：在数据库窗口的“窗体”对象内，将“打开数据表”窗体复制为“打开数据表_代码实现”窗体。,任务解决过程：复制窗体：在数据库窗口的“窗体”对象内，将“打开数据表”窗体复制为“打开数据表_代码实现”窗体。删除“打开数据表_代码实现”窗体内命令按钮“单击”事件的宏操作。编写程序代码运行窗体,OpenTable方法OpenQuery方法OpenForm方法OpenReport方法Close方法RunMacro方法RunSQL方法,Docmd对象的常用方法,8.8 数据库编程,VBA可以通过程序代码与本地或外部数据库连接并对数据库进行各种操作。VBA访问数据库的主要方式有：ODBC（Open Database Connectivity，开放数据库互）、DAO（Data Access Objects，数据访问对象）、ADO（ActiveX Data Objects，ActiveX数据对象）3种接口。,8.8 数据库编程,ODBC(Open Database Connectivity，开放数据库互连)是微软公司开放服务结构中有关数据库的一个组成部分，它建立了一组规范，并提供了一组对数据库访问的标准API（应用程序编程接口）。,8.8 数据库编程,DAO是微软第一个面向对象的数据库接口，应用于微软的Visual Basic中，它允许程序员请求对微软的Access数据库的访问。DAO对象封闭了Access的Jet函数。通过Jet函数，它还可以访问其他的结构化查询语言（SQL）数据库。,8.8 数据库编程,微软公司的ADO是一个用于存取数据源的COM组件，通过OLE DB访问和操作数据库服务器中的数据。它的主要优点是易于使用、速度快、内存支出低和占用磁盘空间少。ADO支持用于建立客户端/服务器和基于Web的应用程序的主要功能。,8.8 数据库编程,微软公司的ADO是一个用于存取数据源的COM组件，通过OLE DB访问和操作数据库服务器中的数据。它的主要优点是易于使用、速度快、内存支出低和占用磁盘空间少。ADO支持用于建立客户端/服务器和基于Web的应用程序的主要功能。,8.8 数据库编程,通过DAO访问本地数据库。,任务8-11,任务解决过程：新建数据库：建立一个新的Access数据库，将数据库以文件名“test.mdb”保存到和“图书管理系统”数据库相同的文件夹内。新建窗体：在“test.mdb”数据库内建立窗体，在窗体内添加4个文本框用来显示“图书管理系统”数据库“读者信息表”的信息。在各个文本框的属性窗口内分别设置4个文本框的“控件来源”属性为：“读者编号”、“姓名”、“性别”、“联系电话”等字段。,将窗体保存为“DAO对象练习”。,添加程序代码：选择“DAO对象练习”窗体，单击Access工具栏的“代码”命令按钮打开Visual Basic编辑器；在“对象列表”内选择窗体“Form”，在“事件”列表内选择“Load”事件，系统在代码窗口添加窗体的Load事件。在事件内编写程序代码。,运行窗体：打开“DAO对象练习”窗体的“窗体视图”，系统通过窗体的“Load”事件过程连接到“图书管理系统”数据库并显示“读者信息表”的信息。,8.8 数据库编程,通过ADO访问本地数据库。,任务8-12,任务解决过程：新建“ADO对象练习”窗体：打开“test”数据库，在数据库内新建窗体，在窗体内添加一个文本框（txtBookName）和一个命令按钮（cmdLookup）。,单击“保存”按钮，将窗体保存为“ADO对象练习”。新建“馆藏信息”窗体：在“test”数据库内新建窗体，在其中添加3个文本框，分别设置各文本框的“控件来源”属性为“馆藏地”、“架位号”、“流通状态”，修改各文本框的标签。,单击“保存”按钮，将窗体保存为“馆藏信息”。,给“ADO对象练习”窗体的“cmdLookup”命令按钮添加“单击”事件过程。,运行窗体：打开“ADO对象练习”窗体的“窗体视图”，在“图书名称”文本框内输入要查询的书名，单击“查询”命令按钮将打开“馆藏信息”窗体并显示被查图书的馆藏信息。,模块和类模块的应用：创建模块、编写代码、保存并运行模块 VBA程序设计基础：VBA的数据类型、程序的书写格式、变量和常量的声明和使用 MsgBox与InputBox函数的使用 VBA控制结构：顺序结构、选择结构和循环结构的应用 数组的应用：数组的定义和使用 过程的使用：过程的定义和调用 DoCmd对象：使用DoCmd对象对表、查询、窗体和报表等对象进行操作通过DAO、ADO访问数据库,学习要点,