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