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

数据处理（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） 打开表并索引（多工作区） 建立关联（SET RELATION TO…INTO…） 数据处理（修改、查询、统计等） 输出显示（?, ??, LIST, DISPLAY） 关闭表（CLOSE DATABASES, CLOSE ALL） 结构化程序设计的步骤 创建数据库（视图） 创建表单 添加数据环境 添加控件 设置控件属性 编写事件处理代码（INIT, CLICK等） 表单程序设计的步骤 第33次上机考试 子表：2号区 父表：1号区 [33.1.2]编写程序（文件名：abc1.PRG） select 2 use 学生 index on 学号 tag xh select 1 use 成绩 set relation to 学号 into b 打开表，索引，关联 数据处理（1）—修改记录 replace all 成绩 with 成绩*1.15 for 课程名=Access程序设计 将课程为“Access程序设计“的成绩提高15%。 数据处理（2）—查询，显示 通过输入“学号”查询学生的信息，即：学号、姓名、课程名、成绩、学院等资料。若没找到，显示“数据表中没有查到此人信息！”。界面舅图所示： accept 请输入查询的学号： to xh locate for 学号=xh if found() ? ***********查询结果*************** ? 学号 姓名 课程名 成绩 学院 do while found() ? 学号, b.姓名, 课程名, 成绩, b.学院 continue enddo ? *********************************** else ? 数据表中没有查到此人信息！ endif 关闭表 close databases clear set talk off set safety off select 2 use 学生 Index on 学号 tag xh select 1 use 成绩 set relation to 学号 into b replace all 成绩 with 成绩*1.15 for 课程名=Access程序设计 accept 请输入查询的学号： to xh locate for 学号=xh if found() ? ***********查询结果*************** ? 学号 姓名 课程名 成绩 学院 do while found() ? 学号, b.姓名, 课程名, 成绩, b.学院