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

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

Result := Result Format(''''%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(''''%0:s <= :%1:sEnd)'''', [Field, FieldName]); {do not localize}

end

end;

end;

end

else

case MatchType of

fdMatchRange :

begin

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

Result := Result Format(''''%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(''''%0:s <= :%1:sEnd)'''', [Field, FieldName]); {do not localize}

end;

else

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

end;

end;

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