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

admin2013-08-29  32

问题 在考生文件夹下创建一个下拉式菜单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/5Jop777K
0

最新回复(0)