代码设置数据集的唯一约束

atiger

function TDSConstraints.AddConstraint(ADataSet: TSQLDataSet; AFields: String;
  ACaseSensitive: Boolean; AErrorMsg: String): Boolean;
var
  lConstraint: TDataSetUniqueConstraint;
begin
  lConstraint := TDataSetUniqueConstraint.Create(ADataSet);
  try
    lConstraint.Name := 'AFields';
    lConstraint.CaseSensitive := ACaseSensitive;
    lConstraint.ErrorMessage := AErrorMsg;
    lConstraint.FieldNames := AFields;
    lConstraint.Tag := 0;
    lConstraint.DataSet := ADataSet;


    ADataSet.Constraints.Add(lConstraint);
    Result := True;
  except
    lConstraint.Free;
    REsult := False;
  end;
end;