大学数据库教学第九章vba程序设计.pptVIP

(2) 打开“VBA按钮”代码生成器，在按钮单击事件中输入以下代码： txt.SetFocus If txt <> "" Then x = "select * from 学生 where 学生.学号='" & txt.Text & "'" Me.RecordSource = x else MsgBox "请输入学号" txt.SetFocus End if (3) 运行“学生基本情况浏览”窗体，输入学号，点击“VBA查询”按钮。 * 程序语句: VBA中的语句是能够完成某项操作的一条完整命令，程序由大量的命令语句构成。 VBA中的语句一般分为3种类型： 声明语句：用来为变量、常量、程序或过程命名，指定数据类型。 赋值语句：用来为变量指定一个值或表达式。 执行语句：用来实现各种流程控制。 1. 程序语句书写规则 同任何程序设计语言一样，VBA代码语句也有一定的书写规则。 (1) 不区分字母的大小写 在VBA语句中，不区分字母大小写，但要求标点符号和括号等用英文格式。 语句中的关键字首字母总被转换成大写，其余字母转换成小写。 (2) 语句书写规则 通常将一条语句写在一行，若分多行写时，可在要续行的行尾加上续行符（空格加下划线），在下一行续写语句代码。 在同一行上可以书写多条语句，语句间用冒号“：”分隔，一行允许多达255个字符。 输入一行语句并按Enter键，VBA会自动进行语法检查，如果语句存在错误，该行代码将以红色显示（或伴有错误信息提示）。 (3) 注释语句 方便程序的阅读与维护。 例如： Rem 定义2个变量 Dim a, b a="数据库应用" '该变量用于表明课程名称 b="Access2003" Rem 该变量用于指定使用的数据库 添加到程序中的注释语句，系统默认以绿色文本显示，在VBA运行代码时，将自动忽略掉注释。 2. 声明语句 例如，如下程序段： Private Sub Proc() Dim S as Single, T as Single Const PI=3.14 … End Sub 上述语句声明定义了一个名为Proc的局部子过程，Dim语句定义了2个名称分别为S和T的单精度变量，Const语句定义了一个名为PI的符号常量。 3. 赋值语句 赋值语句用于指定一个值或表达式给变量。使用格式为：变量名=值或表达式。 例如： Dim S as Single S=1.23 S=1.23*5 S="123" '系统自动转换成数值类型再赋值 S="ab234" '出错，类型不匹配 注意：赋值号左边只能是变量语句，不能是常量、常量符号或表达式。 下面均为错误的赋值语句： x+y=3 '左边是表达式 5=sin(x) '左边是常量 x=y=z=11 '不能同时给多个变量赋值 下列语句是实现累加作用的赋值语句: N=N+1 '取变量N的值加1后再赋给N 程序基本结构: 程序的基本结构按流程可以分为顺序结构、选择结构和循环结构三种。 1. 顺序结构 顺序结构是在程序执行时，根据程序中语句的书写顺序依次执行的语句序列。 例9.7 窗体上有一个命令按钮Command1，在其Click事件过程编写代码。根据输入的半径计算球体的表面积。要求用InputBox函数输入半径值，用MsgBox显示计算结果。 Private Sub Command1_Click() Dim r As Single, area As Single Const PI = 3.1415 r = Val(InputBox("输入半径")) area = 4 *PI * r ^ 2 MsgBox "球体表面积=" & area End Sub (1) If 语句 又称为分支语句，它有单路分支和双路分支两种形式。 ① 单路分支 单路分支的语句格式如下： 格式一： If <条件表达式> Then <语句块> End If 格式二： If <条件表达式> Then <语句> T F 表达式成立？ 语句块 2. 选择结构 选择结构是在程序执行时，根据不同的条件选择执行不同的程序语句。 例9.8 窗体上有一个命令按钮Command1，在其Click事件过程编写代码。设口令，用If语句来判断输入密码的正确性。要求用InputBox函数输入密码值，用MsgBox显示判断结果。 Priv