图8-12 宏操作设计
（3）把窗体切换到窗体视图下，单击按钮可以看到效果。
2． 操作步骤如下：
（1）打开“教学管理信息系统”数据库，在数据库窗口的“对象”列表中选择“宏”，并单击工具条上的“新建”按钮，打开了空白的宏设计窗口。
（2）单击“视图”菜单下的“条件”命令，在宏设计窗口中增加了“条件”列，创建宏操作如图8-13所示，条件列内容为“Weekday(Date()，2)=7”。保存为宏名“实训8．3．2”。
图8-13 条件宏操作设计
（3）打开“教学管理信息系统”数据库，在数据库窗口中选择“窗体”对象，双击右边窗格中的“8-03学生成绩查询界面”窗体，把打开的窗体切换到设计视图下。
（4）双击“查询”按钮，打开控件属性对话框。单击“事件”标签，在“单击”事件后选择宏“实训8．3．2”。关闭属性对话框。
（5）把窗体切换到窗体视图下，单击按钮可以看到效果。 3． 操作步骤如下：
（1）打开“教学管理信息系统”数据库，在数据库窗口的“对象”列表中选择“宏”，并单击工具条上的“新建”按钮，打开了空白的宏设计窗口。
（2）单击“视图”菜单下的“条件”命令，在宏设计窗口中增加了“条件”列，创建宏操作如图8-14所示，操作参数如表8-1所示。保存为宏名“实训8．3．3”。
图8-14 条件宏操作设计
表8-1 操作参数
条件 IsNull(DLookUp(\姓名]\，\学生\，\姓MsgBox 名]=[Forms]![实训8．3．3]![name]\消息：此人不存在 宏命令 GoToControl FindRecord =[Forms]![实训8．3．3]![name] FindNext 控件名称：姓名 查找内容： 操作参数
（3）打开“教学管理信息系统”数据库，在数据库窗口中选择“窗体”对象，双击右边窗格中的“实训8．3．3”窗体，把打开的窗体切换到设计视图下。
（4）双击“查询”按钮，打开控件属性对话框。单击“事件”标签，在“单击”事件后选择宏“实训8．3．3”。关闭属性对话框。
（5）把窗体切换到窗体视图下，输入要查找的姓名，单击查询按钮则可以看到效果。 实训8.4宏的综合练习 1． 操作步骤如下：
（1）打开“教学管理信息系统”数据库，在数据库窗口的“对象”列表中选择“宏”，并单击工具条上的“新建”按钮，打开了空白的宏设计窗口。
（2）单击“视图”菜单下的“条件”命令，在宏设计窗口中增加了“条件”列，创建宏操作如图8-15所示，操作参数如表8-2所示，保存为宏名“实训8．4．1”。
图8-15 条件宏操作设计
表8-2操作参数
条件 [Forms]![学生登陆]![name] Is Null Or MsgBox [Forms]![学生登陆]![password] Is Null 类型：警告 消息：用户名或密码不正确！请重输 [Forms]![学生登陆]![name]<>\MsgBox [Forms]![学生登陆录]![password]<>\类型：警告 项目： [Forms]![学生登陆]![name] ... SetValue 表达式：\项目： [Forms]![学生登陆]![password] ... ... ... [Forms]![学生登陆]![name]=\Close [Forms]![学生登陆]![password]=\... ... OpenForm MsgBox 窗体名称：8-02学生成绩查询 消息：登陆成功，欢迎您 SetValue 表达式：\GoToControl StopMacro 控件名称：[name] 发嘟嘟声：是 发嘟嘟声：是 宏命令 操作参数 消息：用户名和密码不能为空 （3）打开“教学管理信息系统”数据库，在数据库窗口中选择“窗体”对象，双击右边窗格中的“学生登录”窗体，把打开的窗体切换到设计视图下。
（4）双击“登录”按钮，打开控件属性对话框。单击“事件”标签，在“单击”事件后选择宏“实训8．4．1”。关闭属性对话框。
（5）单击“教学管理信息系统”数据库中的宏对象，对 “实训8．4．1” 宏进行复制，重命名为“AutoKeys”，并在宏设计窗口中打开它。
（6）单击视图菜单下的宏名命令，在第一行的宏名列下输入“^d”。保存宏即可。 2． 操作步骤如下：
（1）开数据库“教学管理信息系统”数据库，单击“宏”对象，再选择“新建”按钮，进入宏编辑窗口。
（2）进行如图8-16，图8-17所示的宏操作。
图8-16 菜单宏操作设计一 图8-17 菜单宏操作设计二
（3）按
（4）打开数据库中的“8-06学生资料浏览”窗体。切换到设计视图下，打开窗体属性对话框。在“其它”标签中“菜单栏”属性项的文本框内输入宏名“实训8．4．2”。保存“8-06学生资料浏览”窗体，返回“数据库”窗口。
（5）在“数据库”窗口，打开“8-06学生资料浏览”，设置的菜单也随之打开，选择其中的菜单选项，可以打开对应在子菜单。效果如图8-18所示。
图8-18 菜单效果图
第九章 模块和VBA程序设计
一、选择题
1．C 2．D 3．A 4．A 5．D 6．C 7．C 8．D 9．B 10．C 11．C 12．A 13．A 14．C 15．B 16．B 17．C 18．C 19．A 20．B
二、填空题
1．符号常量。
2．隐含型变量、显式变量。 3．乘法、除法、加法、减法。 4．&、+。 5．赋值语句。 6．Sub。 7．两。 8．子过程。
9．顺序、选择、循环。 10．ADO。 11．140。 12．2。
13．35 25 12，d=b:b=c:c=d。 14．5，互换两数。 15．k=k\\10，Is<6。
三、上机实训
实训9．1 模块程序设计和VBA控制语句 1．操作步骤如下：
（1）打开数据库，选择“模块”对象。
（2）单击工具栏上的“新建”按钮。出现本书第九章图9-4所示的“Microsoft Visual Basic”窗口。
图9-4 “Microsoft Visual Basic”窗口
（3）在代码窗口中输入下列代码：
Sub Area（）
Dim s As Double, r As Single