数据库原理与应用教程与实训(Access版) 第8章 VBA编程.pptVIP

本章教学目的 本章主要介绍模块的基本知识和过程、子程、函数的基本概念、VBA的基本语法结构。 以及如何用模块和VBA技术编写复杂的功能，实现用宏不能解决的问题。 本章教学重点 1、理解模块、过程 、子程序 、函数过程的基本概念。 2、掌握模块的分类以及模块的创建 。 3、掌握过程的分类、过程的创建以及过程的调用。 3、掌握Microsoft Visual Basic编辑器的工作界面及使用方法。 4、理解VBA中的实量、常量、数据类型及数组的含义。 5、掌握VBA中的选择结构、循环结构语句。 6、掌握模块的调试和VBA应用程序的错误处理。 3．模块代码窗口在Microsoft Visual Basic编辑器窗口中的【工程资源管理器】窗口中，双击【查询学生】模块，则会显示【查询学生】的模块代码窗口如下图所示。 其中： ①　Option Compare Database：设置字符串的比较方法，让Access 2002根据数据库的排列顺序来比较字符的大小。 ②　Option Explicit：用来说明在该模块中所有的变量都要显式说明，且该语句必须写在模块的所有过程之前。 另外，在模块窗口中的每一行语句通常是由不同的颜色构成的，通过使用不同的颜色可以使程序员很容易地辨别出代码的各个组成部分。代码行中的各种颜色所代表的含义如下。 ⑴　绿色：注释行，只用于对代码进行解释说明，它不会被应用程序执行。 ⑵　蓝色：VBA中预先定义好的关键字。 ⑶　黑色：标识符文本，如变量名等。 ⑷　红色：有语法错误的语句。 8.1.4模块的创建 8.1.4模块的创建 1．创建空白模块 在Access 2002中，要创建一个空白模块，可以按照下述操作步骤进行。 ⑴　将数据库窗口切换为当前工作窗口。 ⑵　执行下列操作之一。 ①　选择【插入】菜单中的【模块】命令。 ② 在当前数据库窗口中选中【模块】选项卡，然后单击【新建】按钮 执行上述操作之一后，Access 2002自动启动Microsoft Visual Basic编辑器，并创 建一个名为“模块1”的空白模块，如下图所示。 在“学生信息管理系统”数据库中的“模块1”中添加一个函数过程“mouseclick”，此函数过程的功能是弹出一个对话框，并在对话框中显示在按钮的单击事件中调用了一个函数过程信息。 操作步骤如下。 ⑴　执行【插入】菜单中的【过程】命令，弹出【添加过程】对话框，如右图所示。 ⑵　在【名称】文本框中输入过程的名称为“mouseclick”。 ⑷在【范围】区域中选择该过程的作用范围为【公共的】选择【公共的】,则该过程可以在数据库中的任何地方都可以使用,选择【私有的】,则该过程只能在本模块中使用。⑸　单击【确定】按钮,显示如右图所示; ⑹　在“Public Function mouseclick”和“End Function”之间输入如下代码。 Public Function mouseclick(b As CommandButton) MsgBox 在按钮的单击事件中调用了一个函数过程 End Function 最后的设计结果如图8.8所示; ⑺　单击【文件】菜单中的【保存】命令，出现【另存为】对话框,在【模块名称】文本框中输入“创建了一个函数过程”后单击【确定】按钮。便完成了模块的创建。 3．调用过程 创建了一个过程以后就可以在数据库中调用该过程。下面通过一个具体的实例来说明如何调用过程。 例: 在“学生信息管理系统”数据库中创建一个“调用过程”窗体，并在此窗体中加入一个“调用过程”的命令按钮，单击此按钮时调用例8.1创建的“mouseclick”函数过程。 具体操作步骤如下。 ⑴　在“学生信息管理系统”数据库中新建一个窗体，然后在该窗体中添加一个名称为“调用过程”的命令按钮。 ⑵　在“调用过程”命令按钮上右击，弹出快捷菜 单，在快捷菜单中单击【属性】命令，弹出【属性】对话框。 ⑶　在【属性】对话框中单击【其他】选项卡，并在【名称】文本框中输入“调用过程”。 ⑷　单击【事件】选项卡，在【单击】事件文本框中单击，显示一个向下箭头按钮和一个【…】按钮。 ⑸　在【单击】事件文本框中输入：=mouseclick([调用过程])，如下图所示。 ⑹　单击【…】按钮,即可打开以前编辑过的代码; ⑺　关闭属性对话框,并保存新建的窗体,窗体文件名为“调用过程”。 ⑻　打开该新建窗体，并单击“调用过程”按钮，运行结果如下图所示。 在该对话框中单击【代码生成器】,然后单击【确定】按钮； ⑸　此时出现【模块】窗口(如右图所示),在该窗口中输入要完成的事件即可。 ⑵　在该窗体中加入一个按钮，结果如右图所示。