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