在考生文件夹下创建一个名为myform的顶层表单,表单的标题为“考试”,然后在表单中添加菜单,菜单的名称为mymenu.mnx,菜单程序的名称为mymenu.mpr。效果如下图所示。 (1)“计算”和“退出”菜单命令的功能都通过执行“过程”完成。

admin2017-07-28  20

问题 在考生文件夹下创建一个名为myform的顶层表单,表单的标题为“考试”,然后在表单中添加菜单,菜单的名称为mymenu.mnx,菜单程序的名称为mymenu.mpr。效果如下图所示。

    (1)“计算”和“退出”菜单命令的功能都通过执行“过程”完成。
    (2)“计算”菜单命令的功能是根据orderitems表和goods表中的相关数据计算各订单的总金额,其中一个订单的总金额等于它所包含的各商品的金额之和,每种商品的金额等于数量乘以单价。并将计算的结果填入orders表的相应字段中。
    (3)“退出”菜单命令的功能是关闭并释放表单。
    运行表单并依次执行其中的“计算”和“退出”菜单命令。

选项

答案【操作步骤】 步骤1:新建一个表单,修改表单的Caption为“考试”,ShowWindow属性为“2-作为顶层表单”。 步骤2:双击表单空白处,编写表单的Init。 DO mymenu.mpr WITH THIS."myform" 步骤3:新建一个菜单,选择“显示”菜单下的“常规选项”命令,在弹出的“常规选项”对话框中勾选“顶层表单”。 步骤4:输入菜单项“计算”和“退出”,结果均选择“过程”,然后单击两个菜单项后面的“创建”按钮,分别编写如下代码。 ****“计算”菜单项中的命令代码**** SELECT orderitems.订单号,sum(orderitems.数量*goods.单价)as总金额; FROM orderitems,goods; WHERE orderitems.商品号=Goods.商品号; GROUP BY orderitems.订单号; ORDER BY orderitems.订单号; INTO TABLE temp.dbf CLOSE ALL SELE 1 USE temp INDEX ON 订单号 TO ddh1 SELE 2 USE orders INDEX ON订单号To ddh2 SET RELATION To订单号 INTO A DO WHILE.NOT.EOF() REPLACE总金额WITH temp.总金额 SKIP ENDDO BROW *********************** ****“退出”菜单项中的命令代码**** myform.Release *********************** 步骤5:保存菜单名为“mymenu”并生成可执行文件。 步骤6:保存表单名为“myform”并运行。

解析
转载请注明原文地址:https://kaotiyun.com/show/mPBp777K
0

最新回复(0)