AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Algorithmen, Datenstrukturen und Klassendesign Ähnliche Funktionen von Klassen - Implementierung?
Thema durchsuchen
Ansicht
Themen-Optionen

Ähnliche Funktionen von Klassen - Implementierung?

Ein Thema von scrat1979 · begonnen am 15. Jul 2010 · letzter Beitrag vom 15. Jul 2010
Antwort Antwort
Benutzerbild von scrat1979
scrat1979

Registriert seit: 12. Jan 2007
Ort: Sulzbach a.d. Murr
1.029 Beiträge
 
Delphi 10.4 Sydney
 
#1

AW: Ähnliche Funktionen von Klassen - Implementierung?

  Alt 15. Jul 2010, 16:43
Hmmm, also hier mal der Aufbau einer der Tabellen (auf die wichtigsten Felder gekürzt=, damit es klarer wird:

Code:
CREATE TABLE TAB_TAGE (
  ID INTEGER NOT NULL,
  DATUM DATE NOT NULL,
  FEIERTAG SMALLINT DEFAULT 0 NOT NULL,
  FARBEBEREITSCHAFT INTEGER,
  FARBENOTARZT INTEGER,
  FARBERUFDIENST INTEGER);
Erklärung (wie gesagt, ist nur ein Beispiel!). Bei dieser Tabelle handelt es sich letztlich um nichts anderes als ein Monatskalendar. Nun gibt es - wie gesagt - 3 Dienstarten. Diesen kann der Benutzer im Kalendar zur Markierung eine Hintergrundfarbe verpassen. Diese Farbe wird in dieser Tabelle hinterlegt (Ein Tag = 1 Zeile). Die eigentlichen Dienste werden in einer separaten Tabelle über einen FK gespeichert (zwecks Normalisierung). Möchte ich nun EINE Klasse haben, um die jeweilige Hintergrundfarbe auszulesen, hätte ich ja - bei JEDER Abfrage, welche sich auf dienstspezifische Felder bezieht - folgendes oder ähnliches Konstrukt:

Delphi-Quellcode:
  case DienstTyp of
    1 : FeldName := 'FARBEBEREITSCHAFT';
    2 : FeldName := 'FARBERUFDIENST';
    3 : FeldName := 'FARBENOTARZT';
  end;

  FQuery.SQL.Clear;
  FQuery.SQL.Add('UPDATE tab_tage');
  FQuery.SQL.Add('SET %FeldName% = :FARBE');
  FQuery.SQL.Add('WHERE id = :DBID;');
  FQuery.SQL.Text := StringReplace(FQuery.SQL.Text, '%FeldName%', FeldName, []);
Teile ich es jedoch in 3 Klassen auf, kann ich mir die CASE-Abfrage sparen (hier exemplarisch für Dienst 2), hätte aber wegen der abstrakten Methoden in der Basisklasse haufenweise redundanten Quellcode:

Delphi-Quellcode:
  FQuery.SQL.Clear;
  FQuery.SQL.Add('UPDATE tab_tage');
  FQuery.SQL.Add('SET FARBERUFDIENST = :FARBE');
  FQuery.SQL.Add('WHERE id = :DBID;');
P.S.: Ich denke nicht, dass es in diesem Fall sinnvoll ist, eine weitere Tabelle für die 3 Farben zu erstellen und über einen FK zu referenzieren, oder?!?
Michael Kübler

Geändert von scrat1979 (15. Jul 2010 um 16:47 Uhr)
  Mit Zitat antworten Zitat
Namenloser

Registriert seit: 7. Jun 2006
Ort: Karlsruhe
3.724 Beiträge
 
FreePascal / Lazarus
 
#2

AW: Ähnliche Funktionen von Klassen - Implementierung?

  Alt 15. Jul 2010, 16:53
Ich verstehe nicht ganz, wieso es 3 Felder für die Farbe gibt - wieso reicht nicht eines?

Was den redundanten Code angeht: Du kannst das ganze ja in etwa so machen:
Delphi-Quellcode:
TBasisKlasse = class
protected
  function GetFieldName: string; virtual; abstract;
public
  procedure DoSomething;
end;

TKlasse 1 = class(TBasisKlasse)
protected
  function GetFieldName: string; override;
end;

TKlasse 2 = class(TBasisKlasse)
protected
  function GetFieldName: string; override;
end;

procedure TBasisKlasse.DoSomething;
begin
  { viel code ... }
  FQuery.SQL.Text := 'UPDATE xyz SET '+GetFieldName+'=123 WHERE id=3';
  {viel code ... }
end;

function TKlasse1.GetFieldName: string;
begin
  Result := 'Klasse1Farbe';
end;

function TKlasse2.GetFieldName: string;
begin
  Result := 'Klasse2Farbe';
end;
Alternativ kann man natürlich auch den jeweiligen Namen im Konstruktor in einem Feld speichern. Bei komplexeren Sachen bitet sich die obere Methode aber an. Ich glaube es gibt auch einen Namen für dieses Pattern, aber das will mir jetzt nicht einfallen...

Aber wie gesagt erschließt sich mir in deinem Fall der Sinn nicht ganz.
  Mit Zitat antworten Zitat
Benutzerbild von scrat1979
scrat1979

Registriert seit: 12. Jan 2007
Ort: Sulzbach a.d. Murr
1.029 Beiträge
 
Delphi 10.4 Sydney
 
#3

AW: Ähnliche Funktionen von Klassen - Implementierung?

  Alt 15. Jul 2010, 20:11
Ich verstehe nicht ganz, wieso es 3 Felder für die Farbe gibt - wieso reicht nicht eines?

[...]

Aber wie gesagt erschließt sich mir in deinem Fall der Sinn nicht ganz.
Ok, ich werde nachher mal einen Screenshot anhängen, ich denke, dann wird das alles klar werden. In Worten vorweg: Die (visuelle) Tabellenansicht [hat nichts mit der Datenbank zu tun, ein frisiertes StringGrid] besteht aus 4 Spalten

DATUM DIENST1 DIENST2 DIENST3
1.1.2010 Herr xzy Frau dfdf Herr asdlkf
[...]
31.1.2010 Herr dfdf Herr sdkf Herr dsfsdf


Nun kann z.B. am 31.1.2010 der Dienst 2 farbig hinterlegt werden. Das wird - in diesem Falle - in der o.g. Datenbanktabelle unter FARBERUFDIENST im entsprechenden Datensatz gespeichert.

Ich hoffe, mit diesen Informationen schonmal etwas Licht ins Dunkel zu bringen. Screenshot folgt später...

Michael

[EDIT] Screenshot angehängt, die rosa Pfeiler markieren die Hintergründe, von links nach rechts o.g. Datenbankfeldern zugehörig. Hoffe, es wird jetzt klar, wie das später aussehen soll...
Angehängte Grafiken
Dateityp: jpg screenshot.jpg (141,4 KB, 25x aufgerufen)
Michael Kübler

Geändert von scrat1979 (15. Jul 2010 um 20:25 Uhr)
  Mit Zitat antworten Zitat
Namenloser

Registriert seit: 7. Jun 2006
Ort: Karlsruhe
3.724 Beiträge
 
FreePascal / Lazarus
 
#4

AW: Ähnliche Funktionen von Klassen - Implementierung?

  Alt 15. Jul 2010, 21:49
Ah, ich glaube, ich verstehe es jetzt. Aber wäre es nicht viel leichter, ein Feld für die Farbe in der Dienste-Tabelle anzulegen statt 3 felder in der Tage-Tabelle?

Oder wenn du das aus Design-Gründen nicht willst, kannst du natürlich auch wie von dir oben beschrieben eine neue Tabelle anlegen mit einem Foreign-Key anlegen, in der du jeweils die Farbe dem Dienst zugeordnet ist. Sieht vielleicht etwas komisch aus, weil die Tabelle dann nur 2 Felder hat - aber warum eigentlich nicht.
  Mit Zitat antworten Zitat
Benutzerbild von scrat1979
scrat1979

Registriert seit: 12. Jan 2007
Ort: Sulzbach a.d. Murr
1.029 Beiträge
 
Delphi 10.4 Sydney
 
#5

AW: Ähnliche Funktionen von Klassen - Implementierung?

  Alt 15. Jul 2010, 22:04
Die Idee ist mir vorher auch gekommen. Nur wenn ich den Dienst (= Datensatz) aus der Tabelle lösche dann ist auch die Farbcodierung weg. Diese sollte jedoch auch ohne Dienst-Eintrag persistieren. Ich denke, dann werde ich wohl eine eigene Tabelle machen und per Join mit dem Dienst verbinden. Danke schonmal für die vielen Antworten, ich werde mich bestimmt wieder bei Euch melden

Michael
Michael Kübler
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 17:03 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz