设计名为my的表单。表单标题为“学习情况浏览”。表单中有1个选项组控件(名为myop)、2个命令按钮“成绩查询”和“关闭”。其中，选项组控件有两个按钮“升序”和“降序”。根据选择的选项组控件，将选修了“数据结构”的学生的“学号”和“成绩”分别存入new1. dbf和new2.dhf文件中。

正确答案：
【考点指引】本大题主要考查表单的设计及表单选项组控件的使用。
【操作步骤】
①选择【文件】→【新建】命令，选择“表单”，单击“新建文件”按钮打开表单设计器，单击表单控件工具栏上的“命令按钮组”控件图标，为表单添加一个命令按钮组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属性值修改为“采购金额统计”，单击表单控件工具栏上的“选项按钮组”控件图标，为表单添加一个选项按钮组OptionGroup1，单击表单控件工具栏上的“命令按钮”控件图标，为表单添加两个命令按钮Command1和Command2。
②选择选项按钮组0ptionGroup1，单击右键，在弹出的快捷菜单中选择“生成器”打开选项按钮组生成器对话框，单击“按钮”选项卡，设置按钮的数目为“2”，在“标题”列下修改两个按钮的标题分别为“升序”和“降序”，单击“确定”按钮关闭命令组生成器对话框。
③分别选择两个命令按钮，在按钮属性窗口中将Command1的Caption属性值修改为“排序”，Command2的Caption属性值修改为“关闭”，如图88-1所示。双击“关闭”命令按钮，在Click事件中输入代码：ThisForm．Release，用来关闭表单。

④双击“排序”命令按钮，在Click事件中输入代码：
DO CASE
CASE ThisForm．OptionGroup1．value=1
SELECT员工信息．职工编号，员工信息．姓名，
SUM(数量*价格)AS总金额INTO TABLE ta
blel FROM采购信息，员工信息，商品信息
WHERE采购信息．职工编号=员工信息．职工编
号AND采购信息．商品编号=商品信息．商品编
号GROUP BY员工信息．职工编号ORDER BY
总金额
SELECT*FROM table1
CASE ThisForm．OptionGroup1．value=2
SELECT员工信息．职工编号，员工信息．姓名，
SUM(数量*价格)AS总金额INTO TABLE ta-
ble2 FROM采购信息，员工信息，商品信息
WHERE采购信息．职工编号=员工信息．职工编
号AND采购信息．商品编号=商品信息．商品编
号GROUP BY员工信息．职工编号ORDER BY
总金额DESC
SELECT*FROM table2
ENDCASE
⑤选择【表单】→【执行表单】命令，系统首先要求保存该表单文件，在弹出的“另存为”对话框中输入表单文件名“bd2”，保存在考生文件夹下，然后运行表单。

正确答案：在命令窗口中输入命令：CREATE FORM supper打开表单设计器通过“常用工具栏”向表单添加 1个表格和2个命令按钮。 选中表单在属性面板中修改Name的属性值为supper将Caption的属性值改为“零件供应情况”然后在属性面板顶端的下拉框中选择Command1修改该命令按钮控件的Caption属性值为“查询”以同样的方法将第二个命令按钮设置Caption属性值改为“退出”如图2-135所示。 双击命令按钮“查询”编写该控件的Click事件程序代码如下： ******命令按钮Command1(查询)的Click事件代码***** SELECT零件名颜色重量； FROM零件供应； WHERE 供应.零件号=零件.零件号AND工程号='Al'; DdTO TABLE jie Thisform.Gridl.RecordSourceType=1 Thisform.Gridl.RecordSource="jie" ********************************************************* 以同样的方法为“退出”命令按钮编写Click事件代码：Thisform.Release。 保存表单完成设计查看表单运行结果如图3-136所示。
在命令窗口中输入命令：CREATE FORM. supper，打开表单设计器，通过“常用工具栏”向表单添加 1个表格和2个命令按钮。 选中表单，在属性面板中修改Name的属性值为supper，将Caption的属性值改为“零件供应情况”，然后在属性面板顶端的下拉框中选择Command1，修改该命令按钮控件的Caption属性值为“查询”，以同样的方法将第二个命令按钮设置Caption属性值改为“退出”，如图2-135所示。 双击命令按钮“查询”，编写该控件的Click事件，程序代码如下： ******命令按钮Command1(查询)的Click事件代码***** SELECT零件名，颜色，重量； FROM零件，供应； WHERE 供应.零件号=零件.零件号AND工程号='Al'; DdTO TABLE jie Thisform.Gridl.RecordSourceType=1 Thisform.Gridl.RecordSource="jie" ********************************************************* 以同样的方法为“退出”命令按钮编写Click事件代码：Thisform.Release。 保存表单完成设计，查看表单运行结果，如图3-136所示。 解析：本大题考查的是表单设计，在设计控件属性中，不要将控件的标题和名称属性弄混淆，名称属性是该控件的一个内部名称，而标题属性是用来显示的一个标签名称。程序部分属于SQL的简单联接查询。

正确答案：

【考点指引】本大题主要考查表单的设计和使用，重点是表格控件、按缸选项组的使用，注意表格控件的数据源设置。

【操作步骤】
①选择【文件】→【新建】命令，选择“表单”，单击“新建文件”按钮打开表单设计器；单击表单控件工具栏上的“选项按钮组”控件图标，为表单添加一个选项按钮组0ption–Group1；单击表单控件工具栏上的“命令按钮”控件图标，为表单添加两个命令按钮Command1和Command2；单击表单控件工具栏上的“表格”控件图标，再添加一个表格控件
Grid1。
②选择选项按钮组0ptionGroup1，单击右键，在弹出的快捷菜单中选择“生成器”打开选项按钮组生成器对话框，单击“按钮”选项卡，设置按钮的数目为3个，在“标题”列下修改3个按钮的标题分别为“课程信息”、“学生信息”和“成绩信息”，单击“确定”按钮关闭命令组生成器对话框。
③分别选择两个命令按钮，在按钮属性窗口中将命令按钮Command1的Caption属性值修改为“浏览”、Command2的Caption属性值修改为“关闭”，如图33-1所示。双击“关闭”命令按钮，在Click事件中输入代码：ThisForm．Release，用来关闭表单。
④选择表格控件“Grid1”，在表格控件属性窗口中将“RecordSource”属性值修改为“〝″”，将“RecordSourceType”属性值修改为“1”。
⑤双击“浏览”命令按钮，在Click事件中输入代码：
DO CASE
CASE ThisForm．OptionGroup1．value=1
SELECT课程编号，课程名称INTO CURSOR tmp FROM course
CASE ThisForm．OptionGroup1．value=2
SELECT学号，姓名，性别，出生日期INTO CURSOR trap FROM student
CASE ThisForm．OptionGroup1．value=3
SELECT姓名，课程名称，成绩INTO CURSOR tmp FROM student，score，course WHERE student．学号=score．学号AND course．课程编号=score．课程编号
ENDCASE
ThisForm：Grid1．RecordSourceType=1
ThisForm．Grid1．RecordSource=〝tmp″
ThisForm．Grid1．Refresh
⑥选择【表单】→【执行表单】命令，系统首先要求保存该表单文件，在弹出的“另存为”对话框中输入表单文件名“bd2”，保存在考生文件夹下，然后运行表单。