4.2. PRESENTATION DES
RESULTATS
4.2.1. Présentation de
quelques interfaces d'entrée
4.2.1.1. Interface Connexion
Image n°7 : Interface Connexion
4.2.1.2. Interface Administrateur
Image n°8 : Interface Administrateur
4.2.1.3. Interface Utilisateurs
Image n°9 : Interface Utilisateur
4.2.1.4. Interface Envoi
Image n°10 : Interface Envoi
4.2.1.5. Interface Retrait
Image n°11 : Interface Retrait
4.2.1.6. Interface A Propos
Image n°12 : Interface A Propos
4.2.2. Présentation d'un
extrait du code
4.2.2.1. Code bouton connexion
SI SAI_UserName="Gédéon" ET SAI_MotDePasse="Kole"
ALORS
Ouvre(FEN_useradmin)
SINON
HRecherchePremier(TAdmin,User,SAI_UserName)
SI HTrouve(TAdmin) = Vrai ALORS
Utilise(FEN_Admin)
SINON
HRecherchePremier(TUtilisateur,UserName,SAI_UserName)
SI HTrouve(TUtilisateur) = Vrai ALORS
Utilise(FEN_Espase_Utilisateur)
SINON
Info("Vos informations ne sont pas correctes")
FIN
FIN
FIN
4.2.2.2. Code Suppression d'un transfert
SI TableSelect(TABLE_TUtilisateur) = -1 ALORS RETOUR
SELON Dialogue("Êtes-vous sûr de vouloir supprimer
l'enregistrement ?")
CAS 1
TableSupprime(TABLE_TUtilisateur)
TableAffiche(TABLE_TUtilisateur, taCourantPremier)
CAS 2
FIN
4.2.2.3. Code d'enregistrement d'un transfert
EcranVersFichier()
HEnregistre(TTransaction)
HRechercheDernier(TClient,NumCli,"",hRespecteFiltre)
SI HTrouve(TClient)=Vrai ALORS
TClient.NumCli++
FIN
TClient.NomCli=SAI_NomCli
TClient.AdrCli=SAI_AdrCli
TClient.TelCli=SAI_TelCli
HEnregistre(TClient)
SELON Dialogue("Envoi effectué avec succès.
Voulez-vous imprimer les détails de l'envoi?")
CAS 1
iAperçu()
iInitRequêteEtat(ETAT_Details_TTransaction,
TTransaction.CodeTr)
iImprimeEtat(ETAT_Details_TTransaction)
CAS 2
FIN
RAZ()
DonneFocus(SAI_NomCli)
4.2.2.4. Code Recherche d'un transfert
HOuvre(TTransaction)
BTN_retrait..Grisé = Vrai
HLitRecherchePremier(TTransaction,CodeTr,SAI_CodeRetrait)
SI HTrouve(TTransaction) = Vrai ALORS
SC_Fiche.SAI_NomCli = TTransaction.NomCli
SC_Fiche.SAI_AdrCli = TTransaction.AdrCli
SC_Fiche.SAI_TelCli = TTransaction.TelCli
SC_Fiche.SAI_Montant = TTransaction.Montant
SC_Fiche.SAI_Pourc = TTransaction.Pourc
SC_Fiche.SAI_DateHeure = TTransaction.DateHeure
SC_Fiche.SAI_NomDest = TTransaction.NomDest
SC_Fiche.SAI_AdrDest = TTransaction.AdrDest
SC_Fiche.SAI_TelDest = TTransaction.TelDest
SC_Fiche.SAI_CodAgc = TTransaction.CodAgc
BTN_retrait..Grisé = Faux
SINON
Info("Ce code n'est pas attribué")
FIN
4.2.2.5. Code Retrait d'un transfert
HLitRecherchePremier(TTransaction,CodeTr,SAI_CodeRetrait)
SI HTrouve(TTransaction) = Vrai ALORS
SI TTransaction.flag = True ALORS
Info ("Ce transfert a été déjà
payé.")
SINON
SC_Fiche.SAI_NomCli = TTransaction.NomCli
SC_Fiche.SAI_AdrCli = TTransaction.AdrCli
SC_Fiche.SAI_TelCli = TTransaction.TelCli
SC_Fiche.SAI_Montant = TTransaction.Montant
SC_Fiche.SAI_Pourc = TTransaction.Pourc
SC_Fiche.SAI_DateHeure = TTransaction.DateHeure
TTransaction.NomDest = SC_Fiche.SAI_NomDest
TTransaction.AdrDest = SC_Fiche.SAI_AdrDest
TTransaction.TelDest = SC_Fiche.SAI_TelDest
TTransaction.CodAgc = SC_Fiche.SAI_CodAgc
TTransaction.flag = Vrai
HModifie(TTransaction)
SELON Dialogue("Retrait effectué avec succès.
Voulez-vous imprimer les détails du retrait?")
CAS 1
iAperçu()
iInitRequêteEtat(ETAT_Details_TTransaction,
TTransaction.CodeTr)
iImprimeEtat(ETAT_Details_TTransaction)
CAS 2
FIN
RAZ()
DonneFocus(SAI_CodeRetrait)
BTN_retrait..Grisé = Faux
FIN
FIN
| 
