Discussion :

[delphi2019]

salut
j’ai la base de données suivante qui contient deux tables: (GROUPES,USERS) pour gérer les droits des groupes :
Script:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
CREATE TABLE GROUPES (
  ID_GROUPE         SMALLINT NOT NULL,
  DESCRIPTION       VARCHAR(30) NOT NULL,
  DROITS_Button1    SMALLINT ,
  DROITS_BUTTON2    SMALLINT,
  /* Keys */
  CONSTRAINT PK_GROUPE
    PRIMARY KEY (ID_GROUPE)
);
 
CREATE TABLE USERS (
  ID_USER     SMALLINT NOT NULL,
  NOM         VARCHAR(30) NOT NULL,
  MotPass    VARCHAR(30),
  ID_GROUPE   SMALLINT,
  /* Keys */
  CONSTRAINT PK_USERS
    PRIMARY KEY (ID_USER),
  /* Foreign keys */
  CONSTRAINT FK_USER_GROUPES
    FOREIGN KEY (ID_GROUPE)
    REFERENCES GROUPES(ID_GROUPE)
    ON DELETE CASCADE
    ON UPDATE CASCADE
);

Insertion des enregistrements

Code :

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

1
2
3
4
5
6
7
8
9
10
 
INSERT INTO GROUPE_PRV (ID_GROUPE, DESCRIPTION, DROITS_Button1, DROITS_BUTTON2) VALUES (1, 'administrateur', 1,1);
INSERT INTO GROUPE_PRV (ID_GROUPE, DESCRIPTION, DROITS_Button1, DROITS_BUTTON2) VALUES (2, 'superviseur', 0,1);
INSERT INTO GROUPE_PRV (ID_GROUPE, DESCRIPTION, DROITS_Button1, DROITS_BUTTON2) VALUES (3, 'Staff', 1,0);
COMMIT;
 
INSERT INTO USERS (ID_USER, NOM, MotPass, ID_GROUPE) VALUES (1, 'admin', 'test', 1);
INSERT INTO USERS (ID_USER, NOM, MotPass, ID_GROUPE) VALUES (1, 'David', '123456', 2);
INSERT INTO USERS (ID_USER, NOM, MotPass, ID_GROUPE) VALUES (1, 'Devloper', '1234', 3);
COMMIT;

dans la form1 j'ai deux boutons (Button1,Button1=2)

pour donner à chaque groupe une droit pour chaque bouton Nous écrivons l'un des deux nombres dans les deux champs (DROITS_Button1, DROITS_BUTTON2)
le numéro 0 veut dire que Le groupe n'a pas d'autorisation, ce qui signifie que le bouton est désactivé
le numéro 1 veut dire que Le groupe a l'autorisation, ce qui signifie que le bouton est Activé


pour charge les droit d'un utilisateur

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
procedure TForm1.FormCreate(Sender: TObject);
begin
             with FDQuery1 do
              begin
              Close;
              SQL.Clear;
              SQL.Add('SELECT DROITS_Button1,DROITS_Button2 FROM GROUPES');
              SQL.Add(' WHERE DESCRIPTION=:ParmDESCRIPTION');
              ParamByName('ParmDESCRIPTION').value:=FormAuthentification.EditUserName.Text;
              Open;
              end;
 
  if DataModule1.FDQuery1.FieldByName('DROITS_Button1').asInteger=0 then  Button1.Enabled:=False
  else Button1.Enabled:=True          
 
  if DataModule1.FDQuery1.FieldByName('DROITS_Button2').asInteger=0 then
             Button2.Enabled:=False
             else Button2.Enabled:=True
end;

-C'est l'idée avec laquelle je travaille pour les droit des forms

-Supposons que j'ai 8 forms dans chaque form, il y a 10 boutons
Cela signifie que j'ajouterai 80 champs dans le table GROUPES (DROIT_button1....DROIT_button80) Pour moi c'est trop De plus, Firebird a un nombre maximum de champs autorisés dans chaque table

Mes questions sont:
1-Est-ce une bonne méthode et qu'en pensez-vous.
2-y a-t-il une meilleure méthode?

[ShaiLeTroll]

Mauvaise structure* ...
pense verticalement en non horizontalement
pense Jointure et non colonne

* pour une base de donnes relationnel
Dans certains cas un champ de bit peut être justifié, par exemple une carte d'accès et quelques milliers de porte sécurisée.
Il est plus facile de transformer un ensemble de données relationnel vers un modèle à plat que la réciproque

[delphi2019]

pense verticalement en non horizontalement

tu veux dire: de mettre dans la table GROUPES un champ appelé droit À la place des deux champs(DROITS_Button1,DROITS_Button2) ?
Peux-tu m'expliquer plus pour que je comprenne

pense Jointure et non colonne

Vous avez raison. Je savais l'erreur dans laquelle je suis tombé ...
J'étais censé faire une jointure de la table GROUPES avec USERS ...Merci pour l'avertissement

[SergioMaster]

Bonjour,

Non, je pense que ShaiLeTroll pensait à quelque chose comme
table Boutons(id_compo,id_groupe....) avec des relations foreign key
parce que quand il y aura une trentaine de boutons ta table GROUPE_PRV va devenir

La technique de Paul, est d'utiliser un colonne codée sur x bits et de tester si le bit est on ou off un smallint (32 bits) te permettra d'affecter les droits à 32 composants (boutons, TEdit ...)
un BIGINT à 64 , un NUMERIC(18,0) à 144 (bon pour ce dernier, c'est théorique, je ne crois pas que cela soit aisé). Avec un CHAR(x) cela doit même être possible

Donc une seule colonnes exemple

Code SQL :

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

DROITS_BOUTONS  BIGINT DEFAULT 0;

et un test sur le bit adéquat pour savoir si le bouton est à activer ou non. Bien sur il faut qu'au bouton soit indiqué (par exemple la valeur du Tag) de quel bit il s'agit soit en valeur.
L'exemple de Paul propose les valeurs 1,2,4,8,16,32,64 ... donc des 2ⁿ, perso j'aime bien utiliser les positions de 1 à 32

Pour information, Firebird permet la manipulation de bits (FB 2.1 et >) , mais il est possible de faire des UDF (j'en ai d'ailleurs fait pour ce genre de colonnes quand je n'avais qu'IB 5.0)

Je n'ai pas compris où mettre ce code

dans le programme bien sûr

je n'avais jamais utilisé la commande shl auparavant

il est temps de regarder les diverses instructions sur les bits si vous adoptez cette technique

[delphi2019]

Bonjour,
parce que quand il y aura une trentaine de boutons ta table GROUPE_PRV va devenir

Juste une faute de frappe Il n'y a que deux tables: (GROUPES,USERS)

Avec un CHAR(x) cela doit même être possible

1-Quel est le maximum droit pour le type CHAR(x) ?


2-Après avoir confirmé que le mot de passe est correct , en stocker la valeur quelque part par exemple en variable VARDroits de type BIGINT

VARDroits:=FDQuery1.FieldByName('Droits').asInteger;

donc le code OnCreate contiendra (pour permet appliquer les droits pour l'utilisateur):

Code :

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

1
2
3
4
 
 Button1.enabled:=VARDroits AND (1 shl 1)<>0;
 Bouton2.enabled:=VARDroits AND (1 shl 2)<>0;
 Bouton3.enabled:=VARDroits AND (1 shl 3)<>0;

Est-ce vrai ?

Une autre question qui demeure est de savoir comment déterminer la valeur d’enregistrement qui se trouve dans le champ DROITS
Supposons que nous ayons 5 boutons
et le groupe superviseur accès uniquement aux: bouton1 et bouton5 Cela signifie que :

le bit numéro 1 et le numéro 5 porteront le numéro 1, ce qui signifie que le nombre résultant en binaire est (10001) =1+16=17 en décimal)

veux dire, nous enregistrerons le numéro 17 dans un champ DROIT pour le groupe superviseur
Comment exécutons-nous ce processus lors de l'octroi d'autorisations à un utilisateur spécifique? Autrement dit, comment calculons-nous le nombre 17

[Paul TOTH]

donc la proposition de Shai c'est de faire une table de droits par bouton du type

Code :

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

1
2
3
4
5
 
  CREATE TABLE DROITSBOUTON (
    BOUTON INT
    UTILISTATEUR INT
  );

la table contenant le numéro du bouton et l'utilisateur qui a le droit sur ce bouton

ma proposition c'est d'utiliser un entier pour stocker les droits

en Delphi c'est un SET OF

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
type
  TBoutons = (bouton1, bouton2, bouton4, bouton5...);
  TDroits = set of TBoutons;
var
  Droits: TDroids;
begin
  Droits := [bouton2, bouton4];
 
  Query.FieldByName('DROITS').AsInteger := Ord(Droits);
 
  Droits := TDroits(Query.FieldByName('DROITS').AsInteger;
end;

le seul truc pénible c'est que pour que la conversion fonctionne il faut que le champ et le SET OF aient la même taille (cf {$MINENUMSIZE } ou utiliser Byte(Droits), ou Word(Droits) selon le cas)

on peut s'en sortir aussi avec un record

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
type
  TDroids = record
  case Boolean of  
    True: (Boutons: set of TBouttons)
     False:(Int: Integer);
  end;
var
  Droits: TDroits;
begin
  Droits.Int := 0; // pas de droit
  Droits.Boutons := [bouton2]; // Droits.Int = 2
  Droits.Boutons := [boutton2, bouton3]; // Droits.Int = 2 + 4 = 6
 
  Query.FieldByName('DROITS').AsInteger := Droits.Int;
 
  Droits.Int := Query.FieldByName('DROITS').AsInteger;
 
  if button2 in Droits.Buttons then
  begin
  end;
end;

attention, Droits.Int := 0 et Droits.Boutons := [] ne sont équivalent que si le SET OF a une taille sur 32bits, s'il est sur 8bits, les 24 autres bits seront indéterminés si on affecte uniquement Boutons...avec les Managed Record on pourra utiliser un class operator initialize qui forcera Int à 0 par défaut histoire de ne pas oublier de le faire

[Paul TOTH]

Juste une faute de frappe Il n'y a que deux tables: (GROUPES,USERS)


1-Quel est le maximum droit pour le type CHAR(x) ?


2-Après avoir confirmé que le mot de passe est correct , en stocker la valeur quelque part par exemple en variable VARDroits de type BIGINT

VARDroits:=FDQuery1.FieldByName('Droits').asInteger;

donc le code OnCreate contiendra (pour permet appliquer les droits pour l'utilisateur):

Code :

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

1
2
3
4
 
 Button1.enabled:=VARDroits AND (1 shl 1)<>0;
 Bouton2.enabled:=VARDroits AND (1 shl 2)<>0;
 Bouton3.enabled:=VARDroits AND (1 shl 3)<>0;

Est-ce vrai ?

oui

Une autre question qui demeure est de savoir comment déterminer la valeur d’enregistrement qui se trouve dans le champ DROITS
Supposons que nous ayons 5 boutons
et le groupe superviseur accès uniquement aux: bouton1 et bouton5 Cela signifie que :

le bit numéro 1 et le numéro 5 porteront le numéro 1, ce qui signifie que le nombre résultant en binaire est (10001) =1+16=17 en décimal)

veux dire, nous enregistrerons le numéro 17 dans un champ DROIT pour le groupe superviseur
Comment exécutons-nous ce processus lors de l'octroi d'autorisations à un utilisateur spécifique? Autrement dit, comment calculons-nous le nombre 17

et bien 17 = 1 + 16 = (1 shl 0) + (1 shl 4), donc boutons 1 et 5 ... car le bouton1 porte l'index 0

[Paul TOTH]

il suffit d'utiliser un entier et des bits

Code :

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

1
2
3
4
5
6
 
button1 := Champ and 1 <> 0
button2 := Champ and 2 <> 0
button3 := Champ and 4 <> 0
...
buttonx := Champ and (1 shl x) <> 0

sur un seul entier 32 bits tu peux coder 32 butons

[delphi2019]

il suffit d'utiliser un entier et des bits

Code :

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

1
2
3
4
 
button1 := Champ and 1 <> 0
...
buttonx := Champ and (1 shl x) <> 0

sur un seul entier 32 bits tu peux coder 32 butons

Je n'ai pas compris où mettre ce code et je n'avais jamais utilisé la commande shl auparavant