Mot de passe pour mon application. [Fermé]

Signaler
Messages postés
37
Date d'inscription
mardi 8 juillet 2014
Statut
Membre
Dernière intervention
3 décembre 2018
-
Messages postés
37
Date d'inscription
mardi 8 juillet 2014
Statut
Membre
Dernière intervention
3 décembre 2018
-
Bonjour,

Mon souci est le suivant:

Je veux tout simplement ajouter un mot de passe sur une fiche (Form) qui démare avant l'application que je développe, mais le problème c'est que je ne sais pas ou taper le code du bouton qui compare le mot de passe saisie dans Edit1.text avec le vrais mot de passe.

Le nom de la fiche qui demande de mot de passe est : Fpassword
J'ai essayé le code suivant en le tapant dans : Projet----> View Source

begin
Application.Initialize;
Application.CreateForm(TFpassword, Fpassword);
if Fpassword.validerClick(Sender) then // validerClick normalement c'est l'appelle //de l'évenement OnClick du bouton Valider
if RzEdit2.text=rzedit1.Text then // ici le test du text tappé
begin
FSplash := TFSplash.Create(Application);
FSplash.Show;FSplash.Update; //-------------
Application.CreateForm(TPrincipale, Principale);
Application.CreateForm(TAjouModif, AjouModif);
Application.CreateForm(TFdirection, Fdirection);
Application.CreateForm(TFEtat, FEtat);
Application.CreateForm(TFLangue, FLangue);
Application.CreateForm(TFSalle, FSalle);
Application.CreateForm(TFTypeArchive, FTypeArchive);
Application.CreateForm(TFAMTypeArchive, FAMTypeArchive);
Application.CreateForm(TFAMDirection, FAMDirection);
Application.CreateForm(TFAMSalleArchive, FAMSalleArchive);
Application.CreateForm(TFAMEtatArchive, FAMEtatArchive);
Application.CreateForm(TFAMLangueArchive, FAMLangueArchive);
Application.CreateForm(TFSupArchive, FSupArchive);
Application.CreateForm(TFermer, Fermer);
Application.CreateForm(TFSearch, FSearch);
//Application.CreateForm(TFpassword, Fpassword);
Application.CreateForm(TFLocalisation, FLocalisation);
Application.CreateForm(TFSERCH1, FSERCH1);
Application.CreateForm(TFApropos, FApropos);
FSplash.Close;FSplash.Release;//-------------
Application.Run;
end
else
Application.Terminate;
end.

Qand je compile je reçois les mesages d'erreurs:
Undeclared identifier : 'validerClick'
Undeclared identifier : 'Sender'
Undeclared identifier : 'RzEdit2'

Quelqu'un pourrait me corriger mon code? merci...

1 réponse

Messages postés
37
Date d'inscription
mardi 8 juillet 2014
Statut
Membre
Dernière intervention
3 décembre 2018
2
Quelqu'un pourrait me corriger le code? SVP.
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 65492 internautes nous ont dit merci ce mois-ci

Messages postés
37
Date d'inscription
mardi 8 juillet 2014
Statut
Membre
Dernière intervention
3 décembre 2018
2
Quelqu'un pourrait me corriger le code? SVP.