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.

[sybermad]

Merci les gars

J’utilise un TQuery que et le champ ECCJCRE et de type String

Je teste les solutions que vous me proposer et je vous tien au courent

Merci

[aityahia]

si le format de la date et de type string c'est autres chose il ne vous sera pas possible de la formaté ainsi.

[Cl@udius]

Re,

Quel est ton SGBD ?

[sybermad]

Je récupère mes donner via un ODBC qui pointe sur la BDD d’un ERP et toutes les données retourner par cette BDD sont apparemment de type Texte ou String, le La L’ERP utilise apparemment un base Oracle

[Cl@udius]

Bon malheureusement je connais très mal Oracle
Mais j'entrevois la solution de créer un champ calculé sur ton Query de type Date (si ce n'est pas trop lourd).

Dans le OnCalcField tu transformes la valeur string de ton champ ECCJCRE en une date.
Et c'est ce champ calculé que tu affiches dans ton DBGrid.

[edit] autre solution approchante, tu utilises OnGetText de ton champ ECCJCRE pour transformer l'affichage.[/edit]

@+ Claudius

[sybermad]

Ok Merci pour ton aide, je teste et je te tien au courent

Sinon pour SergioMaster question :

J’arrive pas bien comprendre ton exemple je teste mais ya des trucs qui vont pas ?

-------------------------------------

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
18
procedure TForm2.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
  Field: TField; State: TGridDrawState);

var
Dateaaffichee : string ;

begin

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

-------------------------------------------
je me demande si il ne me manque pas une bibliothèque a métrer dans mes Uses et les mot rouge son souligner dans Delphi ?

je voulais déjà voir le résultat de cette procédure dans l’état actuelle .

[Cl@udius]

Re,

En fait le code proposé par Sergio est l'implémentation de OnDrawColumnCell au lieu de OnDrawDataCell.

@+

[sybermad]

Les erreurs en diminuer avec le passage de ondrawdatacell a OnDrawColumnCell mais copystr reste en erreur ?

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
18
procedure TForm2.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
Dateaaffichee : string ;

begin

with (Sender as TDBGrid).Canvas do
  begin
    case DataCol of
    3 :
      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;
end;
end;

[Cl@udius]

Remplace CopyStr par Copy.
@+

[sybermad]

Merci a vous, j’ai une solution qui fonctionne a peut pré, en reprenant l’exemple SergioMaster elle fonctionne si vous faite da l’affichage, car elle redessine par dessue les données se que l’en veux.

------------------------------------------------------------------

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
18
19
procedure TForm2.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
Dateaaffichee : string ;
 
begin
with (Sender as TDBGrid).Canvas do
  begin
      case DataCol of
        2 :  {num de la colonne a modifier, !!! départ de Zéro}
          begin
            dateaaffichee := ' '+ copy(Column.Field.AsString,7,2)+'/'+ copy(Column.Field.AsString,5,2)+'/'+copy(Column.Field.AsString,1,4);
            {Column.Field.AsString, caractère de départ, nb caractère copier}
            TextOut(Rect.Left,Rect.top,dateaaffichee);
            {Rect. alignement dans la grille, un peut difficile}
          end;
      end;
  end;
end;

---------------------------------------------------------

Si vous avais une autre solution qui travail directement sur les données je suis preneur aussi

Merci

[aityahia]

sybermad a votre place lors de l'importationn de ma base je vais convertitr mes champs date en Type date sa m'évitera toutes cette gymnastique est le plus important c'est lors de l'etablissement de mes requetes je peut valoriser mes dates en tanque que telle.

[SergioMaster]

m'excuse j'ai fait ça à la volée sans prendre le temps de bien contrôler
le topo ni les fôtes mouarf:

il faut lire Copy au lieu de strcopy

[Cl@udius]

Salut

m'excuse j'ai fait ça à la volée sans prendre le temps de bien contrôler
le topo ni les fôtes mouarf:
il faut lire Copy au lieu de strcopy

Nobody's perfect !

Sinon tu peux faire ceci sur le OnGetText du TField:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure TForm1.DataSetECCJCREGetText(Sender: TField;
  var Text: String; DisplayText: Boolean);
var
  strDate: String[8];
begin
  if TField(Sender).IsNull then Exit;
 
  strDate := TField(Sender).AsString;
  Text := Copy(strDate, 7, 2) + '/' +
          Copy(strDate, 5, 2) + '/' +
          Copy(strDate, 1, 4);
end;

@+ Claudius