2005年4月份二级Visual Foxpro上机试题重点试题(综合应用题)答案
【第一套:】设计一个表单，文件名为“外汇浏览”,表单界面如下，标签，文本框，命令按钮对象名称分别为label1,tesxt1,command1,command2要求单击查询时,查询每个人所拥有的外币名称和持有数量，将查询的结果显示在表格中，并将结查存放在以姓名命名的表中，如张三丰.dbf,单击退出退出表单运行。
查询命令的click事件代码:
name=allt(thisform.text1.value)
thisform.grid1.recordsource=[select 外币名称,持有数量 from currency_sl,rate_exchange;
where currency_sl.外币代码=rate_exchange.外币代码 and 姓名=name order by 持有数量 into dbf &name]
【第二套:】打开数据库建视图sview1,查询选课门数在三门以上的每个学生的学号，姓名,平均成绩,最低分,选课门数 ,并将查询命令存放在T1.prg文件中。设计表单，浏览和打印两个命令按钮。
Command1的Click代码:
select * from customer where 性别="女"
Command2的Click代码:
open data ecommerce
select * from sb_view
Command3的Click代码:
report form myreport preview
Command4的Click代码:
thisform.release
【第三套:】打开数据库ecommerce，设计一个myform表单,表单标题为客户基本信息，表单上有“女客户信息”,”客户购买商品情况””输出客户信息”“退出”
【第四套:】根据order_list表中订购日期字段确定order_detail表中新单价的值。编写程序文prog1.prg
【第五套:】首先将BOOKS中所有书名含“计算机”3个字的图书复制到表BOOK_BAK中
复制后的图书价格在原基础上降5%,……
只需执行3个命令代码：copy to books_bak for "计算机"$书名
update books_bak set 价格=价格*0.95
select top 1 出版单位,avg(价格)as 均价 from books_bak group by 出版单位 having 均价>=25 order by 均价
【第六套:】(略)
close all
use order_detail
copy to od_bak
select right(订单号,1) as 订单号,器件号,器件名,单价,数量 from od_bak order by 1 into dbf one
select 订单号,器件号,器件名,min(单价) as 单价,sum(数量)as 数量 from one group by 订单号,器件号 order by 订单号,器件号 into dbf od_new
【第七套:】首先将order_detail表全部内容复制到od_bak表，然后对od_bak表编写完成如下功能的程序：1，把订单号尾部字母相同并且订货相同的订购单合并为一张订单，新订单号就取原来尾部字母，单价取最低，数量求合计,: 2 按订单号升序，器件号升序：3，将结果保存在od_new表中；4,程序保存为prog1.