Discussion :

[yacinew]

Bonjour,

Je la requête suivante :

Code sql :

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

select prix from vente.dbf

le prix sera affiché dans un DBEdit : 123456789.00;

je veux cette résultat : 123 456 789.00

Comment je peux faire ça !

Merci

[Ph. B.]

Bonjour,

je veux cette résultat : 123 456 789.00
Comment je peux faire ça !

Il faut sélectionner votre composant TQuery, appeler le menu contextuel et éditer les champs, puis ajouter tous les champs.
Ensuite vous sélectionnez celui qui vous intéresse et vous définissez sa propriété DisplayValue à : ### ### ###.00.
Vous pouvez aussi par code implémenter la gestion des évènement OnGetText et OnSetText et formater vos données à la volée...

[yacinew]

Bonjour,
Il faut sélectionner votre composant TQuery, appeler le menu contextuel et éditer les champs, puis ajouter tous les champs.
Ensuite vous sélectionnez celui qui vous intéresse et vous définissez sa propriété DisplayValue à : ### ### ###.00.
Vous pouvez aussi par code implémenter la gestion des évènement OnGetText et OnSetText et formater vos données à la volée...

Merci Ph. B.

comment j'utilise OngetText et OnSetText;

[Ph. B.]

comment j'utilise OngetText et OnSetText;

est la première réponse qui me vient !

TField.OnSetText :

Se produit quand une valeur est affectée à la propriété Text.

Un gestionnaire d'événements OnSetText permet de spécifier les traitements à effectuer quand une nouvelle valeur est affectée à la propriété Text. Si un gestionnaire d'événements OnGetText formate la propriété Value du champ pour l'édition, OnSetText doit inverser le processus en traitant la chaîne modifiée.

En l'absence de gestionnaire OnSetText, la propriété Text est définie en définissant la propriété AsString.

OnSetText est un gestionnaire d'événements du type TFieldGetTextEvent.

Soit pour une colonne nommée FieldName1 :

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 TForm1.FieldName1GetText(Sender: TField; var Text: string; DisplayText: Boolean);
begin
  // Encadrement du contenu par des double-quote
  Text := '"' + Text + '"';
end;
 
procedure TForm1.FieldName1SetText(Sender: TField; const Text: string);
var
  ch: string;
begin
  // Suppression des double-quote d'encadrement du contenu
  if Copy(Text, 1, 1) = '"' then
    ch := Copy(Text, 2, Length(Text) - 1);
  if Copy(ch, Length(ch), 1) = '"' then
    ch := Copy(ch, 1, Length(ch) -1);
  TField(Sender).AsString := ch;
end;