[<<Previous Entry] [^^Up^^] [Next Entry>>] [Menu] [About The Guide]
DB08.PAS

 { ---------------------------------------------------------------- }
 {            TDB DEMOPROGRAMM 08 - VERHALTEN IM NETZWERK           }
 { ---------------------------------------------------------------- }
 { Versucht, die gleiche Datenbank - "DB02" (sollte wom.glich       }
 { im aktuellen Verzeichnis stehen) - zwei mal zu .ffnen. Wenn      }
 { SHARE.EXE nicht geladen ist, funktioniert das auch, sonst wird   }
 { der Versuch, die Datenbank ein zweites mal zu .ffnen, zur.ckge-  }
 { wiesen.                                                          }
 { ---------------------------------------------------------------- }
 {       (c)  1992  by  Aurora  featuring  M.J. Schwaiger           }
 { ---------------------------------------------------------------- }
 {      History:                                                    }
 { 1992-04-26   MS   Interfacefestlegung und Implementierung.       }
 { ---------------------------------------------------------------- }

 PROGRAM Db08;

   USES
     AShare,                  { .berpr.fung, ob SHARE.EXE geladen.   }
     DbTypes,                 { Enth.lt die Typdefinitionen f.r alle }
                             { Module des Datenbanksystems TDB.     }
     ADatum,                  { Definition TDate (unter anderem ...) }
     AStrTool,                                  { Stringformatierung }
     TDB,                     { Die eigentlichen Datenbank-Objekte.  }
     Error;                  { Fehlerbehandlungsroutinen, -handler  }


   VAR
     DB1,
     DB2            : PDataBase;                 { Datenbankobjekte }


   BEGIN                                            { Hauptprogramm }
     SetErrHandler (ErrTextMode);    { Alle Fehler werden auf dem   }
                                     { Bildschirm mitprotokolliert. }

     WRITELN;
     WRITELN;

     IF ShareInstalled THEN
       WRITELN ('***** SHARE.EXE ist installiert. *****')
     ELSE
       WRITELN ('***** SHARE.EXE ist nicht installiert. *****');

     WRITELN;

     DB1 := NEW (PDataBase,                { Speicherallozierung und }
             Use ('DB02.DBF'));      { Initialisierung des Objektes }

     IF GetErr = 0 THEN                            { Keine Fehler ? }
     BEGIN
       WRITELN;
       WRITELN ('Datenbank zum ersten mal ge.ffnet !');

       DB2 := NEW (PDataBase,              { Speicherallozierung und }
               Use ('DB02.DBF'));    { Initialisierung des Objektes }

       IF GetErr = 0 THEN                          { Keine Fehler ? }
       BEGIN
         WRITELN;
         WRITELN ('Datenbank zum zweiten mal ge.ffnet !');

         DISPOSE (DB2,  CLOSE);
       END;

       DISPOSE (DB1,  CLOSE);
     END;

     WRITELN;
     WRITE ('Weiter mit Taste ...');
     READLN;
     WRITELN;
   END. { PROGRAM Db08 }

This page created by ng2html v1.05, the Norton guide to HTML conversion utility. Written by Dave Pearson