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

admin2013-08-29  22

问题 在考生文件夹下创建一个名为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/KJop777K
0

最新回复(0)