通用查詢(xún)組件設(shè)計(jì)(續(xù))

作者：nxyc_twz@163.com

　　前段時(shí)間由于工作較忙，無(wú)暇整理本組件的相關(guān)文檔，請(qǐng)大家諒解！以后我會(huì)陸續(xù)整理公布該組件的所有相關(guān)文檔及源碼！

設(shè)置默認(rèn)的匹配類(lèi)型

PRocedure TDBFilterDialog.SetDefaultMatchType(const Value: TDBFilterMatchType);

begin

//設(shè)置默認(rèn)的匹配類(lèi)型

  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;

設(shè)置字段

procedure TDBFilterDialog.SetFields;

var

  i, j, p : Integer;

  field, display : String;

begin

//設(shè)置字段

  FDialog.lstAllFields.Clear;//清除所有字段

  if FFields.Count = 0 then

  begin

    for i := 0 to FDataSet.FieldList.Count - 1 do

     if FDataSet.Fields[i].Visible then //定義查詢(xún)字段

       FDialog.lstAllFields.Items.AddObject(FDataSet.Fields[i].DisplayName,FDataSet.FieldList.Fields[i]);

  end

  else

    for j := 0 to FFields.Count - 1 do

    begin

      p := Pos(';', FFields.Strings[j]);

      field := Copy(FFields.Strings[j], 1, p - 1);

      if p = Length(FFields.Strings[j]) then

        display := field

      else

        display := Copy(FFields.Strings[j], p+1, Length(FFields.Strings[j]));

      for i := 0 to FDataSet.FieldList.Count - 1 do

        if FDataSet.FieldList.Fields[i].FieldName = field then

        FDialog.lstAllFields.Items.AddObject(display, FDataSet.FieldList.Fields[i]);

    end;

  if FDialog.lstAllFields.Items.Count > 0 then

  begin

    FDialog.lstAllFields.ItemIndex := 0;

    FDialog.FieldsListBoxClick(nil);//單擊字段列表框

  end;

end;

設(shè)置字段列表

procedure TDBFilterDialog.SetFieldsList(const Value: TStringList);

begin

//設(shè)置字段列表

  FFields.Assign(Value);

end;

設(shè)置SQL

procedure TDBFilterDialog.SetOriginalSQL(const Value: TStrings);

var

  i : Integer;

begin

//設(shè)置SQL語(yǔ)句

  if FOriginalSQL.Text <> Value.Text then

  begin

    FOriginalSQL.Clear;

    FOriginalSQL.AddStrings(Value);

    if not (csLoading in ComponentState) then

      FFields.Clear;

    FDialog.NewSQL;//新建SQL查詢(xún)

  end;

  for i := 0 to FOriginalVariables.Count - 1 do

    TDBVariable(FOriginalVariables[i]).Free;//定義參數(shù)數(shù)據(jù)變量類(lèi)

  FOriginalVariables.Clear;

  if TStrings(GetOrdProp(FDataSet, SQLProp)).Text = '' then

    exit;

for i := 0 to TQuery(FDataSet).Params.Count - 1 do

FOriginalVariables.Add(TDBVariable.Create(TQuery(FDataSet).Params[i].Name, TQuery(FDataSet).Params[i].Value)); //定義參數(shù)數(shù)據(jù)變量類(lèi)

  SetFields;//設(shè)置字段

end;

恢復(fù)SQL

procedure TDBFilterDialog.RestoreSQL;

var

  i : Integer;

begin

//恢復(fù)SQL語(yǔ)句

  // Disable the controls while we are working

  FDataSet.DisableControls;

  FDataSet.Close;

  // clear the existing SQL and variable declarations

  // restore the original SQL and variables

  SetOrdProp(FDataSet, SQLProp, Integer(FOriginalSQL));

  if FDataSet is TDataSet then

    for i := 0 to FOriginalVariables.Count - 1 do

      TQuery(FDataSet).ParamByName(TDBVariable(FOriginalVariables[i]).VariableName).Value :=

         TDBVariable(FOriginalVariables[i]).VariableValue

  else

    for i := 0 to FOriginalVariables.Count - 1 do

      TQuery(FDataSet).ParamByName(TdBVariable(FOriginalVariables[i]).VariableName).Value :=

         TDBVariable(FOriginalVariables[i]).VariableValue;

  FDataSet.Open;

  SetFields;

  FDataSet.EnableControls;

  FModifiedSQL.Assign(TStrings(GetOrdProp(FDataSet, SQLProp)));

end;

保存參數(shù)值

procedure TDBFilterDialog.SaveParamValues;

var

  i : Integer;

begin

//保存參數(shù)值

   if FDataSet is TDataSet then

    for i := 0 to FOriginalVariables.Count - 1 do

      TDBVariable(FOriginalVariables[i]).VariableValue :=

        TQuery(FDataSet).ParamByName(TDBVariable(FOriginalVariables[i]).VariableName).Value

  else

    for i := 0 to FOriginalVariables.Count - 1 do

      TDBVariable(FOriginalVariables[i]).VariableValue :=

        TQuery(FDataSet).ParamByName(TDBVariable(FOriginalVariables[i]).VariableName).Value;

end;

裝載過(guò)濾對(duì)話(huà)框

procedure TDBFilterDialog.Loaded;

var

  i : Integer;

begin

  inherited;

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

  begin

    SetFields;

    OriginalSQL.Assign(TStrings(GetOrdProp(FDataSet, SQLProp)));

    for i := 0 to TQuery(FDataSet).Params.Count - 1 do

        FOriginalVariables.Add(TDBVariable.Create(TQuery(FDataSet).Params[i].Name,

          TQuery(FDataSet).Params[i].Value));

  end;

end;

傳送消息

procedure TDBFilterDialog.Notification(AComponent: TComponent;

  Operation: TOperation);

begin

  inherited;

  if (AComponent = FDataset) and (Operation = opRemove) then

    FDataset := nil;

end;

構(gòu)造函數(shù)

constructor TDBFilterDialog.Create(AOwner: TComponent);

begin

//構(gòu)造函數(shù)

  inherited Create(AOwner);

  FDialog := TMyDBFilterDialog.Create(self);

  FOptions := [fdShowCaseSensitive, fdShowNonMatching];

  FDefaultMatchType := fdMatchStart;

  Caption := SDBFilterCaption;

  FFields := TStringList.Create;

  FOriginalSQL := TStringList.Create;

  FModifiedSQL := TStringList.Create;

  FOriginalVariables := TList.Create;

end;

析構(gòu)函數(shù)

destructor TDBFilterDialog.Destroy;

var

  i : Integer;

begin

  FDialog.Free;

  FFields.Free;

  FOriginalSQL.Free;

  FModifiedSQL.Free;

  for i := 0 to FOriginalVariables.Count - 1 do

    TDBVariable(FOriginalVariables[i]).Free;

  FOriginalVariables.Free;

  inherited Destroy;

end;

執(zhí)行查詢(xún)

function TDBFilterDialog.Execute : Boolean;

var

  CurrentSQL : TStrings;

begin

//執(zhí)行數(shù)據(jù)查詢(xún)

  CurrentSQL := TStrings(GetOrdProp(FDataSet, SQLProp));

  // 檢查SQL語(yǔ)句是否已經(jīng)改變了

  if not FModifiedSQL.Equals(CurrentSQL) then

    OriginalSQL := CurrentSQL;

  if FDialog.lstAllFields.Items.Count = 0 then

    SetFields;

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

  if fdShowCaseSensitive in Options then

    FDialog.cbxCaseSensitive.Visible := true

  else

    FDialog.cbxCaseSensitive.Visible := false;

  if fdShowNonMatching in Options then

    FDialog.cbxNonMatching.Visible := true

  else

    FDialog.cbxNonMatching.Visible := false;

  if fdCaseSensitive in Options then

    FDialog.cbxCaseSensitive.Checked := true

  else

    FDialog.cbxCaseSensitive.Checked := false;

  SaveParamValues;//保存參數(shù)值

  Result := FDialog.ShowModal = mrOK; //點(diǎn)擊確定按鈕

  if Result then

    ReBuildSQL;//重建SQL語(yǔ)句

end;