vfp上机答案切勿删除.doc

1.2.1select 供应商号,工程号,数量 from 供应,零件 where 供应.零件号=零件.零件号 and 颜色=红 order by 数量 desc into dbf supply_temp 1.3 command1.click 事件代码 thisform.grid1.recordsourcetype=4 k=alltrim(thisform.text1.value) thisform.grid1.recordsource=select 零件名,颜色,重量 from 供应,零件 where 供应.零件号=零件.零件号 and 工程号=k order by 零件名 into dbf pp thisform.refresh 2.2.1 command1.click 事件代码 select 作者姓名,所在城市 from authors,books where authors.作者编号=books.作者编号 group by authors.作者编号 having count(*)=3 order by 作者姓名 into table new_view4 3.3.1 select * from books where 书名 like %计算机% into dbf books_bak 3.3.2 update books_bak set 价格=价格*(1-0.05) 3.3.3 select 出版单位,avg(价格) as 均价 from books_bak group by 出版单位 having avg(价格)=25 into cursor ls select * from ls where 均价 =(select min(均价) from ls ) into table new_table4 3.2.1 select 项目信息.项目号,项目名,零件信息.零件号,零件名称 from 零件信息,使用零件,项目信息 where 零件信息.零件号=使用零件.零件号 and 使用零件.项目号=项目信息.项目号 order by 项目信息.项目号 desc,零件信息.零件号 into dbf item_temp 3.3 command1.click代码 select sum(单价*数量) from 零件信息,使用零件 where 零件信息.零件号=使用零件.零件号 and 项目号=bo1.value into array k thisform.text1.value=k(1) thisform.refresh 4.3 “统计”菜单选项的“过程”代码 select 组别,sum(金额) as 合计 from employee,orders where employee.职员号=orders.职员号 group by 组别 order by 合计 desc into cursor t1 select 组别,姓名 as 负责人 from employee where 职务=组长 into cursor t2 select t1.组别,负责人,合计 from t1,t2 where t1.组别=t2.组别 order by 合计 desc into dbf tabletwo 5.3 command1.click 事件代码 k=bo1.value select count(*) from book where 出版社=k into array a thisform.text1.value=a(1,1) thisform.refresh 6.1.1 insert into 零件信息 values(p7,PN7,1020) 6.1.2 delete from 零件信息 where 单价600 6.1.3 update 零件信息 set 单价=1090 where 零件号=p4 错误1：FOR i=1 TO thisform.List1.ColumnCount 修改为：FOR i=1 TO thisform.List1.ListCount 错误2：s=thisform.List1.value 修改为：s=thisform.List1.List(i) 错误3：s=s+thisform.List1.value 修改为：s=s+,+thisform.List1.List(i) 7.3 “统计”菜单选项的“过程”代码 select customer.客户号,客户名,sum(金额) as 合计 from customer,orders where customer.客户号=orders.客户号 group by customer.客户号 order by 合计 desc into dbf tabletwo 8.3 Form1.load事件代码 publi