2013年计算机二级VisualFoxPro上机题库二十_第2页

　　“关闭表单”命令按钮的CLICK事件代码为：Thisform.release
　　综合应用题答案：PROG1.PRG的内容如下：
　　SELECT 订单号 FROM ORDER_LIST WHERE YEAR(订购日期)=2001 INTO CURSOR AAA
　　DO WHILE NOT EOF()
　　UPDATE ORDER_DETAIL SET 新单价=单价*0.9 WHERE 订单号=AAA.订单号
　　SKIP
　　ENDDO
　　SELECT 订单号 FROM ORDER_LIST WHERE YEAR(订购日期)=2002 INTO CURSOR BBB
　　DO WHILE NOT EOF()
　　UPDATE ORDER_DETAIL SET 新单价=单价*1.1 WHERE 订单号=BBB.订单号
　　SKIP
　　ENDDO
　　SELECT * FROM ORDER_DETAIL INTO TABLEOD_NEW