数据库第07讲指南.pptVIP

使用DefType声明变量 Deftype语句主要用于模块级的通用声明部分，一般用来声明变量或者给传送过程的参数的数据类型，还用来声明指定字符开头的Function或Propety get过程的返回值类型。 Deftype的格式为： Deftype 字母[,字母范围] 例如：Defint a,b,m-o 该语句表示，在模块中定义了以字母a、b、m到o开头的变量的默认数据类型为整型。VBA中所能声明的数据类型见表7.2。 使用变体类型 未进行显示声明而通过赋值语句直接使用，或省略了[AS 类型/类型符]短语的变量，其类型为变体类型。 用户自定义类型 [例2]随机出一道两位数加法题让小学生回答 上例还可以使用If..Then..Else语句进行修改. [例3] [例4] [例5] 第七讲编程工具VBA 7.3 VBA编程环境 7.3.1 进入VBE 7.3.2 VBE界面 VBE工具栏 VBE窗口： 代码窗口 立即窗口 监视窗口 本地窗口 对象浏览器 工程资源管理器 属性窗口 第七讲编程工具VBA 7.3 VBA编程环境 第七讲编程工具VBA 7.4 模块、函数与子过程 7.4.1 模块 Access中的模块分为4种： Access模块 窗体模块 报表模块 类模块 第七讲编程工具VBA 7.4 模块、函数与子过程 7.4.2 函数与子过程 1. 函数与Sub过程定义 定义Sub过程： [Public|Private][Static] Sub 子过程名 ([参数表]) 局部变量或常数定义 ＜语句序列＞ [Exit Sub] ＜语句序列＞ End Sub 功能：定义一个以子过程名为名的Sub过程，Sub过程名不返回值，而是通过形参与实参的传递得到结果，调用时可得到多个参数值。 第七讲编程工具VBA 定义Function过程 [Public|Private][Static]Function 函数名 ([参数表])[As类型] 局部变量或常数定义 语句序列 [Exit Function] 语句序列 函数名=返回值 End Function 功能：定义一个以函数名为名的Function过程，Function过程通过形参与实参的传递得到结果，返回一个函数值。 7.4 模块、函数与子过程 第七讲编程工具VBA 2.创建Sub过程和函数 Sub过程和函数是一个通用过程，它不属于任何一个事件过程，因此它不能在事件过程中建立，通常Sub过程是在标准模块中，或在窗体模块中建立的。 操作步骤如下： （1）在代码模块中创建子程序和函数。 （2）在窗体类模块或报表类模块中创建子程序和函数。 7.4 模块、函数与子过程 第七讲编程工具VBA 3.事件过程与函数调用 子过程名 [参数表] 或： Call 子过程名([参数表]) 功能：调用一个已定义的Sub过程。 7.4 模块、函数与子过程 第七讲编程工具VBA 7.5.1 面向对象程序设计的基本概念 1、集合和对象 所谓对象，就是程序设计的基本单元，是一种将数据和操作结合在一起的数据结构，可以将它看作一个单元。例如，表、窗体、文本框、命令按钮等都是对象； 集合表达的是某类对象所包含的实例构成。 2、属性和方法 所谓属性，是指对象的特性或性质，如大小、颜色、状态等； 所谓方法，是指对象能执行的动作行为，如刷新等； 3、事件和事件过程 7.5面向对象的程序设计 第七讲编程工具VBA 7.5面向对象的程序设计 [例1]输出当天日期及距2008-8-8的天数 在“模块入门”模块中添加如下Today()过程： Sub Today() MsgBox 今天的日期是 Date ，距2008年8月8日还有 (#8/8/2008# - Date) 天 End Sub Sub test() Dim A As Integer, B As Integer, Sum As Integer Randomize Timer A = 10 + Rnd * 89: B = 10 + Rnd * 89 Sum = InputBox(A + B =?, 两位数加法) If Sum = A + B Then MsgBox 答案正确！ If Sum A + B Then MsgBox 答错了！正确答案是 A + B End Sub If Sum = A + B Then MsgBox 答案正确！ If