Syfre le 14 avril 2017 à 07:07

2017-04-14T07:07:15Z

← Version précédente		Version du 14 avril 2017 à 07:07
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>

	~~pour chaque paquet.~~

	{{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]]

Syfre : Nouvelle page : Après chargement du modèle de l'application le framework exécute une procédure d'initialisation procedure TRegister.Initialize; p...

2009-11-26T13:53:55Z

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...

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>

pour chaque paquet.

{{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 :

* [[Procédure de synchronisation de paquet (MM)|Procédure de synchronisation de paquet]]

{{Footer|ModelManager_(code)}}
[[category:ModelManager]]

Procédure d'initialisation de paquet (MM) - Historique des versions

Syfre le 14 avril 2017 à 07:07

Syfre : Nouvelle page : Après chargement du modèle de l'application le framework exécute une procédure d'initialisation procedure TRegister.Initialize; p...

Syfre : Nouvelle page : Après chargement du modèle de l'application le framework exécute une procédure d'initialisation procedure TRegister.Initialize; p...