Ayant un dérivé quelconque deTDataSet (par exemple un TAdoQuery), je
voudrais à l'exécution ajouter des champs calculés en fonction du contexte.
Comment faire cela ?

Dans le même ordre d'idée, je voudrais tout aussi dynamiquement, rendre
visibles ou invisibles des champs d'un TDataSet affichées dans une TDBGrid.
Comment faire cela ?

Dans un cas comme dans l'autre, j'ai une TDBGrid liée à une TDataSource liée
au TDataSet. Je n'ai pas de contrôle sur les requêtes ni les result-set du
TDataSet. Il n'y a aucun champ défini au design time. Les champs sont tous
déterminés par ce que retourne le serveur qui exécute la requête du
TDataSet.

Merci d'avance.
--
francois.piette@overbyte.be
Auteur du freeware ICS - Internet Component Suite
Auteur du freeware MidWare - Multi-tiers framework
http://www.overbyte.be

Plusieures solutions :

intégrer le champ dans la requête SQL :

Select *, cast(null as MonType) as MonChampEn Plus from MaTable...

ou l'ajouter à la liste des champs (voir note ci-dessous) :

procedure AddField(UnDataSet : TDataset; UnNomChamp : string;
UnTypeChamp : TFieldType; UneTaille : Integer; UnFormat
: string);
{ajout d'un champ à une table }
var UnChamp : TField;
begin
with UnDataSet, FieldDefs.AddFieldDef do
begin
Name := UnNomChamp;
DataType := UnTypeChamp;
if UnTypeChamp = ftString then Size := UneTaille;
UnChamp := CreateField(UnDataSet);
if UnFormat <> '' then case UnTypeChamp of
ftInteger, ftFloat : TNumericField(UnChamp).DisplayFormat := UnFormat;
ftDateTime, ftDate, ftTime : TDateTimeField(UnChamp).DisplayFormat :=
UnFormat;
end;
end;
end;



Puis sur le OnBeforeOpen :

1> appel à SetFieldDefs pour récupérer la liste des champs
2>si ajout dynamique appel à AddField
3>modif des propriétés du champ :

MonChamp.Calculated := True;
MonDataset.OnCalcFields := MonDatasetCalcFields; // ou c'est qu'il y a
mon code

Je fais ça avec des IBQuery, tables mémoire, etc.. Ca devrait marcher avec
tout descendant de Dataset.

Pour les grilles je prends dxDBGrid, bref je ne sais pas répondre à la
deuxième partie de ta question.

Bonne route et bonne année à tous ceux qui lisent ce post.






"Francois Piette" <francois.piette@overbyte.be> a écrit dans le message de
news: fm7mnp$if$1@sd-6498.dedibox.fr...
> Ayant un dérivé quelconque deTDataSet (par exemple un TAdoQuery), je
> voudrais à l'exécution ajouter des champs calculés en fonction du
> contexte.
> Comment faire cela ?
>
> Dans le même ordre d'idée, je voudrais tout aussi dynamiquement, rendre
> visibles ou invisibles des champs d'un TDataSet affichées dans une
> TDBGrid.
> Comment faire cela ?
>
> Dans un cas comme dans l'autre, j'ai une TDBGrid liée à une TDataSource
> liée
> au TDataSet. Je n'ai pas de contrôle sur les requêtes ni les result-set du
> TDataSet. Il n'y a aucun champ défini au design time. Les champs sont tous
> déterminés par ce que retourne le serveur qui exécute la requête du
> TDataSet.
>
> Merci d'avance.
> --
> francois.piette@overbyte.be
> Auteur du freeware ICS - Internet Component Suite
> Auteur du freeware MidWare - Multi-tiers framework
> http://www.overbyte.be
>
>

Bonjour,
J'ai un vague souvenir d'un (gros) livre de John Colibri
Delphi <-> DBase qui donnait des indications à ce sujet.
Sans avoir de réponse formelle à ce sujet, c'est peut être
le bout d'un fil qu'il suffirait de tirer ...

--
Phil


"RESO / Claude GUTH" <cl.guth@free.fr> a écrit dans le message de news:
fm7t8q$499$1@sd-6498.dedibox.fr...
> Plusieures solutions :
>
> intégrer le champ dans la requête SQL :
>
> Select *, cast(null as MonType) as MonChampEn Plus from MaTable...
>
> ou l'ajouter à la liste des champs (voir note ci-dessous) :
>
> procedure AddField(UnDataSet : TDataset; UnNomChamp : string;
> UnTypeChamp : TFieldType; UneTaille : Integer;
> UnFormat : string);
> {ajout d'un champ à une table }
> var UnChamp : TField;
> begin
> with UnDataSet, FieldDefs.AddFieldDef do
> begin
> Name := UnNomChamp;
> DataType := UnTypeChamp;
> if UnTypeChamp = ftString then Size := UneTaille;
> UnChamp := CreateField(UnDataSet);
> if UnFormat <> '' then case UnTypeChamp of
> ftInteger, ftFloat : TNumericField(UnChamp).DisplayFormat :=
> UnFormat;
> ftDateTime, ftDate, ftTime : TDateTimeField(UnChamp).DisplayFormat
> := UnFormat;
> end;
> end;
> end;
>
>
>
> Puis sur le OnBeforeOpen :
>
> 1> appel à SetFieldDefs pour récupérer la liste des champs
> 2>si ajout dynamique appel à AddField
> 3>modif des propriétés du champ :
>
> MonChamp.Calculated := True;
> MonDataset.OnCalcFields := MonDatasetCalcFields; // ou c'est qu'il y a
> mon code
>
> Je fais ça avec des IBQuery, tables mémoire, etc.. Ca devrait marcher avec
> tout descendant de Dataset.
>
> Pour les grilles je prends dxDBGrid, bref je ne sais pas répondre à la
> deuxième partie de ta question.
>
> Bonne route et bonne année à tous ceux qui lisent ce post.
>
>
>
>
>
>
> "Francois Piette" <francois.piette@overbyte.be> a écrit dans le message de
> news: fm7mnp$if$1@sd-6498.dedibox.fr...
>> Ayant un dérivé quelconque deTDataSet (par exemple un TAdoQuery), je
>> voudrais à l'exécution ajouter des champs calculés en fonction du
>> contexte.
>> Comment faire cela ?
>>
>> Dans le même ordre d'idée, je voudrais tout aussi dynamiquement, rendre
>> visibles ou invisibles des champs d'un TDataSet affichées dans une
>> TDBGrid.
>> Comment faire cela ?
>>
>> Dans un cas comme dans l'autre, j'ai une TDBGrid liée à une TDataSource
>> liée
>> au TDataSet. Je n'ai pas de contrôle sur les requêtes ni les result-set
>> du
>> TDataSet. Il n'y a aucun champ défini au design time. Les champs sont
>> tous
>> déterminés par ce que retourne le serveur qui exécute la requête du
>> TDataSet.
>>
>> Merci d'avance.
>> --
>> francois.piette@overbyte.be
>> Auteur du freeware ICS - Internet Component Suite
>> Auteur du freeware MidWare - Multi-tiers framework
>> http://www.overbyte.be
>>
>>
>
>