数据库技术与应用Access 2003版第10章 模块与VBA.pptVIP

【格式】 （1） If 表达式 Then 语句块 End If （2） If 表达式 Then 语句 1、单分支结构 【示例】在文本框TxtCJ中输入一个成绩，若成绩=60，点击“计算”按钮CmdCJ后，标签LblCJ中显示文字“及格”。 Private Sub CmdCJ_Click() If TxtCJ.Value = 60 Then LblCJ.Caption = 及格 End If End Sub 【格式】 If 表达式 Then 语句块1 Else 语句块2 End If 2、双分支结构 【示例】在文本框TxtCJ中输入一个成绩，若成绩=60，点击“计算”按钮CmdCJ后，标签LblCJ中显示文字“及格”；否则，显示“不及格”。 Private Sub CmdCJ_Click() If TxtCJ.Value = 60 Then LblCJ.Caption = 及格 Else LblCJ.Caption = 不及格 End If End Sub 【格式1】 If 表达式1 Then 语句块1 ElseIf 表达式2Then 语句块2 …… [ Else 语句块 n+1 ] End If 3、多分支结构 【示例】在文本框TxtCJ中输入一个成绩，点击“计算”按钮CmdCJ后，标签LblCJ中显示文字“成绩超出范围”、“不及格”、“及格”、“中等”、“良好”、“优秀”。 Private Sub CmdCJ_Click() If TxtCJ.Value = 90 And TxtCJ.Value = 100 Then LblCJ.Caption = 优秀“ …… ElseIf TxtCJ.Value = 0 And TxtCJ.Value 60 Then LblCJ.Caption = 不及格 Else LblCJ.Caption = 成绩超出范围 End If End Sub 3、多分支结构 【格式2】 Select Case 变量或表达式 Case 表达式列表1 语句行序列1 Case 表达式列表2 语句行序列2 …… Case Else 语句行序列n] End Select 表达式列表主要有4种不同形式： 1、单个常量、变量、表达式 2、多个不连续的常量(逗号分隔) 3、指定范围内的多个常量（n to m） 4、IS 和比较运算符组成的表达式 【示例】在文本框TxtCJ中输入一个成绩，点击“计算”按钮CmdCJ后，标签LblCJ中显示文字“成绩超出范围”、“不及格”、“及格”、“中等”、“良好”、“优秀”。 Private Sub CmdCJ_Click() Select Case TxtCJ.Value Case 90 To 100 LblCJ.Caption = 优秀 …… Case 0 To 59 LblCJ.Caption = 不及格 Case Else LblCJ.Caption = 成绩超出范围 End Select End Sub 数据库技术与应用(Access 2003版）》 第10章 模块与VBA 本章主要内容： 10.1 模块 10.2 面向对象程序设计 10.3 数据类型 10.4 结构化程序设计 10.5 ADO数据库编程 模块 　　由于通过Access自带的向导工具创建对象的过程完全依赖于其内部的固有程序模块，很难处理数据库中一些复杂问题。因此，Access为用户提供了它自带的编程语言VBA。 VBA全称Visual Basic for Application，是由微软公司开发出来的一种作为应用程序通用的自动化语言，主要能用来扩展Windows的应用程式功能，特别是Office软件。 VBA的编程环境——VBE 进入VBE的基本方法 “工具”→“宏”→“Visual Basic编辑器” 双击已有或新建一个模块对象 在窗体和报表的设计视图中利用“代码生成器” 对窗体和报表，在设计视图中，点击控件“事件属性” 的“浏览”框 10.1 模块 模块是将VBA的声明和过程作为一个单元进行保存的集合