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.

Une contrainte permet de définir une jointure et de poser des conditions sur cette jointure.

Les contraintes sont particulièrement utiles si :

La jointure est défini sur des éléments qui ne sont pas références
La jointure est conditionnée
La jointure est inversée

Attributs

Attribut	Usage
Name	Nom de la contrainte
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
AliasOf	Retourne la colonne préfixée d'un attribut de la classe de la contrainte
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.Name='C1'
 obj  := selA.AddConstraint(obj, 'ClassA2','refB','oid','AliasOf(ClassA,unCodeA)=unCodeA2',[]); // obj.Name='C2'
 withP long transaction do
  begin
    Result :=  selA.Update(['unEntierA'],['C2.unEntierA2']);
  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, obj2:TSelectorConstraint; begin

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

end; </source>

Voir aussi :

{{#if:Selecteur (tech)|

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

|

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

}}