VFP第九讲数据表操作.pptVIP

第十讲 表操作（二）;一 数据表的排序、索引与查询;数据表的排序;例：;数据表的索引 ;记录号; ;索引文件类型;1、利用命令创建索引;INDEX ON 关键字表达式 TAG 标记名 [OF 复合索引文件名] [FOR 条件] [ASCENDING/DESCENDING] [ADDITIVE] [UNIQUE];多字段索引的操作技巧：;学号（c） 入学总分（n） 出生日期（d）;学号（c） 入学总分（n） 出生日期（d）;1）顺序若相同，则将非字符型转换为字符型，然后用“+”连接成一个字符表达式。;2、利用表设计器可以对已有的表创建索引;要使用索引必须完成以下步骤：;打开索引文件;USE 学生 INDEX RXCJ;关闭索引文件;删除索引;索引的使用说明（1）;索引的使用说明（2）;专门移动指针的命令： GO n GO TOP GO BOTTOM SKIP;二、数据表的记录查询;USE 学生; 2.索引查询命令;USE 读者;关于SEEK命令和FIND命令：;3.基于数据表的扫描查询循环（P146） ;程序例：逐条显示“学生”数据表中男生的记录内容。;条件循环 GO TOP [LOCATE FOR 条件] DO WHILE NOT EOF( ) [处理一个记录] [CONTINUE]/[SKIP] ENDDO;例：查询读者表中的男女会员人数;记录查询小结;【例6-2】在读者信息表中为性别字段建立普通索引，并利用该索引查找并显示出所有女读者信息。;If eof( ) messagebox(“没有满足条件的记录”) else skip if 性别=女” thisform.refresh else messagebox(已查询完毕！) this.enabled=.f. skip -1 thisform.refresh endif endif;【EXM1】设计如图所示表单，在组合框中选择任一出版社，在编辑框中显示该出版社的图书的书名、价格和数量。;thisform.edit1.value=“书名 价格 数量 cbs=alltrim(bo1.value) scan for alltrim(出版社)=cbs x=书名+space(2)+str(价格,5,1)+str(数量,4) thisform.edit1.value=thisform.edit1.value+chr(13)+x endscan thisform.refresh;thisform.edit1.value=“书名 价格 数量 cbs=alltrim(bo1.value) locate for alltrim(出版社)=cbs Do while not eof( ) x=书名+space(2)+str(价格,5,1)+str(数量,4) thisform.edit1.value=thisform.edit1.value+chr(13)+x continue enddo thisform.refresh;【EXM2】设计如图所示表单，在编辑框中显示所有读者的姓名、办证日期，单位和联系电话。;thisform.edit1.value=读者姓名 办证日期 单位 联系电话 Do while not eof() x=读者姓名+space(2)+dtoc(办证日期)+space(2); +单位+space(2)+联系电话 thisform.edit1.value=thisform.edit1.value+chr(13)+x skip enddo thisform.refresh;thisform.edit1.value=“读者姓名 办证日期 单位 联系电话 scan x=读者姓名+space(2)+dtoc(办证日期)+space(2); +单位+space(2)+联系电话 thisform.edit1.value=thisform.edit1.value+chr(13)+x endscan thisform.refresh;go top do whil not eof() 处理一个记录 skip enddo;数据输入;三、数据表的运算;学号;1、统计记录个数;2、数值字段求和与平均值;3、多功能计算命令;4、分类汇总;【例6-9】计算图书表中每个出版社的图书数量。;set safety off use 图书 index on 出版社 ta