[<<Previous Entry] [^^Up^^] [Next Entry>>] [Menu] [About The Guide]
ADDON01.PAS

 { ---------------------------------------------------------------- }
 {             DEMOPROGRAMM DATENBANK-TESTDATENGENERATOR            }
 { ---------------------------------------------------------------- }
 { Erzeugt im aktuellen Verzeichnis die Testdatenbank "ADDON01" mit }
 { verschiedenen Feldern und 100 Testdatens.tzen.                   }
 { Als Error-Handler wird wieder einmal der allseits beliebte "Err- }
 { Print" eingesetzt, um Fehlermeldungen auf dem Drucker auszuge-   }
 { ben.                                                             }
 { ---------------------------------------------------------------- }
 {       (c)  1991  by  Aurora  featuring  M.J. Schwaiger           }
 { ---------------------------------------------------------------- }
 {      History:                                                    }
 { 1992-04-15   MS   Interfacefestlegung und Implementierung.       }
 { ---------------------------------------------------------------- }

 PROGRAM AddOn01;

   USES
 {$IFDEF Windows}
     WINCRT,
 {$ENDIF}
     Error,                   { Fehlerbehandlungsroutinen, -handler  }
     LongIdle,                { Idle-Prozeduren f.r l.ngere Vorg.nge }
     ATestGen,                                  { Testdatengenerator }
     DbTypes,                 { Enth.lt die Typdefinitionen f.r alle }
                             { Module des Datenbanksystems TDB.     }
     TDB;                    { Die eigentlichen Datenbank-Objekte.  }


   VAR
     CI             : TCreateInfo;


   BEGIN
 {$IFNDEF Windows}
     SetErrHandler (ErrPrint);         { Alle Fehler werden auf dem }
                                       { Drucker mitprotokolliert.  }
     SetLongIdleHandler (LIdleScreenInit,    { "Fortschrittsanzeige" }
                                 LIdleScreenUpDate,  LIdleScreenDone);
 {$ENDIF}

     WRITELN (MEMAVAIL,  ' - ',  MAXAVAIL);

     FILLCHAR (CI.Felder,  SIZEOF (CI.Felder),  0);

     CI.Felder [1].Name := 'Text';
     CI.Felder [1].Typ := 'C';
     CI.Felder [1].Size := 100;
     CI.Felder [1].NK := 0;

     CI.Felder [2].Name := 'NormZahl';
     CI.Felder [2].Typ := 'N';
     CI.Felder [2].Size := 10;
     CI.Felder [2].NK := 0;

     CI.Felder [3].Name := 'RealZahl';
     CI.Felder [3].Typ := 'N';
     CI.Felder [3].Size := 12;
     CI.Felder [3].NK := 2;

     CI.Felder [4].Name := 'Logisch';
     CI.Felder [4].Typ := 'L';
     CI.Felder [4].Size := 1;
     CI.Felder [4].NK := 0;

     CI.Felder [5].Name := 'Datum';
     CI.Felder [5].Typ := 'D';
     CI.Felder [5].Size := 8;
     CI.Felder [5].NK := 0;

     CI.Felder [6].Name := 'Memos';
     CI.Felder [6].Typ := 'M';
     CI.Felder [6].Size := 10;
     CI.Felder [6].NK := 0;

     CI.AnzFelder := 6;

     WRITELN;
     WRITELN;
     WRITELN;
     WRITELN;

     GenerateCreate ('ADDON01',  CI,  5);

     WRITELN (MEMAVAIL,  ' - ',  MAXAVAIL);

     WRITELN;
     WRITE ('Weiter mit Return-Taste ...');
     READLN;
     WRITELN;
   END. { PROGRAM AddOn01 }

This page created by ng2html v1.05, the Norton guide to HTML conversion utility. Written by Dave Pearson