home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / database / tdb / demo / ll03.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-06-01  |  2.6 KB  |  107 lines
  1. { ──────────────────────────────────────────────────────────────── }
  2. {             TESTPROGRAMM 3 LOW-LEVEL-DBASE-ROUTINEN              }
  3. { ──────────────────────────────────────────────────────────────── }
  4. { Erlaubt das Anfügen von Datensätzen an die Datenbank LL03.       }
  5. { ──────────────────────────────────────────────────────────────── }
  6. {       (c)  1992  by  Aurora  featuring  M.J. Schwaiger           }
  7. { ──────────────────────────────────────────────────────────────── }
  8. {     History:                                                     }
  9. {  Datum     / Bearb. / Art                                        }
  10. { 12. 3.1992    MS       Implementierung.                          }
  11. { ──────────────────────────────────────────────────────────────── }
  12.  
  13. PROGRAM LL03;
  14.  
  15.   USES
  16.     Error,
  17.     LLdBase,
  18.  
  19.     ADOS,
  20.  
  21.     CRT;
  22.  
  23.  
  24.   VAR
  25.     db             : Pdbf;
  26.     Date,
  27.     Name           : STRING;
  28.     Value          : REAL;
  29.     Count          : INTEGER;
  30.     Params         : BYTE;
  31.     D              : TEXT;
  32.     Typ            : CHAR;
  33.     Breite,
  34.     NK             : BYTE;
  35.  
  36.   BEGIN
  37.     SetErrHandler (ErrPrint);
  38.  
  39.     db := NewDb;
  40.  
  41.     ASSIGN (D, '');
  42.     REWRITE (D);
  43.  
  44.     dbUse (db, 'LL03');
  45.  
  46.     IF GetErr = 0 THEN
  47.     BEGIN
  48.       REPEAT
  49.         WRITE ('Str:');
  50.         READLN (Name);
  51.  
  52.         IF Name <> '' THEN
  53.         BEGIN
  54.           WRITE ('Date:');
  55.           READLN (Date);
  56.  
  57.           dbAppend (db);
  58.           dbReplace (db, 'text', Name);
  59.           dbReplace (db, 'datum', Datum2Db (Date));
  60.         END;
  61.       UNTIL Name = '';
  62.  
  63.       WRITELN (D);
  64.       WRITELN (D, '              Datenbankstruktur:');
  65.       WRITELN (D);
  66.  
  67.       FOR Count := 1 TO AnzahlFelder (db) DO
  68.       BEGIN
  69.         WRITE (D, Count : 2, '. ', FeldName (db, Count), '     ',
  70.                                    db^.Feld [Count].Typ, '     ',
  71.                                    db^.Feld [Count].NK);
  72.  
  73.         IF db^.Feld [Count].Typ = 'N' THEN
  74.           WRITELN (D, ' : ', db^.Feld [Count].NK)
  75.         ELSE
  76.           WRITELN (D);
  77.       END; { FOR Count := 1 TO AnzahlFelder (db) DO }
  78.  
  79.       WRITELN (D);
  80.       WRITELN (D, '              Datenbankinhalt:');
  81.       WRITELN (D);
  82.  
  83.       dbFirst (db);
  84.  
  85.       WHILE NOT (dbEOF (db)) DO
  86.       BEGIN
  87.         WRITE (D, dbRecNo (db) : 4, '. ');
  88.  
  89.         FOR Count := 1 TO AnzahlFelder (db) DO
  90.           WRITE (D, dbRead (db, FeldName (db, Count)), '  ');
  91.  
  92.         WRITELN (D);
  93.  
  94.         dbSkip (db);
  95.       END; { WHILE NOT (dbEOF (db)) DO }
  96.  
  97.       WRITELN (D);
  98.  
  99.       dbClose (db);
  100.  
  101.     END; { IF GetErr = 0 THEN }
  102.  
  103.     DISPOSE (db);
  104.  
  105.     CLOSE (D);
  106.   END. { PROGRAM LL03 }
  107.