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

admin2017-02-28  37

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

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

选项

答案步骤1:新建一个表单,修改表单的Caption为“考试”,ShowWindow属性为“2一作为顶层表单”。 步骤2:双击表单空白处,编写表单的lnit。 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 ddh]. 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/lcIp777K
0

最新回复(0)