通用查询组件设计（续三）

fdMatchExact : //非匹配记录

value := FilterValue;

end

else //大小写不敏感

case MatchType of

fdMatchStart, fdMatchAny : //起始部分匹配或任意位置匹配

value := AnsiUpperCase(FilterValue);

fdMatchEnd : //结束部分匹配

value := ''''%'''' AnsiUpperCase(FilterValue); {do not localize}

fdMatchExact : //非匹配记录

value := AnsiUpperCase(FilterValue);

end;

end

else//字段类型为非字符串型

value := FilterValue;

if MatchType <> fdMatchRange then//如果匹配类型不为按范围

TQuery(d).ParamByName(FieldName ''''Filter'''').Value := value

else //否则

begin

if CaseSensitive then //如果大小写敏感

begin

if StartingValue <> '''''''' then //如果起始范围值不为空　

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!