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

Result := Result Format(''''%0:s >= :%1:sStart)'''', [Field, FieldName]);

if (StartingValue <> '''''''') and (EndingValue <> '''''''') then

Result := Result '''' and ('''';

if EndingValue <> '''''''' then

Result := Result Format(''''%0:s <= :%1:sEnd)'''', [Field, FieldName]);

end;

end

else

case MatchType of

fdMatchStart:

Result := Result Format(''''UPPER(%0:s) starting with :%1:sFilter ) '''', [Field, FieldName]); {do not localize}

fdMatchAny:

Result := Result Format(''''UPPER(%0:s) containing :%1:sFilter ) '''', [Field, FieldName]); {do not localize}

fdMatchEnd :

Result := Result Format(''''UPPER(%0:s) like :%1:sFilter ) '''', [Field, FieldName]); {do not localize}

fdMatchExact :

Result := Result Format(''''UPPER(%0:s) = :%1:sFilter ) '''', [Field, FieldName]); {do not localize}

fdMatchRange :

begin

if FieldType = ftString then

begin

if StartingValue <> '''''''' then

Result := Result Format(''''UPPER(%0:s) >= :%1:sStart)'''', [Field, FieldName]); {do not localize}

if (StartingValue <> '''''''') and (EndingValue <> '''''''') then

Result := Result '''' and (''''; {do not localize}

if EndingValue <> '''''''' then

Result := Result Format(''''UPPER(%0:s) <= :%1:sEnd)'''', [Field, FieldName]); {do not localize}

end

else

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