home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / database / tdb / demo / db05a.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-04-29  |  3.4 KB  |  92 lines
  1. { ──────────────────────────────────────────────────────────────── }
  2. {          TDB DEMOPROGRAMM 10 - TESTDATENSÄTZE GENERIEREN         }
  3. { ──────────────────────────────────────────────────────────────── }
  4. { Erzeugt eine neue Datenbank ("DBDEMO10.DBF") und "füllt" sie mit }
  5. { 1000 Testdatensätzen.                                            }
  6. { Anschließend wird die Datenbank normal geöffnet und die Daten-   }
  7. { bankinformationen - wie bei "DBDEMO03" - ausgegeben.             }
  8. { ──────────────────────────────────────────────────────────────── }
  9. {       (c)  1992  by  Aurora  featuring  M.J. Schwaiger           }
  10. { ──────────────────────────────────────────────────────────────── }
  11. {      History:                                                    }
  12. { 1992-04-15   MS   Interfacefestlegung und Implementierung.       }
  13. { ──────────────────────────────────────────────────────────────── }
  14.  
  15. PROGRAM DbDemo06;
  16.  
  17. {$DEFINE Windows}
  18.  
  19.   USES
  20.     DbTypes,                { Enthält die Typdefinitionen für alle }
  21.                             { Module des Datenbanksystems TDB.     }
  22.     ADatum,                 { Definition TDate (unter anderem ...) }
  23.     AStrTool,                                 { Stringformatierung }
  24.     TDB,                    { Die eigentlichen Datenbank-Objekte.  }
  25.     ATestGen,                                 { Testdatengenerator }
  26.     Error;                  { Fehlerbehandlungsroutinen, -handler  }
  27.  
  28.  
  29.   VAR
  30.     CI             : TCreateInfo;
  31.     DB             : PDataBase;                  { Datenbankobjekt }
  32.     Datum          : TDate;
  33.     Cnt            : BYTE;
  34.     Typ            : CHAR;                               { Feldtyp }
  35.     Size,                                              { Feldgröße }
  36.     NK             : BYTE;          { Bei Zahlen: Nachkommastellen }
  37.  
  38.  
  39.   BEGIN                                            { Hauptprogramm }
  40. {$IFNDEF Windows}
  41.     SetErrHandler (ErrPrint);         { Alle Fehler werden auf dem }
  42.                                       { Drucker mitprotokolliert.  }
  43. {$ENDIF}
  44.  
  45.     FILLCHAR (CI.Felder, SIZEOF (CI.Felder), 0);    { Vorsicht ist }
  46.                                    { die Mutter der Porzellankiste }
  47.  
  48.     CI.Felder [1].Name := 'NAME';           { Felddefinitionen für }
  49.     CI.Felder [1].Typ := 'C';                 { die neue Datenbank }
  50.     CI.Felder [1].Size := 50;
  51.     CI.Felder [1].NK := 0;
  52.  
  53.     CI.Felder [2].Name := 'VORNAME';
  54.     CI.Felder [2].Typ := 'C';
  55.     CI.Felder [2].Size := 50;
  56.     CI.Felder [2].NK := 0;
  57.  
  58.     CI.Felder [3].Name := 'STRASSE';
  59.     CI.Felder [3].Typ := 'C';
  60.     CI.Felder [3].Size := 100;
  61.     CI.Felder [3].NK := 0;
  62.  
  63.     CI.Felder [4].Name := 'PLZ';
  64.     CI.Felder [4].Typ := 'N';
  65.     CI.Felder [4].Size := 12;
  66.     CI.Felder [4].NK := 0;
  67.  
  68.     CI.Felder [5].Name := 'GEBOREN';
  69.     CI.Felder [5].Typ := 'D';
  70.     CI.Felder [5].Size := 8;
  71.     CI.Felder [5].NK := 0;
  72.  
  73.     CI.Felder [6].Name := 'GEHALT';
  74.     CI.Felder [6].Typ := 'N';
  75.     CI.Felder [6].Size := 16;
  76.     CI.Felder [6].NK := 2;
  77.  
  78.     CI.AnzFelder := 6;                        { Exakt 6 Felder ... }
  79.  
  80.     WRITELN;
  81.     WRITELN;
  82.  
  83.                             { Datenbank erzeugen, 100 Datensätze   }
  84.                            { anhängen, Datenbank wieder schließen. }
  85.     WRITELN (GenerateCreate ('T:\KDV\DBDEMO\DBDEMO05', CI, 100));
  86.  
  87.     WRITELN;
  88.     WRITE ('Weiter mit Taste ...');
  89.     READLN;
  90.     WRITELN;
  91.   END. { PROGRAM DbDemo06 }
  92.