SQL.Clear;

          SQL.Add(NewSQL.DataString);

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

          begin

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

                  TDBVariable(FOriginalVariables[i]).VariableValue;

          end;

          // 设置新的变量

          for i := 0 to FDialog.FilterList.Count - 1 do

            FDialog[i].SetVariables(FDataSet);

          try

            Open;

          except

            RestoreSQL;  //如果出错，则恢复原来的SQL语句

          end;

        end;

    SetFields;

    FDataSet.EnableControls;

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

  finally

    SQL.Free;

    NewSQL.Free;

  end;

end;

上一页  [1] [2] [3]