[SOLVED] SQLite and 2 decimals

[madref]

I am using this SQL-statement to create a query/view.

Code: SQL  [Select][+][-]

1. SELECT Wed_Meetellen, Scheidsrechter AS Referee, COUNT(Scheids_ID) AS Games, SUM(Vergoeding_Wed) AS Fee, SUM(Vergoeding_KM) AS Milage
2. FROM qry_Temp_Uitbetalen
3. WHERE ABS(Wed_Meetellen) = 1
4. GROUP BY Scheidsrechter
5. ORDER BY Scheidsrechter;  

This outlines all the numbers on the right and i have decimal numbers like 100.1
I want to have to digits after the point (like 100.10).
With the following code i can get the 2 digits decimals but it lines the column out to the left side.

Code: SQL  [Select][+][-]

1. SELECT Wed_Meetellen, Scheidsrechter AS Referee, COUNT(Scheids_ID) AS Games,
2. printf("%.2f",SUM(Vergoeding_Wed)) AS Fee,
3. SUM(Vergoeding_KM) AS Milage
4. FROM qry_Temp_Uitbetalen
5. WHERE ABS(Wed_Meetellen) = 1
6. GROUP BY Scheidsrechter
7. ORDER BY Scheidsrechter;  

Question: How can i get a 2 digit decimal AND the column is outlined to the right?

[balazsszekely]

For each field in the query you have a DisplayFormat property + the OnGetText event. Use one of those to format the output. Even more, you have the Alignment property to change the alignment(left, center, right).

[madref]

I have the following DBGrid and its linked to the rest.

Code: Pascal  [Select][+][-]

1.     DBGrid_Evaluaties: TDBGrid;
2.     DS_Evaluaties: TDataSource;
3.  
4.     TQ_Evaluaties: TSQLQuery;
5.  

Could you give me an example because i don't know how to address both

[balazsszekely]

I don't know how can I be more specific: https://youtu.be/n4WW5XxLsMc

PS: For formating use the DisplayFormat or the OnGetText event not both.

[madref]

Yes.. now i see....
But this is all in design time.
I am making my query in runtime so i don't have the fields at design time.
This is my code.....
But then i am stuck

Code: Pascal  [Select][+][-]

1.   TQ_Evaluaties.Active := False;
2.   cSQL := 'SELECT ' +
3.           'Wed_Meetellen, Scheidsrechter AS Referee, COUNT(Scheids_ID) AS Games, ' +
4.           'SUM(Vergoeding_Wed) AS Fee, ' +
5.           'PRINTF("%.2f", SUM(Vergoeding_KM)) AS Milage ' +
6.           'FROM qry_Temp_Uitbetalen ' +
7.           'WHERE ABS(Wed_Meetellen) = 1 ' +
8.           'GROUP BY Scheidsrechter ' +
9.           'ORDER BY Scheidsrechter;';
10.   TQ_Evaluaties.DataBase := Form_Information.Connect_RefereeDB;
11.   TQ_Evaluaties.SQL.Text := cSQL;
12.   TQ_Evaluaties.Active := True;
13.  

[balazsszekely]

You can also access those properties at runtime:

Code: Pascal  [Select][+][-]

1.  
2.   TQ_Evaluaties.Fields[I].Alignment := taLeftJustify;
3.   Label1.Caption := Format('...', TQ_Evaluaties.FieldByName('Vergoeding_Wed').AsFloat);
4.  

[mangakissa]

It's not really created in runtime
Bu I know what you mean. Also in runtime you can format your decimals

Code: Pascal  [Select][+][-]

1.   TFloatfield(TQ_Evaluaties.FieldByName('Vergoeding_Wed')).Displayformat := '####0.00';
2.  

[madref]

Thanx everyone