仓库管理数据库中含有3个数据库表“订购单”、“职工”和“供应商”。设计一个表单myf，表单的标题为“仓库管理”。表单左侧有标题为“请输入订购单号”标签，和用于输入订购单号的文本框，以及“查询”和“关闭”2个命令按钮和1个表格控件。表单运行时，用户在文本框内输入“订购单号” (如OR73)，单击“查询”按钮，查询出对应的订购单的“供应商名”、“职工号”、“仓库号”和“订购日期”。表单的表格控件用于显示查询结果。单击“关闭”按钮，关闭表单。

正确答案：在命令窗口中输入命令：CREATE FORM my打开表单设计器通过“表单控件”工具栏向表单添加 2个命令按钮。选中表单在属性面板中修改Caption的属性值为“成绩查询”在属性面板顶端的下拉框中选择Command1修改该命令按钮控件的Caption属性值为“查询”选择Command2修改该命令按钮控件的Caption属性值为“关闭”。 双击“查询”按钮在Click事件中编写程序命令： ******命令按钮Command1(查询)的Click事件代码***** SELECT课程名MAX(成绩)AS最高分； FROM课程成绩； WHERE课程.课程号=成绩课程号； GROUP BY课程.课程号； INTO TABLE myt ******************************************************* 最后双击“关闭”按钮在Click事件中编写程序命令：Thisform.Release。 保存并运行表单。通过BROWSE命令可查看查询结果如图3-45所示。
在命令窗口中输入命令：CREATE FORM. my，打开表单设计器，通过“表单控件”工具栏向表单添加 2个命令按钮。选中表单，在属性面板中修改Caption的属性值为“成绩查询”，在属性面板顶端的下拉框中选择Command1，修改该命令按钮控件的Caption属性值为“查询”，选择Command2，修改该命令按钮控件的Caption属性值为“关闭”。 双击“查询”按钮，在Click事件中编写程序命令： ******命令按钮Command1(查询)的Click事件代码***** SELECT课程名,MAX(成绩)AS最高分； FROM课程，成绩； WHERE课程.课程号=成绩，课程号； GROUP BY课程.课程号； INTO TABLE myt ******************************************************* 最后双击“关闭”按钮，在Click事件中编写程序命令：Thisform.Release。 保存并运行表单。通过BROWSE命令可查看查询结果，如图3-45所示。 解析：本大题考查了表单设计，在设计控件属性时，不要将控件的标题和名称属性弄混淆了；程序部分考查了MAX函数的应用，考生应该熟悉各种函数的应用以及GROUP BY与ORDER BY的区别。

正确答案：

【考点指引】本大题考查的是表单的设计及表格控件和组合框的使用，主要注意表格控件数据源的设置。
【操作步骤】
①选择【文件】→【新建】命令，选择“表单”，单击“新建文件”按钮打开表单设计器，在表单属性窗口中将“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”，保存在考生文件夹下，然后运行表单。

正确答案：
【操作步骤】
①在Visual FoxPr0的命令窗口内输入命令：CREATE FORM MYFORM，打开表单设计器。
②单击主菜单【显示】→“数据环境”命令，右击数据环境窗口，选择“添加”命令，在打开的对话框内选择“购买”表和“会员”表。
③单击表单控件工具栏上的“标签”控件图标，向表单添加一个“标签”控件，修改其Caption属性为“会员购买统计”。
④单击表单控件工具栏上的“组合框按钮”控件图标，向表单添加一个组合框控件。将组合框的RowSourceType设置为“6一字段”，将RowSource设置为“会员．会员号”。
⑤单击表单控件工具栏上的“命令按钮”控件图标，向表单添加两个命令按钮。
⑥选中第一个命令按钮，在属性对话框中将其Caption属性改为“查询”。双击该命令按钮，在Click事件中输入如下代码：
This Form．Grid1．RecordSource=“SELECT会员．会员号，会员．姓名，SUM(购买．单价*购买．数量)as总金额FROM会员INNER JOIN购买0N会员．会员号=购买．会员号where会员．会员号=allt(thisform．comb01．displayValue)into cursor temp”
⑦选中第二个命令按钮，在属性对话框中将其Caption属性改为“退出”。双击该命令按钮，在Click事件中输入如下代码：
thisform．release
⑧单击工具栏上的“保存”图标，以“myform”为文件名保存表单。

正确答案：单击“文件”菜单中的“新建”在类型选择框中选择“表单”单击“新建文件”按钮打开表单设计器。 在属性窗口中设置表单的Caption 属性为“会员购买统计”从“表单控件”工具栏中选择1个组合框 1个标签1个表格控件2个命令按钮放置在表单上。在属性面板中分别设置两个命令按钮的Caption 属性分别为“查询”和“关闭”设置标签的Caption 属性值为“请选择会员”组合框的RowSourceType 属性为“1-值”RowSource 属性为“C1C2C3C4C5C6C7”Style 属性为“2-下拉列表框”。结果如图3-95所示。 图3-95 双击命令按钮“查询”编写该控件的Click 事件程序代码如下： ******命令按钮Command1(查询)的Click 事件代码***** SELECT 会员信息.会员号姓名SUM(数量*单价)AS 总金额； FROM 会员信息购买信息； WHERE 会员信息.会员号=购买信息.会员号； AND 会员信息.会员号=Thisform. Combo1. value； GROUP BY 会员信息.会员号； INTO CURSOR temp Thisform.Grid1.RecordSourceType=1 Thisform.Grid1.RecordSource="temp" ********************************************************* 以同样的方法为“关闭”命令按钮编写Click 事件代码：Thisform. Release。 保存表单文件为myf. scx 到考生文件夹下。运行表单结果如图3-96所示。 图3-96
单击“文件”菜单中的“新建”，在类型选择框中选择“表单”，单击“新建文件”按钮，打开表单设计器。 在属性窗口中设置表单的Caption 属性为“会员购买统计”，从“表单控件”工具栏中选择1个组合框， 1个标签，1个表格控件，2个命令按钮放置在表单上。在属性面板中分别设置两个命令按钮的Caption 属性分别为“查询”和“关闭”，设置标签的Caption 属性值为“请选择会员”，组合框的RowSourceType 属性为“1-值”，RowSource 属性为“C1，C2，C3，C4，C5，C6，C7”，Style. 属性为“2-下拉列表框”。结果如图3-95所示。 图3-95 双击命令按钮“查询”，编写该控件的Click 事件，程序代码如下： ******命令按钮Command1(查询)的Click 事件代码***** SELECT 会员信息.会员号，姓名，SUM(数量*单价)AS 总金额； FROM 会员信息，购买信息； WHERE 会员信息.会员号=购买信息.会员号； AND 会员信息.会员号=Thisform. Combo1. value； GROUP BY 会员信息.会员号； INTO CURSOR temp Thisform.Grid1.RecordSourceType=1 Thisform.Grid1.RecordSource="temp" ********************************************************* 以同样的方法为“关闭”命令按钮编写Click 事件代码：Thisform. Release。 保存表单文件为myf. scx 到考生文件夹下。运行表单，结果如图3-96所示。 图3-96 解析：本大题主要考查的是表单中组合框的设置，该控件用来显示数据的重要属性是 RowsourceType和 RowSource，程序部分属于SQL 的简单联接查询，在显示查询结果时，首先可用一个临时表保存查询结果，然后将表格控件中来显示数据的属性值设置为该临时表，用来显示查询结果。

正确答案：

【考点指引】本大题主要考查表单的建立，重点是命令按钮事件代码的编写，在多表查询中注意字段的关联，这里还要用到AVG函数和GR()UP BY分组命令。
【操作步骤】
①选择【文件】→【新建】命令，选择“表单”，单击“新建文件”按钮打开表单设计器，将Caption属性值修改为“仓库库存浏览”，单击表单控件工具栏上的“命令按钮”控件图标，为表单添加3个命令按钮Command1、Command2和Command3。
②分别选择3个命令按钮，在按钮属性窗口中将Command1的Caption属性值修改为“商品进出仓浏览”，Command2的Caption属性值修改为“库存浏览”，Command3的Caption属性值修改为“关闭”，如图78-1所示。双击“关闭”命令按钮，在其Click事件中输入代码：ThisForm．Release，用来关闭表单。

③双击“商品进出仓浏览”命令按钮，在其Click事件中输入以下代码：
SELECT商品编号，日期，类型，数量INTO TABLE table1 FROM工作单WHERE仓库编号=〝001〞
④双击“库存浏览”命令按钮，在Click事件中输入以下代码：
SELECT仓库编号，商品编号，SUM(数量)INTO ARRAY al FROM工作单WHERE类型=〝进仓〞GROUP BY商品编号
SELECT仓库编号，商品编号，SUM(数量)INTO ARRAY a2 FROM工作单WHERE类型=〝出仓〞GROUP BY商品编号
FOR i=1 TO ALEN(a1)／3
UPDATE库存SET入仓数量=al(i，3)WHERE仓库编号=al(i，1)AND商品编号=al(i，2)
NEXT
FOR i=1 TO ALEN(a2)／3
UPDATE库存SET出仓数量=a2(i，3)WHERE仓库编号=a2(i，1)AND商品编号=a2(i，2)
NEXT
SELECT仓库．仓库编号，仓库名称，商品编号，期初数量，期初数量+人仓数量一出仓数量AS库存数INTO
TABLE table2 FROM仓库，库存WHERE仓库．仓库
编号=库存．仓库编号
⑤选择【表单】→【执行表单】命令，系统首先要求保存该表单文件，在弹出的“另存为”对话框中输入表单文件名“bd1”，保存在考生文件夹下，然后运行表单。