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

admin2013-11-12  45

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

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

选项

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

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

最新回复(0)