home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / database / tdb / demo / db08.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-05-31  |  2.7 KB  |  74 lines
  1. { ──────────────────────────────────────────────────────────────── }
  2. {            TDB DEMOPROGRAMM 08 - VERHALTEN IM NETZWERK           }
  3. { ──────────────────────────────────────────────────────────────── }
  4. { Versucht, die gleiche Datenbank - "DB02" (sollte womöglich       }
  5. { im aktuellen Verzeichnis stehen) - zwei mal zu öffnen. Wenn      }
  6. { SHARE.EXE nicht geladen ist, funktioniert das auch, sonst wird   }
  7. { der Versuch, die Datenbank ein zweites mal zu öffnen, zurückge-  }
  8. { wiesen.                                                          }
  9. { ──────────────────────────────────────────────────────────────── }
  10. {       (c)  1992  by  Aurora  featuring  M.J. Schwaiger           }
  11. { ──────────────────────────────────────────────────────────────── }
  12. {      History:                                                    }
  13. { 1992-04-26   MS   Interfacefestlegung und Implementierung.       }
  14. { ──────────────────────────────────────────────────────────────── }
  15.  
  16. PROGRAM Db08;
  17.  
  18.   USES
  19.     AShare,                 { Überprüfung, ob SHARE.EXE geladen.   }
  20.     DbTypes,                { Enthält die Typdefinitionen für alle }
  21.                             { Module des Datenbanksystems TDB.     }
  22.     ADatum,                 { Definition TDate (unter anderem ...) }
  23.     AStrTool,                                 { Stringformatierung }
  24.     TDB,                    { Die eigentlichen Datenbank-Objekte.  }
  25.     Error;                  { Fehlerbehandlungsroutinen, -handler  }
  26.  
  27.  
  28.   VAR
  29.     DB1,
  30.     DB2            : PDataBase;                 { Datenbankobjekte }
  31.  
  32.  
  33.   BEGIN                                            { Hauptprogramm }
  34.     SetErrHandler (ErrTextMode);    { Alle Fehler werden auf dem   }
  35.                                     { Bildschirm mitprotokolliert. }
  36.  
  37.     WRITELN;
  38.     WRITELN;
  39.  
  40.     IF ShareInstalled THEN
  41.       WRITELN ('***** SHARE.EXE ist installiert. *****')
  42.     ELSE
  43.       WRITELN ('***** SHARE.EXE ist nicht installiert. *****');
  44.  
  45.     WRITELN;
  46.  
  47.     DB1 := NEW (PDataBase,               { Speicherallozierung und }
  48.             Use ('DB02.DBF'));      { Initialisierung des Objektes }
  49.  
  50.     IF GetErr = 0 THEN                            { Keine Fehler ? }
  51.     BEGIN
  52.       WRITELN;
  53.       WRITELN ('Datenbank zum ersten mal geöffnet !');
  54.  
  55.       DB2 := NEW (PDataBase,             { Speicherallozierung und }
  56.               Use ('DB02.DBF'));    { Initialisierung des Objektes }
  57.  
  58.       IF GetErr = 0 THEN                          { Keine Fehler ? }
  59.       BEGIN
  60.         WRITELN;
  61.         WRITELN ('Datenbank zum zweiten mal geöffnet !');
  62.  
  63.         DISPOSE (DB2, Close);
  64.       END;
  65.  
  66.       DISPOSE (DB1, Close);
  67.     END;
  68.  
  69.     WRITELN;
  70.     WRITE ('Weiter mit Taste ...');
  71.     READLN;
  72.     WRITELN;
  73.   END. { PROGRAM Db08 }
  74.