« Procédure d'initialisation de paquet (MM) » : différence entre les versions
(Nouvelle page : Après chargement du modèle de l'application le framework exécute une procédure d'initialisation <source lang='delphi'>procedure TRegister<Nom_du_paquet>.Initialize;</source> p...) |
Aucun résumé des modifications |
||
| Ligne 1 : | Ligne 1 : | ||
Après chargement du modèle de l'application le framework exécute une procédure d'initialisation | Après chargement du modèle de l'application, le framework exécute une procédure d'initialisation pour chaque paquet métier une procédure d'initialisation : | ||
<source lang='delphi'>procedure TRegister<Nom_du_paquet>.Initialize;</source> | <source lang='delphi'>procedure TRegister<Nom_du_paquet>.Initialize;</source> | ||
{{tip|Le code de ces procédures doit être exécutable plusieurs fois, si vous créez des objets assurez vous avant qu'ils n'existent pas déjà.}} | {{tip|Le code de ces procédures doit être exécutable plusieurs fois, si vous créez des objets assurez vous avant qu'ils n'existent pas déjà.}} | ||
| Ligne 38 : | Ligne 36 : | ||
{{Footer|ModelManager_(code)}} | {{Footer|ModelManager_(code)}} | ||
[[category:ModelManager]] | [[category:ModelManager]] | ||
[[category:Initialisation d'une base de données]] | |||
Dernière version du 14 avril 2017 à 07:07
Après chargement du modèle de l'application, le framework exécute une procédure d'initialisation pour chaque paquet métier une procédure d'initialisation :
<source lang='delphi'>procedure TRegister<Nom_du_paquet>.Initialize;</source>
|
Tip : Le code de ces procédures doit être exécutable plusieurs fois, si vous créez des objets assurez vous avant qu'ils n'existent pas déjà. |
Exemple <source lang='delphi'> procedure TRegisterMyPackage.Initialize; begin var
vContexte : TContextePoids;
begin
ClassManager.BeginTran;
try
vContexte := ClassManager.FindSingleton('TContextePoids');
if not Assigned(vContexte) then
begin
vContexte := ClassManager.CreateInstance('TContextePoids');
vContexte.Caption := 'ContextePoids';
end;
.... ClassManager.Commit; except ClassManager.RollBack; end;
end; </source>
Voir aussi :
{{#if:ModelManager_(code)|
{{#if:ModelManager_(code)|— ModelManager_(code) |}} — Développement DSM —
|
{{#if:|— [[{{{1}}}]] |}} — Développement DSM —
}}