home *** CD-ROM | disk | FTP | other *** search
- { ──────────────────────────────────────────────────────────────── }
- { TDB DEMOPROGRAMM 1 - EINBINDEN MODULE }
- { ──────────────────────────────────────────────────────────────── }
- { Demonstriert das Einbinden der für das TDB-System benötigten }
- { Module sowie die Deklaration des Datenbank-Objektes. }
- { ──────────────────────────────────────────────────────────────── }
- { (c) 1992 by Aurora featuring M.J. Schwaiger }
- { ──────────────────────────────────────────────────────────────── }
- { History: }
- { 1992-04-15 MS Interfacefestlegung und Implementierung. }
- { ──────────────────────────────────────────────────────────────── }
-
- PROGRAM Db01;
-
- USES
- DbTypes, { Enthält die Typdefinitionen für alle }
- { Module des Datenbanksystems TDB. }
- TDB; { Die eigentlichen Datenbank-Objekte. }
-
-
- VAR
- DB : PDataBase; { Datenbankobjekt }
-
-
- BEGIN { Hauptprogramm }
- WRITELN;
- WRITE ('Weiter mit Return-Taste ...');
- READLN;
- WRITELN;
- END. { PROGRAM Db01 }
-