ADOQry.Filtered:=false;
       ADOQry.Filtered:=true;
       ADOQry.FilterGroup:=fgPendingRecords ;
FilterGroup参数解释如下：
FgUnassigned 指定不使用任何的过滤器来过滤数据
fgNone 移去任何的过滤器，让所有的数据都显示出来。这也可以通过设定ADO的Filtered属性值为False来达到
fgPendingRecords 只显示被修改过但尚未更新回数据源的数据或被修改过但尚未被取消更新的数据
fgAffectedRecords只显示受到上一次更新回数据源影响的数据
fgFetchedRecords 只显示在目前更新缓存之中的数据。这些数据是在上一次
从数据源取得之后所有储存在客户端的数据
fgPredicate 只显示刚被删除的数据
fgConflictingRecords 只显示被修改过但当更新回数据源时发生错误的数据

  ADOQuery.Filtered:=true;
  ADOQuery.FilterGroup:=fgPendingRecords;
  If ADOQuery.RecordCount=0 then 没有改动