voila j ai un code source d'une application qui a étais creer par mon developpeur je veux savoir dans le script le principe de mot de passe
de cet fenetre
PROCEDURE OuvreFen(FG_Titre="",FG_PWCompare=Faux)
// Pour compatibilité 5.5
MoiMême..Visible=Vrai
PassAnnule=Faux
SI FG_Titre<>"" ALORS
TitreEnCours(FG_Titre)
FIN
// Bouton Annule
// -------------
SI PassAnnule ALORS RENVOYER Faux
// Cas ou on ne fait pas la comparaison --> on envoie la valeur saisie
// ------------------------------------
SI FG_PWCompare=Faux ALORS RENVOYER PASSWORD
// Comparaison
// -----------
SI FG_PWCompare="" ALORS
//Code WinDev 5.5 remplacé par la migration :
// erreur(MessTraduit(2000)) //2000:Il n'y a pas de Mot de passe paramétré pour cette optio...
Erreur("Il n'y a pas de Mot de passe paramétré pour cette option !") //2000:Il n'y a pas de Mot de passe paramétré pour cette optio...
RENVOYER Faux
SINON
SI PASSWORD<>FG_PWCompare ET PASSWORD<>G_PassePartout ALORS
//Code WinDev 5.5 remplacé par la migration :
// erreur(MessTraduit(2001)) //2001:Mot de Passe Invalide
Erreur("Mot de Passe Invalide") //2001:Mot de Passe Invalide
RENVOYER Faux
SINON
RENVOYER Vrai
FIN
FIN
