ANNEXE
Script d'affichage des employés
|
FONCTION ExecSelectTable(pWhereTable="",pOrder="",pMax=1000,
pMode="Affiche",pNomTable="TABLE")
Commande est une chaîne
NumCol est un entier
Commande = "SELECT "+...
"EMPLOYE.NUMMATRICULE ,"+... "EMPLOYE.ID_INTEGRATION ,"+...
"EMPLOYE.ID_REGIME ,"+...
"EMPLOYE.NOMEMPLOYE ,"+... "EMPLOYE.PRENOMEMPLOYE ,"+...
"EMPLOYE.NUMCIN ,"+...
"EMPLOYE.DATECIN ,"+...
"EMPLOYE.LIEUCIN ,"+...
"EMPLOYE.NUMPASSEPORT ,"+... "EMPLOYE.DATEPASSEPORT ,"+...
"EMPLOYE.ADRESSEEMPLOYE ,"+... "EMPLOYE.SITFAMILLE ,"+...
"EMPLOYE.NUMTELEMPLOYE ,"+... "EMPLOYE.EMAILEMPLOYE ,"+...
"EMPLOYE.DATEENTREEADMINISTRATION ,"+... "EMPLOYE.DERNIEREEMPLOI
,"+... "EMPLOYE.SEXEEMPLOYE ,"+... "EMPLOYE.INDICEACTUEL ,"+...
"EMPLOYE.STATUTEMPLOYE ,"+... "EMPLOYE.DATENAISS ,"+...
"EMPLOYE.LIEUNAISS "+...
"FROM EMPLOYE"
// Ajoute le WHERE de filtre de liaison passé en
paramètre à la fenêtre SI pWhereFiltre<>"" ALORS
Commande+=" WHERE "+pWhereFiltre
SI Position(Commande,"WHERE")>0 ALORS
SI pWhereTable<>"" ALORS Commande+=" AND "+pWhereTable
SINON
SI pWhereTable<>"" ALORS Commande+=" WHERE "+pWhereTable
FIN
// Ajoute le ORDER BY
SI pOrder<>"" ALORS Commande=Commande+" ORDER BY
"+pOrder
// Exécute la commande
SI SQLExec(Commande,"RE QTABLE")=Faux ALORS
SQLErreur("RE QTABLE",Commande) RENVOYER Faux
SINON
SELON pMode
CAS "Affiche" // Affichage
TableSupprimeTout(pNomTable) SQLTable("RE QTABLE",pNomTable,pMax)
{pNomTable}..Nouveau=Faux
CAS "Creation", "Modif" // Création ou Modif
|
|
// Affecte dans les colonnes de la table de visu SI SQLFetch("RE
QTABLE") = 0 ALORS
SI pMode="Création" ALORS TableAjoute(pNomTable)
{pNomTable}={pNomTable}..Occurrence
FIN
NumCol=0
NumCol++;
SQLAffChamp("RE
QTABLE","NUMMATRICULE",NumCol,SQLTypeColonne("EMPLOYE","NUM MATRICULE"))
NumCol++;
SQLAffChamp("RE
QTABLE","ID_INTEGRATION",NumCol,SQLTypeColonne("EMPLOYE","ID_I NTEGRATION"))
NumCol++;
SQLAffChamp("RE
QTABLE","ID_REGIME",NumCol,SQLTypeColonne("EMPLOYE","ID_REGIM E"))
NumCol++;
SQLAffChamp("RE
QTABLE","NOMEMPLOYE",NumCol,SQLTypeColonne("EMPLOYE","NOME MPLOYE"))
NumCol++;
SQLAffChamp("RE
QTABLE","PRENOMEMPLOYE",NumCol,SQLTypeColonne("EMPLOYE","P RENOMEMPLOYE"))
NumCol++;
SQLAffChamp("RE
QTABLE","NUMCIN",NumCol,SQLTypeColonne("EMPLOYE","NUMCIN"))
NumCol++;
SQLAffChamp("RE
QTABLE","DATECIN",NumCol,SQLTypeColonne("EMPLOYE","DATECIN"))
NumCol++;
SQLAffChamp("RE
QTABLE","LIEUCIN",NumCol,SQLTypeColonne("EMPLOYE","LIEUCIN"))
NumCol++;
SQLAffChamp("RE
QTABLE","NUMPASSEPORT",NumCol,SQLTypeColonne("EMPLOYE","NU MPASSEPORT"))
NumCol++;
SQLAffChamp("RE
QTABLE","DATEPASSEPORT",NumCol,SQLTypeColonne("EMPLOYE","DA TEPASSEPORT"))
NumCol++;
SQLAffChamp("RE
QTABLE","ADRESSEEMPLOYE",NumCol,SQLTypeColonne("EMPLOYE","A DRESSEEMPLOYE"))
NumCol++;
SQLAffChamp("RE
QTABLE","SITFAMILLE",NumCol,SQLTypeColonne("EMPLOYE","SITFAMIL LE"))
NumCol++;
SQLAffChamp("RE
QTABLE","NUMTELEMPLOYE",NumCol,SQLTypeColonne("EMPLOYE","NU MTELEMPLOYE"))
NumCol++;
SQLAffChamp("RE
QTABLE","EMAILEMPLOYE",NumCol,SQLTypeColonne("EMPLOYE","EMAI LEMPLOYE"))
NumCol++;
SQLAffChamp("RE
QTABLE","DATEENTREEADMINISTRATION",NumCol,SQLTypeColonne("E
MPLOYE","DATEENTREEADMINISTRATION"))
NumCol++;
SQLAffChamp("RE
QTABLE","DERNIEREEMPLOI",NumCol,SQLTypeColonne("EMPLOYE"," DERNIEREEMPLOI"))
|
|
NumCol++;
SQLAffChamp("RE
QTABLE","SEXEEMPLOYE",NumCol,SQLTypeColonne("EMPLOYE","SEXE EMPLOYE"))
NumCol++;
SQLAffChamp("RE
QTABLE","INDICEACTUEL",NumCol,SQLTypeColonne("EMPLOYE","INDIC EACTUEL"))
NumCol++;
SQLAffChamp("RE
QTABLE","STATUTEMPLOYE",NumCol,SQLTypeColonne("EMPLOYE","ST ATUTEMPLOYE"))
NumCol++;
SQLAffChamp("RE
QTABLE","DATENAISS",NumCol,SQLTypeColonne("EMPLOYE","DATENAI SS"))
NumCol++;
SQLAffChamp("RE
QTABLE","LIEUNAISS",NumCol,SQLTypeColonne("EMPLOYE","LIEUNAISS
"))
FIN
// Fermeture de la requête SQLFerme("RE QTABLE")
FIN RENVOYER Vrai
FIN
|
LISTES DES FIGURES
Figure 1 : Organigramme de l'ENI 7
Figure 2 : Organigramme de la DGI 16
Figure 3 : Architecture du réseau actuel de la division
informatique 20
Figure 4 : Représentation d'une entité 27
Figure 5 : Représentation d'une relation 27
Figure 6 : Modèle Conceptuel des Données 32
Figure 7 : Modèle Logique des Données 34
Figure 8 : Requête PL/SQL vers un serveur 47
Figure 9 : Architecture de PL/SQL 49
Figure 10 : Architecture du système 54
Figure 11 : Création Espace disque logique 55
Figure 12 : Visualisation de l'espace disque logique 55
Figure 13 : Création d'une table 56
Figure 14 : Création des tables sous Oracle SQL*Plus
58
Figure 15 : Liste de tables créées 58
Figure 16 : Assistant de création du projet 60
Figure 17 : Choix de la source des données 60
Figure 18 : Sélection de la base source 61
Figure 19 : Choix des fichiers pour le RAD 62
Figure 20 : Point d'entrée pour le RAD 63
Figure 21 : Choix des options du menu 63
Figure 22 : Création de la bibliothèque et de
l'installation 65
Figure 23 : Création et procédure d'installation
66
Figure 24 : Création de l'installation 67
Figure 25 : Création d'une source de données 68
Figure 26 : Configuration du pilote ODBC pour Oracle 68
Figure 27 : Fenêtre d'authentification 69
Figure 28 : Menu principale de l'application 70
Figure 29 : Ajout d'un employé 71
Figure 30 : Visualisation des employés 73
LISTES DES TABLEAUX
Tableau 1 : liste des machines 17
Tableau 2 : Liste des Imprimantes 18
Tableau 3 : liste des Onduleurs 18
Tableau 4: Liste de Photocopie 18
Tableau 5: Liste de Scanneur 18
Tableau 6: Liste de Switch 18
Tableau 7 : Dictionnaire des données 31
|
|
