home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / database / tdb / demo / addon01.pas next >
Encoding:
Pascal/Delphi Source File  |  1992-07-21  |  2.9 KB  |  92 lines
  1. { ──────────────────────────────────────────────────────────────── }
  2. {             DEMOPROGRAMM DATENBANK-TESTDATENGENERATOR            }
  3. { ──────────────────────────────────────────────────────────────── }
  4. { Erzeugt im aktuellen Verzeichnis die Testdatenbank "ADDON01" mit }
  5. { verschiedenen Feldern und 100 Testdatensätzen.                   }
  6. { Als Error-Handler wird wieder einmal der allseits beliebte "Err- }
  7. { Print" eingesetzt, um Fehlermeldungen auf dem Drucker auszuge-   }
  8. { ben.                                                             }
  9. { ──────────────────────────────────────────────────────────────── }
  10. {       (c)  1991  by  Aurora  featuring  M.J. Schwaiger           }
  11. { ──────────────────────────────────────────────────────────────── }
  12. {      History:                                                    }
  13. { 1992-04-15   MS   Interfacefestlegung und Implementierung.       }
  14. { ──────────────────────────────────────────────────────────────── }
  15.  
  16. PROGRAM AddOn01;
  17.  
  18.   USES
  19. {$IFDEF Windows}
  20.     WINCRT,
  21. {$ENDIF}
  22.     Error,                  { Fehlerbehandlungsroutinen, -handler  }
  23.     LongIdle,               { Idle-Prozeduren für längere Vorgänge }
  24.     ATestGen,                                 { Testdatengenerator }
  25.     DbTypes,                { Enthält die Typdefinitionen für alle }
  26.                             { Module des Datenbanksystems TDB.     }
  27.     TDB;                    { Die eigentlichen Datenbank-Objekte.  }
  28.  
  29.  
  30.   VAR
  31.     CI             : TCreateInfo;
  32.  
  33.  
  34.   BEGIN
  35. {$IFNDEF Windows}
  36.     SetErrHandler (ErrPrint);         { Alle Fehler werden auf dem }
  37.                                       { Drucker mitprotokolliert.  }
  38.     SetLongIdleHandler (LIdleScreenInit,   { "Fortschrittsanzeige" }
  39.                                 LIdleScreenUpDate, LIdleScreenDone);
  40. {$ENDIF}
  41.  
  42.     WRITELN (MEMAVAIL, ' - ', MAXAVAIL);
  43.  
  44.     FILLCHAR (CI.Felder, SIZEOF (CI.Felder), 0);
  45.  
  46.     CI.Felder [1].Name := 'Text';
  47.     CI.Felder [1].Typ := 'C';
  48.     CI.Felder [1].Size := 100;
  49.     CI.Felder [1].NK := 0;
  50.  
  51.     CI.Felder [2].Name := 'NormZahl';
  52.     CI.Felder [2].Typ := 'N';
  53.     CI.Felder [2].Size := 10;
  54.     CI.Felder [2].NK := 0;
  55.  
  56.     CI.Felder [3].Name := 'RealZahl';
  57.     CI.Felder [3].Typ := 'N';
  58.     CI.Felder [3].Size := 12;
  59.     CI.Felder [3].NK := 2;
  60.  
  61.     CI.Felder [4].Name := 'Logisch';
  62.     CI.Felder [4].Typ := 'L';
  63.     CI.Felder [4].Size := 1;
  64.     CI.Felder [4].NK := 0;
  65.  
  66.     CI.Felder [5].Name := 'Datum';
  67.     CI.Felder [5].Typ := 'D';
  68.     CI.Felder [5].Size := 8;
  69.     CI.Felder [5].NK := 0;
  70.  
  71.     CI.Felder [6].Name := 'Memos';
  72.     CI.Felder [6].Typ := 'M';
  73.     CI.Felder [6].Size := 10;
  74.     CI.Felder [6].NK := 0;
  75.  
  76.     CI.AnzFelder := 6;
  77.  
  78.     WRITELN;
  79.     WRITELN;
  80.     WRITELN;
  81.     WRITELN;
  82.  
  83.     GenerateCreate ('ADDON01', CI, 5);
  84.  
  85.     WRITELN (MEMAVAIL, ' - ', MAXAVAIL);
  86.  
  87.     WRITELN;
  88.     WRITE ('Weiter mit Return-Taste ...');
  89.     READLN;
  90.     WRITELN;
  91.   END. { PROGRAM AddOn01 }
  92.