计算机等级考试二级VFP上机试题及解题思路(21)

　　二、简单应用(2小题，每题20分，计40分)

　　在考生文件夹下完成如下简单应用:

　　1. 列出总金额大于所有订购单总金额平均值的订购单(order_list)清单(按客户号升序排列)，并将结果存储到results表中(表结构与order_list表结构相同)。

　　2. 利用Visual Foxpro的"快速报表"功能建立一个满足如下要求的简单报表:

　　(1) 报表的内容是order_detail表的记录(全部记录，横向);

　　(2) 增加"标题带区"，然后在该带区中放置一个标签控件，该标签控件显示报表的标题"器件清单";

　　(3) 将页注脚区默认显示的当前日期改为显示当前的时间;

　　(4) 最后将建立的报表保存为report1.frx。

　　本题主要考核点：

　　SQL中的查询SELECT查询、联接查询、查询的排序、查询的结果的去向等;报表的建立方法等知识点.

　　解题思路：

　　第一小题：为了能得到所有总金额大于平均总金额的订购单信息，应该首先得到总金额的平均值，利用：SELECT AVG(总金额) FROM ORDER_LIST INTO ARRAY AFieldsValue，并将总金额的平均值放到一个数组变量之中AFieldsValue;下一步就可以以总金额>AFieldsValue为条件得到总金额大于平均总金额的订购单信息，将这一条件放在WHERE子句的后面，查询结果的排序要用到ORDER BY子句，ORDER BY 客户号;查询结果要放入一个永久表中要用到INTO TABLE子句，结果保存到RESULTS表中所以要用INTO TABLE RESULTS.本题由两条SQL语句组成：

　　SELECT AVG(总金额) FROM ORDER_LIST INTO ARRAY AFieldsValue

　　SELECT * FROM ORDER_LIST WHERE 总金额>AFieldsValue;

　　ORDER BY 客户号;

　　INTO TABLE RESULTS

　　第二小题：

　　第一步：在Visual FoxPro主窗口按下组合键Ctrl+N，系统弹出"新建"对话框，在"文件类型"中选择"报表"，再点击新建文件按钮，系统弹出报表设计器

　　第二步：单击主窗口"报表"菜单下的"快速报表(O)"，系统弹出"打开"对话框，选择考生文件夹下的order_detail.dbf表，单击"确定"，系统弹出"快速报表"对话框，单击"确定"按钮后便生成了一个报表，将报表文件以文件名report1.frx保存在考生文件夹下。

　　第三步：选择主菜单"报表"下的"标题/总结(T)"，弹出"标题/总结"对话框，在"报表标题"类型中选择"标题带区"，单击"确定"按钮，这样就在报表中加入了一个"标题带区"，打开"报表控件工具栏"，在打开的"报表控件"中选择"标签"控件，在标题带区点击鼠标，输入"器件清单"

　　第四步：双击"页注脚"中的显示当前日期的域控件，打开"报表表达式"，在"表达式"文本框中将原来的DATE()用TIME()来代替。点击"确定"

　　第五步：以文件名report1.frx将报表文件保存在考生文件夹下。

　　三、综合应用(1小题，计30分)

　　首先将order_detail表全部内容复制到od_bak表，然后对od_bak表编写完成如下

　　功能的程序：

　　1. 把"订单号"尾部字母相同并且订货相同 ("器件号"相同)的订单合并为一张订单，新的"订单号"就取原来的尾部字母，"单价"取最低价，"数量" 取合计;

　　2. 结果先按新的"订单号"升序排序，再按"器件号"升序排序;

　　3. 最终记录的处理结果保存在od_new表中;

　　4. 最后将程序保存为prog1.prg，并执行该程序。

　　本题主要考核点：

　　程序的建立方法、程序中循环结构的使用、SQL查询语句的使用、记录的修改方法;报表的建立方法等知识点

　　本题解题思路：

　　第一步：在VisualFoxPro主窗口下按组合键Ctrl+N，系统弹出"新建"对话框，在"文件类型"中选择"程序"，再点击"新建文件"按钮，则系统弹出程序编辑窗口;

　　第二步：在弹出的窗中中输入以下代码：

　　SET TALK OFF

　　SET SAFETY OFF

　　sele * from order_detail into table od_bak

　　&&复制一个表用来存放结果

　　USE OD_BAK

　　COPY STRUCTURE TO OD_NEW

　　&&首先得到所有的新定单号和器件号：

　　SELECT RIGHT(订单号,1) AS 新订单号,器件名,器件号,;

　　RIGHT(订单号,1)+器件号 AS NEWNUM;