VBA模块的编程过程

中文版,Access 2007,实用教程,第12,章,章VBA,编,编程,虽然Access的,交,交互操,作,作功能,非,非常强,大,大且易,于,于掌握,，,，但是,在,在实际,的,的数据,库,库应用,系,系统中,，,，用户,还,还是希,望,望尽量,通,通过自,动,动操作,达,达到数,据,据库管,理,理的目,的,的。应,用,用程序,设,设计语,言,言在开,发,发中的,应,应用，,可,可以加,强,强对数,据,据管理,应,应用功,能,能的扩,展,展。Office中,包,包含VisualBasicforApplication(VBA)，VBA,具,具有与VisualBasic,相,相同的,语,语言功,能,能，它,为,为Access提供,了,了无模,式,式用户,窗,窗体以,及,及支持,附,附加ActiveX控件,等,等功能,。,。本章,将,将简要,介,介绍VBA的,编,编程。,教学重,点,点与难,点,点,VBA,的,的编程,环,环境,常量、,变,变量和,数,数组,程序流,程,程控制,创建VBA模,块,块,12,.1VBA编程,环,环境,Access,利,利用VisualBasic编,辑,辑器(VBE)来编,写,写过程,代,代码，,它,它以微,软,软的VisualBasic编,程,程环境,的,的布局,为,为基础,，,，实际,上,上是一,个,个集编,辑,辑、调,试,试、编,译,译等功,能,能于一,体,体的编,程,程环境,。,。所有,的,的Office应用,程,程序都,支,支持VisualBasic编,程,程环境,，,，而且,其,其编程,接,接口都,是,是相同,的,的。使,用,用该编,辑,辑器可,以,以创建,过,过程，,也,也可以,编,编辑已,有,有的过,程,程。,帮助输,入,入,显示提,示,示信息,形成良,好,好的程,序,序设计,风,风格,使用书,签,签,调试手,段,段,下图为,一,一个VBE窗,口,口，窗,口,口中的,各,各个部,分,分已经,给,给出了,相,相应标,识,识。,12,.2VBA程序,设,设计基,础,础,VBA(Visual Basic forApplication),是,是Visual Basic语言,的,的一个,子,子集，,集,集成了,整,整个Office产,品,品套件,中,中的开,发,发语言,和,和开发,环,环境。,作,作为Office产,品,品系列,的,的一个,重,重要组,成,成部分,，,，Microsoft Access也,是,是使用VBA,语,语言作,为,为其代,码,码设计,的,的开发,语,语言。,本,本节将,简,简要介,绍,绍VBA语言,的,的基本,结,结构和,语,语法。,常量、,变,变量和,数,数组,数据类,型,型,在VBA中，,程,程序是,由,由过程,组,组成的,，,，过程,又,又由根,据,据VBA规则,书,书写的,指,指令组,成,成。一,个,个程序,包,包括常,量,量、变,量,量、运,算,算符、,语,语句、,函,函数、,数,数据库,对,对象和,事,事件等,基,基本要,素,素。,常量,变量,数组,12,.2.1,常,常量、,变,变量和,数,数组,VBA,语,语言的,数,数据类,型,型包括,布,布尔型(Boolean),、,、日期,型,型(Date)、字,符,符串(String)、货,币,币型(Currency),、,、字节,型,型(Byte)、整,数,数型(Integer)、,长,长整型(Long),、,、单精,度,度型(Single)、双,精,精度型(Double)以,及,及变体,型,型(Variant)和用,户,户自定,义,义型。,12,.2.2,数,数据类,型,型,12,.3,程,程序,流,流程控,制,制,与传统,的,的程序,设,设计语,言,言一样,，,，Visual Basic也具,有,有结构,化,化程序,设,设计的3种结,构,构：顺,序,序结构,、,、选择(分支)结构,和,和循环,结,结构，,下,下面重,点,点介绍,选,选择结,构,构和循,环,环结构,。,。,选择结,构,构,循环结,构,构,选择结,构,构有If语句,和,和Select Case,语,语句两,种,种。,If语,句,句是一,类,类比较,简,简单的,条,条件控,制,制语句,，,，可以,通,通过紧,跟,跟在If后面,的,的表达,式,式的值,，,，判断,出,出在其,影,影响范,围,围下的,语,语句是,否,否被执,行,行。,如果在If语句中,，,，一个表,达,达式有多,个,个可选值,，,，并且需,要,要为这些,可,可选值建,立,立不同的,执,执行语句,，,，例如选,项,项组控件,可,可以通过,不,不同的值,来,来判断选,项,项组中到,底,底是按下,哪,哪个按钮,，,，这样的,语,语句设计,通,通过If,语,语句不方,便,便实现，,这,这时就需,要,要使用Select Case语句,。,。,12,.3.1,选,选择,结,结构,编程中经,常,常要需要,重,重复执行,某,某些操作,，,，这时就,需,需要通过,循,循环语句,来,来判断并,执,执行这些,循,循环操作,。,。VBA,提,提供了多,种,种循环控,制,制语句，,其,其中常用,的,的包括DoLoop语句,、,、For,Next语句以,及,及WhileWend语,句,句等。,DoLoop语,句,句,ForNext,语,语句,WhileWend语句,GoTo,语,语句,12,.3.2,循,循环,结,结构,12,.4Access对象,模,模型,Access提供,的,的对象模,型,型可以将,数,数据库功,能,能与自定,义,义的解决,方,方案集成,起,起来。通,过,过使用Access对象模,型,型，可以,实,实现对事,件,件编程、,创,创建Access,窗,窗体和报,表,表以及设,置,置引用等,。,。对象模,型,型提供了,一,一些对象,，,，Access内,部,部应用程,序,序可以使,用,用这些对,象,象。,对象,对象集合,对象模型,VBA与,传,传统语言,的,的重要区,别,别之一就,是,是它是面,向,向对象的,。,。对象是Visual Basic,程,程序设计,的,的核心。,事,事实上，,窗,窗体和控,件,件都是对,象,象，数据,库,库也是对,象,象，对象,到,到处都存,在,在。一旦,理,理解如何,引,引用应用,程,程序对象,模,模型中的,对,对象，就,能,能够使用,对,对象及其,特,特性来建,立,立自己的,解,解决方案,。,。当然，,也,也可以将,对,对象理解,为,为封装数,据,据和代码,的,的客体，,它,它是代码,和,和数据的,集,集合。,属性,方法,事件,12,.4.1,对,对象,对象集合,是,是一个包,含,含几个其,他,他对象的,对,对象，而,这,这些对象,可,可具有不,同,同的类型,，,，并且对,象,象的位置,均,均可改变,。,。Access窗,体,体具有以,下,下3种集,合,合，如下,图,图所示，,其,其中填充,色,色为灰色,的,的表示集,合,合。,12,.4.2,对,对象,集,集合,对象模型,实,实际上给,出,出了基于,对,对象程序,的,的结构，,通,通过定义,程,程序中所,使,使用对象,之,之间的关,系,系，对象,模,模型能够,以,以一种比,编,编程更容,易,易的方式,来,来组织对,象,象。,Access中的,窗,窗体模型,包,包括的对,象,象类型有,：,：控件、,集,集合和集,合,合中的对,象,象。,窗体对象,模,模型的每,个,个元素都,具,具有一系,列,列的属性,、,、方法和,事,事件，可,以,以利用方,法,法使应用,程,程序按照,要,要求进行,工,工作。在VBA中,，,，各个对,象,象之间也,不,不是孤立,的,的，而是,彼,彼此之间,存,存在着包,含,含与被包,含,含的关系,。,。,12,.4.3,对,对象,模,模型,12,.5,创,创建VBA模块,模块是将VBA代,码,码的声明,、,、语句和,过,过程作为,一,一个单元,进,进行保存,的,的集合，,是,是基本语,言,言的一种,数,数据库对,象,象，数据,库,库中的所,有,有对象都,可,可以在模,块,块中进行,引,引用。利,用,用模块可,以,以创建自,定,定义函数,、,、子程序,以,以及事件,过,过程等，,以,以便完成,复,复杂的计,算,算功能。,模,模块可以,代,代替宏，,并,并可以执,行,行标准宏,所,所不能执,行,行的功能,。,。,模块的定,义,义和创建,过程的创,建,建,过程的调,用,用,Access模块,有,有两种基,本,本类型：,类,类模块和,标,标准模块,。,。模块中,的,的每一个,过,过程都可,以,以是一个Function,过,过程或一,个,个Sub,过,过程。,类模块,标准模块,12,.5.1,模,模块,的,的定义和,创,创建,过程是包,含,含VBA,代,代码的基,本,本单位，,可,可以完成,一,一系列指,定,定的操作,。,。过程由,计,计算的语,句,句和方法,组,组成，通,常,常分为Sub过程,、,、Function过程和Property,过,过程。其,中,中，Sub过程是,最,最常用的,过,过程类型,，,，也称为,命,命令宏，,可,可以传送,参,参数和使,用,用参数来,调,调用它，,但,但不返回,任,任何值；Function,过,过程也称,为,为自定义,函,函数过程,，,，其运行,方,方式和使,用,用程序的,内,内置函数,一,一样，即,通,通过调用Function,过,过程获得,函,函数的返,回,回值；Property过,程,程能够处,理,理对象的,属,属性。,12,.5.2,过,过程,的,的创建,Call,语,语句用来,调,调用过程,，,，也可调,用,用VisualBasic的函数,和,和自定义,函,函数，两,者,者均采用,如,如下的格,式,式：,Call nameargumentlist,其中name表示,被,被调用过,程,程的名称,，,，argumentlist表示参,数,数列表，,各,各参数间,必,必须以逗,号,号隔开。,在窗体过,程,程(例如,事,事件过程)中可以,直,直接调用,标,标准模块,中,中的过程,，,，但也可,通,通过标准,模,模块的名,称,称来调用,。,。在标准,模,模块的过,程,程中调用,窗,窗体模块,中,中的过程,时,时，必须,以,以VisualBasic格式指,出,出窗体名,，,，例如“Form_员工信,息,息.name”。,12,.5.3,过,过程,的,的调用,12,.6VBA代,码,码的保护,在开发数,据,据库产品,以,以后，为,了,了防止其,他,他人查看,或,或更改VBA代码,，,，需要对,该,该数据库,的,的VBA,代,代码进行,保,保护。保,护,护VBA,代,代码的措,施,施主要有,两,两种：对VBA代,码,码设置密,码,码保护或,生,生成MDE文件保,护,护。,设置密码,保,保护VisualBasic代码,生成ACCDE文,件,件,用户可以,通,通过对VBA代码,设,设置密码,来,来防止其,他,他非法用,户,户查看或,编,编辑数据,库,库中的程,序,序代码。,12,.6.1,设,设置,密,密码保护Visual Basic,代,代码,除了使用,密,密码保护VBA代,码,码以外，,还,还可以通,过,过创建ACCDE,文,文件保护,程,程序代码,。,。ACCDE文件,是,是旧版本Access中的.mde,文,文件的Access 2007版,本,本。,12,.6.2,生,生成ACCDE文件,演讲完毕,，,，谢谢观,看,看！,