home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TPDB21.ZIP / TPDBDEMO.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-02-22  |  2.8 KB  |  117 lines
  1. Program TPDBDemo;
  2. {Field  Field Name  Type       Width    Dec
  3.       1  CUSTNO      Character      5
  4.       2  FIRSTNAME   Character     20
  5.       3  MI          Character      1
  6.       4  LASTNAME    Character     25
  7.       5  ADDRESS     Character     35
  8.       6  CITY        Character     35
  9.       7  STATE       Character      2
  10.       8  ZIP         Character      5
  11.       9  ORDERNO     Character      9
  12.  
  13.      10  ITEM        Character     20
  14.      11  COST        Numeric        8      2
  15.      12  SALEPRICE   Numeric        8      2
  16.      13  PROFIT      Numeric        8      2
  17.      14  SALEDATE    Date           8
  18.      15  COMPLETED   Logical        1
  19.  ** Total **                     191}
  20.  
  21. {Demonstration of the capabilities of TPDB
  22.  Version 2.0}
  23.  
  24.  Uses Crt,Dos,TPDB,TPDBDate,TPDBMath;
  25.  
  26. Var
  27.     J : LongInt;
  28.     SPos : Byte;
  29.     Message : String[80];
  30.     RecNo : string;
  31.     Continue : Byte;
  32.  
  33. begin
  34.     DBOpenFile('tpdbdemo.dbf');
  35.  
  36.     Repeat
  37.     Continue := 0;
  38.     NewDBRec;
  39.     Repl(14,Today);
  40.     Normal := White+BlueBG;
  41.     Reverse := Black+LightGrayBG;
  42.     SetColor(Black,LightGray);
  43.     FlashFill(1,1,25,80,Blue+BlackBG,#176);
  44.     Flash(2,5,Black+LightGrayBG,'Customer');
  45.     Flash(3,5,Black+LightGrayBG,'Database');
  46.     FlashC(2,White+RedBG,'TPDB Version 2.0');
  47.     Flash(24,50,Black+LightGrayBG,'Press Esc Key When Finished.');
  48.     FlashC(4,White+GreenBG,'Demonstration');
  49.     Str(DBRecNum:10,RecNo);
  50.     Message := 'Record Number: '+RecNo;
  51.     Flash(2,50,White+RedBG,Message);
  52.     Prompt(6,10,'Enter Customer Number: ');
  53.     Say(1,6,33);
  54.     Prompt(8,10,'First Name: ');
  55.     Say(2,8,22);
  56.     Prompt(10,10,'MI: ');
  57.     Say(3,10,14);
  58.     Prompt(12,10,'Last Name: ');
  59.     Say(4,12,21);
  60.     Prompt(14,10,'Address: ');
  61.     Say(5,14,19);
  62.     Prompt(16,10,'City: ');
  63.     Say(6,16,16);
  64.     Prompt(16,52,'State: ');
  65.     Say(7,16,59);
  66.     Prompt(16,63,'ZIP Code: ');
  67.     Say(8,16,73);
  68.     Prompt(18,10,'Order No.: ');
  69.     Say(9,18,21);
  70.     Prompt(18,35,'Item: ');
  71.     Say(10,18,41);
  72.     Prompt(20,10,'Cost: $');
  73.     Say(11,20,17);
  74.     Prompt(20,30,'Sale Price: $');
  75.     Say(12,20,43);
  76.     Prompt(20,55,'Profit: $');
  77.     Say(13,20,64);
  78.     Prompt(22,30,'Sale Date: ');
  79.     Say(14,22,41);
  80.     Prompt(24,10,'Transaction Completed ?: ');
  81.     Say(15,24,35);
  82.  
  83.     BlockCursor;
  84.     SPos := 1;
  85.  
  86.     Repeat
  87.     Case SPos of
  88.         1 : Get(1,6,33);
  89.         2 : Get(2,8,22);
  90.         3 : Get(3,10,14);
  91.         4 : Get(4,12,21);
  92.         5 : Get(5,14,19);
  93.         6 : Get(6,16,16);
  94.         7 : Get(7,16,59);
  95.         8 : Get(8,16,73);
  96.         9 : Get(9,18,21);
  97.         10: Get(10,18,41);
  98.         11: Get(11,20,17);
  99.         12: Get(12,20,43);
  100.         13:begin
  101.             Repl(13,Sub(12,11));
  102.             Say(13,20,65);
  103.             end;
  104.         14: Get(14,22,41);
  105.         15: Get(15,24,35);
  106.         end;
  107.         CheckScreen(SPos,BC,Up,Down,1,15);
  108.     Until BC in Next;
  109.     AddDBRec;
  110.     Flash(24,50,Blue+BlackBG,Replicate(#176,30));
  111.     Flash(24,50,White+RedBG,'Add another record ? ');
  112.     BC := GetBoolean(Continue,'Y','N',72,24);
  113.     Until BoolToStr(Continue,'Y','N')='N';
  114.     CloseDBFile;
  115.     SetColor(Black,Black);
  116.     ClrScr;
  117. end.