设计文件名为“bd2”的表单。表单的标题为“采购金额统计”。表单中有一个选项组控件和两个命令按钮：“排序”和“关闭”。其中，选项组控件有两个按钮“升序”和“降序”。运行表单时，在选项组控件中选择“升序”或“降序”，单击“排序”命令按钮，查询“采购信息”表中每个职工采购的总金额（用数量乘以商品表中的价格），查询结果中包括“职工编号”、“职工姓名”和“总金额”，并按“总金额”升序或降序（根据选顶组控件）将查询结果分别存入表“table1”和表“table2”中。单击“关闭”按钮关闭表单。

正确答案：
【考点指引】本大题主要考查表单的表格控件和选项按钮组控件的建立及使用，重点是表格数据源的设置。
【操作步骤】
①选择【文件】→【新建】命令，选择“表单”，单击“新建文件”按钮打开表单设计器，在表单属性窗口中将Caption属性值修改为“外汇持有情况”；单击表单控件工具栏上的“选项按钮组”控件图标，为表单添加一个选项按钮组0ptionGroup1；单击表单控件工具栏上的“命令按钮”控件图标，为表单添加两个命令按钮Command1和Command2；单击表单控件工具栏上的“表格”控件图标，再添加一个表格控件“Grid1”。

②选择选项按钮组0ptionGroup1，单击右键，在弹出的快捷菜单中选择“生成器”打开选项按钮组生成器对话框，单击“按钮”选项卡，设置按钮的数目为3，在“标题”列下修改3个按钮的标题分别为“美元”、“英镑”和“港币”，单击“确定”按钮关闭命令组生成器对话框。
③分别选择两个命令按钮，在按钮属性窗口中将命令按钮Command1的Caption属性值修改为“查询”，Command2的Caption属性值修改为“关闭”，如图63–1所示。“关闭”命令按钮，在Click事件中输入代码：ThisForm．Release，用来关闭表单。
④选择表格控件“Grid1”，在表格控件属性窗口中将“RecordSource”属性值修改为“〝〞”，将“RecordsourceType”属性值修改为“1”。
⑤双击“查询”命令按钮，在Click事件中输入代码：
DO CASE
CASE ThisForm．Option Group1．value=1
SELECT外汇账户．*INTO CURSOR tmp FROM外汇账户，货币代码WHERE外汇账户．货币代码=货币代码．货币代码AND货币名称=〝美元〞
CASE ThisForm．Option Group1．value=2
SELECT外汇账户．*INTO CURSOR tmp FROM外汇账户，货币代码WHERE外汇账户．货币代码=货币代码．货币代码AND货币名称=〝英镑〞
CASE ThisForm．Option Group1．value=3
SELECT外汇账户．*INTO CURSoR tmp FROM外汇账户，货币代码WHERE外汇账户．货币代码=货币代码．货币代码AND货币名称=〝港币〞
ENDCASE
This Form．Grid1．Record SourceType=1
This Form．Grid1．Record Source=〝tmp〞
This Form．Grid1．Refresh
⑥选择【表单】→【执行表单】命令，系统首先要求保存该表单文件，在弹出的“另存为”对话框中输入表单文件名“bd1”，保存在考生文件夹下，然后运行表单。

正确答案：
【考点指引】本大题主要考查表单的设计及表单选项组控件的使用。
【操作步骤】
①选择【文件】→【新建】命令，选择“表单”，单击“新建文件”按钮打开表单设计器，单击表单控件工具栏上的“命令按钮组”控件图标，为表单添加一个命令按钮组Command Group1；单击表单控件工具栏上的“命令按钮”控件图标，为表单添加两个命令按钮Command1和Command2；单击表单控件工具栏上的“表格”控件图标，再添加一个表格控件Grid1。
②选择命令按钮组Command Group1，单击右键，在弹出的快捷菜单中选择“生成器”打开命令组生成器对话框，单击“按钮”选项卡，设置按钮的数目为“2”，在“标题”列下修改3个按钮的标题分别为“升序”、“降序”，单击“确定”按钮关闭命令组生成器对话框。
④分别选择两个命令按钮，在按钮属性窗口中将命令按钮Command1的Caption属性值修改为“成绩查询”，Command2的Caption属性值修改为“关闭”，如图551所示。双击“关闭”命令按钮，在Click事件中输入代码：ThisForm．Release，用来关闭表单。

④双击“成绩查询”命令按钮，在Click事件中输入代码：
Do CASE
CASE This Form．Command Group1．value＝1
SELECT student．学号，姓名，成绩INTO TABLE
result FROM student，score，course WHERE
student．学号＝score．学号AND score．课程编号
＝course．课程编号AND课程名称＝”VFP入门”
ORDER BY成绩
CASEThisForm．Command Group1．value＝2
SELECTstudent．学号，姓名，成绩INTO TABLE
result FROM tstudent，score，course WHERE
student．学号＝score．学号ANDscore．课程编号
＝course．课程编号AND课程名称＝”VFP入门”
ORDER BY成绩DESC
END CASE
ThisForm．Gridl．RecordSourceType＝0
ThisForm．Gridl．RecordSource＝"result”
ThisForm．Gridl．Refresh
⑤选择【表单】→【执行表单】命令，系统首先要求保存该表单文件，在弹出的“另存为”对话框中输入表单文件名“bd1”，保存在考生文件夹下，然后运行表单。
⑥执行“成绩查询”菜单命令后，系统自动将查询结果保存在所建立的新数据表文件“result．dbf”中。

正确答案：

【考点指引】本大题主要考查表单的建立和表格控件的使用，重点是表格控件数据源的设置。
【操作步骤】
①选择【文件】→【新建】命令，选择“表单”，单击“新建文件”按钮打开表单设计器，将Caption属性值修改为”零件装配情况”；单击表单控件工具栏上的“命令按钮”控件图标，为表单添加两个命令按钮Command1、Command2；单击表单控件工具栏上的“表格控件图标，再添加一个表格控件。
②分别选择两个命令按钮，在按钮属性窗口中将命令按钮Command1的Caption属性值修改为“查询”，将命令按钮Command2的Caption属性值修改为“关闭”，如图31–1所示。双击“关闭”命令按钮，在Click事件中输入代码：ThisForm．Release，用来关闭表单。

③选择表格控件“Grid1”，在表格控件属性窗口中将“RecordSource”属性值修改为“〝″’，将“RecordSourceType”属性值修改为“1”。
④双击“查询”命令按钮，在Click事件中输入代码：
SELECT零件名称，规格，数量INTO CURSOR tmp FROM产品，零件WHERE产品．零件编号=零件．零件编号AND产品．产品编号=〝0003″
ThisForm．Grid1．ReeordSourceType=1
ThisForm．Grid1．RecordSource=〝tmp″
ThisForm．Grid1．ReFresh
⑤选择【表单】→【执行表单】命令，系统首先要求保存该表单文件，在弹出的“另存为”对话框中输入表单文件名“bd2”，保存在考生文件夹下，然后运行表单。

正确答案：
【考点指引】本大题主要考查表单的建立和表格控件的使用，重点是表格控件数据源的设置。
【操作步骤】
①选择【文件】→【新建】命令，选择“表单”，单击“新建文件”按钮打开表单设计器，将Caption属性值修改为“零件装配情况”，单击表单控件工具栏上的“命令按钮”控件图标，为表单添加两个命令按钮Command1、Command2，单击表单控件工具栏上的“表格”控件图标，再添加一个表格控件。
②分别选择两个命令按钮，在按钮属性窗口中将命令按钮Command1的Caption属性值修改为“查询”，Command2的Caption属性值修改为“关闭”，如图76-1所示。双击“关闭”命令按钮，在Click事件中输入代码：ThisForm．Release，用来关闭表单。

③选择表格控件“Grid1”，在表格控件属性窗口中将“RecordSource”属性值修改为“〝〞”，将“RecordSourceType”属性值修改为“1”。
④双击“查询”命令按钮，在Click事件中输入代码：
SELECT产品．*INTO CURSOR tmp FROM产品，零件WHERE产品．零件编号=零件．零件编号AND零件．零件编号=〝000005〞
ThisForm．Grid1．ReeordSourceType=1
ThisForm．Grid1．RecordSource=〝tmp〞
ThisForm．Grid1．ReFresh
⑤选择【表单】→【执行表单】命令，系统首先要求保存该表单文件，在弹出的“另存为”对话框中输入表单文件名“bd2”，保存在考生文件夹下，然后运行表单。

正确答案：在命令窗口中输入命令：CREATE FORMmy打开表单设计器新建表单。 从表单控件工具栏中向表单添加2个命令按钮(Command1和Command2)和1个选项按钮组 (Optiongroup1)。根据题意在属性面板中修改表单的Caption属性值为“学习情况浏览”修改命令按钮Command1的Caption属性值为“成绩查询”修改命令按钮Command2的Caption属性值为“关闭”修改选项按钮组(Optiongroup1)的Name属性值为“myop”然后右击选项按钮组选择“编辑”快捷菜单命令在此状态下(编辑状态下控件四周出现蓝色框线)分别修改两个单选项的Caption属性值为“升序”和“降序”。 双击“成绩查询”命令按钮编写Click事件代码内容如下： ******命令按钮Command1(成绩查询)的Click事件代码***** DO CASE CASE Thisform.myop.Value=1 SELECT 学号成绩； FROM 课程选课； WHERE 课程.课程号=选课.课程号AND课程名称="数据结构"； ORDER BY 成绩； INTO TABLE new1 CASE Thisform.myop.Value=2 SELECT 学号成绩； FROM 课程选课； WHERE 课程.课程号=选课.课程号AND课程名称="数据结构"； ORDER BY成绩DESC； INTO TABLE new2 ENDCASE ********************************************************* 同样在“关闭”命令按钮的Click事件中输入：Thisform.Release。 运行表单结果如图3-139所示保存表单设计到考生文件夹下。
在命令窗口中输入命令：CREATE FORMmy，打开表单设计器，新建表单。 从表单控件工具栏中，向表单添加2个命令按钮(Command1和Command2)和1个选项按钮组 (Optiongroup1)。根据题意，在属性面板中，修改表单的Caption属性值为“学习情况浏览”，修改命令按钮Command1的Caption属性值为“成绩查询”，修改命令按钮Command2的Caption属性值为“关闭”，修改选项按钮组(Optiongroup1)的Name属性值为“myop”，然后右击选项按钮组，选择“编辑”快捷菜单命令，在此状态下(编辑状态下，控件四周出现蓝色框线)，分别修改两个单选项的Caption属性值为“升序”和“降序”。 双击“成绩查询”命令按钮，编写Click事件代码，内容如下： ******命令按钮Command1(成绩查询)的Click事件代码***** DO CASE CASE Thisform.myop.Value=1 SELECT 学号，成绩； FROM 课程，选课； WHERE 课程.课程号=选课.课程号AND课程名称="数据结构"； ORDER BY 成绩； INTO TABLE new1 CASE Thisform.myop.Value=2 SELECT 学号，成绩； FROM 课程，选课； WHERE 课程.课程号=选课.课程号AND课程名称="数据结构"； ORDER BY成绩DESC； INTO TABLE new2 ENDCASE ********************************************************* 同样在“关闭”命令按钮的Click事件中输入：Thisform.Release。 运行表单，结果如图3-139所示，保存表单设计到考生文件夹下。 解析：本大题考查宁表单设计，在设计控件属性时，不要将控件的标题和名称属性弄混淆了；程序部分可利用DO CASE的分支语句，每个分支语句包含一个相应的SQL查询语句，根据选项组中单选项的内容，查找相应的数据记录存入新表中。