计算机等级考试：二级VFP机试第21套

设置21
1。基本操作题(共有四个子题，第一、二题7分，第三、四题8分)
在考生文件夹下完成以下操作:
1。打开“订单管理”数据库，并将表order_detail添加到数据库中。
2。为表order_detail的“单价”字段定义的默认值为NULL。
3。为表order_detail的“单价”字段定义一个约束规则:单价> 0。违反规则时，消息
为“单价必须大于零”。
4。关闭"订单管理"数据库，然后建立自由表客户。表格结构如下:
客户编号字符类型(6)
客户姓名字符类型(16)
地址字符类型(20)
电话字符类型(14)
本题主要考核点:
添加自由表格到解题思路:
第一步:打开考生文件夹下的“订单管理”数据库
第二步:打开数据库菜单，选择“添加表格(A)”。在弹出的“打开”对话框中，选择考生文件夹下的order_detail表，然后点击“确定”。因此，表order_detail被添加到“订单管理”数据库
。第三步:在数据库设计器中选择“order_detail”表，在数据库菜单下选择“修改(V)”，会弹出表设计器。在表设计器中，单击“单价”所在的行，单击空列上的按钮，确认按钮上将出现一个复选标记。在表设计器中，单击“单价”按钮。好的

二。简单申请(2小题，每题20分，每题40分)
在考生文件夹下完成以下简单申请:
1。列出其总金额大于所有订单金额平均值的order_list(按
客户
2)。使用Visual Foxpro的“快速报表”功能，构建一个满足以下要求的简单报表:
(1)报表内容为order_detail表的记录(所有记录，水平)；
(2)添加“标题带”，然后在这个带中放置一个label控件，显示报纸
表格的标题“设备列表”；
(3)将页面脚注区默认显示的当前日期改为显示当前时间；
(4)最后将建立的报表另存为report1.frx
本题主要考核点:
SQL中的查询、选择查询、联接查询、查询排序、查询结果目的地等。
解题思路:
第一个子问题:为了得到总金额大于平均总金额的所有采购订单的信息，首先要得到总金额的平均值，使用:从order _ list中选择AVG(总金额)放入数组Afield SValue，将总金额的平均值放入数组变量a field s value；下一步，可以以总金额大于平均总金额为条件，获取总金额> AFieldsValue的采购订单信息。把这个条件放在WHERE子句的后面，ORDER BY子句，ORDER BY customer number，应该用来对查询结果进行排序。要将查询结果放入永久表中，需要使用INTO TABLE子句，并且结果保存到结果表中，因此需要使用INTO TABLE RESULTS。此问题由两条SQL语句组成:
SELECT AVG(总金额)from order _ list into array AFieldsValue
SELECT * from order _ list where total amount > AFieldsValue；
按客户号排序；
成表结果
第二题:
第一步:在Visual FoxPro主窗口中按Ctrl+N，系统会弹出“新建”对话框，在“文件类型”中选择“报表”，然后点击新建文件按钮。系统报表设计器弹出
第二步:点击主窗口“报表”菜单下的“快速报表(O)”，系统弹出“打开”对话框，选择考生文件夹下的order_detail.dbf表，点击“确定”，系统弹出“快速报表”对话框，然后点击“确定”生成报表1.frx
第三步:选择主菜单“报表”下的“标题/摘要(T)”打开“标题/摘要”对话框，选择“标题带” 并点击“确定”按钮，从而为报表添加“标题栏”，打开“报表控件工具栏”进入“设备列表”
第四步:双击“页面脚注”中显示当前日期的字段控件，打开“报表表达式”，在“表达式”文本框中将原来的日期()替换为时间()。 点击“确定”
第五步:将报告文件保存在考生文件夹中，文件名为report1.frx III。综合应用(1题，30分)
首先将order_detail表的所有内容复制到od_bak表中，然后用下面的
函数为od_bak表写一个程序:
1 .使“订单号”具有相同的最后一个字母和相同的顺序(“零件号”相同)。
2。结果先按新的“订单号”升序排序，再按“零件号”升序排序；
3。最终记录的处理结果保存在od_new表中；
4。最后，将程序保存为prog1.prg并执行程序。
本题主要考核点:
程序的建立方法、程序中循环结构的使用、SQL查询语句的使用、记录的修改方法；
解决这个问题的思路:
第一步:在VisualFoxPro主窗口中按Ctrl+N，系统会弹出“新建”对话框，在“文件类型”中选择“程序”，然后点击“新建文件”按钮，打开程序编辑窗口；
步骤2:在弹出窗口中输入以下代码:
set talk off
set safety off
sele * from order _ detail进入表od _ bak
&&复制一个表以存储结果
Use _ bak
copy structure to od _ new
& &首先获取所有新订单编号和设备编号:
SELECT RIGHT(订单编号，1)作为新订单编号、设备名称、设备
RIGHT(订单号，1)+零件号为NEWNUM
来自BAK OD；
GROUP BY new num；
按新订单号、零件号订购；
into cursor cursor table
do while not eof()
& & Get单价和数量
SELECT MIN(单价)AS，SUM(数量)AS total quantity
来自BAK OD；
WHERE RIGHT (order number，1)=CurTable。新订单号和设备号=可查询。设备号；
INTO ARRAY afields value
INSERT INTO OD _ NEW VALUES；
(简表。新订单编号，可简化。设备编号，可简化。设备名称，Afield Svalue (1，1)，Afield Svalue (1，2)
skip
enddo
close all
set talk on
set safety on
第三步:点击工具栏“保存”按钮，将程序文件保存在考生文件夹下，文件名为prog1.prg，运行程序。