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

原创 2004年04月13日 14:07:00

通用查询组件设计<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

作者: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;

通用查询组件设计(续)

 通用查询组件设计(续)作者:nxyc_twz@163.com    前段时间由于工作较忙,无暇整理本组件的相关文档,请大家谅解!以后我会陆续整理公布该组件的所有相关文档及源码! 设置默认的匹配类型p...
  • nxyc_twz
  • nxyc_twz
  • 2004年03月02日 10:25
  • 1630

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

通用查询组件设计作者:nxyc_twz@163.com  前段时间由于工作较忙,无暇整理本组件的相关文档,请大家谅解!以后我会陆续整理公布该组件的所有相关文档及源码!设置字段变量procedure T...
  • nxyc_twz
  • nxyc_twz
  • 2004年04月13日 14:08
  • 1600

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

通用查询组件设计作者:nxyc_twz@163.com  前段时间由于工作较忙,无暇整理本组件的相关文档,请大家谅解!以后我会陆续整理公布该组件的所有相关文档及源码!保存参数值procedure TD...
  • nxyc_twz
  • nxyc_twz
  • 2004年03月22日 15:54
  • 1383

通用查询组件设计

通用查询组件设计作者:nxyc_twz@163.com 在当前的MIS系统中,数据维护与数据查询是其两个核心功能。如何设计一个通用的查询组件,使开发的MIS系统中具备统一的查询界面,是MIS系统开发人...
  • nxyc_twz
  • nxyc_twz
  • 2004年02月03日 13:47
  • 2173

自定义通用查询组件

Delphi 自定义组件制作 通用查询组件
  • kampan
  • kampan
  • 2011年05月19日 14:35
  • 2473

通用 Java 文件上传和下载组件的设计与实现

概 述   文件上传和下载是 Web 应用中的一个常见功能,相信各位或多或少都曾写过这方面相关的代码。但本座看过不少人在实现上传或下载功能时总是不知不觉间与程序的业务逻辑纠缠在一起,因此,当其他...
  • youyou_yo
  • youyou_yo
  • 2015年07月23日 18:06
  • 1456

js的通用组件

/**  */ var PublicUtil = {     //提示框类型     alertType: {         warnType: 0,         okType: 1...
  • mengxiangzhou
  • mengxiangzhou
  • 2014年09月22日 10:09
  • 579

通用日志记录组件实现

经过最近一段时间的设计和重构,通用日志记录系统,终于被剥离出来了。 整个日志记录的调度全部统一放在公共组件中,使用者只需要构建两个派生类,实现简单灵活,当前只针对写入到文件的日志记录,后面逐步增加到...
  • gongbenwen
  • gongbenwen
  • 2014年12月17日 09:24
  • 896

权限管理组件的设计、开发思路

应用软件中通常包含用户的权限管理功能,往往不同应用系统对权限管理功能的需求不同,有自己的权限模型,权限的授权、鉴权策略。权限管理是相对独立的一个功能模块,由于功能需求不同、采用模型设计、实现技术等的不...
  • yan_dk
  • yan_dk
  • 2012年02月01日 16:50
  • 807

WINFORM 多条件动态查询 通用代码的设计与实现

            经常碰到多条件联合查询的问题,以前的习惯认为很简单总会从头开始设计布局代码,往往一个查询面要费上老半天的功夫,而效果也不咋地。       前段时间做了个相对通用的多条件动态查...
  • huomm
  • huomm
  • 2008年03月22日 13:29
  • 5817
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:通用查询组件设计(续三)
举报原因:
原因补充:

(最多只允许输入30个字)