优化一下EHLIB的过滤功能

1、选择相应的过滤项目,然后直接就过滤,无需要再点一下回车
  initialization
  DBGridEhCenter.FilterEditCloseUpApplyFilter := True;

2、以前版本的过滤字串都是模糊过滤了,可是最近发现变成的匹配了。

  会对 EhLib 5.0 Build 5.0.13 Russian version 版
 修改 DBUtilsEh.pas 文件的第927行

function VarValueAsFilterStr(v: Variant): String;
  begin
    if VarType(v) = varDouble then
      Result := FloatToStr(v)
    else if VarType(v) = varDate then
      if @DateValueToSQLStringProc <> nil then
        Result := DateValueToSQLStringProc(Dataset, v)
      else
        Result := '''' + DateTimeToStr(v) + ''''
    else
      Result := '''%' + VarToStr(v) + '%''';
  end;

posted @ 2013-04-28 13:31  小天1981  阅读(277)  评论(0编辑  收藏  举报