开发学院软件开发Delphi 通用查询组件设计(续三) 阅读

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

 2006-02-04 13:45:07 来源:WEB开发网   
核心提示:通用查询组件设计作者:nxyc_twz@163.com前段时间由于工作较忙,无暇整理本组件的相关文档,通用查询组件设计(续三),请大家谅解!以后我会陆续整理公布该组件的所有相关文档及源码!PRocedure TMyFieldInfo.SetVariables(d: TDataset);var value : Stri

通用查询组件设计

作者:nxyc_twz@163.com

  前段时间由于工作较忙,无暇整理本组件的相关文档,请大家谅解!以后我会陆续整理公布该组件的所有相关文档及源码!

PRocedure TMyFieldInfo.SetVariables(d: TDataset);

var

  value : String;

begin

//设置变量值

  if AnsiUpperCase(FilterValue) = 'NULL' then //如果FilterValue为空,则退出

   exit;

  if FieldType = ftString then //如果字段类型为字符串型,则

  begin

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

    case MatchType of  //匹配类型

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

      value := FilterValue;

     fdMatchEnd : //结束部分匹配

      value := '%' + FilterValue; 

     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 //如果起始范围值不为空 

      TQuery(d).ParamByName(FieldName + 'Start').Value := StartingValue; 

   if EndingValue <> '' then //如果结束范围不为空

      TQuery(d).ParamByName(FieldName + 'End').Value := EndingValue; 

  end

    else //大小写敏感

    begin

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

      TQuery(d).ParamByName(FieldName + 'Start').Value := AnsiUpperCase(StartingValue);

     if EndingValue <> '' then //如果结束范围值不为空

      TQuery(d).ParamByName(FieldName + 'End').Value := AnsiUpperCase(EndingValue); 

    end;

   end;

  end

end;

 

字段定义类

TMyFieldInfo = class  //字段类

  public

   FieldName : String;  //字段名

   FieldOrigin : String; 

   FieldType : TFieldType;  //字段类型

   DisplayLabel : String;  //显示的名称

   MatchType : TDBFilterMatchType;  //匹配类型

   FilterValue : String; //过滤值

   StartingValue : String; //开始值

   EndingValue : String;  //结束值

   CaseSensitive : boolean; //是否大小写敏感

   NonMatching : boolean;  //不匹配

   procedure Assign(o : TMyFieldInfo); //指定字段定义

function CreateSQL : String;  //创建SQL语句

procedure SetVariables( d : TDataset);  //设置字段变量

  end;

指定字段定义

procedure TMyFieldInfo.Assign(o : TMyFieldInfo);

begin

//指定字段信息

  FieldName := o.FieldName;

  FieldOrigin := o.FieldOrigin;

  FieldType := o.FieldType;

  DisplayLabel := o.DisplayLabel;

  MatchType := o.MatchType;

  FilterValue := o.FilterValue;

  StartingValue := o.StartingValue;

  EndingValue := o.EndingValue;

  CaseSensitive := o.CaseSensitive;

  NonMatching := o.NonMatching;

end;

创建SQL语句

function TMyFieldInfo.CreateSQL: String;

var

  Field : String;

begin

//创建SQL语句

  if FieldOrigin <> '' then

   Field := FieldOrigin

  else

   Field := FieldName;

  if NonMatching then

   Result := ' not ( '

  else

   Result := ' ( ';

  if AnsiUpperCase(FilterValue) = 'NULL' then

  begin

   Result := Result + Format('%s is NULL) ', [Field]);

   exit;

  end;

  if FieldType = ftString then

  begin

   if CaseSensitive then

    case MatchType of

     fdMatchStart:

      Result := Result + Format('%0:s starting with :%1:sFilter ) ', [Field, FieldName]);

     fdMatchAny:

      Result := Result + Format('%0:s containing :%1:sFilter ) ', [Field, FieldName]);

     fdMatchEnd :

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

     fdMatchExact :

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

     fdMatchRange :

     begin

      if StartingValue <> '' then

       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

      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

     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;

Tags:通用 查询 组件

编辑录入:爽爽 [复制链接] [打 印]
[]
  • 好
  • 好的评价 如果觉得好,就请您
      0%(0)
  • 差
  • 差的评价 如果觉得差,就请您
      0%(0)
赞助商链接