[<<Previous Entry]
[^^Up^^]
[Next Entry>>]
[Menu]
[About The Guide]
DB03.PAS
{ ---------------------------------------------------------------- }
{ TDB DEMOPROGRAMM 3 - FEHLERBEHANDLUNG, KENNDATEN DATENBANK }
{ ---------------------------------------------------------------- }
{ Setzt die Standard-Fehlerbehandlungsroutine zur Druckerausgabe, }
{ .ffnet die Datenbank "DB02.DBF" (mu. sich im gleichen Ver- }
{ zeichnis befinden !), zeigt ihre "Kenndaten" und schlie.t sie - }
{ nach einem Tastendruck des Benutzers - wieder. }
{ ---------------------------------------------------------------- }
{ (c) 1992 by Aurora featuring M.J. Schwaiger }
{ ---------------------------------------------------------------- }
{ History: }
{ 1992-04-15 MS Interfacefestlegung und Implementierung. }
{ ---------------------------------------------------------------- }
PROGRAM DbDemo03;
USES
DbTypes, { Enth.lt die Typdefinitionen f.r alle }
{ Module des Datenbanksystems TDB. }
Error, { Fehlerbehandlungsroutinen, -handler }
ADatum, { Definition TDate (unter anderem ...) }
AStrTool, { Stringformatierung }
TDB; { Die eigentlichen Datenbank-Objekte. }
VAR
DB : PDataBase; { Datenbankobjekt }
Datum : TDate;
Cnt : BYTE;
Typ : CHAR; { Feldtyp }
Size, { Feldgr..e }
NK : BYTE; { Bei Zahlen: Nachkommastellen }
BEGIN { Hauptprogramm }
SetErrHandler (ErrPrint); { Alle Fehler werden auf dem }
{ Drucker mitprotokolliert. }
DB := NEW (PDataBase, { Speicherallozierung und }
Use ('DB02.DBF')); { Initialisierung des Objektes }
IF GetErr = 0 THEN { Keine Fehler ? }
BEGIN
WRITELN;
WRITELN ('Dateiname: ', DB^.FileName);
WRITELN ('Dateigr..e: ', DB^.FILESIZE);
WRITELN ('Headergr..e: ', DB^.HeaderSize);
WRITELN ('Recordgr..e: ', DB^.RecordSize);
WRITELN ('dBase-Version: ', DB^.DbVersion);
IF DB^.coNtainsMemos THEN
WRITELN ('Memos: JA')
ELSE
WRITELN ('Memos: NEIN');
DB^.LastUpDate (Datum);
WRITELN ('Anzahl Felder: ', DB^.AnzahlFelder);
FOR Cnt := 1 TO DB^.AnzahlFelder DO
BEGIN
DB^.FeldTyp (DB^.FeldName (Cnt), Typ, Size, NK);
WRITE (' Feldname: ',
LFormat (DB^.FeldName (Cnt), 14),
' Typ: ', Typ, ' Gr..e: ', Size);
IF NK <> 0 THEN
WRITELN (' : ', NK)
ELSE
WRITELN;
END;
WRITELN ('Anzahl S.tze: ', DB^.LastRec);
WRITELN ('Aktueller Satz: ', DB^.RecNo);
IF DB^.BOF THEN
WRITELN ('Begin Of File: JA')
ELSE
WRITELN ('Begin Of File: NEIN');
IF DB^.EOF THEN
WRITELN ('End Of File: JA')
ELSE
WRITELN ('End Of File: NEIN');
Db^.First;
WRITELN ('Nach "First":');
IF DB^.BOF THEN
WRITELN (' Begin Of File: JA')
ELSE
WRITELN (' Begin Of File: NEIN');
IF DB^.EOF THEN
WRITELN (' End Of File: JA')
ELSE
WRITELN (' End Of File: NEIN');
Db^.Last;
WRITELN ('Nach "Last":');
IF DB^.BOF THEN
WRITELN (' Begin Of File: JA')
ELSE
WRITELN (' Begin Of File: NEIN');
IF DB^.EOF THEN
WRITELN (' End Of File: JA')
ELSE
WRITELN (' End Of File: NEIN');
DISPOSE (DB, CLOSE);
END; { IF GetErr = 0 THEN }
WRITELN;
WRITE ('Weiter mit Taste ...');
READLN;
WRITELN;
END. { PROGRAM DbDemo03 }
This page created by ng2html v1.05, the Norton guide to HTML conversion utility.
Written by Dave Pearson