probleme programmation ADO

Bonjour,

Je voudrais savoir comment faire pour faire des restrictions d'acces à une application avec le nom de session de l'utilisateur.
Je m'explique: l'application est relié à une base de données qui contient une table d'utilisateurs donc je voudrais que l'application ne soit accessible que pour les utilisateurs qui appartiennent à cette base de données.
jai utilisé une requête sql avec ado mais je n'arrive pas a continuer

Merci

Salut

Citation:

Envoyé par moiabdali

Bonjour,
[...] l'application est relié à une base de données qui contient une table d'utilisateurs [...]

Je suppose que les utilisateurs passent par une fenêtre de connexion (login/MdP). Si oui, alors la toute première chose à faire au démarrage de l'application est de lire la table utilisateur, de s'assurer de la validité du couple login/mdp, et le cas échéant fermer la connexion à la BDD, afficher un message informant que l'utilisateur n'est pas autoriser à consulter cette BDD et fermer l'application.
Rien de très sorcier. ;)

Tu butes sur quoi en réalité ?

[edit] Et bienvenue :D

@+ Claudius

Citation:

Envoyé par Cl@udius

Salut

Je suppose que les utilisateurs passent par une fenêtre de connexion (login/MdP). Si oui, alors la toute première chose à faire au démarrage de l'application est de lire la table utilisateur, de s'assurer de la validité du couple login/mdp, et le cas échéant fermer la connexion à la BDD, afficher un message informant que l'utilisateur n'est pas autoriser à consulter cette BDD et fermer l'application.
Rien de très sorcier. ;)

Tu butes sur quoi en réalité ?

[edit] Et bienvenue :D

@+ Claudius

Merci pour votre réponse

Je vous explique mon problème:

voici le code de l'unité du datamodule:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 procedure TDM.DataModuleCreate(Sender: TObject); begin ADOQUser.Parameters[0].Value := lowercase(StringReplace(username,'.',' ',[rfReplaceAll])); ADOQUser.Open; if ADOQuser.RecordCount>0 then begin TabCBR.Open; TabCDR.Open; TabCSSR.Open; TabHO.Open; TabSDBR.Open; end else messagedlg('Utilisateur non enregistré',mtinformation,[mbyes],0)=mryes Application.Terminate; end;
ADOQuser est la requête paramétré qui fait un select sur la table des utilisateurs.

J'ai les erreurs suivants et je ne sais comment les resoudre

Identificateur non déclaré: messagedlg, mtinformation, mbyes,Application

ou dois je les déclarer?

J'ai unit1 et unit2

Merci

Citation:

Envoyé par moiabdali

Identificateur non déclaré: messagedlg, mtinformation, mbyes,Application

ou dois je les déclarer?

Ajoute aux uses: Forms (pour l'objet l'application) et Windows (pour les autres).

Ensuite modifie ton code ainsi, notamment la partie else avec un bloc begin/end:
Code:

1 2 3 4 5 6 7 8 9 10 11 if ADOQuser.RecordCount > 0 then begin TabCBR.Open; // ... end else begin MessageDlg('Utilisateur non enregistré.'#13#10'L''application va être fermée.', mtInformation, [mbOK], 0); Application.Terminate; end;
@+ Claudius

Bonjour,

j'ai fait ce que tu m'as demandé et voici le message d'erreur qui me revient

déclaration attendue mais fin de fichier trouvée.

j'ai essayé la méthode pas a pas mais ça ne me donne rien.