Je vous propose de découvrir dans ce nouveau chapitre comment créer un système de permission afin de gérer les administrateur selon le privilège attribuer.

PROCÉDURE Liste_Admin()



//Afficher les administrateurs différent du principale

SQLRequete = "SELECT * FROM admins WHERE PRIVILEGE != 'Principale'"

DConnect:MySQLExecPS(SQLRequete, 1)



ZoneRépétéeSupprimeTout(FI_ADMIN.ZR_ListeAdmin)



TANTQUE DConnect:mySQLFetch(1)

	

	// Déclarer des variables type variants pour stocker n'importe quel éléments	

	ID est un entier = DConnect:mySQLLitColParNom(1, "ID")

	NOM est un Variant = DConnect:mySQLLitColParNom(1, "NOM")

	MAIL est un Variant = DConnect:mySQLLitColParNom(1, "MAIL")

	PHONE est un Variant = DConnect:mySQLLitColParNom(1, "PHONE")

	PRIVILEGE est un Variant = DConnect:mySQLLitColParNom(1, "PRIVILEGE")

	STATUT est un Variant = DConnect:mySQLLitColParNom(1, "STATUT")

	

	FI_ADMIN.ZR_ListeAdmin.AjouteLigne(ID, NOM, MAIL, PHONE, STATUT, PRIVILEGE)

	FI_ADMIN.ZR_ListeAdmin.Affiche(taDébut)

FIN