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

admin2017-07-28  32

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

    “计算”和“返回”菜单命令的功能都通过执行“过程”完成。
    “计算”菜单命令的功能如下:
    (1)用ALTER TABLE语句在order表中添加一个“总金额”字段,该字段为数值型,宽度为7,小数位数为2。
    (2)根据order4tem表和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 SELECT1 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/SWBp777K
0

最新回复(0)