2013—2014[2]VFP第13部分[索引.查询统计及扫描循环].pptVIP

商品信息表（文件名为：products.dbf） 销售信息表（文件名为：sale.dbf） 商品编号 商品名称 库存量 单价 07654 压力锅 50? 390 04566 电吹风 200 120 02233 热水器 100 1100 05886 电磁炉 148 680 订购单位 商品编号 ?销售量 幸福社区 07654 20 永安社区 07654 15 永安社区 02233 60 和谐居委会 04566 90 爱民小区 05886 110 幸福社区 04566 40 设计如图所示表单，将products.dbf和sale.dbf两个数据表添加到表单的数据环境中，组合框与products.dbf表中的商品名称字段绑定。表单运行后，在组合框中选择一商品名称，在列表框List1中显示订购该商品的信息，如图所示。 顾客信息表（GK.DBF） 顾客消费积分表（JF.DBF） 顾客编号 姓名 085422 王小凤 074561 孙丽 081319 吴远平 072450 程志龙 085212 李娟娟 购买商品 消费金额 消费积分 顾客编号 化妆品 588.0 074561 西服 1280.0 085422 靴子 566.0 085212 食品 217.2 072450 食品 78.0 081319 帽子 128.0 074561 皮鞋 358.0 085422 “上机6” 设计如图所示表单，表单运行后，单击“计算并显示”按钮，可以计算消费积分（其中顾客编号的末尾为2，则消费积分为消费金额的整数部分，否则消费积分为消费金额一半的整数部分），并填入JF.DBF表中，并在表格中显示顾客消费积分表（JF.dbf）的信息。 设计如图所示表单，表单运行后，单击“汇总”按钮，汇总每位顾客的消费积分，并按总积分从小到大的顺序在编辑框edit1中显示每位顾客的姓名和消费总积分，如图所示。双击表单空白处关闭表单。 将数据表:图书.dbf (字段有:书号C/3，书名C/6，价格n/5/1等字段) 添加到表单的数据环境中，执行如下代码后，可以统计出计算机类图书的平均价格，并在标签Label1中显示。请填空完善程序。 N=0 S=0 Do while not eof() if 计算机$书名 n=n+1 s=s+价格 Endif ______________ Enddo Thisform.Label1.caption=_____________ 有3个数据表:读者.dbf(读者编号/C,读者姓名/C);图书.dbf(书号/C,书名/C);借阅.dbf(书号/C,读者编号/C,借阅日期/D), 创建如图3所示表单, 将组合框与读者表的读者编号字段绑定，表单运行时，在组合框combo1中选择读者编号则在标签中label3中输出读者姓名，在列表框中输出该读者借阅的图书的书名和借阅日期。组合框“combo1”的“interactivechange”事件代码如下，请填空。 thisform.list1.clear bh=alltrim(this.value) select 读者姓名 from 读者 where 读者编号=bh into _______________ thisform.label3.caption=aa(1) select 书名,借阅日期 from 图书 a,借阅 b ; where a.书号=b.书号 and 读者编号=bh into dbf xx use xx thisform.list1.additem(书名 借阅日期) scan thisform.list1.additem(书名+____________) endscan ①array aa ②dtoc(借阅日期) 姓名 生日 职称 章三 1980-01-20 工人 黎四 1962-07-09 工程师 汪五 1972-05-26 工程师 张小山 1981-02-11 工人 李小四 1977-09-29 技术员 王小五 1965-04-23 工程师 有一数据表，其文件名为ZG.DBF，其数据如下表所示。有如图所示表单，将ZG.DBF添加到表单的数据环境中，表单运行后，单击命令按钮Command1，请写出Label1中显示的内容（假定系统当前的日期为2012年9月17日）。在Command1的Click事件中有如下代码： x= thisform.label1.caption=x scan if year(生日)1980 exit endif if 职称=工程师 x=x+姓名+str(year(date())-year(生日),6) endif skip endsc