Autor Téma: Výsledky súťaže družstiev v skupine  (Přečteno 649 krát)

Offline Stanislav Hruška

  • Padawan
  • ******
  • Příspěvků: 7424
  • Karma: 44
    • Verze Delphi: W11 + D11.3.1
Výsledky súťaže družstiev v skupine
« kdy: 17-09-2023, 19:14:02 »

Užívateľ chce zobraziť výsledky podľa obrázka. V hornej časti sú prvé zápasy. V dolnej časti sú odvety. Tie v súťaži nemusia byť.
Určite to bude chcieť vytlačiť. Preto rozmýšľam nad FR a CrossTable(?). Už je to dávno, čo som to použil. Základné otázky:
  • dá sa to urobiť pomocou CrossX?
  • akú štruktúru musia mať údaje?
Win11 64b, Delphi 12.2, FireBird 4.01
Expert na kladenie nejasne formulovaných otázok.

Offline Stanislav Hruška

  • Padawan
  • ******
  • Příspěvků: 7424
  • Karma: 44
    • Verze Delphi: W11 + D11.3.1
Re:Výsledky súťaže družstiev v skupine
« Odpověď #1 kdy: 25-09-2023, 18:18:14 »
Nakoniec to nebolo problematické. Dôležité bolo dať výsledky do jedného poľa. Už len otočiť názvy v hlavičke zvisle
Kód: Delphi [Vybrat]
  1. SELECT
  2.   T1.ACRONYM AS ACRONYM1, T2.ACRONYM AS ACRONYM2, M.GOAL1||' : '||M.GOAL2 AS GOAL, M.REMATCH
  3. FROM
  4.   MATCHES M
  5.   INNER JOIN TEAMS T1 ON M.TEAM1FK = T1.TEAMID
  6.   INNER JOIN TEAMS T2 ON M.TEAM2FK = T2.TEAMID
  7. WHERE
  8.   M.ROUNDFK = 10568
  9. ORDER BY
  10.   M.REMATCH DESC, ACRONYM1, ACRONYM2
Už som to otočenie textu našiel.
« Poslední změna: 25-09-2023, 18:24:01 od Stanislav Hruška »
Win11 64b, Delphi 12.2, FireBird 4.01
Expert na kladenie nejasne formulovaných otázok.

Offline Stanislav Hruška

  • Padawan
  • ******
  • Příspěvků: 7424
  • Karma: 44
    • Verze Delphi: W11 + D11.3.1
Re:Výsledky súťaže družstiev v skupine
« Odpověď #2 kdy: 26-09-2023, 08:27:56 »
Rád by som víťazstvá a prehry farebne zvýraznil. V selecte som doplnil GOAL1 a GOAL2. Toto mi (nikde) nefunguje
Kód: Delphi [Vybrat]
  1. procedure DBCross1Cell0OnBeforePrint(Sender: TfrxComponent);
  2. begin
  3.   if <ResultCross."GOAL1"> > <ResultCross."GOAL2"> THEN
  4.     DBCross1Cell0.Font.Color := clGreen
  5.   else
  6.   if <ResultCross."GOAL1"> < <ResultCross."GOAL2"> THEN
  7.     DBCross1Cell0.Font.Color := clRed;
  8. end;
Máte na to nejaké jednoduché riešenie?
Mne napadá len:
  • rozsekať text
  • previesť na čísla
  • pracovať s číslami



Win11 64b, Delphi 12.2, FireBird 4.01
Expert na kladenie nejasne formulovaných otázok.