Einzelnen Beitrag anzeigen

waldforest

Registriert seit: 8. Mai 2005
366 Beiträge
 
Delphi XE3 Enterprise
 
#1

SQL-Abfrage formatiert ausgeben

  Alt 9. Aug 2015, 23:47
Datenbank: Firebird • Version: 2.5 • Zugriff über: zeos
Über eine Query - SQL-Abfrage ziehe ich mir Summen über meine Verkäufe und zeige diese über ein GRID an.

Das Formular beinhaltet unterschiedliche Abfragen, bei denen sich auch die Spalten ändern.
Gerne würde ich die Spalten formatiert anzeigen, z.B. in Currency etc.

z.B.

Code:
 
      WITH zrdnlyqry_Verkauefe do
      begin
       Active := False ;
       SQL.Clear;SQL.Add(     'SELECT');
       SQL.Add(     '  A.ARTIKEL_NR,');
       SQL.Add(     '  sum( OA.ARTIKEL_PREIS_D ) AS Sum_Umsatz,');
       SQL.Add(     '  sum( OA.ARTIKEL_EK_PREIS ) AS Sum_EK,');
       SQL.Add(     '  sum( OA.ARTIKEL_MENGE ) AS Sum_Anzahl,');
       SQL.Add(     '  CAST(( 100 *( 1 - SUM( OA.ARTIKEL_EK_PREIS ) ) / IIF( SUM( OA.ARTIKEL_PREIS_D ) = 0 ,0.01 , SUM( OA.ARTIKEL_PREIS_D ) ) ) as decimal( 6 , 2 ) ) AS ProzWert');
       SQL.Add(     ' FROM')
    :
    :
    :
;
Wie kann ich nach Abfrage die gelesenen Spalten formatieren dass z.B. ?
SUM_Umsatz als Currency ausgegeben wird.
Leider wird auch der CAST-Wert nicht in Decinmal( 6,2 ) ausgegeben einige Ergebnisse weisen nur eine Dezimalstelle andere gar keine aus.

Wie beschrieben möchte ich die Query auf dem Formular dynamische nutzen um hier ein Standardformular mit unterschiedlichen Abfrage zu füttern.
mfg wf
  Mit Zitat antworten Zitat