Discussion :

[sybermad]

Bonjour a tous

Voila je suis entrain de créer une application, a un moment j’affiche des donner a partir d’une requête dans un dbgrid,

Problème : il ya un champ date qui est sous la forme « 20070531 » et je veux qu’il s’affiche comme sa « 31/05/2007 »

Le souci est que le dbgrid s’alimente automatiquement a partir de la requête, et donc je ne voie pas à quelle endroit je peux interféré pour modifier le format des date de tous les enregistrements

Merci beaucoup de votre aide

;-)

[aityahia]

tu ajoute tes champs a la requette et tu indique le format dans display format "dd/mm/yyyy".

[sybermad]

Bonjour

Merci pour le coup de main mais vu que je débute, je ne trouve pas !!

-Dans ma requête SQL ce n’est pas possible d’utiliser le « display format »

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
procedure TForm2.Req_Entete_CMD(colonne, sens: string);

begin

   DataModule1.Q_Entete_cmd.SQL.Clear;
   DataModule1.Q_Entete_cmd.SQL.Add('Select ECKTNUMERO as "N°Cde",');
   DataModule1.Q_Entete_cmd.SQL.Add('ECCTTYPE2 as "Type Cde",ECCJCRE as "Date saisie Cde",');
   DataModule1.Q_Entete_cmd.SQL.Add('ECCTREFCDE as "Référence Cde",');
   DataModule1.Q_Entete_cmd.SQL.Add('ECCTCODE as "Code clt",ECCTNOM as "Nom 
   DataModule1.Q_Entete_cmd.SQL.Add('From ECOMCLI');
   DataModule1.Q_Entete_cmd.SQL.Add('Where ECCTCODE='+QuotedStr(Form1.DBEdit11.Text));
   DataModule1.Q_Entete_cmd.SQL.Add('Order by '+(colonne)+' '+(sens));
   DataModule1.Q_Entete_cmd.open;

end;

- Dans la mise en forme du composent DBGrid je sais pas le faire ??

Je fait :

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TForm2.FormShow(Sender: TObject);
 
begin
colonne_depart1 := 'ECKTNUMERO' ;
sens_depart := 'DESC';
 
Req_Entete_CMD(colonne_depart1, sens_depart);
 
DBGrid1.Columns[3].Field. ?????? DisplayFormat := 'dd/mm/yyyy'; ???????? ( strtoDate)
end;

Voila mon souci, l’accès au format de la colonne 3 de mon DBGrid1 qui est relier a la requête et qui s’affiche qu’a l’exécution ;

en plus tout est en format string, donc il faut faire un passage au format date, strtodate fonctionne ?

Donc voila je suis bloquer au même endroit.

Merci pour votre aide

;-)

[aityahia]

vous avez utiliser quel type d'objet pour votre requette TQuery ou ADOQuery.
c'est dans l'objet que vous allez définir le format d'affichage un double clique sur objet et vous avez une petit fênetre ou vou allez cliquer avec le bouton droit de la sourie et vous ajouter tous les champs .

ensuite vou pouvez définire les parametres de chaque champs.

[SergioMaster]

bien que solution "sale" essayez l'évenement ondrawdatacell du DBGrid

Code :

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

1
2
3
4
5
6
7
8
9
10
var Dateaaffichee : string
 
with (Sender as TDBGrid).Canvas do
 begin
   case DataCol of
     0 :begin  {où 0 est la colonne date} 
        dateaaffichee=copystr(Column.Field.AsString,7,2)+'/'+....  {selon le format               voulu }
        TextOut(Rect.Left, Rect.Top,dateaaffichee);
        end;
end;

[Cl@udius]

Salut

essayez l'évenement ondrawdatacell du DBGrid

L'aide de Delphi précise:

Description

N'écrivez pas de gestionnaire d'événement OnDrawDataCell. OnDrawDataCell est obsolète et n'est proposé que dans un souci de compatibilité ascendante. A la place,écrivez un gestionnaire d'événement OnDrawColumnCell.

Juste pour Info.

@sybermad Salut, il serait utile que tu nous précises le type de ton champ ECCJCRE. Date ou String ?

@+ Claudius

[aityahia]

c'est tres simple vous n'avvez pas a définir sa dans le code de ta requete.