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

　　第二小题：打开考生文件夹下的"form1.scx"，在表单设计器中双击"刷新标题"控件打开代码编辑器，此处是对form对象的caption的属性进行赋值，所以此处应改为：thisform.caption="简单应用"; 在表单设计器中双击"订单记录"控件打开代码编辑器，此处是要在表格控件中显示表"ORDER_LIST.DBF"，所以要对grid1控件的RecordSource属性进行赋值，此处应改为：

　　thisform.grid1.RecordSource="order_list.dbf";

　　在表单设计器中双击"关闭表单"控件打开代码编辑器，此处的功能是关闭表单，关闭表单要用到表单的Release方法，所以此处应改为：thisform.release退出保存。

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

　　首先为order_detail表增加一个新字段：新单价(类型与原来的单价字段相同)，然后编写满足如下要求的程序：根据order_list 表中的"订购日期"字段的值确定order_detail表的"新单价"字段的值，原则是：订购日期为2001年的"新单价"字段的值为原单价的90%，订购日期为2002年的"新单价"字段的值为原单价的110%(注意：在修改操作过程中不要改变order_detail表记录的顺序)，将order_detail表中的记录存储到od_new表中(表结构与order_detail表完全相同);最后将程序保存为prog1.prg，并执行该程序。

　　接着再利用 Visual Foxpro的"快速报表"功能建立一个的简单报表，该报表内

　　容按顺序含有order_detail表的订单号、器件号、器件名、新单价和数量字段的值，将报表文件保存为report1.frx。

　　本题主要考核点：

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

　　本题解题思路：

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

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

　　SET TALK OFF &&在程序运行时关闭命令结果的显示

　　SELECT 订单号 FROM ORDER_LIST WHERE YEAR(订购日期)=2001;

　　INTO CURSOR CurTable

　　&&从ORDER_LIST中得到订购日期是2001年的所有订单号，

　　&&并将结果集放入临时表CurTable中

　　DO WHILE NOT EOF() &&遍历临时表CurTable中的每一个订单号

　　UPDATE ORDER_DETAIL SET 新单价=单价*0.9;

　　WHERE 订单号=CurTable.订单号

　　&&如果ORDER_DETAIL中的订单号与临时表的记录号相同时;

　　&&对新单价进行更新

　　SKIP

　　ENDDO

　　SELECT 订单号 FROM ORDER_LIST WHERE YEAR(订购日期)=2002;

　　INTO CURSOR CurTable

　　DO WHILE NOT EOF()

　　UPDATE ORDER_DETAIL SET 新单价=单价*0.9;

　　WHERE 订单号=CurTable.订单号

　　SKIP

　　ENDDO

　　CLOSE ALL

　　SET TALK ON

　　第三步：单击"保存"工具栏按钮，以文件名prog1.prg保存程序文件在考生文件夹下，并运行程序。

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

　　第五步：单击主窗口"报表"菜单下的"快速报表(Q)"，系统弹出"打开"对话框，选择考生文件夹下的order_detail.dbf表，单击"确定"，系统弹出"快速报表"对话框，单击"字段(F)"按钮，系统弹出"字段选择器"对话框，将订单号、器件号、器件名、新单价、数量依次放入"选定字段"中，单击"确定"，返回"快速报表"对话框，单击"确定"按钮后便生成了一个报表，将报表文件以文件名report1.frx保存在考生文件夹下。