Password logique
0/5 (3 avis)
Vue 8 730 fois - Téléchargée 2 466 fois
Description
-Une form
-Un bouton
Remarque l'instruction qui est executer au moment ou le pass est correct, est dans un bloc "begin-end" il n'est pas utilis si vous voulez executer qu'une opérations...
Voilà
visiter mon site: http://www.planet-delphi.fr.st
-Un bouton
Source / Exemple :
procedure TForm1.Button1Click(Sender: TObject);
var pass: string;{variable password}
begin
pass := inputbox('Activez les autres options','Entrez votre mots de pass :','');
if pass = 'votre mots de pass'{si le mots de pass et juste}
then{alors}
begin
form2.show;{Effectue les opérations dans se cas ouvre la form2}
end
else{sinon}
if pass = ''{si la personne n'a rien entré}
then{alors}
begin
beep;
messagedlg('Veuillez entrer un mots de pass...',mtWarning,[mbOK],0);{entrer un mots de pass}
end
else{sinon}
if (pass <> '') and (pass <>'1213'){si mauvais mots de pass}
then{alors}
begin
beep;
messagedlg('Mauvais mots de pass !!!',mtError,[mbOK],0);{mauvais mots de pass}
end;;;;
end;
end.
Conclusion :
Remarque l'instruction qui est executer au moment ou le pass est correct, est dans un bloc "begin-end" il n'est pas utilis si vous voulez executer qu'une opérations...
Voilà
visiter mon site: http://www.planet-delphi.fr.st
Codes Sources
A voir également
- Password logique
- Simulateur porte logique en ligne - Guide
- Générateur de suite logique - Guide
- Vb.net inputbox password ✓ - Forum - VB.NET
- Visual Basic / VB.NET : Password - CodeS SourceS - Guide
- Password !!! - Codes sources - Visual Basic / VB.NET (Sécurité)
3 mai 2007 à 15:47
9 déc. 2001 à 22:04
Bientôt une versiôn avec nombres de pass limitée.
6 déc. 2001 à 20:57
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.