通用查询组件设计

原创 2004年02月03日 13:47:00

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

作者:nxyc_twz@163.com

 

在当前的MIS系统中,数据维护与数据查询是其两个核心功能。如何设计一个通用的查询组件,使开发的MIS系统中具备统一的查询界面,是MIS系统开发人员一直在偿试解决的问题。笔者在多年的MIS系统的开发设计过程中,经过不断的摸索与实践,终于设计完成了这套相对比较完善、通用的查询组件。

<?xml:namespace prefix = v ns = "urn:schemas-microsoft-com:vml" /> 

该组件继承自Tcomponet组件,主要包括一个查询窗体及一个显示查询摘要的窗体。主要设计思路是通过设置Tquery组件的Params(参数)以达到通用查询的目的。关于如何设计自定义组件,请参考:创建定制组件

现将其设计思路与技巧公布出来,与广大编程爱好者共勉。定义通用查询类

 

在指定字符串中查找字符串

function WordPos(const AWord, AString: string): Integer;

//在指定字符串中查找字符串

var s: string;

    i, p: Integer;

begin

  s := ' ' + AnsiUpperCase(AString) + ' ';  //忽略大小写

  for i := 1 to Length(s) do if not (s[i] in Identifiers) then s[i] := ' '; //常量定义

  p := Pos(' ' + AnsiUpperCase(AWord) + ' ', s);  

  Result := p;

end;

 

定义通用查询类

type

  TDBFilterDialog = class(TComponent)

  private

    FDialog : TMyDBFilterDialog;//查询窗体类

    FOriginalSQL : TStrings;//原来的SQL语句

    FModifiedSQL : TStrings;//修改后的SQL语句

    FDataSet : TQuery;//数据集

    FDefaultMatchType : TDBFilterMatchType;//过滤类型

    FOptions : TDBOptions;//过滤选项

    FCaption: String;//窗体标题

    FFields: TStringList;//字段列表

    FOriginalVariables : TList;//变量列表

    SQLProp : String;//SQL属性

    procedure SetDataSet(const Value: TQuery);//设置数据集

    procedure SetOptions(const Value: TDBOptions);//设置选项

    procedure SetCaption(const Value: String);//设置标题

    procedure SetDefaultMatchType(const Value: TDBFilterMatchType);//设置默认的匹配类型

    procedure SetFields;//设置字段

    procedure SetFieldsList(const Value: TStringList);//设置字段列表

    procedure SetOriginalSQL(const Value: TStrings);//设置SQL

    procedure RestoreSQL;//恢复SQL

    procedure SaveParamValues;//保存参数值

    { Private declarations }

  protected

    { Protected declarations }

    procedure Loaded; override;//装载过滤对话框

    procedure Notification(AComponent: TComponent;

      Operation: TOperation); override;//传送消息

    property OriginalSQL : TStrings read FOriginalSQL write SetOriginalSQL;

  public

    { Public declarations }

    constructor Create(AOwner : TComponent); override;//构造函数

    destructor Destroy; override;//析构函数

    function Execute : Boolean;//执行查询

    procedure ReBuildSQL;//重建SQL语句

    property ModifiedSQL : TStrings read FModifiedSQL;

  published

    { Published declarations }

    property Caption : String read FCaption write SetCaption;//设置标题

    property DataSet : TQuery read FDataSet write SetDataSet;//设置数据集

    property DefaultMatchType : TDBFilterMatchType read FDefaultMatchType write SetDefaultMatchType

       default fdMatchStart;//过滤类型

    property Options : TDBOptions read FOptions write SetOptions default

      [fdShowCaseSensitive, fdShowNonMatching];//过滤选项

    property Fields : TStringList read FFields write SetFieldsList;

  end;

 

定义参数数据变量类

TDBVariable = class  //参数数据变量

  public

    VariableName : String;  //变量名 

    VariableValue : Variant;  //变量值

    constructor Create(name : String; value : Variant); //构造函数,设置变量名及变量值

  end;

 

构造函数,设置变量名及变量值

constructor TDBVariable.Create(name: String; value : Variant);

begin

//构造函数,设置变量名及变量值

  VariableName := name;

  VariableValue := value;

end;

 

常量定义

const

  Identifiers = ['a'..'z', 'A'..'Z', '0'..'9', '_', '#', '$', '.', '"', '@'];

 

procedure Register;//注册组件

 

注册组件

procedure Register;

//注册组件

begin

  RegisterComponents('我的数据库组件', [TDBFilterDialog]);

end; {of Register}

 

过滤类型

//过滤的匹配类型:完全匹配、起始处匹配、结束处匹配、任意位置匹配、范围匹配、不匹配

  TDBFilterMatchType = (fdMatchExact, fdMatchStart, fdMatchEnd,

fdMatchAny, fdMatchRange, fdMatchNone);

 

过滤选项

//过滤选项:大小写敏感  显示大小写敏感  显示不匹配记录

  TDBOption = (fdCaseSensitive, fdShowCaseSensitive, fdShowNonMatching);

  TDBOptions = Set of TDBOption;

 

设置数据集

procedure TDBFilterDialog.SetDataSet(const Value: TQuery);

begin

//设置数据集

  if not ((Value is TQuery) or (Value = nil)) then//如果未指定数据集或指定的数据集不是Tquery,则发出异常

    Raise Exception.Create(SDBFilterNonDBError);

//否则 

FDataSet := Value;

SQLProp := 'SQL';   

  if ([csDesigning, csLoading] * ComponentState) = [] then

  begin

    SetFields;//设置字段

    OriginalSQL := TStrings(GetOrdProp(FDataSet, SQLProp));//

  end;

end;

 

设置选项

procedure TDBFilterDialog.SetOptions(const Value: TDBOptions);

begin

//设置选项

  FOptions := Value;

end;

 

设置标题

procedure TDBFilterDialog.SetCaption(const Value: String);

begin

//设置标题

  FCaption := Value;

  FDialog.Caption := FCaption;

end;

(未完待续)

自定义通用查询组件

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

通用查询组件设计(续)

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

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

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

js的通用组件

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

通用日志记录组件实现

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

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

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

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

            经常碰到多条件联合查询的问题,以前的习惯认为很简单总会从头开始设计布局代码,往往一个查询面要费上老半天的功夫,而效果也不咋地。       前段时间做了个相对通用的多条件动态查...
  • huomm
  • huomm
  • 2008年03月22日 13:29
  • 5822

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

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

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

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

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

通用查询组件设计作者:nxyc_twz@163.com  前段时间由于工作较忙,无暇整理本组件的相关文档,请大家谅解!以后我会陆续整理公布该组件的所有相关文档及源码!保存参数值procedure TD...
  • nxyc_twz
  • nxyc_twz
  • 2004年03月22日 15:54
  • 1384
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:通用查询组件设计
举报原因:
原因补充:

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