/***************************************************************/
Type AnnuaireElectronique Defaut Final
/* Objet : Type des objets correspondant aux annuaires electroniques. */
/***************************************************************/
/*-------------------------------------------------------------*/
/* Heritage des proprietes d'Objet. */
/*-------------------------------------------------------------*/
Prive :
EstInstanceDe : Type Lecture Public;
/*-------------------------------------------------------------*/
/* Proprietes propres. */
/*-------------------------------------------------------------*/
Prive :
NomAnnuaireElectronique : Caractere Virtuel Lecture Public Trace;
/*-------------------------------------------------------------*/
/* Heritage des methodes d'Objet. */
/*-------------------------------------------------------------*/
Public :
Fonction Optimiser(Invariant) Identique(O : Nul Ou Objet) Retourner Nul Ou Booleen;
Procedure Convertir(O : Nul Ou Objet);
Fonction Optimiser(Invariant) CreeParLeServeur() Retourner Entier;
Fonction Optimiser(Invariant) CreeParLeProcessus() Retourner Entier;
Fonction Optimiser(Invariant) CreeDansLEntrepot() Retourner Entrepot;
Fonction Cloner(EntrepotCible : Nul Ou Entrepot=Nul, Profondeur : ModeClonage = ClonageObjetSeul) Retourner Nul Ou Objet;
Fonction LirePropriete(NomPropriete : Caractere) Retourner Nul Ou Objet;
Procedure EcrirePropriete(NomPropriete : Caractere, Valeur : Nul Ou Objet);
Fonction IncrementerDecrementerPropriete(NomPropriete : Nul Ou Caractere, Incrementer : Booleen, Prefixe : Booleen) Retourner Nul Ou Objet;
Procedure SupprimerPropriete(NomPropriete : Caractere);
Fonction Optimiser(Invariant) EnumererProprietes(NumeroPropriete : Entier, TypePropriete : Nul Ou Type=? Sortie, PeutEtreNul : Booleen=? Sortie, Aide : Nul Ou Caractere=? Sortie, NomEnumere : Nul Ou Caractere=? Sortie) Retourner Nul Ou Caractere;
Fonction Optimiser(Invariant) Adresse() Retourner Nul Ou Caractere;
Prive :
Fonction Exporter(E : Nul Ou IEchangeElementaire) Retourner Boolean;
Fonction Importer(E : Nul Ou IEchangeElementaire, EntrepotCible : Nul Ou Entrepot=Nul, EstFiltre : Booleen=Faux, V : Entier=0, R : Entier=0, C : Entier=0) Retourner Nul Ou Objet;
/*-------------------------------------------------------------*/
/* Methodes propres. */
/*-------------------------------------------------------------*/
Public :
Constructeur(NomDeLAnnuaireElectronique : Caractere);
Operateur Optimiser(Invariant, NulAbsorbant) ==(A : Nul Ou AnnuaireElectronique) Retourner Nul Ou Booleen;
Operateur Optimiser(Invariant, NulAbsorbant) !=(A : Nul Ou AnnuaireElectronique) Retourner Nul Ou Booleen;
Procedure Habilitation Enregistrer(Format : FormatsRessourceSupportes=FormatRessourceAutomatique);
Procedure Habilitation Enregistrer(Flux : Nul Ou IFlux, Format : FormatsRessourceSupportes=FormatRessourceAutomatique);
Procedure Habilitation Enregistrer(NomFichier : Nul Ou Caractere, Format : FormatsRessourceSupportes=FormatRessourceAutomatique);
Fonction Habilitation Optimiser(NulAbsorbant) Exporter(NomDuFichier : Nul Ou Caractere, NomDeLAbonnement : Nul Ou Caractere, Format : FormatsRessourceSupportes=FormatRessourceAutomatique,
EnvoyerErreur : Nul Ou Procedure (MessageEnvoye : Caractere, NumeroColonne : Entier, NumeroLigne : Entier,
NomFichierSource : Nul Ou Caractere)=Nul) Retourner Nul Ou Booleen;
Fonction Habilitation Optimiser(NulAbsorbant) Importer(NomDuFichier : Nul Ou Caractere, Format : FormatsRessourceSupportes=FormatRessourceAutomatique,
EnvoyerErreur : Nul Ou Procedure (MessageEnvoye : Caractere, NumeroColonne : Entier, NumeroLigne : Entier,
NomFichierSource : Nul Ou Caractere)=Nul) Retourner Nul Ou Booleen;
Procedure Habilitation Supprimer();
Procedure MarquerModifie();
Fonction Habilitation ListerBoitesAuxLettresElectroniques(CritereFiltre : Nul Ou Caractere=Nul,
CritereTri : Nul Ou Caractere=Nul) Retourner Nul Ou IResultatRequeteDe Nul Ou Caractere;
Fonction Habilitation AjouterAbonnementElectronique(NomAbonnement : Caractere, AdresseElectronique : Nul Ou Caractere=Nul, Description : Nul Ou Caractere=Nul) Retourner Nul Ou AbonnementElectronique;
Fonction Habilitation ListerAbonnementsElectroniques(UtilisateurAbonne : Nul Ou Utilisateur, CritereFiltre : Nul Ou Caractere=Nul, CritereTri : Nul Ou Caractere=Nul) Retourner Nul Ou IResultatRequeteDe Nul Ou Caractere;
Prive :
Destructeur(MettreEnAnteMemoire : Booleen) Retourner Booleen;
Fin Type
Le type AnnuaireElectronique modélise un annuaire electronique qui est une vue sur un annuaire en technologie d'Up ! Virtual Technical Machine.
L'annuaire électronique conserve les adresses électroniques des utilisateurs et la définition des abonnements électroniques.
Les annuaires electroniques sont des objets persistants même si le programme n'est pas persistant.
Le type AnnuaireElectronique possède un constructeur explicite. Le paramètre NomDeLAnnuaireElectronique est le nom donné à l'annuaire électronique. Il sert également à rechercher son fichier dans le chemin donné par le paramètre UpsBlb.CheminRessources.
Variable
/******/
AnnuairePatients : Nul Ou AnnuaireElectronique;
AnnuaireProspects : Nul Ou AnnuaireElectronique;
Principal
/*******/
Debut
...
AnnuairePatients=AnnuaireElectroniques("MesPatients");
AnnuaireProspects=AnnuaireElectroniques("MesClients");
...
Si AnnuairePatients==AnnuaireProspects Alors
/* Egalité entre deux annuaires électroniques. */
...
Fin Si
Si AnnuairePatients!=AnnuaireProspects Alors
/* Inégalité entre deux annuaires électroniques. */
...
Fin Si
Fin Principal
| - | - | - | - | - | - | - | - | - |