Je vous propose de découvrir dans ce nouveau chapitre, comment ajouter les administrateurs et associer les permissions.

PROCÉDURE GenererPassword()



ChaineMdp est une chaîne = "abcdefghijklmnopeqrstuvwxyz0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ@#"



//Généré le mot de passe aléatoire

FI_ADMIN.Mot_de_passe = GénèreMotDePasse(6, ChaineMdp)

PROCÉDURE Ajouter_Admin(NOM, MAIL, PHONE, MDP, PRIVILEGE, STATUT)



DConnect:mySQLEscapeString(NOM)



SI NOM  = "" ET MAIL = "" ET PHONE = "" ET MDP = "" ALORS

	InfoAsynchrone("Entrer LES ZONE VIDE")

SINON

	//Vérification email

	SI EmailVérifieAdresse(MAIL, emailValideSyntaxe) <> emailAdresseValide ALORS

		

		InfoAsynchrone("Entrer une adresse mail Valide")

		

	SINON

		SI EstNumérique(PHONE) ALORS

			

			SQLRequete = "INSERT INTO admins SET NOM = '" ...

			+ NOM + "', MAIL = '"...

			+ MAIL + "', PHONE = '"...

			+ PHONE + "', MDP = '"...

			+ MDP + "', PRIVILEGE = '"...

			+ PRIVILEGE + "', STATUT = '"...

			+ STATUT + "'"

			

			DConnect:MySQLExecPS(SQLRequete, 1)

			InfoAsynchrone("Ajouter")

		SINON

			InfoAsynchrone("Entrer un numéro valide")

		FIN

	FIN

	

FIN