/***************************************************************/
Type EnregistrementSql Implemente Public : IEnregistrement Defaut TailleSegment 8 ConserverObjets
/* Objet : Type d'un enregistrement Sql. */
/***************************************************************/
/*-------------------------------------------------------------*/
/* Heritage des proprietes d'Objet. */
/*-------------------------------------------------------------*/
Prive :
EstInstanceDe : Type Lecture Public;
/*-------------------------------------------------------------*/
/* 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;
/*-------------------------------------------------------------*/
/* Heritage des methodes d'IEnregistrement. */
/*-------------------------------------------------------------*/
Public :
Procedure LireResultat(NomResultat : Caractere, Valeur : Nul Ou Enumere Sortie);
Procedure LireResultat(NomResultat : Caractere, Valeur : Nul Ou Entier Sortie);
Procedure LireResultat(NomResultat : Caractere, Valeur : Nul Ou Reel Sortie);
Procedure LireResultat(NomResultat : Caractere, Valeur : Nul Ou Caractere Sortie);
Procedure LireResultat(NomResultat : Caractere, Valeur : Nul Ou Date Sortie);
Procedure LireResultat(NomResultat : Caractere, Valeur : Nul Ou Binaire Sortie);
Fonction Optimiser(Invariant) EnumererResultats(Numero : Entier, TypeResultat : Nul Ou Type=? Sortie) Retourner Nul Ou Caractere;
Prive :
Destructeur(MettreEnAnteMemoire : Booleen) Retourner Booleen;
Fin Type
Le type EnregistrementSql modélise un enregistrement provenant d'un résultat d'une requête exprimée par un ordre de sélection en Structured Query Language (SQL).
Le type EnregistrementSql ne possède pas de constructeur.
Principal
/*******/
Variable
/******/
R : Nul Ou IResultatSql;
E : Nul Ou IEnregistrement;
E2 : Nul Ou IEnregistrement;
Debut
/* Parcours des enregistrements. */
Pour E=R.ParcoursAuDebut() JusquA E.DernierElement() Faire
...
Fin Pour
Si E==E2 Alors
/* Egalité entre deux enregistrements. */
...
Fin Si
Si E!=E2 Alors
/* Inégalité entre deux enregistrements. */
...
Fin Si
Fin Principal
| - | - | - | - | - | - | - | - | - |