LA POO & UML

cClients est une classe

PRIVÉ
ccode est un entier sur 2 octets = 0 //Identifiant de Clients
cnom est un chaîne = “” //Nom_c
cprenom est un chaîne = “” //Prenom_c
FIN

PROCEDURE GLOBALE cClients::Ajtclent(cc est un entier , nc est un chaîne , pp est un chaîne )

SI cc0 ALORS

HLitRecherchePremier(FClients,”code_c”,cc)

SI HTrouve(FClients)=0 ALORS
FClients.code_c=cc
FClients.nom_c=nc
FClients.prenom_c=pp
HAjoute(FClients)
Info(“ok fait”)
RAZ(Faux)
RepriseSaisie(frm_main.code_c)
SINON
Info(“doublons”)
RAZ(Faux)
RETOUR
FIN
SINON
RepriseSaisie(frm_main.code_c)

FIN

PROCEDURE cClients:Constructeur(cc,cn,cp )
:ccode=cc
:cnom=cn
:cprenom=cp
::Ajtclent(cc,cn,cp)