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

原创 2004年04月13日 14:08: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

    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);

        fdMatchExact :

          value := AnsiUpperCase(FilterValue);

      end;

  end

  else

    value := FilterValue;

  if d is TDataSet then

  begin

    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

  else

  begin

    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;

 

定义参数变量类

TDBVariable = class  //参数数据变量

  public

    VariableName : String;  //变量名 

    VariableValue : Variant;  //变量值

    constructor Create(name : String; value : Variant); //构造函数

  end;

 

通用查询组件设计(续)

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

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

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

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

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

通用查询组件设计

通用查询组件设计作者: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个字)