Discussion :

[sondo]

Bonjour,

J'ai cette ligne dans une requête SQL :

Code :

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

Select Mat, Cod_Classe, CodeMat, LibMat, Coeff, Trimestre, sum(Note) as Total, Sum(Note)/3 as Moy, Sum(Note)/3*Coeff as Ponderer, count(Mat)* sum(Note)/3 as Moy_Classe from Note, Matiere, Eleve';

sum(Note)/3 ramène des nombres décimal à plusieurs chiffres après la virgule.
Comment faire pour limiter à 2 chiffres après la virgule? .
Merci pout toutes interventions.

[cmen76]

Code :

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

1
2
 
sum(Note) as Total

devient

Code :

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

1
2
 
CAST(sum(Note) as NUMERIC(10,2)) as Total

(syntaxe à vérifier selon SGBD, là c'est OK pour sql server par exemple)

[aityahia]

si vous utiliser des objets ADO vous pouvez jouez sur la propriété displayformat du champs en question dans l'éditeur de champs

[sondo]

J'utilse Paradox.
J'ai appliquer ce que vous avez dit mais il n'ya pas de changement. la requête est exécuté mais il ya toujours plusieurs chiffreaprès la virgule.
Peut-être que ca ne marche pas avec Paradox.

[aityahia]

lorsque vous double cliquer sur objet table une petit fentere sort avec un clique droit de la sourie et dans le menu faite ajouter des champs
une fois le champs selectioner dans la proprité disyplayformat "#,##"

[sondo]

Salut,

Je m'excuse pour le temps de reponse un peu longt.
J'ai exactement fait ce que vous avez dit, en utilisant #,## dans la prooriété displayFormat des champs concernés par les calculs, dans la table Note.
Il n'ya pas de changement. il ya toujours plusieurs chiffres après la virgules.
voici la requête :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TApercu_Notes.ButtonOKClick(Sender: TObject);
begin
Note.Query_Note.sql.Clear;
Note.Query_Note.sql.Add('Select Mat, Cod_Classe, CodeMat, LibMat, Coeff, Trimestre, cast(sum(Note) as numeric(10,2)) as Total, cast(Sum(Note)/3 as numeric(10,2)) as Moy, cast(Sum(Note)/3*Coeff as numeric(10,2)) as Ponderer,');
Note.Query_Note.sql.Add('count(Mat)* cast(sum(Note)/3 as numeric(10,2)) as Moy_Classe from Note, Matiere, Eleve');
Note.Query_Note.sql.Add('where Note.CodeMat = Matiere.CodeMat');
Note.Query_Note.sql.Add('And Eleve.Mat = Note.Mat');
Note.Query_Note.sql.Add('And Eleve.Cod_Classe = Note.Cod_Classe');
Note.Query_Note.sql.Add('And Cod_Classe = '+ QuotedStr(ClasseEdit.text));
Note.Query_Note.sql.Add('And Trimestre = '+ QuotedStr(PeriodeEdit.text));
Note.Query_Note.sql.Add('group by Mat, Cod_Classe, CodeMat, LibMat, Coeff, Trimestre');
Note.Query_Note.Open;
Note.QuickRepNote.Preview;
end;

[Rayek]

A la palce de #,##, mets 0.00

[sondo]

Oui j'ai bel et bien remplacé 0.00 à la place de #.##, mais rien ne se passe.
Après tout ce que vous avez fait, je ne comprend pas pourquoi ça ne marche pas.
C'est vraiment bizarre. .

[aityahia]

vous utiliser quel type d'objets pour afficher le résultat de vos données si vous utiliser les ceux de de la palette DBControls sa devrai marcher.

[Rayek]

Sinon tu peux faire en modifiant directement le canvas du DbGrid

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure TfrmMain.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
With Sender as TDbGrid do
  if lowercase(Column.FieldName) = 'total' then
  begin
 
      Canvas.TextOut(Rect.Left+2,Rect.Top+2, FormatFloat('0.00',Column.Field[DataCol]).AsFloat));
  end
  else
    TDBGrid(Sender).DefaultDrawColumnCell(rect,datacol,column,state);
end;

Il faut mettre la propriété DefaultDrawing du DbGrid à False

[sondo]

J'utilise QuickReport pour afficher mes données. Je n'utilise pas un DBGrid.

[Rayek]

J'utilise QuickReport pour afficher mes données. Je n'utilise pas un DBGrid.

Si mes souvenirs son bon ton composant doit avoir alors un OnBeForePrint ?
Et tu dois pouvoir formatter la valeur avant l'impression, genre :

Code :

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

1
2
 
Value := FormatFloat('0.00',StrToFloatF(Value,0.00));

A tester bien sur, sans QuickReport (j'ai D2005) je ne peux que te guider via mes souvenirs ^^

[sondo]

Je suis vraiment un débutant.
J'ai mit dans la propriété BeforePrint de TQuickRep cette ligne dont tu m'as indiqué :

Code :

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

Value := FormatFloat('0.00',StrToFloatF(Value,0.00));

Mais il reste à déclarer Value. Je doit le déclarer comme quel type de variable ?.

[Rayek]

Je suis vraiment un débutant.
J'ai mit dans la propriété BeforePrint de TQuickRep cette ligne dont tu m'as indiqué :

Code :

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

Value := FormatFloat('0.00',StrToFloatF(Value,0.00));

Mais il reste à déclarer Value. Je doit le déclarer comme quel type de variable ?.

Ton composant QDbLabel n'a pas lui aussi un événement OnBeforePrint ou quelque chose dans le style ?
Si oui, donne moi le code de l'événement (procedure xxxBeforePrint ( ... ) )
Car c'est la que tu dois mettre le bout de code que je t'ai fournit (bien sur faut l'adapter)

[cadetill]

Salut

Tous les composants DB du QR on la propiete Mask. Tu doix mettre ici par exemple #,##0.00

A+

[sondo]

Ca marche pour proprété Mask.
Merci à vous tous qui m'avez donner un peu de votre connaissance, de votre petience et de votre temps.
Vive la programmation et vive Delphi.