第6章 模块与VBA编程.pptx

第6章 模块与VBA编程 什么是模块 模块是Access的一个重要对象，它以VBA编程语言为基础，以函数和子过程为单元。使用模块可以解决循环控制和数据库自动管理等复杂问题，实现宏所不能实现的功能，大大扩展了数据库的应用范围。 本章将介绍VBA的编程语法、数据类型、变量及作用范围、流程控制、数组、自定义过程、ADO数据库编程和错误调试等内容。 什么是模块 模块对象的功能是用代码的方式去控制Access中的各种对象。代码是最灵活的功能实现方式，代码可以最直接的反映开发人员的想法和具体实现过程。 代码是一种计算机可以识别的语言。VBA（Visual Basic for Application）就是开发Access数据库应用程序的编程语言，也是其他Office套件的应用程序开发语言。 模块可以理解为编写代码的场所。 写程序前需要考虑的问题 程序需要实现什么功能 程序最后有什么结果——输出 程序执行之前需要有什么前提条件——输入 模块 如何控制其他对象或控件 Access的对象：Docmd 窗体或控件： 对象的属性（对象名.属性名=值）Box0.BackColor= RGB(255,0,0) 对象的方法(对象名.方法名) Box0.Move 100,200 怎样实现特定功能 数据类型 变量、数组 流程控制 自定义过程 控制对象及实现功能的时机 对象的事件 算法 写程序时需要考虑的问题 实例1 通过VBA编程实现常用操作—初识VBA编程 操作要求： 为以下窗体上的各命令按钮添加单击事件处理程序，实现各控件功能。 知识点： VBA（Visual Basic for Application）是开发Access数据库应用程序的编程语言，也是其他Office套件的应用程序开发语言。在Access及其他Office组件的各版本中，都以VBA为核心编程语言，其语言结构和编程环境都是一样的。 Docmd对象的主要功能是通过调用包含在内部的方法实现对Access的操作。这些内部的方法和宏中的操作基本相同。 实例1 通过VBA编程实现常用操作—初识VBA编程 Docmd对象常用操作 知识点： MsgBox函数功能是在对话框中显示消息。调用格式为： MsgBox（Prompt, [Buttons], [Title]） 其中，Prompt指定要在对话框中显示的信息，Prompt可以是常量、变量或表达式；Buttons是整型表达式，指定消息框按钮的数目和类型，以及对话框上的图标；Title指定对话框标题栏显示信息。 接收用户输入数据的InputBox函数，格式为： InputBox(Prompt, [Title], [Default]) 其中，Prompt、Title与MsgBox函数对应的参数相同；Default是字符串表达式，当在输入对话框中无输入时，则该默认值作为输入的内容。 实例1 通过VBA编程实现常用操作—初识VBA编程 知识点： 域聚合函数 1）DLookup函数 函数功能：从指定记录集内获取特定字段的值。 语法格式： DLookup(Expr, Domain, Criteria) 实例：在“tbl患者”表中查找“患者ID”为10的患者姓名。 DLookup(姓名, tbl患者, 患者ID=10) （2）DCount函数 语法格式： DCount(Expr, Domain, Criteria) 函数功能：确定特定记录集内的记录数。 实例：计算“tbl患者”表中男患者人数 DCount(*, tbl患者,性别=男 ) 实例1 通过VBA编程实现常用操作—初识VBA编程 知识点： Me Me表示窗体或报表本身，如果代码所在的对象是窗体，Me就表示窗体；如果代码所在的对象是报表，Me就表示报表。代码如下： Me.text1 ‘表示窗体或报表上的控件text1 注释语句 可使用Rem或单引号（）添加注释语句。使用Rem注释时，Rem必须位于行首，不能位于程序语句之后；单引号注释可位于行首或程序语句句尾。程序执行时不会运行注释语句，会将其忽略掉。 实例1 通过VBA编程实现常用操作—初识VBA编程 扩展——1 在窗体中实现如下功能。单击“显示”按钮，可以在对应的文本框中显示当前的日期、星期几和现在时间。单击“清除”按钮可以将所有文本框中的内容去掉。 date() weekday() time() 知识点： 窗体的Timer事件 窗体的 Timer 事件按窗体的 TimerInterval 属性指定的时间间隔定期发生。 窗体的TimerInterval属性 使用 TimerInterval 属性可以为窗体的 Timer 事件指定时间间隔（以毫秒为单位）。 Rnd函数 Rnd 函数返回小于 1 但大于或等于 0 的值