Login et Mot de passe

Signaler
Messages postés
7
Date d'inscription
lundi 6 mai 2002
Statut
Membre
Dernière intervention
9 décembre 2004
-
Messages postés
1119
Date d'inscription
lundi 4 février 2002
Statut
Membre
Dernière intervention
4 octobre 2006
-
Bonjour à tous,
Je crée actuellement une petite base de données avec Paradox et je souhaite utiliser un TDataBase et pouvoir utiliser un Login et un mot de passe pour me connecter, j'ai besoin d'aide pour le faire. Merci à tous et bonne prog.
;)

3 réponses

Messages postés
1119
Date d'inscription
lundi 4 février 2002
Statut
Membre
Dernière intervention
4 octobre 2006
7
Sache que si tu veux utiliser les mots de passe sur les bases paradox ceux ci ne sont pas protégés. Il existe des mots de passe générique. En cherchant sur le net tu les trouveras.

Qu'elle aide souhaiterait tu exactement sinon?

Bonne prog,
JMP77.

N'oubliez pas de cliquer sur réponse acceptée.
Messages postés
7
Date d'inscription
lundi 6 mai 2002
Statut
Membre
Dernière intervention
9 décembre 2004

Salut,
je te remercie, en fait, je travaille avec Delphi 5 et oui... je ne cherche pas à proteger ma base je sais qu'il y a des mots de passe génériques, je veux juste exploiter le composant TDatabase ou autres et appeller le dialog de connexion à la base, une sorte d'authentification. j'espère que je me suis fait comprendre merci d'avance.

bonne prog.

;)
Messages postés
1119
Date d'inscription
lundi 4 février 2002
Statut
Membre
Dernière intervention
4 octobre 2006
7
Hello,

Voila la procedure version "light" que j'utilise pour me connecter a mes tables paradox.
Tous les compos sont crées dynamiquement. Tu as juste a poser un dbgrid sur ta form.

Voila ce que tu peux faire en globale tu declares tes variables :
 Database1 : TDateBase;
Table1 : TTAble;
DataSource1 : TDataSource;

Procedure ConnectBase;

begin
   Try 
   {Définition de la Session};
   Session.AutoSessionName := True;
   Session.NetFileDir      := PathIni.Rep_Alias;//Chemin du pdx.net
   Session.AddPassword('MmonPass');
   Session.Active          := True;

       If Session.IsAlias('MonAlias') then Session.DeleteAlias('MonAlias');

   Session.AddStandardAlias('MonAlias','Chemin de la base de données','PARADOX');
   {Creation des composants database}
   DataBase1           := TDataBase.Create(nil);
   {Configuration des composants database}
   {SessionName}
   DataBase1 := Session.SessionName;
   {DatabaseName}
   DataBaseAsync2000Net.DataBaseName := 'MonDataBase';
   {AliasName}
   DataBase1.AliasName := 'MonAlias';   
   {Connection ttable}
   Table1              := TTable.Create(nil);
   Table1.DatabaseName := 'MonDataBase';
   Table1.TableName    := 'Nom de ta table';
   Table1.SessionName  := Session.SessionName;
   Table1.ReadOnly := True;
   Table1.Active       := True;
   DataSource1        := TDataSource.Create(nil);
   DataSource1.DataSet := Table1;
   DbGrid1.Datasource  := DataSource1;
  except      
  {En cas d'erreur on détruit les compos}
   DataBase.Free;
   Table1.Free;
   DataSource1.Free;
   end;
end;


Voila c'est du vite fait désole. Il y a surement moyen d'optimiser tous cela mais je n'ai pas trop le temps.
Si tu n'y arrives pas n'hesite pas.

Bonne prog,
JMP77.

N'oubliez pas de cliquer sur réponse acceptée.