Registriert seit: 2. Mär 2004
5.508 Beiträge
Delphi 5 Professional
|
Re: Kreuztabelle und Visualisierung
12. Mai 2006, 13:53
Du könntest ein TStringGrid verwenden mit FixedRows=1, FixedCols=1.
1.) zählen, wieviele Fehlercodes es gibt. diese werden waagerecht abgetragen
Cols = AnzahlFehlercodes+1
2.) die Fehlercode werden in einer TStringList gespeichert, um bei 4.) die richtige Spalte zu finden
3.) Für jedes Bauteil wird nun eine neue Zeile hinzugefügt
Schleife über
SELECT * FROM Bauteile
4.) Schleife über
SELECT * FROM BauteilFehlercodes WHERE IdBauteil=:aktuellesBauteil
und die passenden Zellen mit einem '*' füllen
Da die '*' optisch nicht so ansprechend sind, könntest du das Event
OnDrawCell benützten um statt des '*' ein hübsches Icon zu zeichnen.
Andreas
|