« TSelectorConstraint (selector) » : différence entre les versions
| Ligne 122 : | Ligne 122 : | ||
withP long transaction do | withP long transaction do | ||
begin | begin | ||
Result := selA.Update(['unEntierA'],['ClassA2. | Result := selA.Update(['unEntierA'],['ClassA2.unEntierA2']); | ||
end; | end; | ||
end; | end; | ||
Version du 5 juillet 2016 à 12:17
{{#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:TObject; 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:TObject; 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:TObject; 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:TObject; 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:TObject; 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:TObject; 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 :
{{#if:Selecteur (tech)|
{{#if:Selecteur (tech)|— Selecteur (tech) |}} — Développement DSM —
|
{{#if:|— [[{{{1}}}]] |}} — Développement DSM —
}}