通用查询组件设计（续）

　　前段时间由于工作较忙，无暇整理本组件的相关文档，请大家谅解！以后我会陆续整理公布该组件的所有相关文档及源码！

设置默认的匹配类型

procedure TDBFilterDialog.SetDefaultMatchType(const Value: TDBFilterMatchType);

begin

//设置默认的匹配类型

FDefaultMatchType := Value;

if Assigned(FDialog) and not (csDesigning in ComponentState) then

case FDefaultMatchType of

fdMatchNone :

begin

FDialog.grpSearchType.ItemIndex := 0;

FDialog.cbxNonMatching.Checked := true;

end;

fdMatchRange:

FDialog.pgeCriteria.ActivePage := FDialog.tabByRange;

else

FDialog.grpSearchType.ItemIndex := Integer(FDefaultMatchType);

end;

end;

procedure TDBFilterDialog.SetFields;

var