[教育学]二级VFP上机答案.pptVIP

（30 ~ 34） 关闭表 close tables 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 tables abc3.PRG [33.3.3]菜单设计（文件名：menu3.MNX） 创建菜单 设置菜单 命令 退出(\X) 子菜单 结果 查询 菜单栏 CTRL+U 快捷键 菜单项# \- 过程 查询最低金额 过程 结果 查询最高金额 “查询”菜单 编写菜单代码 set sysmenu to default “退出”菜单命令 SELECT 订单.订