通用查询组件设计(续三)[7]

[入库:2005年8月18日] [更新:2007年3月25日]

本文简介:选择自 nxyc_twz 的 blog

          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

          begin

            if startingvalue <> '' then

本文关键:通用查询组件设计
 

本站最佳浏览方式为 分辨率 1024x768 IE 6.0(或更高版本的 IE浏览器)

go top