12第十章VBA模块.pptVIP

第10章 VBA模块;第10章 VBA模块;? 　　　Access 具有强大的界面功能，这使得用户能够方便地建立各种对象。尤其是利用宏已经可以执行简单的任务，如对象的修改和数据的查找。但在某些情况下，用户需要利用模块提供的强大功能，完成更难的任务。 ??;模块的概念;模块的主要功能 ;模块的分类;模块的分类;模块的组成 ;过程;1. Sub过程;2. Function过程; VB开发环境; VBA编程基础 ;数据类型;数据类型 ;（一）数值数据类型 ???　　VBA中数值数据类型包括字节、整型、长整型、单精度、双精度、货币等。 ????? 　数据的存储从 8位到96位不等。数据支持加、减、乘、除等运算。货币类型的数据保持小数点左边15位数字，右边4位数字，以满足精度的需要。 ;（二）布尔数据类型 ??? 布尔数据类型以16位数字形式存储。布尔数据类型只有True和False两个值。布尔数据支持逻辑或、与、非等运算。 当其他数值类型转化为布尔型时，0转化为False,其它值均转化为True。当布尔型转化为其他数值类型时，False转化为0，True转化为1。 ;（三）日期数据类型 ??? 日期数据类型以64位浮点数值形式存储。日期数据类型表示的范围为100年1月1日直到9999年12月31日，时间从0:00:00到23:59:59。日期变量根据计算机中的短日期格式显示，时间则根据计算机的时间格式显示。 当其他数值类型转化为时间类型时，整数部分表示日期，小数部分表示时间，负整数表示1899年12月31日前的日期。 ;(四)字符数据类型型 ??? 每个字符以一个字节（8位）进行表示，对应的数值范围是0到255。字符集中的前128个字符对应于ASCII字符集中的定义。字符集的后128个字符代表特定的字符。字符数据类型有两种：变长字符和定长字符。变长字符可以包括的字符数量为0到大约20亿个。定长字符可以包括的字符数量为包括1到大约64K个字符。 ;（五）对象数据类型 ??? 对象变量以32位的指向对象的地址形式进行存储。使用Set语句声明成Object的变量可以包含任何对象的引用。也可以将对象引用指向特定类生成的实例对象，这样可以实现早期绑定。 ;（六）变体数据类型 ??? 变体数据类型的变量所代表的数据类型不是确定的，可以成为任何类型的变量。变体数据类型的变量可以存储特殊值，如：Empty，Error，Nothing，Null等。变体数据类型中的数值类型可以代表任何整型或实型数。 ;;变量;（1）变量名必须以英文字母开头。 （2）变量名不能包含空格、句点等字符。 （3）变量名的长度不能超过255个字符。且变量名不区分大小写。 （4）不能在某一范围内的相同层次中使用重复的变量名。 （5）变量的名字不能是VBA的关键字。;声明变量 ;数组变量;常量 ;VBA常用语句;赋值语句：;;;;（三）其它可执行语句;（四）注释语句;事件过程的说明;运行Visual Basic程序;应用实例;例如：输入学生成绩,并根据成绩划分等级，成绩大于等于90分为优秀，成绩低于90分且大于等于60分为“达标”，成绩低于60分为“不达标”。 Sub Sgrade() Dim stuscale As String, grade As Single grade = InputBox(请输入成绩：) If grade = 90 Then stuscale = 优秀 ElseIf grade 90 And grade = 60 Then stuscale = 达标 Else stuscale = 不达标 End If MsgBox 成绩等级为: stuscale End Sub;例：在如图所示的窗体上的标题为 “注册”的命令按钮的“单击”事件的设置。 事件程序代码如下： Private Sub Command4_Click() Dim db As Object Dim reset As Object Set db = CurrentDb() Set reset = db.OpenRecordset(用户表) reset.AddNew reset.username = Text0.Value reset.password = Text2.Value reset.Update MsgBox (注册成功。) reset.Close End Sub 注意：Text2的数据设置为输入掩码的密码形式。; 本章介绍了有关模块的基本知识