第七章_VBA 数据库技术知识与应用 ACESS.pptVIP

主讲：王海燕E-mail：mail_wanghaiyan@;要点;7.1 基本概念;2、VBA编程环境 ;工具栏 工程资源管理器窗口 属性窗口 代码窗口 ;7.2.1 语句;7.2.2 变量;数据类型;科学计数法;声明变量;变量数组;变量赋值;变量命名规则;7.2.3 运算符 ;7.2.4 函数 ;InputBox函数 InputBox(提示[,标题][,默认][,X坐标位置][,Y坐标位置]) 例如： Private Sub Form_Load() Dim StrMsg As String, StrTitle As String, StrName As String StrMsg = 请输入你的名字： StrTitle = InputBox示例 StrName = InputBox(StrMsg, StrTitle, 李四) End Sub ;7.2.5 连接数据库对象 ;Access根对象有6个，如表所示 ：; 每个对象都有许多属性，属性就是用来描述和反映对象特征的参数，例如，一个文本框的名称、颜色、字体、是否可见等属性。 设置方法： 在设计视图中，可以通过属性窗口直接设置。 在程序代码中，则通过赋值的方式来设置对象的属性，其格式为：对象.属性 = 属性值 例如：Label1.Caption = “学生成绩表” ;;2. 对象和对象库编址; 对于对象而言，事件就是发生在该对象上的事情或消息。系统为每个对象预先定义好了一系列的事件，例如，Click（单击）、DbClick（双击）等。 当在对象上发生事件后，应用程序就要处理这个事件，而处理的步骤就是事件过程。它是针对某一个对象的过程，并与该对象的一个事件相联系。;;示例演示;常用事件;7.2.7 程序语句 ;;VBA控制结构;1、顺序结构 ;;2. 分支结构;If…Then…Else结构 If 表达式 Then 语句块1 Else 语句块2 End If ;If…Then…ElseIf结构 If 表达式1 Then 语句块1 ElseIf 表达式2 Then 语句块2 …… [Else 语句块n+1] End If ;;示例－购物打折;计算折扣的代码为：;3、Select Case语句 ;示例－单击;示例－购物打折;4、For循环语句 ;;示例－求和;5、Do…Loop语句 ;;示例－求和;数组;示例1－求数组中各元素的和及平均数;;本 章 小 结