第九章模块优秀课件.ppt

《第九章模块优秀课件.ppt》由会员分享，可在线阅读，更多相关《第九章模块优秀课件.ppt（108页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、第九章模块第1页，本讲稿共108页第第9章章 模模块块 模模块的基本概念的基本概念 过程及模程及模块分分类 VBA 程序程序设计基基础第2页，本讲稿共108页 模模块的基本概念的基本概念Access的表、的表、查询、窗体、窗体、报表和数据表和数据访问页不不能相互能相互驱动和和调用。使用模用。使用模块和宏可以将数据和宏可以将数据库中所中所有有对象象联系起来、系起来、统一管理，形成完整的数据一管理，形成完整的数据库系系统。通通过上一章上一章对宏的学宏的学习，我，我们了解到可以利了解到可以利用宏来用宏来执行一系列行一系列简单的操作。但是如果要的操作。但是如果要对数数据据库对象象进行更复行更复杂、更灵

2、活的控制，就需要通、更灵活的控制，就需要通过编程来程来实现。在。在Access中，中，编程是通程是通过模模块对象象实现的。利用模的。利用模块可以将各种数据可以将各种数据库对象象联结起来，从而使其构成一个完整的系起来，从而使其构成一个完整的系统。它的功。它的功能比宏更能比宏更强大，大，设计也更也更为灵活。灵活。第3页，本讲稿共108页模模块的基本概念的基本概念模模块是是Access的数据的数据库中的一个重中的一个重要要对象。象。模模块是由是由VBA（Visual Basic for Applications）语言言编写的程序的集写的程序的集合。是以函数合。是以函数过程（程（Function）或子

3、）或子过程（程（Sub）为单元的集合方式存元的集合方式存储。第4页，本讲稿共108页模模块的分的分类模模块可分成两种基本可分成两种基本类型：型：类模模块和和标准模准模块。类模模块类模模块是可以定是可以定义新新对象的模象的模块。新建。新建一个一个类模模块，也就是，也就是创建了一个新建了一个新对象。模象。模块中定中定义的的过程将程将变成成该对象的属性或方法。象的属性或方法。第5页，本讲稿共108页Access中的中的类模模块可以独立存在，可以独立存在，也可以与窗体和也可以与窗体和报表同表同时出出现。窗体。窗体和和报表模表模块是是类模模块的典型例子。窗的典型例子。窗体和体和报表模表模块通常都含有事件

4、通常都含有事件过程，程，该过程用于响程用于响应窗体或窗体或报表中的事件，表中的事件，可以使用事件可以使用事件过程来控制窗体或程来控制窗体或报表表的行的行为，以及它，以及它们对用用户操作的响操作的响应。第6页，本讲稿共108页类模模块：包含：包含类的定的定义（属性和方法（属性和方法）的模）的模块。类模模块有三种基本形式：窗体有三种基本形式：窗体类模模块、报表表类模模块和自定和自定义类模模块。类模模块也可脱离窗体或也可脱离窗体或报表而表而单独存独存在，在，这种种类模模块可在数据可在数据库窗口的模窗口的模块中中显示。示。第7页，本讲稿共108页 标准模准模块在整个数据在整个数据库中，可用的函数模中，

5、可用的函数模块和子程序称和子程序称为标准模准模块。标准模准模块包含通用包含通用过程和常用程和常用过程。程。通用通用过程是不与任何程是不与任何对象相关象相关联的的过程。常用程。常用过程是可以在数据程是可以在数据库任何地任何地方方执行的与其他行的与其他对象无关的象无关的过程。程。第8页，本讲稿共108页 将宏转换为模块将宏转换为模块 在数据库窗口在数据库窗口宏对象下宏对象下选择宏选择宏选择选择“工具工具”菜单下菜单下“将宏转换为将宏转换为vb”vb”。第9页，本讲稿共108页过程及模程及模块分分类（创建模建模块）1.1.模模块模模块是由是由过程程组成的，模成的，模块中的每一个中的每一个过程程都可以

6、由一个函数或一个子程序都可以由一个函数或一个子程序组成。成。2.2.过程程过程：将程：将VBA语言的声明和言的声明和语句集合在一起，句集合在一起，作作为一个命名一个命名单位的程序段（位的程序段（执行特定功能的行特定功能的语句句块）。它包含）。它包含许多多语句和方法，以句和方法，以执行特行特定的操作或定的操作或计算数算数值。第10页，本讲稿共108页过程的二种程的二种类型：型：子程序：子程序：执行一系列操作的行一系列操作的过程。程。函数函数过程：特殊的、能返回程：特殊的、能返回值的的Function过程。程。能否返回能否返回值，是，是过程和函数之程和函数之间最大的区最大的区别。第11页，本讲稿共

7、108页函数函数过程程 也称也称为Function过程，是一种能程，是一种能够返回具返回具体体值的的过程，返回的程，返回的值可以在表达式中使用。可以在表达式中使用。函数函数过程以关程以关键字字Function开始，并以开始，并以End Function语句作句作为结束。束。Public|Private Function函函数数名名称称（参参数数1 as 数数据据类类型型，参参数数2 as 数数据据类类型型）as 数据类型数据类型语句块语句块1Exit Function函数名函数名=函数将要返回的值函数将要返回的值语句块语句块1End FunctionPublic 所有模所有模块的所有其他的所有

8、其他过程都可程都可调用用Private 适用于同一模适用于同一模块中的其他中的其他过程程第12页，本讲稿共108页子子过程程：子子过程也称程也称为Sub过程，是程，是执行一行一项操作的操作的过程。它没有返回程。它没有返回值，子程序以，子程序以关关键字字Sub开始，并以开始，并以End Sub语句作句作为结束。束。使用过程的主要优点：写一个功能模使用过程的主要优点：写一个功能模块，必要时可多次调用，若模块有错误，块，必要时可多次调用，若模块有错误，改正之后，则程序中所有引用它的地方都改正之后，则程序中所有引用它的地方都得到维护。得到维护。第13页，本讲稿共108页子子过程格式：程格式：Publi

9、c|PrivateStatic Sub 子程序名子程序名()As 数据数据类型型 Exit Sub End Sub Public 所有模所有模块的所有其他的所有其他过程都可程都可调用用 Private 适用于同一模适用于同一模块中的其他中的其他过程程 Static 过程中的程中的变量在模量在模块打开期打开期间始始终有效有效第14页，本讲稿共108页在数据库窗口对象下，双击在数据库窗口对象下，双击“在设在设计视图中创建窗体计视图中创建窗体”，在窗体中添，在窗体中添加文本框，标签名称为加文本框，标签名称为“欢迎欢迎”，添加添加2 2个命令按钮，标题分别为个命令按钮，标题分别为“显显示示”和和“清除

10、清除”，然后选中，然后选中“显示显示”按钮，单击按钮，单击“属性属性”按钮，选择按钮，选择“事事件件”选项卡，单击选项卡，单击“单击单击”项中的项中的“”，在代码窗口中输入，在代码窗口中输入vbavba语句。语句。在代码窗口的对象框中选择在代码窗口的对象框中选择“清除清除”按钮（按钮（命令命令2 2），在该过程中输入），在该过程中输入vbavba语句。在代码窗口的对象框中选语句。在代码窗口的对象框中选择择“form”form”，在该过程中输入，在该过程中输入vbavba语句。语句。返回到窗体，单击窗体视图，分别返回到窗体，单击窗体视图，分别单击显示和清除按钮，看运行情况。单击显示和清除按钮，看

11、运行情况。例例1第15页，本讲稿共108页例例2 2：在模块对象下创建函数过程，计算球的体积。操作步骤：在模块对象下创建函数过程，计算球的体积。操作步骤如下：如下：在模块对象下，单击在模块对象下，单击“新建新建”按钮，打开新建模块窗口，单击按钮，打开新建模块窗口，单击“插入插入”菜单上菜单上“过程过程”，在过程对话框中选择类型为，在过程对话框中选择类型为“函数函数”范范围为围为“公共的公共的”，输入名称为，输入名称为“v”v”，单击，单击“确定确定”按钮。在函数按钮。在函数过程中填写过程中填写vbavba语句。语句。Public Function V(R As Single)As Single

12、 Public Function V(R As Single)As Single V V3.1416*R3*4/33.1416*R3*4/3End FunctionEnd Function单击单击“视图视图”菜单上菜单上“立即窗口立即窗口”，在立即窗口输入语句，在立即窗口输入语句 ：Print v(2)显示结果：显示结果：33.5104 计算半径为计算半径为2 2的球的体积。的球的体积。第16页，本讲稿共108页 VBA 程序程序设计基基础 面向面向对象程序象程序设计的基本概念的基本概念1.1.对象象在在VBA程序程序设计时，界面上的所有事物都可以，界面上的所有事物都可以称称为对象。每一个象。

13、每一个对象都有自己的属性、方法和事象都有自己的属性、方法和事件。用件。用户是通是通过属性、方法和事件来属性、方法和事件来处理理对象的。象的。第17页，本讲稿共108页属性和方法：描述了对象的性质和行为。属性和方法：描述了对象的性质和行为。引用：对象引用：对象.属性属性 或或 对象对象.方法方法 参数名表参数名表 对象的属性例：对象的属性例：label0.caption=“label0.caption=“学生成绩表学生成绩表”对象的方法例：对象的方法例：debug.print 2+3debug.print 2+3 DoCmd对象：对象：有许多方法，有许多方法，如如 Openform 打开窗体打开

14、窗体 例如：例如：DoCmd.Openform“学生登记学生登记”GotoControl 将焦点移到窗体上的一个控件将焦点移到窗体上的一个控件 SetFocus 将焦点移到窗体上的一个控件将焦点移到窗体上的一个控件 FindRecord 查找记录查找记录 RunCommand执行执行Access菜单和工具条上的命令菜单和工具条上的命令 2.对象的属性和方法对象的属性和方法 第18页，本讲稿共108页 打开当前数据库中的打开当前数据库中的“雇员雇员”窗体窗体 DoCmd.OpenForm Employees,Title=Sales Representative在立即窗口输入：在立即窗口输入：De

15、bug.print 2*3Debug.print 2*3结果为结果为 6 6方法的例子方法的例子省略的参数省略的参数方法方法窗体名窗体名标题名名第19页，本讲稿共108页3.事件事件 事件：对象可辨认的动作，如单击鼠标、按下某个键等事件：对象可辨认的动作，如单击鼠标、按下某个键等事件响应代码：若为一个事件编写一段事件响应代码：若为一个事件编写一段VBAVBA代码，则在事件发代码，则在事件发生时执行代码，完成指定的动作。生时执行代码，完成指定的动作。第20页，本讲稿共108页窗体中添加文本框和命令按钮，命令按钮属性中窗体中添加文本框和命令按钮，命令按钮属性中“单击单击”事件中添加事件中添加vba

16、vba代码，然后窗体视图查看结果。代码，然后窗体视图查看结果。Private Sub Private Sub 命令命令2_2_Click()Click()文本文本0.0.FontSize=20FontSize=20 End Sub End Sub第21页，本讲稿共108页 VBA编程环境编程环境工程窗口工程窗口选择对象选择对象属性窗口属性窗口选择对象选择对象的属性的属性代码窗代码窗口口选择选择事件事件1.1.进入入VBE编程程环境境第22页，本讲稿共108页2.VBA 窗口窗口 1)标准工具栏标准工具栏 视图视图Microsoft AccessMicrosoft Access按钮：切换按钮：切

17、换Access 2000Access 2000窗口窗口 插入按钮：插入模块或过程插入按钮：插入模块或过程 运行子过程运行子过程/用户窗体按钮：运行模块中的程序用户窗体按钮：运行模块中的程序 中断按钮：中断正在运行的程序中断按钮：中断正在运行的程序 重新设置按钮：结束正在运行的程序重新设置按钮：结束正在运行的程序 设置模式按钮：在设计模式和非设计模式之间切换设置模式按钮：在设计模式和非设计模式之间切换 工程资源管理器按钮：用于打开工程资源管理器工程资源管理器按钮：用于打开工程资源管理器 属性窗口按钮：用于打开属性窗口属性窗口按钮：用于打开属性窗口 对象浏览器按钮：用于打开对象浏览器对象浏览器按钮

18、：用于打开对象浏览器Microsoft AccseeMicrosoft Accsee插入模块插入模块运行子过程运行子过程/用户窗体用户窗体设计模式设计模式中断中断重新设计重新设计 工程资源管理器工程资源管理器 对象浏览器对象浏览器属性窗口属性窗口第23页，本讲稿共108页 3.工程、属性、代码窗口工程、属性、代码窗口 工程窗口：也叫工程资源管理器，工程窗口：也叫工程资源管理器，显示应用程序中用到的模块文件列表。显示应用程序中用到的模块文件列表。可控制代码窗口、对象窗口，以及对象可控制代码窗口、对象窗口，以及对象文件夹的显示。文件夹的显示。属性窗口：所选对象的属性列表。可属性窗口：所选对象的属性

19、列表。可“按字母序按字母序”和和“按分类序按分类序”查看属性，编辑查看属性，编辑这些对象的属性。这些对象的属性。在在属属性性窗窗口口显显示示AccessAccess类类对对象象的的方方法法：先先在在设设计计视视图图中中打打开开对对象象。再再双双击击工工程程窗窗口口上上的的一一个个模模块块或或类类，代代码码窗窗口口就就会会显显示示相相应应的指令和声明。的指令和声明。代码窗口：用于输入和编辑代码窗口：用于输入和编辑VBAVBA代码。代码。第24页，本讲稿共108页 4.在代码窗口中编程在代码窗口中编程 (三三)对象列表对象列表过程列表过程列表提示信提示信息自息自动显示示或或Ctrl+J F1：VB

20、A帮助窗口帮助窗口 F2：对象浏览器窗口对象浏览器窗口第25页，本讲稿共108页 常量、变量、运算符和表达式常量、变量、运算符和表达式 一、数据一、数据类型和数据型和数据库对象象在在 Visual Basic环境下境下进行行计算算时，常常需要，常常需要临时存存储数据。像大多数数据。像大多数编程程语言那言那样，Visual Basic使用使用变量来存量来存储值。变量有名字和数据量有名字和数据类型。型。变量的数据量的数据类型决定了如何型决定了如何将将这些些值存存储到到计算机的内存中。在声明算机的内存中。在声明变量量时也可指定它也可指定它的数据的数据类型，所有型，所有变量都具有数据量都具有数据类型，

21、以决定能型，以决定能够存存储哪哪种数据种数据类型。用型。用户可以定可以定义各种数据各种数据类型。型。Access中数据中数据类型的型的应用：声明用：声明过程中的程中的变量量,定定义表、表、函数的参数等。函数的参数等。VBA的数据的数据类型表型表 第26页，本讲稿共108页VBA主要数据类型主要数据类型 第27页，本讲稿共108页 数值型数据的符号：数值型数据的符号：整型整型%、长整型、长整型&、单精度型、单精度型!、双精度型、双精度型#例：例：10.33#100%10.33#100%布尔型数据的值：布尔型数据的值：两种值：两种值：TrueTrue和和FalseFalse，其他数值类型转换为布尔

22、型其他数值类型转换为布尔型时，时，0 0变成变成FalseFalse，其他值均为其他值均为TrueTrue。布尔型转换为其他布尔型转换为其他型时，型时，FalseFalse成为成为0 0，TrueTrue成为成为-1-1。日期型变量的值：日期型变量的值：日期值用日期值用#括起来，如括起来，如#2004/11/23#2004/11/23#Variant(Variant(变体变体)数据类型：数据类型：若未给变量指定数据类型，若未给变量指定数据类型，AccessAccess自动指定其为自动指定其为VariantVariant类型。类型。VariantVariant可包含除定长可包含除定长String

23、String数据及用户定义类型之外的任数据及用户定义类型之外的任何种类的数据。也可包含何种类的数据。也可包含EmptyEmpty、ErrorError、Nothing Nothing 及及NullNull特殊值。特殊值。第28页，本讲稿共108页%(%(Integer)、&(Long)、!(Single)、#(Double)、$(String)和和(Currency)。类型型说明符号使用明符号使用时是作是作为变量名的一部分，放在量名的一部分，放在变量名的最后一个字符。量名的最后一个字符。例如，例如，intX%是一个整型是一个整型变量；量；douY#是一个双精度是一个双精度变量；量；strZ$是

24、个字符串是个字符串变量。在使用量。在使用时不能将不能将类型型说明符号省略。如：明符号省略。如：intX%=1243 douY#=45665.456 strZ$=Access 第29页，本讲稿共108页二、二、变量变量Visual BasicVisual Basic使用变量来存储值。用来保存在程序运行期间使用变量来存储值。用来保存在程序运行期间可修改的数据。可修改的数据。变量名可随意定义，但不能与变量名可随意定义，但不能与VBAVBA关键词冲突，变量关键词冲突，变量的值可按需变化。变量必须先声明数据类型，然后才能使用。的值可按需变化。变量必须先声明数据类型，然后才能使用。1 1声明变量声明变量每

25、一个变量都必须在其使用的过程中事先声明。每一个变量都必须在其使用的过程中事先声明。声明变量的作用：指定变量的数据类型和作用域。声明变量的作用：指定变量的数据类型和作用域。未声明的变量默认为未声明的变量默认为VariantVariant类型。若要求在使用变量前必须类型。若要求在使用变量前必须声明，可进行设置。声明，可进行设置。声明一个变量用声明一个变量用DimDim语句，它的语法格式如下：语句，它的语法格式如下：Dim Dim 变量名变量名 As As 数据类型数据类型 语句中的语句中的“As As 类型类型”子句是可选的。如果使用了该子句，就子句是可选的。如果使用了该子句，就可以定义变量的数据

26、类型或对象类型。可以定义变量的数据类型或对象类型。第30页，本讲稿共108页使用使用DimDim语句来声明变量，其功能为声明变量，并为变量分配存储语句来声明变量，其功能为声明变量，并为变量分配存储空间。例如，空间。例如，DimDim MYName As StringMYName As StringDim s1 As String*50 Dim s1 As String*50 说明定长字符串变量可存放说明定长字符串变量可存放5050字符字符Dim x As IntegerDim x As Integer或或 Dim x%Dim x%声明了字符串变量声明了字符串变量MyNameMyName的的St

27、ing Sting。可给其赋值：可给其赋值：MyName=“MyName=“李红李红”赋值之后即可引用该变量：赋值之后即可引用该变量：MsgBox “MsgBox “姓名：姓名：”&”&MyNameMyName弹出消息框，显示：姓名：李红弹出消息框，显示：姓名：李红可在同一行内声明多个变量。例如，可在同一行内声明多个变量。例如，Dim A_Var,t1 As Boolean,D1 As DateDim A_Var,t1 As Boolean,D1 As Date其中其中A_VarA_Var的类型未指定类型。默认为的类型未指定类型。默认为VariantVariant。2条语句是等价的第31页，本

28、讲稿共108页变量的初始化：声明而未赋值的变量的值为：变量的初始化：声明而未赋值的变量的值为：数值变量初始化为数值变量初始化为0 0变长字符串为零长度串，定长字符串都填变长字符串为零长度串，定长字符串都填上零上零 VariantVariant变量初始化为变量初始化为 EmptyEmpty 第32页，本讲稿共108页2 2变量的命名原则变量的命名原则在在VBAVBA的的代代码码中中，过过程程、变变量量及及常常量量的的名名称称有有如如下下规定：规定：（l l）最长只能有最长只能有255255个字符。个字符。（2 2）必须用字母开头。）必须用字母开头。（3 3）可以包含字母、数字或下划线字符）可以包

29、含字母、数字或下划线字符“”。（4 4）不能包含标点符号或空格。）不能包含标点符号或空格。（5 5）不不能能是是Visual Visual BasicBasic关关键键字字。关关键键字字是是那那些些在在Visual Visual BasicBasic中中用用作作语语法法的的一一部部分分的的词词，包包括括预预定定义义语语句句（如如IfIf和和LoopLoop）、函函数数（如如LenLen和和AbsAbs）和和运运算算符符（如如OrOr和和Mod Mod）等等。等等。第33页，本讲稿共108页在在VBA编程窗口编程窗口 选择：工具选择：工具|选项选项数据库所有新模块中自动数据库所有新模块中自动添加

30、添加Option Explicit语句，语句，功能为：强制对模块中的功能为：强制对模块中的所有变量进行显式声明。所有变量进行显式声明。也可直接将语句输入到模也可直接将语句输入到模块的声明节。块的声明节。3.强制对模块中的所有变量进行显式声明的设置。强制对模块中的所有变量进行显式声明的设置。第34页，本讲稿共108页4 4隐含型含型变量量没有直接定没有直接定义，借用一个，借用一个值指定指定给变量名的方量名的方式来建立的式来建立的变量称量称为隐含型含型变量。量。例：例：s1=123这种种变量名称后没有附加量名称后没有附加类型型说明字符来指明的明字符来指明的隐含型含型变量的数据量的数据类型型为默默认

31、的的Variant类型。型。若在命令名称后加附加若在命令名称后加附加类型型说明明则指定了改指定了改变量的数据量的数据类型。型。例：例：s1%=123 s1则为整形整形变量。量。第35页，本讲稿共108页5.变量的作用域量的作用域变量的范量的范围确定了能确定了能够使用使用该变量的那部分代量的那部分代码。一。一旦超出了作用范旦超出了作用范围，就不能引用它的内容。，就不能引用它的内容。变量的作用范量的作用范围是在模是在模块中声明确定的。声明中声明确定的。声明变量量时可以使用三种不同可以使用三种不同的作用范的作用范围：Public、Private、Static和和Dim。变量的作用域决定了量的作用域决

32、定了这个个变量是被一个量是被一个过程使用程使用还是一个模是一个模块中的所有中的所有过程使用，程使用，还是被数据是被数据库中的中的所有所有过程使用。程使用。第36页，本讲稿共108页(1)(1)过程内部使用的程内部使用的变量量 过程程级变量量只只有有在在声声明明它它们的的过程程中中才才能能被被识别，也也称称它它们为局部局部变量。用量。用Dim或者或者Static关关键字来声明它字来声明它们。例如：。例如：Dim V1 As Integer或或Static V1 As Integer在在整整个个应用用程程序序运运行行时，用用Static声声明明的的局局部部变量量中中的的值一一直直存在，而用存在，而

33、用Dim声明的声明的变量只在量只在过程程执行期行期间才存在。才存在。（2 2）模）模块内部使用的内部使用的变量量 模模块级变量量对该模模块的的所所有有过程程都都可可用用，但但对其其他他模模块的的代代码不不可可用用。可可在在模模块顶部部的的声声明明段段用用Private关关键字字声声明明变量量，从而建立模从而建立模块级变量。量。例如；例如；Private V1 As Integer第37页，本讲稿共108页在在模模块级，Private和和Dim之之间没没有有什什么么区区别，但但Private更更好好些些，因因为很很容容易易把把它它和和Public区区别开开来来，使使代代码更容易理解。更容易理解。

34、（3 3）所有模）所有模块使用的使用的变量量为了了使使模模块级的的变量量在在其其他他模模块也也有有效效，可可用用Public关关键字字声声明明变量量。公公用用变量量中中的的值可可用用于于应用用程程序序的的所所有有过程程。和和所所有有模模块级变量量一一样，也也在在模模块顶部部的声明来声明公用的声明来声明公用变量。量。例如：例如：Public V1 As Integer用用户不不能能在在过程程中中声声明明公公用用变量量，而而在在模模块中中声声明明的的变量量可用于所有模可用于所有模块。第38页，本讲稿共108页 三、数据类型之间的转换三、数据类型之间的转换 例：下列程序中将双精度型变量转换成字符串型

35、。例：下列程序中将双精度型变量转换成字符串型。Dim S1 As Double Dim S1 As Double Dim S2 As String Dim S2 As String S1=437.327 S1 S1=437.327 S1变量赋值为变量赋值为437.327437.327 S2=CStr(S1)S1 S2=CStr(S1)S1变量值转换为字符变量值转换为字符“437.327”“437.327”第39页，本讲稿共108页四、用户定义的数据类型四、用户定义的数据类型 应用过程中可以包括一个或多个标准数据类型的数应用过程中可以包括一个或多个标准数据类型的数据类型，即是用户定义数据类型。用

36、户自定义类型可以据类型，即是用户定义数据类型。用户自定义类型可以是任何用是任何用TypeType语句定义的数据类型。用户自定义类型可包含一语句定义的数据类型。用户自定义类型可包含一个或多个基本数据类型的数据元素、数组或一个先前定义的用个或多个基本数据类型的数据元素、数组或一个先前定义的用户自定义类型。户自定义类型。用户定义数据类型可以在用户定义数据类型可以在Type End TypeType End Type关键字间关键字间定义，定义格式为：定义，定义格式为：Type Type 数据类型名数据类型名 As As As As End TypeEnd Type第40页，本讲稿共108页例 实现方法

37、如下：在数据库窗口模块对象下，单击在数据库窗口模块对象下，单击“新建新建”按钮按钮输入输入 定义学生信息数据类型定义学生信息数据类型选择选择“插入插入”菜单菜单中中“过程过程”在对话框中选择在对话框中选择“子程序子程序”、“公共的公共的”或或“函函数数”，输入过程名为，输入过程名为cg1在过程中添加语句在过程中添加语句单击单击“运行运行”按钮按钮打开打开“立即窗口立即窗口”查看结果。查看结果。第41页，本讲稿共108页补充：补充：*在在自自定定义义数数据据类类型型时时应应注注意意：Type语语句句只只能能在在模模块块级级使使用用。可可以以在在Type前前面面加加上上Public或或Privat

38、e来来声声明明自自定定义义数数据据类类型型的的作作用用域域，这这与与其其它它VBA基基本本数数据据类类型型相相同同。声声明明自自定定义义数数据据类类型型的的域域时时，如如果果使使用用字字符符串串类类型型，最好定长字符串，如最好定长字符串，如N1 As String*l0。使用使用Type语句声明了一个用户自定义类型后，就语句声明了一个用户自定义类型后，就可以在该声明范围内的任何位置声明该类型的变量。可可以在该声明范围内的任何位置声明该类型的变量。可以使用以使用Dim、private、Public、ReDim或或Static来声明用来声明用户自定义类型的变量。户自定义类型的变量。第42页，本讲稿

39、共108页五、数组五、数组 1.1.数组的声明和引用数组的声明和引用数组：表示一组具有相同数据类型的值，称为数组元素数组：表示一组具有相同数据类型的值，称为数组元素变量。数组变量由变量名和数组下标构成。变量。数组变量由变量名和数组下标构成。数组的声明：一般使用数组的声明：一般使用DimDim语句声明（定义）数组。语句声明（定义）数组。数组格式：数组格式：Dim Dim 数组名数组名(下标下标1 1下限下限 to to 下标下标1 1上限上限 AS AS 数据类数据类型型,下标下标2 2下限下限 to to 下标下标2 2上限上限)AS AS 数据类型数据类型 说明：说明：默认数组下标从零开始。

40、例，默认数组下标从零开始。例，Dim S1(3)As Integer Dim S1(3)As Integer 数组变量数组变量S1S1，共有共有 4 4 个元素，个元素，S1(0)S1(0)、S1(1)S1(1)、S1(2)S1(2)、S1(3)S1(3)。第43页，本讲稿共108页可使其从其他可使其从其他值开始。在模开始。在模块顶部添加部添加 Option Base 语句。句。例如，例如，Option Base 1 Dim S1(3)As Integer声明数声明数组变量量S1共有共有33个元素，下个元素，下标起始起始值为1 1，S1(1)、S1(2)、S1(3)。也可用也可用To子句子句对

41、数数组下下标声明声明例如，例如，Dim S1(1 to 3)As Integer Dim x(5 to 7)As long分分别指定指定S S数数组的下的下标从从1 1开始，开始，X X数数组下下标从从5 5开始。开始。第44页，本讲稿共108页多维数组多维数组：多个下标。：多个下标。VBAVBA中中最多可到最多可到6060维维。例如例如:Dim N(1 To 2,1 To 3)As SingleDim N(1 To 2,1 To 3)As Single声明了一个声明了一个2 2乘乘3 3的两维数组，有的两维数组，有6 6个数组元素个数组元素。可将其想像可将其想像成矩阵，第一个参数为行号，第二

42、个为列号。成矩阵，第一个参数为行号，第二个为列号。S(1,1),S(1,2),S(1,3),S(2,1),S(2,2),S(2,3)S(1,1),S(1,2),S(1,3),S(2,1),S(2,2),S(2,3)动态数组定义和使用的方法：动态数组定义和使用的方法：Dim new1()an longDim new1()an longReDim new1(3,3)ReDim new1(3,3)第45页，本讲稿共108页数组引用实例：数组引用实例：第46页，本讲稿共108页数数组元素的引用：数元素的引用：数组元素用数据名和下元素用数据名和下标引用。引用。例如例如 Dim S(6)As Intege

43、r,N1 As Integer For N1=0 to 6 S(N1)=20 Next六、数据六、数据库对象象变量量 Form!窗体名称窗体名称!控件名称控件名称.属性名称属性名称 Reports!报表名称表名称!控件名称控件名称.属性名称属性名称七、七、变量量标识命名法命名法则第47页，本讲稿共108页八、符号常量八、符号常量常量就是在常量就是在应用程序的运行中不能改用程序的运行中不能改变的数的数值固定的固定的资料料对象。在用象。在用VBA进行程序行程序设计时，使用常量可以增加，使用常量可以增加代代码的可的可读性和可性和可维护性。性。如果在代如果在代码中中经常用到一些很常用到一些很长的数字，

44、它的数字，它们没有明确没有明确的意的意义，并且很，并且很难记忆。这时，可以，可以给这样的数字取一个有的数字取一个有实际意意义的名字，以取代程序中的具体数的名字，以取代程序中的具体数值。另外，如果要。另外，如果要对数数字字进行修改，只要修改常量的行修改，只要修改常量的值就可以了，而不需要就可以了，而不需要对所用到所用到的数的数值一一一一进行修改。行修改。符号常量可以用符号常量可以用Const语句句创建，并且可在模建，并且可在模块中使用。中使用。第48页，本讲稿共108页常量与变量一样也有常量与变量一样也有3 3个范围级别：过程级别、私有模个范围级别：过程级别、私有模块级别和公共模块级别。块级别和

45、公共模块级别。在声明常量的同时，也设定了它的范围。用户可以在声明常量的同时，也设定了它的范围。用户可以使用使用ConstConst语句定义常量，语法结构如下：语句定义常量，语法结构如下：作用范围作用范围 Const Const 常量名常量名 As As 数据类型数据类型 表达式表达式例如：例如：Public Const PI=3.1415926 Public Const PI=3.1415926 声明一个在所有模声明一个在所有模块中使用的常量块中使用的常量PIPI说明：这个值不能像上面例子中的变量那样改变或赋予说明：这个值不能像上面例子中的变量那样改变或赋予新值。新值。如果用户在定义常量时不加

46、如果用户在定义常量时不加PublicPublic或或PrivatePrivate，则默认则默认为私有。为私有。第49页，本讲稿共108页其中常量名的命名规则与变量名的命名规则是一样的。其中常量名的命名规则与变量名的命名规则是一样的。语句中的语句中的“表达式表达式”是由数值常量或字符串常量以及运算符是由数值常量或字符串常量以及运算符组成的。组成的。九、系统常量九、系统常量 系统定义常量包括系统定义常量包括3 3个：个：TrueTrue、FalseFalse和和NullNull。用户用户可以在可以在 AccessAccess中的任何地方使用系统定义的常量。中的任何地方使用系统定义的常量。十、内部常

47、量十、内部常量 内部常量是内部常量是AccessAccess或或VBAVBA的一部分，内部常量是在的一部分，内部常量是在AccessAccess或或VBAVBA的类型库中定义的。的类型库中定义的。AccessAccess或或VBAVBA包含了许多包含了许多预定义的内部常量。所有的内部常量都包含在类型库预定义的内部常量。所有的内部常量都包含在类型库中，只有在模块中引用了常量，被引用的常量才会装中，只有在模块中引用了常量，被引用的常量才会装到内存中。要查看这些常量可以使用到内存中。要查看这些常量可以使用AccessAccess中的对象浏中的对象浏览器。览器。第50页，本讲稿共108页十一十一、运算

48、符运算符1.1.算算术运算符运算符算算术运算符是常用的运算符，用来运算符是常用的运算符，用来执行行简单的算的算术运运算。算。VBA提供了提供了8 8个算个算术运算符，表列出了运算符，表列出了这些算些算术运算运算符。符。在在8 8个算个算术运算符中，除取运算符中，除取负（-）是）是单目运算符外，目运算符外，其它均其它均为双目运算符。加（双目运算符。加（+），减（），减（-），乘（），乘（*），取），取负（-）、取余）、取余MOD等。等。第51页，本讲稿共108页第52页，本讲稿共108页2.2.关系运算符与关系表达式关系运算符与关系表达式 关系运算符也称比关系运算符也称比较运算符，用来运算符，用

49、来对两个表达式的两个表达式的值进行比行比较，比，比较的的结果是一个果是一个逻辑值，即真（，即真（True）或假或假（False）。）。用关系运算符用关系运算符连接两个算接两个算术表达式所表达式所组成的表达式叫成的表达式叫做关系表达式。做关系表达式。VBA提供了提供了6 6个关系运算符，如表所示。个关系运算符，如表所示。在立即窗口练习关系运算符中例如运算第53页，本讲稿共108页3.3.逻辑运算符运算符逻辑运运算算也也称称布布尔运运算算，由由逻辑运运算算符符连接接两两个个或或多多个个关关系式，系式，组成一个布成一个布尔表达式。表达式。VBA的的逻辑运算符有与运算符有与 AND、或或OR、非非NO

50、T运运算。算。在立即窗口在立即窗口练习例如中运算。例如中运算。第54页，本讲稿共108页4.4.连接运算符连接运算符 字字符符串串连连接接（&）用用来来连连接接多多个个字字符符串串（字字符符串串相相加）。例如：加）。例如：A$=MyA$=MyB$=HomeB$=HomeC$=A$+B$C$=A$+B$运算结果为：变量运算结果为：变量C$C$的值为的值为 MyHomeMyHome。在在VBAVBA中中，“+”“+”既既可可用用作作加加法法运运算算符符，还还可可以以用用作作字字符符串串连连接接符符，但但“&”“&”专专门门用用作作字字符符串串连连接接运运算算符符，其其作作用用与与“+”“+”相相同