综合应用（1小题，计30分）

在考生文件夹下创建一个下拉式菜单mymenu.mnx，并生成菜单程序mymenu.mpr。运行该菜单程序时会在当前vfp系统菜单的末尾追加一个"考试"子菜单，如下图所示。

菜单命令"计算"和"返回"的功能都通过执行过程完成。

菜单命令"计算"的功能是计算各商品在2001年的订购总金额（若某商品没有被订购，则其总金额为零）。计算结果保存在tablethree表中，其中包含商品名和总金额两个字段，各记录按商品名升序排序。

提示：可分两步完成，首先从表order和orderitem中获取2001年订单有关商品数量的信息，并保存在临时表中；然后再将表goods与临时表进行左联接，并完成总金额的计算。菜单命令"返回"的功能是恢复标准的系统菜单。菜单程序生成后，运行菜单程序并依次执行"计算"和"返回"菜单命令。

解题思路：

1. 建立菜单文件，在“新建菜单”对话框中，单击“菜单”按钮。

2. 在“菜单设计器-mymenu.mnx”中，在“菜单名称”中输入“考试”，再单击“创建”按钮来建立子菜单，在“菜单名称”中输入“计算”，再移到下一个菜单项处中输入“返回”。

3. 选中“计算”子菜单项，在“结果”中选择“过程”并单击“创建”，在“菜单设计器-mymenu.mnx-统计过程”中输入下列语句：

close database

create table tablethree(商品名 C(20),总金额 N(7,2))

use

select 1

use tablethree

select 4

use order

index on 订单号 to n1

select 3

use orderitem

index on 商品号 to n2

set relation to 订单号 into d

select 2

use goods

index on 商品名 to n3

set rela to 商品号 into c

go top

do while .not.eof()

h = 商品号

j = 单价

n = 商品名

s = 0

select 3

do while 商品号=h

if year(order.签订日期)=2001

s=s+数量*j

endif

skip

enddo

select 1

append blank

repl 商品名 with n,总金额 with s

select 2

skip

enddo

close database

4. 选中“返回”子菜单项，在“结果”中选择“过程”并单击“创建”，在“菜单设计器-mymenu.mnx-返回过程”中输入下列语句：

set sysmenu nosave

set sysmenu to default

5. 单击“显示\常规选项”菜单项，在“常规选项”对话框的“位置”框中选中“追加”单选钮，再单击“确定”按钮。

6. 在“菜单设计器”窗口下，单击“菜单”菜单栏，选择“生成”菜单项，生成“mymenu.mpr”文件。