1、ACCESSACCESS数据库应用数据库应用Compute Center,Qiqihar University ACCESSACCESS数据库应用数据库应用ACCESSACCESS数据库应用数据库应用Basic语言语言Visual可视化的程序设计可视化的程序设计数据库的移植数据库的移植建立用户自定义函数建立用户自定义函数ACCESSACCESS数据库应用数据库应用独立程序模块独立程序模块“数据库数据库”窗口窗口“模块模块”对象选项对象选项“新建新建”按钮按钮 菜单栏菜单栏“工具工具”“宏宏”“Visual Basic编辑器编辑器”命令项命令项绑定型程序模块绑定型程序模块标准工具栏、工程窗口、属
2、性窗口标准工具栏、工程窗口、属性窗口代码窗口代码窗口操作演示ACCESSACCESS数据库应用数据库应用对象浏览器对象浏览器立即窗口立即窗口本地窗口本地窗口监视窗口监视窗口ACCESSACCESS数据库应用数据库应用ACCESSACCESS数据库应用数据库应用VBAVBADim X As IntegerACCESSACCESS数据库应用数据库应用ACCESSACCESS数据库应用数据库应用直接直接常量常量，如：，如：344、3.14159、-23等；等；符号常量，如：符号常量，如：const pi=3.14；固有常量，如：固有常量，如：acForm、adAddNew、vbCuruency等；等
3、；系统定义常量，如系统定义常量，如True、False、Null等。等。VBAconst 符号常量名符号常量名=常数常数ACCESSACCESS数据库应用数据库应用VBA使用类型符定义，如：使用类型符定义，如：BookNumber%=1234 【例例8.6】使用使用Dim语句定义，如：语句定义，如：Dim I As integer 【例例8.7】使用使用DefType语句，如：语句，如：DefInt a,b,c,e-h 【例例8.8】：Sub ConstSample()Const PI As Single=3.1415926 PI=3.14 错误，PI的值不能改变 r%=5 S!=PI*r2E
4、nd SubACCESSACCESS数据库应用数据库应用ACCESSACCESS数据库应用数据库应用+加、加、-减减 、*乘乘 、/除除 整除、整除、MOD求余求余、乘方乘方例如：例如：3+5、5-4、5*4、4/6 43=1、7 MOD 4=3 、23=8-4+3*6 MOD 5(24)ACCESSACCESS数据库应用数据库应用大于、大于、小于、小于、=等于、等于、不等于不等于=大于等于、大于等于、6 （true 或或 1）4-20 （false 或或 0）ACCESSACCESS数据库应用数据库应用And逻辑与、逻辑与、OR逻辑或、逻辑或、Not逻辑非逻辑非真（真（true或或-1表示）
5、或表示）或 假（假（false或或0表示）表示）ACCESSACCESS数据库应用数据库应用AndTrue falseTrue falseTrue falseFalse falseOrTrue falseTrue falseTrue TrueTrue falseNotTrue falseFalse TrueACCESSACCESS数据库应用数据库应用+：连接字符串：连接字符串&：可以将不同类型变量连接成字符串：可以将不同类型变量连接成字符串 a$=“123”：b$=“abc”c$=a$+b$(或或c$=a$&b$)则则C$的值为的值为“123abc”ACCESSACCESS数据库应用数据库应用
6、!对象引用符对象引用符.对象属性引用符对象属性引用符Forms!学生成绩单学生成绩单 打开学生成绩单窗体打开学生成绩单窗体Command1.Caption引用命令按钮引用命令按钮Command1的的Caption属性属性ACCESSACCESS数据库应用数据库应用(-b+Sqr(b2-4*a*c)/(2*a)括号要匹配括号要匹配乘号不能省略乘号不能省略表达式从左到右书写表达式从左到右书写 acabb242操作演示ACCESSACCESS数据库应用数据库应用ACCESSACCESS数据库应用数据库应用例如：求例如：求Sin(30)VBA表达式为：表达式为：Sin(3.14*30/180)数值型函
7、数数值型函数字符串函数字符串函数日期日期/时间函数时间函数类型转换函数类型转换函数ACCESSACCESS数据库应用数据库应用5.数组数组是由一组具有相同数据类型的变量构成数组是由一组具有相同数据类型的变量构成的集合。的集合。数组定义格式为：数组定义格式为：Dim 数组名数组名(下标下界下标下界 to 下标上界限下标上界限，下标下界下标下界 to 下标上界限下标上界限)As 数据类型数据类型例如例如【例例8.9】Dim A(3)as IntegerDim B(3,3)as Integer注意：注意：Option Base n 的作用的作用A(0)A(1)A(2)0 1 20 1 201 2B(
8、0,1)ACCESSACCESS数据库应用数据库应用数组的类型按数组元素个数是否可变分为：按数组元素个数是否可变分为：固定数组固定数组动态数组动态数组动态数组的定义方法：动态数组的定义方法：先使用先使用来声明数组来声明数组再用再用来指定数组元素个数来指定数组元素个数加保留字加保留字 来保留以前的值来保留以前的值否则，使用否则，使用ReDim后，数组元素的值会被重新初始化为默后，数组元素的值会被重新初始化为默认值。认值。ACCESSACCESS数据库应用数据库应用数组的使用数组的赋值数组的赋值例：定义动态数组，并求各元素的和。例：定义动态数组，并求各元素的和。Private sub SumArr
9、ay()Private sub SumArray()Dim S,A()as integer Dim S,A()as integer Redim A(2)Redim A(2)A(0)=1:A(1)=2 A(0)=1:A(1)=2 Redim preserve A(3)Redim preserve A(3)A(2)=3 A(2)=3 S=A(0)+A(1)+A(2)S=A(0)+A(1)+A(2)End SubEnd Sub如果去掉如果去掉preservepreserve关键词结果会如何关键词结果会如何ACCESSACCESS数据库应用数据库应用小结本部分主要介绍了本部分主要介绍了VBA及其编程环
10、境、及其编程环境、VBA的基本数据类型、常量和变量、运算符与表的基本数据类型、常量和变量、运算符与表达式达式、常用内置函数的使用方法和数组的基、常用内置函数的使用方法和数组的基本概念。本概念。其中，重点内容是其中，重点内容是VBA的基本数据类型和运的基本数据类型和运算符与表达式算符与表达式；难点内容是常用内置函数的；难点内容是常用内置函数的使用方法和数组的基本概念。使用方法和数组的基本概念。ACCESSACCESS数据库应用数据库应用课堂练习课堂练习课堂练习1、VBE窗口的基本组成及其打开方法？窗口的基本组成及其打开方法？2、常量与变量的区别？、常量与变量的区别？3、利用、利用VBA语法书写表
11、达式？语法书写表达式？cabb42ACCESSACCESS数据库应用数据库应用ACCESSACCESS数据库应用数据库应用 VBA程序语句有自己的书写格式，主要规定如下：程序语句有自己的书写格式，主要规定如下：不区分字母的大小写。不区分字母的大小写。在书写标点符号和括号时，要用西文格式。在书写标点符号和括号时，要用西文格式。在语句中的关键字的首字母均转换成大写，其余字母转换在语句中的关键字的首字母均转换成大写，其余字母转换成小写。成小写。自定义的变量和过程名，以第一次定义的格式为准。自定义的变量和过程名，以第一次定义的格式为准。续行的行尾加上续行符（空格续行的行尾加上续行符（空格+下划线下划线
12、“_”_”）。）。在一行上写多条语句，语句间用冒号在一行上写多条语句，语句间用冒号“:”:”分隔。分隔。输入一行语句并按输入一行语句并按EnterEnter键，键，VBAVBA会自动进行语法检查，会自动进行语法检查，如果语句存在错误，该行代码以红色提示（或伴有错误信如果语句存在错误，该行代码以红色提示（或伴有错误信息提示）。息提示）。ACCESSACCESS数据库应用数据库应用2.程序的功能是靠执行语句来实现的程序的功能是靠执行语句来实现的VBA中的几个常用的基本语句中的几个常用的基本语句注释语句注释语句 声明语句声明语句 Option语句语句 赋值语句赋值语句 With语句语句 On Err
13、or语句语句 ACCESSACCESS数据库应用数据库应用注释语句注释语句、声明语句和option语句注释语句注释语句 使用使用Rem语句或用单引号语句或用单引号“”实现实现声明语句声明语句声明语句用于命名和定义过程、变量、数组或常量声明语句用于命名和定义过程、变量、数组或常量例如，例如，dim a as integeroption语句语句Option语句在模块的开始部分使用，用于对环境状态进语句在模块的开始部分使用，用于对环境状态进行设置。行设置。Option ExplicitOption Base 0|1例如：例如：Str1=图书馆借阅管理系统图书馆借阅管理系统 Str1变量记下图书馆借阅
14、管理系统的名称变量记下图书馆借阅管理系统的名称Str2=Access数据库基础教程数据库基础教程 Rem Str2变量记下变量记下Access数据库基础教程数据库基础教程字符串字符串ACCESSACCESS数据库应用数据库应用赋值语句赋值语句 功能：给变量或常量指定一个值或表达式。功能：给变量或常量指定一个值或表达式。格式：格式：let 变量名变量名=表达式表达式对象名对象名.属性名属性名=表达式（若对象名省略，则默认对象为表达式（若对象名省略，则默认对象为当前窗体或报表）当前窗体或报表）【例例8.15】赋值语句举例赋值语句举例Sub program_clause()BookName=Acce
15、ss数据库基础教程 BookPrice=23.40 Let BookNumber=1200 BookTotalPrice=BookNumber*BookPrice Form1.Caption=图书馆借阅管理系统 Text1.text=Text2.textEnd SubACCESSACCESS数据库应用数据库应用With语句With语句对象执行一系列的语句，而不用重复指出对象的名称。对象执行一系列的语句，而不用重复指出对象的名称。格式：格式：With 对象对象.语句语句 End With【例例8.16】改变改变Command1按钮的属性。按钮的属性。Sub program2()With Comm
16、and1.Caption=确定.Top=500.Enabled=True.FontSize=14 End WithEnd SubACCESSACCESS数据库应用数据库应用On Error语句语句常见的错误主要发生在以下常见的错误主要发生在以下3个方面：个方面：语法错误语法错误运行错误运行错误逻辑错误逻辑错误构造错误陷阱的常用语句：构造错误陷阱的常用语句：On Error GoTo On Error GoTo 标号标号 On Error Resume Next On Error GoTo 0Err对象对象Error()函数和函数和Error语句语句【例8.17】错误捕捉与处理举例。Privat
17、e Sub Myproc()On Error GoTo ErrlabelErrlabel：End SubACCESSACCESS数据库应用数据库应用使用文本框使用文本框使用函数使用函数InputBox使用文本框使用文本框使用函数使用函数MsgBoxACCESSACCESS数据库应用数据库应用表示华氏温度。表示摄氏温度，其中，FC3259CF操作演示ACCESSACCESS数据库应用数据库应用表达式语句非0=0ACCESSACCESS数据库应用数据库应用的值。计算0150122xxxxxxy操作演示ACCESSACCESS数据库应用数据库应用操作演示ACCESSACCESS数据库应用数据库应用表
18、达式语句组1语句组2非0=0ACCESSACCESS数据库应用数据库应用操作演示ACCESSACCESS数据库应用数据库应用操作演示ACCESSACCESS数据库应用数据库应用利用模块的过程，输入三个数，按由小到大顺序排序，输利用模块的过程，输入三个数，按由小到大顺序排序，输出显示排序后的数。出显示排序后的数。将三个数分别输入到三个文本框中，单击将三个数分别输入到三个文本框中，单击“排序排序”按钮后，按钮后，三个数按由大到小的顺序排序；单击三个数按由大到小的顺序排序；单击“重新输入重新输入”按钮后，按钮后，清空文本框，以便重新输入。清空文本框，以便重新输入。完成步骤：完成步骤：创建界面创建界面
19、 设置控件属性设置控件属性 编写代码编写代码操作演示ACCESSACCESS数据库应用数据库应用ACCESSACCESS数据库应用数据库应用ACCESSACCESS数据库应用数据库应用ACCESSACCESS数据库应用数据库应用Command1_Click()事件过程代码事件过程代码 接收数据接收数据 比较数据并排序比较数据并排序 输出数据输出数据Command2_Click()事件过程代码事件过程代码 清空文本框清空文本框ACCESSACCESS数据库应用数据库应用ACCESSACCESS数据库应用数据库应用ACCESSACCESS数据库应用数据库应用k语句组1语句组2语句组i语句组nk=k
20、2k=k1k=knk=ki.ACCESSACCESS数据库应用数据库应用如：case 1,3,5 表示1，3，5三个数如：case 3 to 5 表示3到5的数如：case Is3 表示大于3的所有数ACCESSACCESS数据库应用数据库应用创建一个窗体，包括：两个标签、两个文本框、创建一个窗体，包括：两个标签、两个文本框、两个命令按钮。两个命令按钮。输入货物吨数时，单击输入货物吨数时，单击“计算计算”按钮，显示出按钮，显示出运费；单击运费；单击“清除清除”按钮，清空两个文本框。按钮，清空两个文本框。xxxxxxy505050107010100操作演示ACCESSACCESS数据库应用数据库
21、应用 ACCESSACCESS数据库应用数据库应用循环变量赋初值；循环变量赋初值；循环变量与终值比较，即：循环变量是否超过终值？若超过，则终止循环变量与终值比较，即：循环变量是否超过终值？若超过，则终止循环；若没超过，则执行循环体，然后，循环变量增加一个步长。循环；若没超过，则执行循环体，然后，循环变量增加一个步长。ACCESSACCESS数据库应用数据库应用ACCESSACCESS数据库应用数据库应用格式格式2 2：Do While Do While LoopLoop格式格式3 3：Do Until Do Until LoopLoop格式格式4 4：Do Do Loop While Loop
22、 While ACCESSACCESS数据库应用数据库应用ACCESSACCESS数据库应用数据库应用格式：格式：While 条件条件 Wend功能：功能：当条件为真时，执行循环体中的语句，遇到当条件为真时，执行循环体中的语句，遇到Wend时，程时，程序跳转到序跳转到While处，继续判断条件，直到条件为假，退出处，继续判断条件，直到条件为假，退出循环，执行循环，执行Wend后的语句。后的语句。【例例8.27】求求N！。！。ACCESSACCESS数据库应用数据库应用【例8.27】求N！程序代码如下：程序代码如下：Public Sub Public Sub 阶层阶层N()N()Dim n,i
23、As Integer Dim n,i As Integer n=InputBox(n=InputBox(请输入一个整数：请输入一个整数：)i=1 i=1 total=1 total=1 While i=n While i=n total=total total=total*i i i=i+1 i=i+1 Wend Wend MsgBox N MsgBox N的阶层为：的阶层为：&total&totalEnd SubEnd SubACCESSACCESS数据库应用数据库应用格式：格式：GoTo 标号标号功能：功能：程序执行过程中，遇到程序执行过程中，遇到GoTo语句，会无条件地转到其后语句，会无
24、条件地转到其后的的“标号标号”位置，并从该位置继续执行程序。位置，并从该位置继续执行程序。说明：说明：标号需英文开头，并后加标号需英文开头，并后加“:”一般与一般与if语句配合使用语句配合使用【例例8.28】求求1100之和。之和。ACCESSACCESS数据库应用数据库应用【例8.28】求1100之和。程序代码如下：程序代码如下：Public Sub cc()Public Sub cc()Dim i,sum1 As IntegerDim i,sum1 As Integersum1=0sum1=0i=1i=1label:label:sum1=sum1+isum1=sum1+i i=i+1 i=
25、i+1If i=100 ThenIf i=100 ThenGoTo labelGoTo labelEnd IfEnd IfMsgBox sum1MsgBox sum1End SubEnd SubACCESSACCESS数据库应用数据库应用 格式：格式：For For 循环变量循环变量=初值初值 To To 终值终值step step 步长值步长值 For For 循环变量循环变量=初值初值 To To 终值终值step step 步长值步长值 Exit For Exit For Next Next 循环变量循环变量 Exit For Exit For Next Next 循环变量循环变量 Wh
26、ile While 条件条件 WendWendACCESSACCESS数据库应用数据库应用【例8.30】输出正三角形 程序代码如下：程序代码如下：Private Sub Private Sub 三角形三角形()()For i=1 To 8 For i=1 To 8 For j=1 To 8-i For j=1 To 8-i Debug.Print ;Debug.Print ;在立即窗口输出在立即窗口输出 Next j Next j For k=1 To 2 For k=1 To 2*i-1 i-1 Debug.Print Debug.Print*;Next k Next k Debug.Pri
27、nt Debug.Print Next i Next iEnd SubEnd SubACCESSACCESS数据库应用数据库应用小结本部分主要讲述了本部分主要讲述了VBA的基本语句和基本的的基本语句和基本的语句控制结构，主要包括顺序、选择、循环语句控制结构，主要包括顺序、选择、循环三种。三种。其中，重点内容是选择和循环结构；难点内其中，重点内容是选择和循环结构；难点内容是循环结构。容是循环结构。ACCESSACCESS数据库应用数据库应用课堂练习课堂作业课堂作业1、Access VBA有哪些程序控制语句？有哪些程序控制语句？2、选择结构的几种形式？、选择结构的几种形式？3、for循环的结构？循
28、环的结构？4、do循环的循环的5种格式？彼此之间的区别？种格式？彼此之间的区别？ACCESSACCESS数据库应用数据库应用类模块类模块标准模块标准模块ACCESSACCESS数据库应用数据库应用Sub 过程（子过程）过程（子过程）事件过程事件过程Function 过程（函数）过程（函数）ACCESSACCESS数据库应用数据库应用Private|Public|StaticSub (参数表参数表)语句块语句块End SubCall 过程名（过程名（实际参数表实际参数表）直接使用过程名调用直接使用过程名调用 ACCESSACCESS数据库应用数据库应用为窗体、报表或控件的事件来编写事件程序，这样
29、当该事为窗体、报表或控件的事件来编写事件程序，这样当该事件被引发时便会执行其事件程序来完成所需的处理。件被引发时便会执行其事件程序来完成所需的处理。方法一：利用窗体的控件中的事件标签方法一：利用窗体的控件中的事件标签方法二：利用方法二：利用“视图视图”菜单中的菜单中的“代码代码”命令命令操作演示ACCESSACCESS数据库应用数据库应用Private|Public|StaticFunction (参数表参数表)As类型类型 End Function与使用与使用VBA内部函数相同内部函数相同ACCESSACCESS数据库应用数据库应用subFunctionACCESSACCESS数据库应用数据
30、库应用3.参数传递 在调用过程中，主调过程和被调过程之间的在调用过程中，主调过程和被调过程之间的数据传递。即主调过程的数据传递。即主调过程的传递给被调过传递给被调过程的程的，然后执行被调过程。，然后执行被调过程。实参向形参的数据传递有实参向形参的数据传递有2种方式：种方式：值传递（值传递（ByVal）地址传递（地址传递（ByRef）*说明：说明：值传递时，形参的变化不影响实参；值传递时，形参的变化不影响实参；地址传递时，形参与实参使用相同的存储单元。地址传递时，形参与实参使用相同的存储单元。ACCESSACCESS数据库应用数据库应用【例8.34】参数传递示例问题描述：问题描述：创建有参子过程
31、创建有参子过程Test()，通过主调过程，通过主调过程Main_Click（）调（）调用，观察实参值的变化。用，观察实参值的变化。程序代码：程序代码：被调子过程Test()Sub Test(ByRef x As Integer)形参x说明为传址形式的整型量 x=x+10 改变形参x的值End Sub主调过程Main_click()Private Sub Main_Click()Dim n As Integer 定义整型变量n n=6 变量n赋初值6 Call Test(n)Msgbox n 显示n值End SubACCESSACCESS数据库应用数据库应用4.过程和变量的作用域 过程或变量可被
32、访问的范围称为过程或变量过程或变量可被访问的范围称为过程或变量的作用域。的作用域。过程的作用域：过程的作用域：模块级（使用模块级（使用Private）全局级（使用全局级（使用Public）变量的作用域变量的作用域 表表8.2 局部变量局部变量 【例例8.35】模块变量模块变量 【例例8.36】全局变量全局变量 【例例8.37】ACCESSACCESS数据库应用数据库应用 优点：结构清晰完整，数据独立、易于管理优点：结构清晰完整，数据独立、易于管理缺点：性能方面要做些牺牲缺点：性能方面要做些牺牲在面向对象的方法中，类是具有共同属性、在面向对象的方法中，类是具有共同属性、共同行为方法的对象的抽象。
33、共同行为方法的对象的抽象。窗体或是其上的按钮、标签和文本框等窗体或是其上的按钮、标签和文本框等ACCESSACCESS数据库应用数据库应用比如：按钮控件的比如：按钮控件的Caption属性属性比如：文本框控件可以比如：文本框控件可以SetFocus方法方法比如，按钮的比如，按钮的Click事件事件ACCESSACCESS数据库应用数据库应用3.对象声明和引用对象声明和引用（1）对象的声明）对象的声明声明对象变量的语法格式：声明对象变量的语法格式：Dim 对象变量对象变量 As New 对象类对象类 说明：说明：使用使用new，则不必使用，则不必使用Set引用特定对象引用特定对象Set 对象变量
34、对象变量=New 对象表达式对象表达式例如，例如，【例例8.38】Dim myForm As New FormDim myText As TextBoxSet myText=New TextBoxACCESSACCESS数据库应用数据库应用!.|Forms!登陆窗体登陆窗体!text0.text=“1”DoCmd.CloseSELECT 学生表学生表.姓名姓名 FROM 学生表学生表ACCESSACCESS数据库应用数据库应用Forms!窗体窗体1.CaptionReports!学生成绩学生成绩!学分学分+10Reports!学生成绩学生成绩!学分学分.VisibleForms!窗体窗体1!L
35、abel1.FontNameLabel1.FontName（当前窗体）（当前窗体）ACCESSACCESS数据库应用数据库应用Forms!窗体窗体1.Caption=Date&Space(2)Label1.FontName=“隶书隶书”Label1.FontBold=TrueLabel1.FontSize=18Label1.FontItalic=TrueText0.FontColor=255 Text0.Height=Text0.Width*0.5ACCESSACCESS数据库应用数据库应用4.Application的对象模型的对象模型 VBA使用使用Application对对象操作当前活动的
36、窗体象操作当前活动的窗体、报表、数据访问页及、报表、数据访问页及它们所包含的控件。它们所包含的控件。Application对象层次关对象层次关系如图系如图Application对象对象Form对象、对象、Forms集合和集合和Control对象、对象、Controls集合集合DoCmd对象对象ApplicationFormsForm多个对象ACCESSACCESS数据库应用数据库应用（1）Application对象Application对象引用活动的对象引用活动的Access应用程序应用程序创建创建Application类的新实例：类的新实例：Dim appAccess As ObjectSe
37、t appAccess=CreateObject(Access.Application)例如，例如，【例例8.40】Sub GetAccessData()Dim strDB As String Dim appAccess As Access.Application StrDB=”C:Program FilesMicrosoft OfficeOffice11SamplesNorwind.mdb”AppAccess.OpenCurrentDatabase strDB aapAccess.DoCmd.OpenReport 图书编目表End SubACCESSACCESS数据库应用数据库应用（2）Fo
38、rm对象、Forms集合和Control对象、Controls集合Forms是一个集合对象，是一个集合对象，Form是是Forms集合集合中的一个成员。中的一个成员。Forms集合包含集合包含Access数据库中当前打开的所有窗体。数据库中当前打开的所有窗体。每个窗体对象都有一个每个窗体对象都有一个Controls集合，该集集合，该集合包含了窗体上的所有控件。合包含了窗体上的所有控件。例如，例如，【例例8.41】Sub GetControlsData()Forms!OrderForm!NewData 隐式引用 Forms!OrderForm.Controls!NewData 显示引用End S
39、ubACCESSACCESS数据库应用数据库应用（3）DoCmd对象DoCmd对象可以调用对象可以调用Access内置的方法内置的方法DoCmd又可以看作又可以看作AccessVBA中提供的一个命令中提供的一个命令【例例8.42】DoCmd对象应用举例对象应用举例DoCmd.OpenForm 图书编目表图书编目表“说明：说明：DoCmd对象的大多数方法都有参数，某些参数是必需的对象的大多数方法都有参数，某些参数是必需的，其他一些是可选的。，其他一些是可选的。ACCESSACCESS数据库应用数据库应用由用户触发、由系统触发、由代码引发由用户触发、由系统触发、由代码引发ACCESSACCESS数
40、据库应用数据库应用主体节中，单击右键，在菜单中选择事件生成器。主体节中，单击右键，在菜单中选择事件生成器。在代码窗口中观察：在代码窗口中观察：Private Sub 主体主体_Cilck()Text0.ForeColor=vbRed 文本框前景色设为红色文本框前景色设为红色End Sub“双击双击”事件代码类似：事件代码类似：Text0.ForeColor=vbBlue操作演示ACCESSACCESS数据库应用数据库应用VBA语法规则，选择结构及循环结构语法规则，选择结构及循环结构选择结构，循环结构选择结构，循环结构ACCESSACCESS数据库应用数据库应用课堂练习课堂作业课堂作业1、模块在
41、结构上由哪几部分组成？、模块在结构上由哪几部分组成？2、过程有几类？有何区别？、过程有几类？有何区别？3、什么是对象和类？举例说明。、什么是对象和类？举例说明。4、对象的使用方法？、对象的使用方法？ACCESSACCESS数据库应用数据库应用ACCESSACCESS数据库应用数据库应用标准工具栏工程窗口属性窗口代码窗口视图切换插入模块运行、中断、停止设计模式工程资源浏览器属性窗口对象浏览器查看代码查看对象切换文件夹对象框属性列表ACCESSACCESS数据库应用数据库应用系统自动生成事件过程框架在此处填写事件响应代码选择对象框选择对应的事件过程ACCESSACCESS数据库应用数据库应用建立两
42、个标准过程，功能为：求建立两个标准过程，功能为：求1100之和和由键盘输之和和由键盘输入学生考试分数判定学生的成绩等级，并运行调试这两个入学生考试分数判定学生的成绩等级，并运行调试这两个标准模块。标准模块。打开打开VBE窗口，录入代码窗口，录入代码设置断点设置断点 运行时，可以查看程序运行状态（运行时，可以查看程序运行状态（F9）运行程序，调试程序运行程序，调试程序利用立即窗口、本地窗口、监视窗口协助调试利用立即窗口、本地窗口、监视窗口协助调试操作演示ACCESSACCESS数据库应用数据库应用【例8.2】变体类型定义应用举例 问题描述：问题描述：变体类型定义应用变体类型定义应用示例代码：示例
43、代码：Dim MyVar As Variant 变体类型也可用Dim定义MyVar=98052a=20a=1234a=Null 变量a没有显式声明，a的类型发生三次变化MyVar=aACCESSACCESS数据库应用数据库应用【例8.3】对象类型定义应用举例 问题描述：问题描述：对象类型定义应用对象类型定义应用示例代码：示例代码：Dim objDb As ObjectSet objDb=OpenDatabase _ (c:高校图书馆管理系统高校图书馆管理系统.mdb)ACCESSACCESS数据库应用数据库应用【例8.4】自定义类型定义举例 问题描述：问题描述：自定义类型定义举例自定义类型定义
44、举例 示例代码：示例代码：Type Book BookName As String*20 定义定常字符串变量存储书名 BookDate As Date 定义日期变量存储出版日期 BookNumber As Integer 定义整型变量存储书的数量End Type用户自定义类型的语法格式如下：private|public Type 数据类型名变量名1 As 数据类型变量名2 As数据类型End TypeACCESSACCESS数据库应用数据库应用【例8.5】符号常量定义应用举例问题描述：问题描述：对象类型定义应用对象类型定义应用示例代码：示例代码：Const PI=3.1415926Public
45、 Sub area()Dim r As Integer Dim l,area As Single r=InputBox(请输入圆的半径)l=2*PI*r:area=PI*r*r h=MsgBox(周长：&l&面积：&area,1+_ vbQuestion+vbDefaultButton1+0,计算圆的周长和面积)End SubACCESSACCESS数据库应用数据库应用只能由字母、数字、汉字和下划线组成，不能含有空格和只能由字母、数字、汉字和下划线组成，不能含有空格和除了下划线字符除了下划线字符“_”以外的其他任何标点符号，长度不能以外的其他任何标点符号，长度不能超过超过255。例如，例如，d
46、im sys_AC as string必须以字母开头，不区分大小写。必须以字母开头，不区分大小写。例如，例如，Bxy、BXY、BxY、bxy系统都认为是相同的。系统都认为是相同的。不能和不能和VBA保留字重名。保留字重名。例如：不能以例如：不能以IF命名一个变量。命名一个变量。ACCESSACCESS数据库应用数据库应用3log30sin32xyexyoSub Expression()Dim s S=y*y+abs(x)+exp(3)+sin(30*3.14/180)-sqr(x*y)+log(3)Msgbox s=&send subACCESSACCESS数据库应用数据库应用ACCESSAC
47、CESS数据库应用数据库应用ACCESSACCESS数据库应用数据库应用ACCESSACCESS数据库应用数据库应用思考：此段代码的位置ACCESSACCESS数据库应用数据库应用选择选择“模块模块”对象对象单击单击“新建新建”按钮，建立一个标准模块按钮，建立一个标准模块系统会出现系统会出现VBA集成开发环境集成开发环境在模块属性窗口中修改模块名或在右面的代码编辑器建立在模块属性窗口中修改模块名或在右面的代码编辑器建立过程和相关代码过程和相关代码单击工具栏中的单击工具栏中的“保存保存”按钮，输入模块名后，保存此模按钮，输入模块名后，保存此模块。块。ACCESSACCESS数据库应用数据库应用表
48、表8.2变量使用规则和作用范围变量使用规则和作用范围局部变量局部变量模块变量模块变量全局变量全局变量声明方式声明方式DimDim、StaticStaticDimDim、PrivatePrivatePublicPublic声明位置声明位置在子过程中在子过程中在窗体在窗体/模块的声明模块的声明区域区域在标准模块在标准模块声明区域声明区域能否被本模块的能否被本模块的其它过程存取其它过程存取不能不能能能能能能否被其它模块能否被其它模块的过程存取的过程存取不能不能不能不能能能作用范围作用范围子过程子过程模块中模块中整个项目整个项目ACCESSACCESS数据库应用数据库应用【例8.35】局部变量举例 P
49、rivate Sub test1_Click()Dim Strl as String Str1=Microsoft Access Me!text1=Str1 text1文本框显示文本框显示Microsoft AccessEnd SubPrivate Sub test2_click()Me!text2=Str1 text2文本框显示文本框显示？End Sub程序代码如下：程序代码如下：ACCESSACCESS数据库应用数据库应用【例8.36】模块变量举例 程序代码如下：程序代码如下：Dim Strl as StringPrivate Sub test1_Click()Str1=Microsoft
50、 Access Me!text1=Str1 text1文本框显示文本框显示Microsoft AccessEnd SubPrivate Sub test2_click()Me!text2=Str1 text2文本框显示？文本框显示？End SubACCESSACCESS数据库应用数据库应用【例8.37】变量的作用域的综合举例 模块模块1：Public x As string,n As integer 声明声明x、n为什么变量？为什么变量？Private y As string*10 声明声明y为什么变量？为什么变量？Dim m As single 声明声明m为什么变量？为什么变量？Privat
