Article complet: Gérer des couleurs en base de données

Il peut vite devenir difficile de gérer de façon uniforme les couleurs pour plusieurs applications accédant à une base de données :

- s'il s'agit d'une application web, les couleurs s'affichent sur 6 caractères alphanumériques de la base hexadécimale,
- s'il s'agit d'une application lourde, elle peut interpréter les couleurs comme un entier qui est la somme RVB, ou bien sous forme hexadécimale.

Voyons comment gérer cela simplement ...

[Suite:]

Voici une table qui fera tous les calculs automatiquement à partir des trois composantes RVB :

--------------------------------- 
-- Nicolas SOUQUET - 03/07/2009 -  
--------------------------------- 
CREATE TABLE TbCouleur 
( 
  IDCouleur INT NOT NULL IDENTITY CONSTRAINT PK_TbCouleur PRIMARY KEY, 
  nomCouleur VARCHAR(10) NOT NULL CONSTRAINT UQ_TbCouleur_nomCouleur UNIQUE, 
  composanteRouge TINYINT, 
  composanteVert TINYINT, 
  composanteBleu TINYINT, 
  Decimale AS (composanteRouge + composanteVert * 256 + composanteBleu * 256 * 256) PERSISTED NOT NULL, 
  Hexadecimale AS (CAST(composanteRouge + composanteVert * 256 + composanteBleu * 256 * 256 AS VARBINARY(3))) PERSISTED NOT NULL, 
  HTML AS (dbo.Fn_RVB_To_HTML(composanteRouge, composanteVert, composanteBleu)) PERSISTED NOT NULL, 
  CONSTRAINT UQ_TbCouleur_composanteRouge_composanteVert_composanteBleu UNIQUE (composanteRouge, composanteVert, composanteBleu) 
)

L'utilisation de colonnes calculées (persistées, mais ce n'est pas obligatoire !) pour faire effectuer tous les calculs au moteur de base de données rend très simple toute saisie de nouvelles couleurs.

Pour calculer le codage HTML, nous utilisons la fonction suivante, dont le code est un peu barbare, mais efficace :

--------------------------------- 
-- Nicolas SOUQUET - 03/07/2009 -  
--------------------------------- 
CREATE FUNCTION Fn_RVB_To_HTML 
  ( 
    @rouge TINYINT, 
    @vert TINYINT, 
    @bleu TINYINT 
  ) 
  RETURNS CHAR(6) 
  WITH SCHEMABINDING 
AS 
BEGIN 
  RETURN 
  ( 
    CASE @rouge / 16 
      WHEN 0 THEN '0' 
      WHEN 1 THEN '1' 
      WHEN 2 THEN '2' 
      WHEN 3 THEN '3' 
      WHEN 4 THEN '4' 
      WHEN 5 THEN '5' 
      WHEN 6 THEN '6' 
      WHEN 7 THEN '7' 
      WHEN 8 THEN '8' 
      WHEN 9 THEN '9' 
      WHEN 10 THEN 'A' 
      WHEN 11 THEN 'B' 
      WHEN 12 THEN 'C' 
      WHEN 13 THEN 'D' 
      WHEN 14 THEN 'E' 
      WHEN 15 THEN 'F' 
    END + 
    CASE @rouge % 16 
      WHEN 0 THEN '0' 
      WHEN 1 THEN '1' 
      WHEN 2 THEN '2' 
      WHEN 3 THEN '3' 
      WHEN 4 THEN '4' 
      WHEN 5 THEN '5' 
      WHEN 6 THEN '6' 
      WHEN 7 THEN '7' 
      WHEN 8 THEN '8' 
      WHEN 9 THEN '9' 
      WHEN 10 THEN 'A' 
      WHEN 11 THEN 'B' 
      WHEN 12 THEN 'C' 
      WHEN 13 THEN 'D' 
      WHEN 14 THEN 'E' 
      WHEN 15 THEN 'F' 
    END + 
    CASE @vert / 16 
      WHEN 0 THEN '0' 
      WHEN 1 THEN '1' 
      WHEN 2 THEN '2' 
      WHEN 3 THEN '3' 
      WHEN 4 THEN '4' 
      WHEN 5 THEN '5' 
      WHEN 6 THEN '6' 
      WHEN 7 THEN '7' 
      WHEN 8 THEN '8' 
      WHEN 9 THEN '9' 
      WHEN 10 THEN 'A' 
      WHEN 11 THEN 'B' 
      WHEN 12 THEN 'C' 
      WHEN 13 THEN 'D' 
      WHEN 14 THEN 'E' 
      WHEN 15 THEN 'F' 
    END + 
    CASE @vert % 16 
      WHEN 0 THEN '0' 
      WHEN 1 THEN '1' 
      WHEN 2 THEN '2' 
      WHEN 3 THEN '3' 
      WHEN 4 THEN '4' 
      WHEN 5 THEN '5' 
      WHEN 6 THEN '6' 
      WHEN 7 THEN '7' 
      WHEN 8 THEN '8' 
      WHEN 9 THEN '9' 
      WHEN 10 THEN 'A' 
      WHEN 11 THEN 'B' 
      WHEN 12 THEN 'C' 
      WHEN 13 THEN 'D' 
      WHEN 14 THEN 'E' 
      WHEN 15 THEN 'F' 
    END + 
    CASE @bleu / 16 
      WHEN 0 THEN '0' 
      WHEN 1 THEN '1' 
      WHEN 2 THEN '2' 
      WHEN 3 THEN '3' 
      WHEN 4 THEN '4' 
      WHEN 5 THEN '5' 
      WHEN 6 THEN '6' 
      WHEN 7 THEN '7' 
      WHEN 8 THEN '8' 
      WHEN 9 THEN '9' 
      WHEN 10 THEN 'A' 
      WHEN 11 THEN 'B' 
      WHEN 12 THEN 'C' 
      WHEN 13 THEN 'D' 
      WHEN 14 THEN 'E' 
      WHEN 15 THEN 'F' 
    END + 
    CASE @bleu % 16 
      WHEN 0 THEN '0' 
      WHEN 1 THEN '1' 
      WHEN 2 THEN '2' 
      WHEN 3 THEN '3' 
      WHEN 4 THEN '4' 
      WHEN 5 THEN '5' 
      WHEN 6 THEN '6' 
      WHEN 7 THEN '7' 
      WHEN 8 THEN '8' 
      WHEN 9 THEN '9' 
      WHEN 10 THEN 'A' 
      WHEN 11 THEN 'B' 
      WHEN 12 THEN 'C' 
      WHEN 13 THEN 'D' 
      WHEN 14 THEN 'E' 
      WHEN 15 THEN 'F' 
    END 
  ) 
END

Ainsi l'ajout d'une nouvelle couleur dans la table se fait simplement :

--------------------------------- 
-- Nicolas SOUQUET - 03/07/2009 -  
--------------------------------- 
INSERT INTO dbo.TbCouleur(nomCouleur, composanteRouge, composanteVert, composanteBleu) VALUES ('Blanc', 255, 255, 255) 
INSERT INTO dbo.TbCouleur(nomCouleur, composanteRouge, composanteVert, composanteBleu) VALUES ('Noir', 0, 0, 0) 
INSERT INTO dbo.TbCouleur(nomCouleur, composanteRouge, composanteVert, composanteBleu) VALUES ('Gris', 190, 190, 190) 
INSERT INTO dbo.TbCouleur(nomCouleur, composanteRouge, composanteVert, composanteBleu) VALUES ('Rouge', 255, 0, 0) 
INSERT INTO dbo.TbCouleur(nomCouleur, composanteRouge, composanteVert, composanteBleu) VALUES ('Vert', 0, 255, 0) 
INSERT INTO dbo.TbCouleur(nomCouleur, composanteRouge, composanteVert, composanteBleu) VALUES ('Bleau', 0, 0, 255) 
INSERT INTO dbo.TbCouleur(nomCouleur, composanteRouge, composanteVert, composanteBleu) VALUES ('Jaune', 255, 255, 0) 
INSERT INTO dbo.TbCouleur(nomCouleur, composanteRouge, composanteVert, composanteBleu) VALUES ('Orange', 255, 165, 0) 
INSERT INTO dbo.TbCouleur(nomCouleur, composanteRouge, composanteVert, composanteBleu) VALUES ('Rose', 255, 192, 203) 
INSERT INTO dbo.TbCouleur(nomCouleur, composanteRouge, composanteVert, composanteBleu) VALUES ('Violet', 238, 130, 238)

ou encore à l'aide de la procédure stockée suivante :

--------------------------------- 
-- Nicolas SOUQUET - 03/07/2009 -  
--------------------------------- 
CREATE PROCEDURE Ps_Couleur_Ajouter 
  @nomCouleur VARCHAR(10), 
  @composanteRouge TINYINT, 
  @composanteVert TINYINT, 
  @composanteBleu TINYINT 
AS 
BEGIN 
  INSERT INTO dbo.TbCouleur 
  ( 
    nomCouleur, 
    composanteRouge, 
    composanteVert, 
    composanteBleu 
  ) 
  VALUES 
  ( 
    @nomCouleur, 
    @composanteRouge, 
    @composanteVert, 
    @composanteBleu 
  ) 
END

Et pour ajouter les couleurs :

--------------------------------- 
-- Nicolas SOUQUET - 03/07/2009 -  
--------------------------------- 
EXEC dbo.Ps_Couleur_Ajouter 'Blanc', 255, 255, 255 
EXEC dbo.Ps_Couleur_Ajouter 'Noir', 0, 0, 0 
EXEC dbo.Ps_Couleur_Ajouter 'Gris', 190, 190, 190 
EXEC dbo.Ps_Couleur_Ajouter 'Rouge', 255, 0, 0 
EXEC dbo.Ps_Couleur_Ajouter 'Vert', 0, 255, 0 
EXEC dbo.Ps_Couleur_Ajouter 'Bleau', 0, 0, 255 
EXEC dbo.Ps_Couleur_Ajouter 'Jaune', 255, 255, 0 
EXEC dbo.Ps_Couleur_Ajouter 'Orange', 255, 165, 0 
EXEC dbo.Ps_Couleur_Ajouter 'Rose', 255, 192, 203 
EXEC dbo.Ps_Couleur_Ajouter 'Violet', 238, 130, 238

Et le résultat est le suivant :

Les trois fonctions suivantes permettent d'obtenir la couleur souhaitée dans la représentation qui conviendra suivant l'application :

----------------------------------------------------- 
-- Nicolas SOUQUET - 03/07/2009 - Fn_Couleur_GetRVB - 
----------------------------------------------------- 
CREATE FUNCTION Fn_Couleur_GetRVB 
  (@nomCouleur VARCHAR(10)) 
RETURNS TABLE 
WITH SCHEMABINDING 
AS 
RETURN 
( 
  SELECT composanteRouge AS R, 
      composanteVert AS V, 
      composanteBleu AS B 
  FROM dbo.TbCouleur 
  WHERE nomCouleur = @nomCouleur 
) 
 
------------------------------------------------------ 
-- Nicolas SOUQUET - 03/07/2009 - Fn_Couleur_GetHTML - 
------------------------------------------------------ 
CREATE FUNCTION Fn_Couleur_GetHTML 
  (@nomCouleur VARCHAR(10)) 
  RETURNS CHAR(6) 
  WITH SCHEMABINDING 
AS 
BEGIN 
  RETURN 
  ( 
    SELECT HTML 
    FROM dbo.TbCouleur 
    WHERE nomCouleur = @nomCouleur 
  ) 
END 
 
---------------------------------------------------------- 
-- Nicolas SOUQUET - 03/07/2009 - Fn_Couleur_GetDecimale - 
---------------------------------------------------------- 
CREATE FUNCTION Fn_Couleur_GetDecimale 
  (@nomCouleur VARCHAR(10)) 
  RETURNS INT 
  WITH SCHEMABINDING 
AS 
BEGIN 
  RETURN 
  ( 
    SELECT Decimale 
    FROM dbo.TbCouleur 
    WHERE nomCouleur = @nomCouleur 
  ) 
END 
 
-------------------------------------------------------------- 
-- Nicolas SOUQUET - 03/07/2009 - Fn_Couleur_GetHexadecimale - 
-------------------------------------------------------------- 
CREATE FUNCTION Fn_Couleur_GetHexadecimale 
  (@nomCouleur VARCHAR(10)) 
  RETURNS VARBINARY(3) 
  WITH SCHEMABINDING 
AS 
BEGIN 
  RETURN 
  ( 
    SELECT Hexadecimale 
    FROM dbo.TbCouleur 
    WHERE nomCouleur = @nomCouleur 
  ) 
END 


On peut ensuite envisager le code d'une procédure comme suit :

--------------------------------- 
-- Nicolas SOUQUET - 03/07/2009 -  
--------------------------------- 
CREATE PROCEDURE maProcedure 
  @... 
  @application 
AS 
BEGIN 
  SELECT CASE ETAT 
        WHEN uneValeur THEN CASE @application 
                    WHEN 'HTML' THEN dbo.Fn_Couleur_GetHTML('Rouge') 
                    WHEN 'EXE' THEN dbo.Fn_Couleur_GetDecimale('Rouge') 
                  END 
        ELSE CASE @application 
            WHEN 'HTML' THEN dbo.Fn_Couleur_GetHTML('Blanc') 
            WHEN 'EXE' THEN dbo.Fn_Couleur_GetDecimale('Blanc') 
          END 
      END 
  FROM dbo.TbEtat AS ETAT 
END

Bien sûr il est préférable de stocker les divers états possibles dans une table et de gérer le CASE avec la valeur de clé de la table.
On peut également penser à récupérer une représentation d'une couleur à partir d'une autre ...

ElSuket