在当前的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)
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;
property OriginalSQL : TStrings read FOriginalSQL write SetOriginalSQL;
public
{ Public declarations }
constructor Create(AOwner : TComponent); override;//
构造函数 destructor Destroy; override;//
析构函数 function Execute : Boolean;//
执行查询 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; //变量值
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
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;
（未完待续）
