在考生文件夹下创建一个下拉式菜单mymenu.mnx,并生成菜单程序mymenu.mpr。运行该菜单程序时会在当前Visual FoxPro系统菜单的末尾追加一个“考试”子菜单,如下图所示。 “计算”和“返回”菜单命令的功能都通过执行“过程”完成

admin2017-02-28  39

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

    “计算”和“返回”菜单命令的功能都通过执行“过程”完成。
    “计算”菜单命令的功能如下:
    (1)用ALTER TABLE语句在order表中添加一个“总金额”字段,该字段为数值型,宽度为7,小数位数为2。
    (2)根据orderitem表和goods表中的相关数据计算各订单的总金额,其中,一个订单的总金额等于它所包含的各商品的金额之和,每种商品的金额等于其数量乘以单价,填入刚建立的字段中。
    “返回”菜单命令的功能是恢复到Visual FoxPro的系统菜单。
    菜单程序生成后,运行菜单程序,并依次执行“计算”和“返回”菜单命令。

选项

答案步骤1:新建一个菜单,按要求输入菜单项的名称。 步骤2:写入菜单项“计算”的代码如下。 *****“计算”菜单项中的代码***** ALTER TABLE ORDER ADD总金额N(7,2) SELECT Orderitem.订单号,sum(goods.单价*orderitem.数量)as总金额; FROM goods,orderitem; WHERE Goods.商品号=Orderitem.商品号; GROUP BY Orderitem.订单号; ORDER BY Orderitem.订单号; INTO TABLE temp.dbf CLOSE ALL SELECT 1 USE TEMP INDEX ON订单号TO ddh1. SELE 2 USE ORDER INDEX ON订单号TO ddh2 SET RELATION TO订单号INTO A DO WHILE.NOT.EOF() REPLACE总金额WITH temp.总金额 SKIP ENDDO BROW ************************************* 步骤3:写入菜单项“返回”中的过程代码为 SET SYSMENU TO DEFAULT 步骤4:保存菜单名为“mymenu”并生成可执行文件。运行菜单。

解析 按要求建立菜单,本题将计算出的总金额添加到表中字段部分较难,需要为表建立临时联系。
转载请注明原文地址:https://kaotiyun.com/show/3cIp777K
0

最新回复(0)