通用查询组件设计

核心提示：通用查询组件设计作者：nxyc_twz@163.com 在当前的MIS系统中，数据维护与数据查询是其两个核心功能，通用查询组件设计，如何设计一个通用的查询组件，使开发的MIS系统中具备统一的查询界面，设置变量名及变量值 end; 构造函数，设置变量名及变量值constructor TDBVariable.Create

通用查询组件设计 作者：nxyc_twz@163.com   在当前的MIS系统中，数据维护与数据查询是其两个核心功能。如何设计一个通用的查询组件，使开发的MIS系统中具备统一的查询界面，是MIS系统开发人员一直在偿试解决的问题。笔者在多年的MIS系统的开发设计过程中，经过不断的摸索与实践，终于设计完成了这套相对比较完善、通用的查询组件。   该组件继承自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; （未完待续）