[<<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