[<<Previous Entry]
[^^Up^^]
[Next Entry>>]
[Menu]
[About The Guide]
LL03.PAS
{ ---------------------------------------------------------------- }
{ TESTPROGRAMM 3 LOW-LEVEL-DBASE-ROUTINEN }
{ ---------------------------------------------------------------- }
{ Erlaubt das Anf.gen von Datens.tzen an die Datenbank LL03. }
{ ---------------------------------------------------------------- }
{ (c) 1992 by Aurora featuring M.J. Schwaiger }
{ ---------------------------------------------------------------- }
{ History: }
{ Datum / Bearb. / Art }
{ 12. 3.1992 MS Implementierung. }
{ ---------------------------------------------------------------- }
PROGRAM LL03;
USES
Error,
LLdBase,
ADOS,
CRT;
VAR
Db : Pdbf;
Date,
Name : STRING;
Value : REAL;
Count : INTEGER;
Params : BYTE;
D : TEXT;
Typ : CHAR;
Breite,
NK : BYTE;
BEGIN
SetErrHandler (ErrPrint);
Db := NewDb;
ASSIGN (D, '');
REWRITE (D);
DbUse (Db, 'LL03');
IF GetErr = 0 THEN
BEGIN
REPEAT
WRITE ('Str:');
READLN (Name);
IF Name <> '' THEN
BEGIN
WRITE ('Date:');
READLN (Date);
DbAppend (Db);
DbReplace (Db, 'text', Name);
DbReplace (Db, 'datum', Datum2Db (Date));
END;
UNTIL Name = '';
WRITELN (D);
WRITELN (D, ' Datenbankstruktur:');
WRITELN (D);
FOR Count := 1 TO AnzahlFelder (Db) DO
BEGIN
WRITE (D, Count : 2, '. ', FeldName (Db, Count), ' ',
Db^.Feld [Count].Typ, ' ',
Db^.Feld [Count].NK);
IF Db^.Feld [Count].Typ = 'N' THEN
WRITELN (D, ' : ', Db^.Feld [Count].NK)
ELSE
WRITELN (D);
END; { FOR Count := 1 TO AnzahlFelder (db) DO }
WRITELN (D);
WRITELN (D, ' Datenbankinhalt:');
WRITELN (D);
DbFirst (Db);
WHILE NOT (DbEOF (Db)) DO
BEGIN
WRITE (D, DbRecNo (Db) : 4, '. ');
FOR Count := 1 TO AnzahlFelder (Db) DO
WRITE (D, DbRead (Db, FeldName (Db, Count)), ' ');
WRITELN (D);
DbSkip (Db);
END; { WHILE NOT (dbEOF (db)) DO }
WRITELN (D);
DbClose (Db);
END; { IF GetErr = 0 THEN }
DISPOSE (Db);
CLOSE (D);
END. { PROGRAM LL03 }
This page created by ng2html v1.05, the Norton guide to HTML conversion utility.
Written by Dave Pearson