Discussion :

[thibouille]

Je fais une vérification de mot de passe dnas un form dédié et souhaiterait récupéré une valeur suite à la vérification de ce mot de passe, à savoir le type d'utilisateur (simple, admin etc)...

Un simple integer est suffisant bien entendu, mais comment repasse cette valeur vers l'extérieur?

Une proc ouvre appelons la Proc1, ouvre le Fmpasswd (Form pour le password). Un bouton sur ce form déclenche la vérification dans la BD et ... je souhaite récupérer l'info dans Proc1.

Comment faire ?

[guillemouze]

ajoute simplemnt une property a ta form fmpassword

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
procedure proc1;
var 
  f: frmPassword;
  tu: integer;
begin
  f := frmPassword.Create;
  f.showmodal;
  tu := f.TypeUtilisateur;
  f.Free;
...
end;

[mengwei]

une solution assez élégante serait de définir une méthode de classe pour ta form password qui se chargerait de l'instancier et de la libérer tout en te renvoyant le mots de passe, par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
  TFrmPass = class(TForm)
  private
    FPass : Integer;
    {...}
  public
    class function Execute( out aPass : Integer) : Boolean;
  end;

Avec la fonction en question définie de cette manière :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
class function TFrmPass.Execute( out aPass : Integer) : Boolean;
begin
  with TFrmPass.Create( nil) do
  try
    {...}
    ShowModal;
    Result := ModalResult = mrOk;
    if Result then aPass := FPass;
  finally
    Free;
  end;
end;

et serait appelée dans ton code de cette manière

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
procedure proc1;
var i : integer;
begin
  if not TFrmPass.Execute( i) then {traitement en cas d'appui sur Cancel}
  else {traitement sur ton mot de passe}
end;

@guillemouze : attention à la libération de ta form, en cas d'exception dans l'exécution de ta frmPassword, ton f n'est pas libéré. Un petit try...finally autour de tout ça et on évite le moindre problème.

[aityahia]

moi a votre place je déclare un variable globale dans ma fenêtre principale ou un mon module de donnée si il existe que je vais initialiser depuis ma form Login.

[guillemouze]

moi a votre place je déclare un variable globale dans ma fenêtre principale ou un mon module de donnée si il existe que je vais initialiser depuis ma form Login.

cette technique me semble plus se rapprocher de la bidouille que de l'implementation propre et ordonnée.
Permet moi aityahia de fortement dérecommander ta proposition