Procédure d'initialisation de paquet (MM)
De Wiki1000
(Différences 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...) |
|||
| 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]] | ||
Version actuelle en date du 14 avril 2017 à 09: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 :
procedure TRegister<Nom_du_paquet>.Initialize;
|
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
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;
Voir aussi :
| Whos here now: Members 0 Guests 0 Bots & Crawlers 1 |
