TSelectorConstraint (selector)

{{#images:versionlatest-32x32.png|stock}} <source lang='delphi'>TSelectorConstraint:TObject;</source>

Cet objet matérialise une contrainte posée sur un sélecteur.

Attributs

Attribut	Usage
Parent	Objet parent de la contrainte
ClassName	Nom de la classe sur laquelle porte la sélection
Left	Nom de l'attribut gauche
Right	Nom de l'attribut droit
Where	Clause Where de la contrainte
ArgCount	Nombre d'arguments de la clause where
Args[]	Argument de la clause where

Méthodes d'instance

Méthode	Usage
Delete	Supprime la contrainte

Exemples d'utilisation de contrainte

Contrainte venant d'une référence

<source lang="delphi"> function doSelector(const iCodeA:string; const iCodeB:string):Integer; var selA:TSelector; obj:TSelectorConstraint; begin

 selA := ClassA.CreateSelector('unCodeA=%1','unCodeA',True,[iCodeA]);
 obj  := selA.AddConstraint(nil, 'ClassB','oid','refB','unCodeB=%1',[iCodeB]);
 Result := selA.Count;

end; </source>

Contrainte venant d'une référence inversée

<source lang="delphi"> function doSelector(const iCodeA:string; const iCodeB:string):Integer; var selB:TSelector; obj:TSelectorConstraint; begin

 selB := ClassB.CreateSelector('unCodeB=%1','unCodeB',True,[iCodeB]);
 obj  := selB.AddConstraint(nil, 'ClassA','refB','oid','unCodeA=%1',[iCodeA]);
 Result := selB.Count;

end; </source>

Contrainte en cascade

<source lang="delphi"> function doSelector(const iCodeA:string; const iCodeB:string):Integer; var selA:TSelector; obj:TSelectorConstraint; begin

 selA := ClassA.CreateSelector('unCodeA=%1','unCodeA',True,[iCodeA]);
 obj  := selA.AddConstraint(nil, 'ClassB','oid','refB','unCodeB=%1',[iCodeB]);
 obj  := selA.AddConstraint(obj, 'ClassA2','refB','oid','AliasOf(ClassA,unCodeA)=unCodeA',[]);
 Result := selA.Count;

end; </source>

Contrainte entre classes

<source lang="delphi"> function doSelector(const iCodeA:string; const iCodeB:string):Integer; var selB:TSelector; obj:TSelectorConstraint; begin

 selB := ClassB.CreateSelector('unCodeB=%1','unCodeB',True,[iCodeB]);
 obj  := selB.AddConstraint(nil, 'ClassA','refB','oid',,[]);
 obj  := selB.AddConstraint(nil, 'ClassA2','refB','oid','(AliasOf(ClassA,unCodeA)=unCodeA2) and (unCodeA2=%1)',[iCodeA]);
 Result := selB.Count;

end; </source>

Mise à jour

<source lang="delphi"> function doSelector(const iCodeA:string; const iCodeB:string):Integer; var selA:TSelector; obj:TSelectorConstraint; begin

 selA := ClassA.CreateSelector('unCodeA=%1','unCodeA',True,[iCodeA]);
 obj  := selA.AddConstraint(nil, 'ClassB','oid','refB','unCodeB=%1',[iCodeB]);
 withP long transaction do
  begin
    Result := selA.Update(['unEntierA'],[0]);
  end;

end; </source>

Mise à jour en utilisant un attribut de la contrainte

<source lang="delphi"> function doSelector(const iCodeA:string; const iCodeB:string):Integer; var selA:TSelector; obj:TSelectorConstraint; begin

 selA := ClassA.CreateSelector('unCodeA=%1','unCodeA',True,[iCodeA]);
 obj  := selA.AddConstraint(nil, 'ClassB','oid','refB','unCodeB=%1',[iCodeB]);
 obj  := selA.AddConstraint(obj, 'ClassA2','refB','oid','AliasOf(ClassA,unCodeA)=unCodeA2',[]);
 withP long transaction do
  begin
    Result :=  selA.Update(['unEntierA'],['ClassA2.unEntierA2']);
  end;

end; </source>

Voir aussi :

• Ajouter une contrainte

{{#if:Selecteur (tech)|

{{#if:Selecteur (tech)|— Selecteur (tech) |}} — Développement DSM —

|

{{#if:|— [[{{{1}}}]] |}} — Développement DSM —

}}