Discussion :

[Jeankiki]

Bonjour à tous,

Voila, je m'explique, j'ai une procédure OnGetText

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
procedure TDataModule1.IBtblAvenantsPRESTGetText(Sender: TField;
  var Text: String; DisplayText: Boolean);
begin
  case IBtblAvenantsPREST.AsInteger of
    1: Text := 'A facturer';
    6: Text := 'Annulé';
    8: Text := 'Pas de prestation';
    9: Text := 'Facturé';
  end;
end;

et j'utilise une DBGrid dans laquelle j'ai un champ appellé PREST, les valeurs dans PREST peuvent être 1, 6, 8 ou 9, mais j'aimerai affiché dans la DBGrid le texte 'A Facturer' pour 1 , 'Annulé' pour 6, etc...
Pouvez-vous m'aider?
Heu si l'explication n'est pas clair, j'essayerai de m'expliquer autrement.

Merci d'avance.

Jeankiki

[Rayek]

une des possibilité.

- Tu crées une table TbPrest : Id (entier), Libelle (Chaine de x caractère)
- Au niveau de de l'affichage dans ta dbgrid, tu fais une requete avec jointure sur la table TbPrest

Code :

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

1
2
 
 Select T1.Champ1,T1.Champ2,TP.Libelle from TablePrincipale as T1 inner join TbPrest on T1.Prest = TbPrest.Id

Puis tu lie ton champ a libellé dans la dbgrid

L'avantage de cette solution, c'est que si un jour tu as un nouveau type, tu n'as pas besoin de recompiler ton programme mais juste a rajouter une ligne dans la table TbPrest.

Cela fonctionnera bien sauf si tu fait des actions directes sur les table/query, car il n'est pas possible d'edite/modifier/supprimer dans une requete multi tables

[Jeankiki]

ok, merci pour ta réponse, mais n'y a t'il pas une autre possibilité, je voudrais éviter de créer une nouvelle table; je n'ai aucun problème pour afficher la valeur correct avec un DBText et je voudrais pouvoir faire la même chose dans un DBGrid.

[Jeankiki]

Petite info supplémentaire
Dans l'évènement OnDrawColumnCell j'ai le code ci-dessous

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure TfrmHistoriqueAvenants.dbgridListeAvenantsDrawColumnCell(
  Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
  if gdSelected in State then
  begin
      TDBGrid(Sender).Canvas.Brush.Color := clBtnFace;  //clInfoBk; //clYellow;
      TDBGrid(Sender).Canvas.Font.Color := clBlack;
      TDBGrid(Sender).Canvas.Font.Style := [fsBold];
  end;
  TDBGrid(Sender).DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

et à mon avis, il doit être possible de faire en sorte que les valeurs apparaissent correctement.

[Jeankiki]

Bon ben voici la solution à mon problème, il faut remplacer

Code :

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

1
2
 
IBtblAvenantsPREST.AsInteger

par

Code :

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

1
2
 
Sender.AsInteger

dans la procédure ci-dessous

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
procedure TDataModule1.IBtblAvenantsPRESTGetText(Sender: TField; 
  var Text: String; DisplayText: Boolean); 
begin 
  case IBtblAvenantsPREST.AsInteger of 
    1: Text := 'A facturer'; 
    6: Text := 'Annulé'; 
    8: Text := 'Pas de prestation'; 
    9: Text := 'Facturé'; 
  end; 
end;

et ajouté la dernière ligne dans le code ci-dessous

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
 
procedure TfrmHistoriqueAvenants.dbgridListeAvenantsDrawColumnCell(
  Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
var
  Text: string;
begin
  if gdSelected in State then
  begin
      TDBGrid(Sender).Canvas.Brush.Color := clBtnFace;  //clInfoBk; //clYellow;
      TDBGrid(Sender).Canvas.Font.Color := clBlack;
      TDBGrid(Sender).Canvas.Font.Style := [fsBold];
  end;
  TDBGrid(Sender).DefaultDrawColumnCell(Rect, DataCol, Column, State);
 
TDBGrid(Sender).DataSource.DataSet.FieldByName('PREST').OnGetText:= DataModule1.IBtblAvenantsPRESTGetText;
end;

Jeankiki