PAT 01 -  V. 1.3
-   Aufgabe und Hinweise -

S. Spolwig

[Home | Unterrichtssequenzen]
[Startseite]

Klassen TPatient und TFensterFrm verbinden

In dieser Version kann ein Patient zunächst mit den med. Daten eingegeben und mit dem Suchen-Button angezeigt werden.

Dazu sind folgende Schritte erforderlich:

1. Starten Sie DELPHI und öffnen Sie das Projekt.
    

2. uFenster.pas mit Editor öffnen.
    

3. Fügen Sie bei uses uPatient hinzu       // damit kann das Fenster auf Patient zugreifen.
    

4. Deklarieren Sie ein Exemplar der Klasse TPatient unter implementation:
   var AktuellerPatient : TPatient ;
    

5. Das neue Exemplar AktuellerPatient erzeugen in der Fenstermethode TFensterFrm.FormCreate(..)
   mit der Anweisung:
   AktuellerPatient := TPatient.Create;
   ( s. Aufgabe V.09 )
    

6. Deklarieren Sie unter private die Methoden:
   
   - DatenAktualisieren (var pat : TPatient);
   - MaskeAktualisieren (pat : TPatient);
   
   und implementieren Sie diese.

        ============================================================

7. Spezifizieren Sie die Ereignismethoden:
   
   - OKBtnClick
   - NeuBtnClick
   - SuchenBtnClick
    

8. Implementieren Sie diese Methoden. Wenn Sie alles richtig gemacht haben, geben Sie Ihre Daten zum Testen ein.

Wenn Sie schon fertig sind, lesen Sie bitte das Dokument Klassenbeziehungen I für Anfänger unter
OOA-OOD-OOP.