TField alias in TSQLQuery

Version imprimable

Bonjour à tous,
J'utilise un TSQLQuery pour charger les données depuis un serveur postgresql.
J'utilise des alias de colonnes dans la chaine SQL pour pouvoir générer des libellés et visuels sur la fenêtre pour afficher les données. Le souci est que je n'arrive pas à récupérer le nom original des champs de la table.

Code:

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
 
var
  MainForm: TMainForm;
  FCon  : TPQConnection;
  FTrs  : TSQLTransaction;
  Libelles: array [0..100] of TLabel;
  Champs  : array [0..100] of TWinControl;
  sqlSRPList: string = 'select srpnum as "ID", srpnam as "Designation" from salesrep order by "ID";';
  sqlSRPForm: String ='select srpnum as "&Identifiant", srpnam as "&Nom",'+
                     'datein as "Date entrée", dateout as "Date de sortie",'+
                     'isactive as "Actif" from salesrep;';
 
procedure TMainForm.FormCreate(Sender: TObject);
begin
  FCon := TPQConnection.Create(self);
  FCon.DatabaseName:= '********';
  FCon.UserName    := 'postgres';
  FCon.HostName    := '**********';
  FCon.Password    := '*********';
 
  FTrs := TSQLTransaction.Create(MainForm);
  FTrs.DataBase := FCon;
end;
 
function TMainForm.GetQuery : TSQLQuery;
  var AQuery : TSQLQuery;
begin
  AQuery := TSQLQuery.Create(MainForm);
  AQuery.Database    := FCon;
  AQuery.Transaction := FTrs;
  Result             := AQuery;
end;
 
procedure TMainForm.BuildForm(panel: TGroupBox; sql: string);
var
  i, ColCount, LabelWidth : integer;
  dataset                 : TSQLQuery;
begin
  LabelWidth:=0;
  if panel.ComponentCount>0 then exit;;
  //Initialiser la requete
  dataset     := GetQuery;
  dataset.SQL.Text := sql;
  dataset.Open;
 
  colcount :=dataset.Fields.Count;     //Le nombre de colonnes
 
  //Loop 1:
  //Calculer la largeur des libélles
  For i:=0 to colcount-1 do begin
    if LabelWidth < Canvas.TextWidth(dataset.Fields[i].FieldName) then
       LabelWidth:= Canvas.TextWidth(dataset.Fields[i].FieldName)+10;
  end;
 
  //Loop 2:
  for i:=0 to colcount-1 do begin
    //Création des champs
    case dataset.FieldByName(dataset.Fields[i].FieldName).DataType of
      ftString:begin
          Champs[i] := TmzEdit.Create(panel);            //Crée champ
          Champs[i].width := dataset.Fields[i].Size*11;  //Fixe largeur
          TmzEdit(Champs[i]).MaxLength:=dataset.Fields[i].Size;//Fixe taille saisie
        end;
      ftBoolean     :Champs[i] := TCheckBox.Create(panel);//Crée champ à cocher
      ftdate        :Champs[i] := TmzDateTime.Create(panel);//Crée champ date
    end;
 
    with Champs[i] do
    begin
      Parent := panel;
      Top    := 5+(20*i);
      Left   := LabelWidth;
    end;
 
    //Création des libéllés
    Libelles[i] := TLabel.Create(panel);//Créer les libellés
    with Libelles[i] do
    begin
      Parent := panel;
      Top    := 5+(20*i);
      Left   := 5;
      Width  := LabelWidth;
      Caption:=dataset.Fields[i].FieldName;
      FocusControl:=Champs[i];      //Affecte raccourci clavier au champ adequat
    end;
  end;
  panel.Height:=((panel.ComponentCount div 2)+1)*20;
 
  dataset.Close;
  dataset.Free;
end;

J'ai besoin d'une fonction genre dataset.Fields'[i]'.FieldOriginalName qui retourne srpnam ou srpnum (nom de colonne dans la base de données).
Toute aide est la bienvenue .

Merci à tous.

23/05/2013, 09h31
e-ric

Salut

(je me base sur Delphi donc à vérifier sur Lazarus)
Il me semble que la propriété Origin est faite pour cela.

A défaut, si tu élimines les alias dans le texte de la requête, tu peux ensuite les reprendre dans la propriété DisplayLabel des objets TField correspondant si tes champs sont persistants.
La propriété DisplayLabel est reprise automatiquement dans les noms de colonne des grilles. Tu préserves ainsi les noms originaux des champs dans la colonne. Cette méthode est sans doute préférable car tu disposes ainsi des "vrais" noms de champs pour, par exemple, composer dynamiquement des requêtes de mise à jour.

Cdlt
23/05/2013, 17h05
larsal007

Bonjour,
Après contrôle, il apparait que la propriété origin n'est remplie qu'en mode Design Time (conception).

Malheureusement ceci n'est pas mon cas. Néanmoins, j'utilise une astuce grossière qui a le mérite de fonctionner. J’intègre le DisplayLabel et Origin dans la requête SQL comme ceci :

Code:

select srpnum as "srpnum:ID", srpnam as "srpnam:Designation" from salesrep order by "srpnum:ID"

Je parse ensuite la requête à la création des champs et libelles.

Ce n'est pas très propre mais ça marche.

Merci pour tout.
23/05/2013, 20h46
e-ric

Salut

C'est effectivement une astuce mais je ne l'emploierai pas.
Utilises-tu des champs persistants ? Ta réponse sur le Design Time me le laisse penser. Dans ce cas, tu définis la propriété DisplayLabel des objets TField et il n'est alors plus besoin de créer des alias "exotiques" qui peuvent poser des problèmes en termes de maintenance car il deviennent des valeurs de FieldName. Vu l'emploi des ":", c'est peut-être risqué, je ne suis pas sûr que tous les SGBD acceptent de tels nom d'alias.

@+