设计一个名为“bd2”的表单，表单的标题为“零件装配情况”。表单中有一个表格控件和两个命令按钮“查询”和“关闭”。运行表单时，单击“查询”命令按钮后，要求表格中显示产品编号“0003”所使用的零件的零件名称、规格和数量。单击“关闭”按钮关闭表单。
第1题：
设计文件名为“bd2”的表单。表单的标题为“采购金额统计”。表单中有一个选项组控件和两个命令按钮：“排序”和“关闭”。其中，选项组控件有两个按钮“升序”和“降序”。
运行表单时，在选项组控件中选择“升序”或“降序”，单击“排序”命令按钮，查询“采购信息”表中每个职工采购的总金额（用数量乘以商品表中的价格），查询结果中包括“职工编号”、“职工姓名”和“总金额”，并按“总金额”升序或降序（根据选顶组控件）将查询结果分别存入表“table1”和表“table2”中。
单击“关闭”按钮关闭表单。
【考点指引】本大题考查了表单设计，主要考查选项组、命令按钮控件的使用，重点是命令按钮事件代码的鳊写。
【操作步骤】
①选择【文件】→【新建】命令，选择“表单”，单击“新建文件”按钮打开表单设计器，在表单属性窗口中将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”，保存在考生文件夹下，然后运行表单。
第2题：
“销售”数据库中含有两个数据库表“商品信息”和“销售汇总”。对“销售”数据库设计一个表单“bd3”，表单的标题为“商品销售汇总”，表单中有标题为“请选择商品”标签和用于选择“商品编号”的组合框及“查询”和“关闭”两个命令按钮，表单中还有一个表格控件。
表单运行时，用户在组合框中选择“商品编号”，单击“查询”按钮，在表单上的表格控件显示查询该商品的“商品编号”、“商品名称”、“年度”、“数量”和“金额”。
单击“关闭”按钮，关闭表单。
【考点指引】本大题考查的是表单的设计及表格控件和组合框的使用，主要注意表格控件数据源的设置。
【操作步骤】
①选择【文件】→【新建】命令，选择“表单”，单击“新建文件”按钮打开表单设计器，在表单属性窗口中将“Caption”属性值修改为“商品销售汇总”。单击表单控件工具栏上的“标签”控件图标，为表单添加～个标签Label1，单击表单控件工具栏上的“组合框”控件图标，为表单添加一个组合框Com-bol，单击表单控件工具栏上的“命令按钮”控件图标，为表单添加两个命令按钮Command1和Command2，单击表单控件工具栏上的“表格”控件图标，添加一个表格控件Grid1。
②选择标签Label1，在标签属性窗口中将Caption属性值修改为“请选择商品”，分别选择命令按钮，将Command1的Caption属性值修改为“查询”，将Command2的Caption属性值修改为“关闭”，如图90-1所示。双击“关闭”命令按钮，在Click事件中输入代码：ThisForm．Release，用来关闭表单。
③选择表格控件“Grid1”，在表格控件属性窗口中将“ReeordSource”属性值修改为“""”，将“RecordSourceType”属性值修改为“1”。
④选择组合框，在组合框属性窗口中双击“Init Event”，打开Init事件代码编辑窗口，输入以下过程代码：
SELECT*INTO ARRAY aa FROM商品信息
FOR i=1 TO ALEN(aa)／2
ThisForm．Comb01．Addltem(aa(i，1))
NEXT
⑤双击“查询”命令按钮，打开Click事件代码编辑窗口，输入以下过程代码：
SELECT商品信息．商品编号，商品名称，年度，数量，
金额INTO CURSOR tmp FROM商品信息，销售汇总
WHERE商品信息．商品编号=销售汇总．商品编号
AND商品信息．商品编号=ThisForm．Comb01．dis-
playvalue
ThisForm．Grid1．RecordSourceType=1
ThisForm．Grid1．RecordSource="trap"
ThisForm．Grid1．Refresh
⑥选择【表单】→【执行表单】命令，系统首先要求保存该表单文件，在弹出的“另存为”对话框中输入表单文件名 “bd3”，保存在考生文件夹下，然后运行表单。
第3题：
在考生文件夹下设计名为supper的表单(表单名和文件名均为supper)，表单的标题为“零件供应情况”。表单中有1个表格控件和2个命令按钮查询和退出。
运行表单时单击查询命令按钮后，表格控件中显示“供应”表工程号为“A1”所使用的零件的“零件名”、“颜色”、和“重量”。并将结果放到表jie中。
单击“退出”按钮关闭表单。
双击命令按钮“查询”编写该控件的Click事件程序代码如下：
******命令按钮Command1(查询)的Click事件代码*****
SELECT零件名颜色重量；
FROM零件供应；
WHERE 供应.零件号=零件.零件号AND工程号='Al';
DdTO TABLE jie
Thisform.Gridl.RecordSourceType=1
Thisform.Gridl.RecordSource="jie"
*********************************************************
以同样的方法为“退出”命令按钮编写Click事件代码：Thisform.Release。
保存表单完成设计查看表单运行结果如图3-136所示。
双击命令按钮“查询”，编写该控件的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的简单联接查询。
第4题：
设计名为“bd1”的表单。表单标题为“学习情况浏览”。表单中有一个选项组控件、一个表格、两个命令按钮“成绩查询”和“关闭”。其中，选项组控件有两个按钮“升序”和“降序”。根据选择的选项组控件，将选修了“VFP入门”的学生的“学号”、“姓名”和“成绩”按成绩排序显示到表格中并存入“result．dbf”文件中。
第5题：
对考生文件夹下的“产品”数据库及其中的“产品”表和“零件”表建立如下表单：设计名为“bd2”的表单。表单的标题为“零件装配情况”。表单中有一个表格控件和两个命令按钮“查询”和“关闭”。运行表单时，单击“查询”命令按钮后，表格控件中显示了使用零件编号为“000005”的产品的所有信息。单击“关闭”按钮关闭表单。
第6题：
设计一个文件名和表单名均为“bdl”的表单。表单的标题为“外汇持有情况”。表单中有一个选项按钮组控件、一个表格控件及两个命令按钮“查询”和“关闭”。其中，选项按钮组控件有3个按钮“美元”、“英镑”和“港币”。运行表单时，在选项组控件中选择“美元”、“英镑”和“港币”，单击“查询”命令按钮后，根据选项组控件的选择将“外汇账户”表的情况显示在表格控件中。单击“关闭”按钮，关闭并释放表单。
第7题：
设计名为mysupply的表单(表单的控件名和文件名均为mysupply)。表单的标题为“零件供应情况”。表单中有一个表格控件和两个命令按钮“查询”(名称为Command1)和“退出” (名称为Command2)。
运行表单时，单击“查询”命令按钮后，表格控件(名称grid1)中显示了工程号“J4”所使用的零件的零件名、颜色和重量。
单击“退出”按钮关闭表单。
图3-84
双击命令按钮Command1(查询)编写该控件的Click 事件程序代码如下：
******命令按钮Command1(查询)的Click 事件代码*****
SELECT 零件.零件名零件.颜色零件.重量；
FROM 供应零件!零件 INNER JOIN 供应零件!供应；
ON 零件.零件号=供应.零件号；
WHERE供应.工程号=”J4”；
IMTO CURSOR temp
Thiaform.Grid1.RecordSourceType=1
Thisform.Grid1.RecordSource="temp"
***************************************************
以同样的方法为“退出”命令按钮编写Click事件代码：
****命令按钮Command2(退出)的Click 事件代码****
Thisform. Release
****************************************************
保存表单完成设计。表单运行结果如图3-85所示。
图3-85
图3-84
双击命令按钮Command1(查询)，编写该控件的Click 事件，程序代码如下：
******命令按钮Command1(查询)的Click 事件代码*****
SELECT 零件.零件名，零件.颜色，零件.重量；
FROM 供应零件!零件 INNER JOIN 供应零件!供应；
ON 零件.零件号=供应.零件号；
WHERE供应.工程号=”J4”；
IMTO CURSOR temp
Thiaform.Grid1.RecordSourceType=1
Thisform.Grid1.RecordSource="temp"
***************************************************
以同样的方法为“退出”命令按钮编写Click事件代码：
****命令按钮Command2(退出)的Click 事件代码****
Thisform. Release
****************************************************
保存表单完成设计。表单运行结果如图3-85所示。
图3-85 解析：本大题考查的是表单设计，在设计控件属性中，不要将控件的标题(Caption)和名称(Name)属性弄混淆了，名称属性是该控件的一个内部名称，而标题属性是用来显示的一个标签名称。程序部分属于SQL的简单联接查询，在显示查询结果时，首先可用一个临时表保存查询结果，然后将表格控件中来显示数据的属性值设置为该临时表，用来显示查询结果。
第8题：
“sale”数据库中含有两个数据库表：“购买信息”和“会员信息”。对“sale”数据库设计一个表单“bd2”。表单的标题为“会员购买统计”。表单左侧有标题为“请选择会员”标签和用于选择“会员编号”的组合框以及“查询”和“关闭”两个命令按钮。表单中还有一个表格控件。表单运行时，用户在组合框中选择“会员编号”，单击“查询”按钮，在表单上的表格控件显示查询该会员的“会员编号”、“姓名”“年度”和所购买的商品的“购买金额”。单击“关闭”按钮，关闭表单。
第9题：
设计名为“mysupply”的表单。表单的标题为“零件供应情况”。表单中有一个表格控件和两个命令按钮“查询”和“退出”。 运行表单时，单击“查询”命令按钮后，表格控件中显示工程号“J1”所使用的零件的零件名、颜色和重量。单击“退出”按钮关闭表单。
