Access课件-第8章

第8章程序设计模块主要内容8.1Access模块概述8.2VBA程序设计基础8.3MsgBox与InputBox函数8.4VBA程序流程控制8.5数组8.6DoCmd对象8.7过程8.8数据库编程标准模块作为数据库的对象被列在Access数据库的对象列表内，用来保存Access数据库的通用声明与通用过程。标准模块中的全局变量和全局过程具有全局特性，其作用范围在整个应用程序里，生命周期是伴随着应用程序的运行而开始，应用程序的关闭而结束。标准模块中的过程可以在数据库的任意位置调用。8.1Access模块概述8.1.1标准模块8.1Access模块概述新建标准模块，在模块中添加HelloWorld子程序，弹出消息框“HelloWorld”，在“立即窗口”中显示“世界你好！”。任务8-1任务解决过程：新建模块：“模块1”。输入程序代码：在“模块1”的代码窗口内输入下面的程序代码：PublicSubHelloWorld()MsgBoxHelloWorld!EndSub保存模块：单击VisualBasic编辑器标准工具栏内的“保存”命令按钮打开“另存为”对话框，输入模块名称“模块基本练习”并单击“确定”按钮，模块被保存到数据库内。运行子程序，方法①在“HelloWorld”子程序代码内的任意位置单击鼠标，然后单击VisualBasic编辑器“运行”菜单的“运行子过程/用户窗体”命令，或单击“运行”命令按钮执行子程序。运行子程序，方法②：在VisualBasic编辑器内打开“立即窗口”（单击“视图”菜单下的“立即窗口”），在“立即窗口”内输入：CallHelloWorld()输入回车键确认。相关知识点：VisualBasic编辑器窗口包含“工程资源管理器”，显示了数据库的各个模块，用鼠标双击某一模块名称将打开该模块的代码窗口。“代码窗口”，用于显示模块的程序代码。“立即窗口”，可以用来跟踪显示代码执行过程中各个变量的值。模块由声明语句和过程构成，声明语句包括下面两种：Option语句：为模块中的所有过程设置VBA选项。Dim语句：声明VBA变量。语句：OptionCompareDatabase是系统自动添加到所有模块的声明语句，用于设置字符串的比较方法。既以Access根据数据库的排列顺序来比较字符串的大小。子程序也称为Sub过程，是过程的一种。子程序以关键字Sub开始，以EndSub语句结束。Sub语句前面的Public表示公用的，即子程序可以在数据库任意位置调用。本例中MsgBox语句的作用是调用消息框，在消息框内显示语句中的字符串。执行子程序有很多种办法，可以在程序代码中调用、在“立即窗口”内调用，还可以通过VisualBasic编辑器内的菜单命令调用。“立即窗口”用于测试和调试程序代码。在代码的执行过程中通过“立即窗口”能够显示、更改程序的临时变量值或属性值。在“立即窗口”内也可以进行简单的运算、调用函数或过程。“立即窗口”内每输入一条语句需要输入回车键以执行该语句。在过程中使用的Debug对象表示“立即窗口”，“Debug.Print”方法将结构显示在“立即窗口”内。边学边练在“模块基本练习”模块内添加一个新的子程序Hello()，使其运行时显示“世界你好！”消息框，保存模块并运行子程序。新建一个窗体，在窗体上添加一个命令按钮，给命令按钮添加过程，使单击按钮调用上面程序中的Hello()子程序。想一想什么是模块？AccessVB模块有哪些？如何打开VisualBasic编辑器？你能找到3中不同方法吗？一个模块里面可不可以有多个子程序吗？类模块是与类对象相关联的模块，也称为类对象模块。Access的类模块有3种基本形式：窗体类模块、报表类模块和自定义类模块。窗体与报表是典型的类模块。8.1Access模块概述8.1.2类模块类模块从属于相关联的对象，其中定义的变量与过程不能被其他对象引用。类模块的生命周期随着对象的运行而开始，随着对象的关闭而关闭。窗体类模块和报表类模块内主要包含响应用户对窗体或报表操作的事件过程。8.1Access模块概述8.1.2类模块8.1Access模块概述缩放图像窗体。任务8-2任务解决过程：新建窗体：在窗体内添加一个“图像”控件和两个命令按钮控件。适当调整窗体、图像控件、命令按钮的大小与位置。设置窗体与对象的属性：选择窗体或窗体内的对象，单击Access工具栏上的“属性”按钮打开对象的属性窗口，设置窗体及控件对象的属性。保存窗体，窗体名为“缩放图像”。窗体属性名称属性值说明标题缩放图像属性文本将显示在运行时窗体的标题栏内。图像控件属性名称属性值说明名称imgFlower根据VisualBasic控件命名规范，标签控件名以英文字母img开头。缩放模式拉伸调整图像显示比例以适应控件大小。图片某图片文件图像文件显示在图像控件内。命令按钮控件1属性名称属性值说明名称cmdExpand命令按钮的名称按照约定以“cmd”开头。标题放大显示在命令按钮上面的文本。命令按钮控件2属性名称属性值说明名称cmdContract命令按钮的名称按照约定以“cmd”开头。标题缩小显示在命令按钮上面的文本。为命令按钮添加事件过程：在“图像缩放”窗体的设计视图内选择cmdExpand命令按钮；在命令按钮的属性窗口内选择“事件”选项卡，在“单击”事件属性内选择“事件过程”。单击命令按钮“单击”事件属性框旁的“生成器”按钮进入VisualBasic编辑器。由于用户在cmdExpand命令按钮的“单击”事件属性中选择了“事件过程”选项，系统为cmdExpand命令按钮自动添加了一个空的“单击”事件过程：PrivateSubcmdExpand_Click()EndSub在过程cmdExpand_Click()内输入下程序代码：imgFlower.Width=imgFlower.Width-30imgFlower.Left=imgFlower.Left+15imgFlower.Height=imgFlower.Height-20imgFlower.Top=imgFlower.Top+10按照同样的方法，给命令按钮cmdContract添加“单击”事件过程和程序代码，如下图所示。单击“保存”按钮保存模块，关闭VisualBasic编辑器，返回到Access数据库窗口。运行窗体：打开“缩放图像”的窗体视图，单击“放大”或“缩小”命令按钮，窗体内的图像将随之放大或缩小。VBA的程序代码保存在数据库的标准模块和类模块中。模块中的语句有声明语句和过程两部分组成。模块级的声明语句声明模块级别或全局常量、变量，过程包括自定义函数、子程序和对象的事件过程。过程内部的程序代码有局部变量声明语句和可执行语句组成。8.2VBA程序设计基础1.注释语句的书写格式在VBA程序中，注释语句有以下两种形式：使用Rem语句注释文字：Rem注释文字使用单引号“＇”注释文字：＇注释文字8.2VBA程序设计基础8.2.1程序的书写格式2.一行多语句与一语句多行VisualBasic语法规定若将多条语句写到一行内，只要在语句和语句之间加入半角冒号即可。对于很长的语句，可以将其分为几行书写。在语句的行末加入空格和一个下划线“_”（续行标志），未写完的代码写到下一行内，与上一行的代码合为一个语句。VBA提供了12中基本数据类型和用户自定义类型。表8.2列出了基本数据类型的关键字、声明字符、占用存储空间、示例与取值范围。8.2.2VBA的数据类型VBA的数据类型数据类型关键字声明字符存储空间示例范围整型Integer%2字节10，-100%-32768到32767长整型Long&4字节1234567&，-7654321-2147483648到2147483647单精度浮点型Single!4字节1.2345，1.2345！负数时从-3.402823E38到-1.401298E-45；正数时从1.401298E-45到3.402823E38双精度浮点型Double#8字节1.234567E20，1234.56789#负数时从-1.79769313486231E308到-4.94065645841247E-324；正数时从4.94065645841247E-324到1.79769313486232E308货币型Currency@8字节1.3578@，123.45@从-922,337,203,685,477.5808到922,337,203,685,477.5807VBA的数据类型数据类型关键字声明字符存储空间示例范围小数型Decimal14字节123.456789012345，-1234567890.12345没有小数点时为：+/-79228162514264337593543950335，而小数点右边有28位数时为：+/-7.9228162514264337593543950335；最小的非零值为：+/-0.0000000000000000000000000001字节型Byte1字节123,0到255字符型String$变长：10字节加字符串长度定长：字符串长度中国，北京，12345字符型分为定长字符型与变长字符型，定长字符型表示的字符串长度为1到大约65,400，变长字符串的长度为0到大约20亿。数据类型关键字声明字符存储空间示例范围布尔型Boolean2字节True，FalseTrue或False日期型Date8字节100年1月1日到9999年12月31日变体型Variant表示数值：16字节表示字符串：22字节加字符串长度用变体型表示数值，最大可达Double的范围；用变体型表示字符串，与变长字符串等同。对象型Object4字节任何Object引用在程序运行时，那些用来保存能够随时改变的量被称为变量，变量通常用简单的字母或词汇表示，如x、a1、intC等。声明变量时由系统指派变量占用的内存空间。常量是在程序运行中不能改变的数据。8.2.3变量和常量任务解决过程：新建窗体：新建窗体并进入窗体的设计视图，在窗体内添加一个文本框控件、一个标签控件和一个命令按钮控件。已知圆的半径计算圆面积。任务8-3设置窗体及控件对象的属性。窗体属性名称属性值说明标题已知半径计算圆面积属性文本将显示在运行时窗体的标题栏内。文本框属性名称属性值说明名称txtR根据VisualBasic控件命名规范，标签控件名以英文字母txt开头。标签属性名称属性值说明名称lblArea标签控件的名称按照约定以“lbl”开头。边框样式实线默认的标签边框为“透明”，程序运行时看不到标签的边界。设置为“实线”后窗体运行时可以看到标签的轮廓。命令按钮属性名称属性值说明名称cmdCalculate命令按钮的名称按照约定以“cmd”开头。标题计算面积显示在命令按钮上面的文本。保存窗体，窗体名为“已知半径计算圆面积”。为命令按钮添加事件过程：给命令按钮“cmdCalculate”添加“单击”事件过程：PrivateSubcmdCalculate_Click()ConstPI=3.1415926DimrAsSingle,areaAsSingletxtR.SetFocusr=Val(txtR.Text)area=Round(PI*r^2,2)lblArea.Caption=圆面积为：+Str(area)EndSub运行窗体：打开“已知半径计算圆面积”窗体的“窗体视图”，在文本框内输入一个半径，单击“计算面积”命令按钮将在标签内显示出圆面积。1.变量的命名原则变量名必须以英文字母开头，变量名称中不能包含空格、句点（.）、惊叹号（!）、或@、&、$，#等字符，最长不能超过255个字符。变量名不能是VBA关键字。关键字是那些在VBA语言有特殊含义的词，是VBA语言的一部分，包括预定义的语句（如Dim、If、Sub、For）、函数（如sqr、len、val）和运算符（如Or、And）等。变量名在其有效范围内必须是唯一的。变量2.变量