Liste de curseurs de suppression (tech)
De Wiki1000
(Différences entre les versions)
(Page créée avec « ===Introduction=== Les listes de curseurs de suppression sont des listes particulieres permettant à un processus de créer des curseurs de suppression afin de supprimer d... ») |
m |
||
(12 révisions intermédiaires par un utilisateur sont masquées) | |||
Ligne 11 : | Ligne 11 : | ||
Pour créer une liste de curseurs de suppression dans la base de données par défaut : | Pour créer une liste de curseurs de suppression dans la base de données par défaut : | ||
− | <source lang='delphi'>function ClassManager.CreateDeleteList | + | <source lang='delphi'>function ClassManager.CreateDeleteList : TDeleteList;</source> |
+ | |||
+ | ===Propriétés=== | ||
+ | {|class="wikitable" | ||
+ | |- | ||
+ | |Count | ||
+ | |Integer | ||
+ | |Cette propriété indique le nombre de curseurs de suppression contenu dans la liste. | ||
+ | |- | ||
+ | |Items[n] | ||
+ | |[[Curseur de suppression (tech)|TDeleteObjects]] | ||
+ | |Cette propriété retourne la référence d'indice n, commençant à zéro, du curseur de suppression contenu dans la liste. | ||
+ | |} | ||
===Méthodes=== | ===Méthodes=== | ||
Ligne 17 : | Ligne 29 : | ||
|- | |- | ||
|ADD | |ADD | ||
− | |<source lang='delphi'>Function Add | + | |<source lang='delphi'>Function Add : TDeleteObjects;</source> |
|Ajoute à la liste un nouveau curseur de suppression et en donne la référence. | |Ajoute à la liste un nouveau curseur de suppression et en donne la référence. | ||
− | |||
|- | |- | ||
|CLEAR | |CLEAR | ||
Ligne 30 : | Ligne 41 : | ||
|} | |} | ||
− | === | + | ===Exemple=== |
<source lang='delphi'> | <source lang='delphi'> | ||
Procedure doDelete; | Procedure doDelete; | ||
//Exemple avec un seul curseur de suppression | //Exemple avec un seul curseur de suppression | ||
var | var | ||
− | |||
vDeleteList : TDeleteList; | vDeleteList : TDeleteList; | ||
+ | vDeleteObjects : TDeleteObjects; | ||
begin | begin | ||
vDeleteList := ClassManager.CreateDeleteList; | vDeleteList := ClassManager.CreateDeleteList; | ||
Ligne 45 : | Ligne 56 : | ||
vDeleteObjects.Args[1] := oidEspaceAnalytique; | vDeleteObjects.Args[1] := oidEspaceAnalytique; | ||
vDeleteObjects.Filter := '(modeleVentilation.oidEspaceAnalytique=%1)'; | vDeleteObjects.Filter := '(modeleVentilation.oidEspaceAnalytique=%1)'; | ||
+ | vDeleteObjects.AnyWhere := True; | ||
vDeleteList.Execute; | vDeleteList.Execute; | ||
End; | End; | ||
</source> | </source> | ||
+ | |||
+ | Voir aussi : | ||
+ | |||
+ | *[[Curseur de suppression (tech)|TDeleteObjects]]. | ||
{{Footer|Code métier}} | {{Footer|Code métier}} | ||
[[category:Objets techniques]] | [[category:Objets techniques]] | ||
[[category:Import]] | [[category:Import]] |
Version actuelle en date du 8 décembre 2016 à 17:27
Sommaire |
Introduction
Les listes de curseurs de suppression sont des listes particulieres permettant à un processus de créer des curseurs de suppression afin de supprimer des instances d'objets.
Déclaration d'une variable liste Curseur de suppression
Les listes de curseurs de suppression doivent être déclaré :
Var vDeleteList : TDeleteList;
Création d'une liste de curseur de suppression
Le ClassManager expose une fonction pour créer une liste de Curseurs de suppression.
Pour créer une liste de curseurs de suppression dans la base de données par défaut :
function ClassManager.CreateDeleteList : TDeleteList;
Propriétés
Count | Integer | Cette propriété indique le nombre de curseurs de suppression contenu dans la liste. |
Items[n] | TDeleteObjects | Cette propriété retourne la référence d'indice n, commençant à zéro, du curseur de suppression contenu dans la liste. |
Méthodes
ADD | Function Add : TDeleteObjects; |
Ajoute à la liste un nouveau curseur de suppression et en donne la référence. |
CLEAR | Procedure Clear; |
Vide la liste de tous les curseurs existants. |
EXECUTE | Procedure Execute; |
Exécute la requête sur l'intégralité de la liste des curseurs de suppression dans une transaction. |
Exemple
Procedure doDelete; //Exemple avec un seul curseur de suppression var vDeleteList : TDeleteList; vDeleteObjects : TDeleteObjects; begin vDeleteList := ClassManager.CreateDeleteList; vDeleteObjects := vDeleteList.Add; vDeleteObjects.aClassName := 'TVentilationGroupeEspace'; vDeleteObjects.ArgCount := 1; vDeleteObjects.Args[1] := oidEspaceAnalytique; vDeleteObjects.Filter := '(modeleVentilation.oidEspaceAnalytique=%1)'; vDeleteObjects.AnyWhere := True; vDeleteList.Execute; End;
Voir aussi :
— Code métier — Développement DSM —