数据查询和统计.ppt

上一次课讲到创建数据库、使用命令显示与操作记录、创建与使用可视类、使用表格显示与操作记录、使用TreeView控件显示记录、表单之间传递数据。请同学们回顾这样两个问题:数据库表结构中项目组成?、编辑自定义方法?、类型、宽度、小数位数、索引方式;、输入掩码、标题;;。①添加方法:菜单:表单/新建属性/输入上面的属性名/添加②建立以后,可以通过“菜单:表单/编辑属性/方法程序”进行编辑。③对表单对象新建方法程序内容的编辑与对象事件过程编辑相同。上一次课主要学习的内容本章主要介绍VFP中的数据查询命令,SQL查询语句,在表单中定位记录,过滤记录以及数据统计。:VFP中数据查询命令可以分为顺序查询、索引查询和过滤记录3种。:LOCATE[<范围>]FOR<条件>格式:CONTINUE功能:定位到第一个符合条件的记录位置,CONTINUE定位下一个符合条件的记录注意:该命令只能在当前工作区查询。,定位德录,然后显示总数。CLOSEDATABASESOPENDATABASE(HOME(2)+'Data\testdata')USEcustomer&&打开customer表SETTALKOFFSTORE0TOgnCountLOCATEFORALLTRIM(UPPER())='GERMANY'DOWHILEFOUND()gnCount=gnCount+panyCONTINUEENDDO?'总的德国客户数:'+LTRIM(STR(gnCount)).Locate例命令格式:SEEK<表达式>功能:SEEK在一个表中搜索首次出现的一个记录,这个记录的索引关键字必须与指定的表达式匹配。:SEEKeExpression[ORDERnIndexNumber|IDXIndex|[TAG]TagName[OFCDX][ASCENDING|DESCENDING]][INnWorkArea|cTableAlias]说明:只能在索引过的表中使用seek命令,并且只能搜索索引关键字。除非SETEXACT的设置为OFF,否则匹配指的是完全匹配。如果SEEK找到了与索引关键字相匹配的记录,O()返回匹配记录的记录号;FOUND()返回“真”(.T.);EOF()返回“假”(.F.)。如果找不到相匹配的关键字,O()将表中记录的个数加1,然后返回;FOUND()返回“假”(.F.);EOF()返回“真”(.T.)。如果SETNEAR设置为ON,则记录指针指向与索引关键字最相匹配的那个记录的后面一个记录。如果SETNEAR设置为OFF,则记录指针指向文件的结尾。在这两种情况下,O(0)都返回与关键字最匹配的记录号。CLOSEDATABASESOPENDATABASE(HOME(2)+'Data\testdata')pany&&打开Customer表SETEXACTOFFSTORE'B'TOgcSeekValSEEKgcSeekValIFFOUND()pany,contactENDIF示例中,先打开customer表,pany字段建立索引。然后,用seek命令查找与内存变量gcseekval的值相匹配的索引关键字表达式。.Seek例VFP记录过滤是从逻辑上过滤掉不符合条件的记录,不真正删除。记录过滤可以将不需要的记录屏蔽掉。命令格式:SETFILTERTO[表达式][IN区号|别名]功能:指定访问当前表中记录时必须满足的条件。[表达式]--指定记录必须满足的条件。[IN区号|别名]指定受SETFILTER命令影响的工作区或表别名。用该子句来指定一个当前工作区以外的工作区或表。关闭过滤功能命令:SETFILTERTO说明:该命令对Select-SQL不起作用。函数FILTER([IN区号|别名])返回SETFILTER命令中指定的表筛选表达式。(HOME(2)+'Data\testdata')USEcustomer&&打开Customer表SETTALKONSETFILTERTOSUBSTR(cust_id,1)='B'CLEAR?FILTER()&&显示filterexpressionSTOREFILTER('customer')TOgcOldFilter&&SavefilterexpressionSETFILTERTOcountry='USA'?FILTER()&&显示filterexpressionSETFILTERTO&gcOldFilter&&Restorefilt