四川vfp二级上机考试33次答案.ppt

select 2 use 商品 index on 商品号 tag sph select 1 use 订单 set relation to 商品号 into b 打开表，索引，关联 数据处理（1）—修改记录 replace all 总金额 with b.单价*数量 计算订单的总金额（总金额=单价*数量），填入“订单.dbf”的“总金额”字段中。 数据处理（2）—修改，显示 按订单号查询该商品名、单价、数量和总金额。要求能反复查询。直到用户不再查询为止。界面如下图所示： 请输入订单号：0002 ============查询结果============ 商品名称 单价 数量 总金额 计算机操作系统 31.00 2 62.00 继续查询吗？（y/n）n do while .T. accept 请输入订单号： to ddh locate for 订单号=ddh ? ==========查询结果========== ? 商品名称 单价 数量 总金额 do while found() ? b.商品名, b.单价, 数量, 总金额 continue enddo wait 继续查询吗（Y/N）？ to yn if upper(yn)=N exit endif enddo 关闭表 close databases clear set talk off set safety off select 2 use 商品 index on 商品号 tag sph select 1 use 订单 set relation to 商品号 into b replace all 总金额 with b.单价*数量 do while .T. accept 请输入订单号： to ddh locate for 订单号=ddh ? ==========查询结果========== ? 商品名称 单价 数量 总金额 do while found() ? b.商品名, b.单价, 数量, 总金额 continue enddo wait 继续查询吗（Y/N）？ to yn if upper(yn)=N exit endif enddo close databases abc3.PRG [33.4.2]编写程序（文件名：abc4.PRG） SQL查询 SELECT Xscjzk.学号, Xjxx.姓名, Dm_yx.院系简称,; Xscjzk.课程代码, Xscjzk.成绩; FROM xscjzk INNER JOIN xjxx; INNER JOIN dm_yx ; ON Xjxx.院系代码 = Dm_yx.院系代码 ; ON Xscjzk.学号 = Xjxx.学号; WHERE Dm_yx.院系简称 = 动科院 [33.5.2]编写程序（文件名：abc5.PRG） use cj5 打开表 数据处理— 统计，显示 1. 从键盘上输入查询的学号，能查询该同学的学号、平均成绩 2. 程序要求能反复查询输出，其输出格式如下：。 do while .T. accept 请输入查询的学号： to xh average 成绩 to pj for 学号=xh ? 学号：, xh, 平均成绩：, pj wait 继续查询吗（Y/N）？ to yn if upper(yn)=N exit endif enddo 关闭表 close databases clear set talk off set safety off use cj5 do while .T. accept 请输入查询的学号： to xh average 成绩 to pj for 学号=xh ? 学号：, xh, 平均成绩：, pj wait 继续查询吗（Y/N）？ to yn if upper(yn)=N exit endif enddo close databases abc5.PRG 二级上机考试 打开表并索引（多工作区） 建立关联（SET RELATION TO…INTO…） 数据处理（修改、查询、统计等） 输出显示（?, ??, LIST, DISPLAY） 关闭表（CLOSE DATABASES, CLOSE ALL） 结构化程序设计的步骤 创建数据库（视图） 创建表单 添加数据环境 添加控件 设置控件属性 编写事件处理代码（INIT, CLICK等） 表单程序设计的步骤 第33次上机考试 子表：2号区 父表