三、综合应用题

　　3[简答题]

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

　　(1)“计算”和“退出”菜单命令的功能都通过执行“过程”完成。

　　(2)“计算”菜单命令的功能是根据orderitems表和900ds表中的相关数据计算各订单的总金额，其中一个订单的总金额等于它所包含的各商品的金额之和，每种商品的金额等于数量乘以单价。并将计算的结果填入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 T0订单号

　　INTO ADO WHILE.NOT.EOF()

　　REPLACE总金额WITH temp.总金额

　　SKIP

　　ENDDO

　　BROW

　　* * * * * * * * * * * * * * * * * * * * * * * * * *

　　* * * *“退出”菜单项中的命令代码* * * *

　　myfrom.Release

　　* * * * * * * * * * * * * * * * * * * * * * * * * *

　　步骤5：保存菜单名为“mymenu”并生成可执行文件。

　　步骤6：保存表单名为“myform”并运行。

　　相关推荐：

　　2017年12月计算机等级考试考前必做题汇总

　　【考试吧整理】计算机等级考试各科目历年真题

　　2017年12月计算机等考成绩查询入口|免费查分提醒

　　2017年计算机等级考试综合查询网常见问题汇总

　　计算机等级考试成绩评定流程及标准|合格证书样本及证书说明