通用查询组件设计

2/4/2006来源:Delphi教程人气:11559

通用查询组件设计
 
在当前的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;
(未完待续)