Rappel TitreColonne(NomColonne : Caractere, Titre : Nul Ou Caractere=Nul Sortie);
Le titre souhaité doit être affecté au paramètre Titre. A défaut, le titre est constitué du nom de la variable réceptionnant la valeur sélectionnée.
/****************************************************************/
Rappel TitreColonne(NomColonne : Caractere, Titre : Nul Ou Caractere=Nul Sortie)
/* Objet : Change le titre de la colonne. */
/****************************************************************/
Debut
Selon NomColonne Faire
Cas Pour "NomEmploye" Faire
Titre="Nom de l'employé";
Retourner RappelSucces;
Fin Cas
Cas Pour "DateEmbauche" Faire
Titre="Date d'embauche";
Retourner RappelSucces;
Fin Cas
Cas Pour "NumeroEmploye" Faire
Titre="Numéro de l'employé";
Retourner RappelSucces;
Fin Cas
Cas Pour "Salaire" Faire
Titre="Salaire";
Retourner RappelSucces;
Fin Cas
Retourner RappelIgnore;
Fin Rappel
Principal
/*******/
Debut
...
RequeteSql
/********/
MaRequeteSql ConnexionSql MaConnexionSql
ResultatSql(NomEmploye : Nul Ou Caractere TailleMaxSql 20, DateEmbauche : Nul Ou Date, NumeroEmploye : Nul Ou Entier, Salaire : Nul Ou Reel)
TailleTableauResultatSql 5
ParametreSql(NumeroDepartement : Entier)
SqlStatique
SELECT ename:=${NomEmploye}, hiredate:=${DateEmbauche}, empno:=${NumeroEmploye}, sal:=${Salaire}
FROM emp
WHERE deptno=${NumeroDepartement};
...
/* Execution interactive de la requête. */
MaRequeteSql;
...
Fin Principal
- | - | - | - | - | - | - | - | - |