在考生文件夹下已有一个菜单文件mymenu.mnx,运行相应的菜单程序时会在当前VFP系统菜单的末尾追加一个"考试"子菜单,如下图所示。 在考生文件夹下还有一个表单文件myform.scx,表单中包含一个标签、一个文本框和两个命令按钮

admin2013-11-10  41

问题 在考生文件夹下已有一个菜单文件mymenu.mnx,运行相应的菜单程序时会在当前VFP系统菜单的末尾追加一个"考试"子菜单,如下图所示。
     
     在考生文件夹下还有一个表单文件myform.scx,表单中包含一个标签、一个文本框和两个命令按钮,如下图所示。
     
     现在请按要求实现菜单项和命令按钮的相关功能。
     菜单命令"统计"和"退出"的功能都是通过执行过程完成。菜单命令"统计"的功能是运行myform表单。菜单命令"退出"的功能是恢复标准的系统菜单。
     单击命令按钮"确定"要完成的功能是:从customer、orders、orderitems和goods表中查询金额大于等于用户在文本框中指定的金额的订单信息。查询结果依次包含订单号、客户号、签订日期、金额等四项内容,其中金额为该订单所签所有商品的金额之和。各记录按金额降序排序,金额相同按订单号升序排序。查询去向表tabletwo。
     单击命令按钮"关闭"要完成的功能是,关闭并释放所在表单。
     最后,请运行菜单程序、打开表单,然后再文本框中输入1000、并单击"确定"按钮完成查询统计。

选项

答案【操作步骤】 步骤1:单击菜单栏"文件"-"打开"命令或单击常用工具栏"打开"按钮,打开考生文件夹下的菜单"mymenu"。 步骤2:单击"考试"菜单后的"编辑"按钮,在"统计"菜单项的过程中创建代码"do form myform"。在"退出"菜单项的过程中输入语句" set sysmenu to defa"。 步骤3:保存菜单,然后单击菜单栏"菜单"-"生成"按钮,生成可执行程序文件。 步骤4:打开考生文件夹下的表单"myform",双击"确定"命令按钮,编写其click事件代码如下: je = val(Thisform.Text1.Value) SELECT Orders.订单号, Customers.客户号, Orders.签订日期,; sum(Orderitems.数量*Goods.单价) AS 金额; FROM customers INNER JOIN orders; INNER JOIN orderitems; INNER JOIN goods ; ON Orderitems.商品号 = Goods.商品号 ; ON Orders.订单号 = Orderitems.订单号 ; ON Customers.客户号 = Orders.客户号; GROUP BY Orders.订单号; HAVING 金额 >= je; ORDER BY 4 DESC, Orders.订单号; INTO TABLE tabletwo.dbf 步骤5:双击"退出"命令按钮,编写其click事件代码"thisform.release" 步骤6:保存表单并运行。在文本框中输入"1000",单击"确定"按钮。

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

最新回复(0)