Delphi + SQL Server

Version imprimable

28/10/2017, 12h06
Azotx

Delphi + SQL Server

Bonjour ,
J'ai besoin d'aide a propos comment je peux utiliser les rôles et connexion de SQL server pour gérer les permissions d’utilisateurs sur les tables avec le delphi
par exemple quand il lance l'application de delphi il utilise le nom & mot de passe de connexion de SQL server pour se connecter ; s'il n'y a pas, comment je peux gérer les permissions des utilisateurs de mon application ? Par exemple il y a un ADMIN qui peut ajouter et supprimer et faire tout et un autre User1 qui peut juste consulter et imprimer.
Pardonnez-moi pour ma langue Fr je suis en train d'utiliser une application de traduction : je n'ai pas trouvé de forum delphi en Anglais et merci
30/10/2017, 16h21
SergioMaster

Bonjour,

Je ne connais pas toute les subtilités de SQL Server mais il doit bien y avoir les rôles. Toutefois pour gérer les fonctionnalités d'un programme, il n'y a pas de secret, il faut faire une table UserInterne, une table de fonctionnalités programme, et une table de liaison User/fonction
04/11/2017, 19h02
Azotx

svp Mr tu a un exemple ou un tutorielle comment peut faire ça ?
05/11/2017, 10h00
SergioMaster

Bonjour,

tout d'abord , je reviens sur

Citation:

Pardonnez-moi pour ma langue Fr je suis en train d'utiliser une application de traduction : je n'ai pas trouvé de forum delphi en Anglais

déjà il y a le forum Embarcadero l'ancien qui a ma préférence et le nouveau mais il y a beaucoup d'autres forums en anglais que je croise lors de mes recherches !
Toutefois, c'est vrai le forum de developpez.net est vraiment le meilleur :ptdr: un peu de brosse à reluire :ptdr:

non, pas de tutoriel ni d'exemples c'est juste une question d'analyse de données et de besoins.

Ce que propose un SGBDR demande un SGBDR : les utilisateurs de ce dernier
par exemple :
Utilisateurs du SGBD
SYSDBA
OWNER
HIGHRANK
LOWRANK
GUEST

Roles
ADMIN -- All rights
RWDATAAPP -- read and write data
RDATAAPP -- read data
RMINDATA -- read only some data

un utilisateur du programme peut très bien faire partie d'un de ces groupes et donc se connecter à la base de données via un de ces identifiants+mot de passe+rôle c'est selon le rôle que l'accès sera géré pour l'accès aux données ce qui peut se gérer par exemple par l'intermédiaire de vues (VIEW)

Mais, si j'ai bien compris, vous voulez pouvoir gérer plus finement

il faut alors plutôt passer par des tables du genre :

PGMUsers(idUser,Name,password,role.....) << utiliser ce genre de table pour ensuite se connecter au SGBD avec un ROLE particulier
PGMFunctions(idPGMfunction,description ....)
PGMRights(idRight,idPGMFunction,idUser)
qui permettrait par exemple de savoir si BOB à le droit d'utiliser la fonctionnalité "PRINT ORDER" du programme

en pratique :

1- le programme demande le nom d'utilisateur et son mot de passe
2- le programme se connecte tout d'abord en tant que GUEST avec rôle RMINDATA
3- le programme vérifie alors la validité du couple utilisateur+mot de passe et le role attribué.
4- le programme déconnecte la session GUEST pour ouvrir une session correspondant au rôle (*)
5- le programme interroge les fonctionnalités PGMRights selon les besoins

* une table cryptée sera peut être nécessaire pour avoir le bon couple utilisateur+mot de passe pour se reconnecter, sauf si vous pensez que un seul utilisateur de la SGBD donc toujours le même mot de passe peut se connecter selon le rôle récupéré

bonsoir

tu peux utiliser la propriété visible des composants avec le mot de passe
Par exemple :

Code:

1
2
3
4
5
6
7
8
9
if (edit1.text = 'ADMIN')  and  (edit2.text = '***') then 
    form_menu.show;
 
if (edit1.text= 'user1')  and  (edit2.text = '###') then 
begin 
   form_X.buttn1.visible:= false; // pour masquer bouton ajouter
   form_X.buttn2.visible:= false  // pour masquer bouton supprimer 
   menu.show;
end;

Citation:
Envoyé par ZOLA 15
tu peux utiliser la propriété visible des composants avec le mot de passe
Par exemple :
Code:

1 2 3 4 5 6 7 8 9 if (edit1.text = 'ADMIN') and (edit2.text = '***') then form_menu.show; if (edit1.text= 'user1') and (edit2.text = '###') then begin form_X.buttn1.visible:= false; // pour masquer bouton ajouter form_X.buttn2.visible:= false // pour masquer bouton supprimer menu.show; end;
ça c'est facile a faire mais je veut ultilisé les connexion et les roles du SQL server en connectant a partir de delphi