home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / DBT.ZIP / DBTEST.ARC / DBTEST.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-02-21  |  3.5 KB  |  107 lines
  1. Program DBTEST;
  2.  
  3. Uses TPCrt, Mulkey4, DBMENU;
  4.  
  5. {$I DBTEST.TYP} {Now required by TACCESS}
  6.  
  7. Var
  8.   Test : TestRec;         {Declare a buffer}
  9.   Test_File : File_Type;  {Declaration for Mulkey}
  10.  
  11. begin
  12.   FillChar(Test, SizeOf(Test), 0);  {Blank the record}
  13.   FillChar(Test_File, SizeOf(Test_File), 0);
  14.  
  15.   With Test_File do
  16.     begin
  17.     {**************************************}
  18.     {For this next section, refer to the original Mulkey documentation}
  19.  
  20.         Name := 'Test';
  21.         RecSize := SizeOf(Test);
  22.         NUMBER_OF_KEYS := 1;
  23.         With Key[1] Do
  24.           Begin
  25.             Offset := KEYOFFSET(Test, Test.Date);
  26.             KEYLENGTH := SizeOf(Test.Date);
  27.             EXTENSION := 'IX1';
  28.             UNIQUE := False;
  29.             UPSHIFT := True;
  30.             KEYTYPE := KEY_STRING;
  31.           End;
  32.  
  33.           {End of regular Mulkey Initialization}
  34.           {**************************************}
  35.           {Begin DBMENU Initialization}
  36.  
  37.         PromptAttribute := 3;
  38.         GetAttribute := 2;
  39.         DisplayAttribute := 1;
  40.         HelpAttribute := 6;
  41.         NumOfFields := 5;  {only include the number of fields to read from the screen}
  42.         With Field[1] Do
  43.           Begin
  44.             XCoord := 5;   {Display Coordinates}
  45.             YCoord := 10;
  46.             FieldData := Ptr(Seg(Test.Date), Ofs(Test.Date)); {establish a pointer to the data}
  47.             FieldType := Date_Field;
  48.             FieldLength := SizeOf(Test.Date);
  49.             LegalChars := '0123456789';  {See original Getfield docs}
  50.             ScreenPrompt := 'Date 1 :';
  51.             HelpPrompt := 'You can enter any number here';
  52.           End;
  53.         With Field[2] Do
  54.           Begin
  55.             XCoord := 5;
  56.             YCoord := 11;
  57.             FieldData := Ptr(Seg(Test.Date2), Ofs(Test.Date2));
  58.             FieldType := Valid_Date_Field;
  59.             FieldLength := SizeOf(Test.Date2);
  60.             LegalChars := '0123456789';
  61.             ScreenPrompt := 'Date :';
  62.             HelpPrompt := 'Only dates between 01/01/1000 and 01/01/3000 can be entered';
  63.           End;
  64.         With Field[3] Do
  65.           Begin
  66.             XCoord := 5;
  67.             YCoord := 12;
  68.             FieldData := Ptr(Seg(Test.TestReal), Ofs(Test.TestReal));
  69.             FieldType := Real_Field;
  70.             FieldLength := SizeOf(Test.TestReal);
  71.             LegalChars := '0123456789';
  72.             ScreenPrompt := 'TestReal :';
  73.             HelpPrompt := 'Enter a real number';
  74.           End;
  75.         With Field[4] Do
  76.           Begin
  77.             XCoord := 5;
  78.             YCoord := 13;
  79.             FieldData := Ptr(Seg(Test.TestInt), Ofs(Test.TestInt));
  80.             FieldType := Integer_Field;
  81.             FieldLength := SizeOf(Test.TestInt);
  82.             LegalChars := '0123456789';
  83.             ScreenPrompt := 'TestInt :';
  84.             HelpPrompt := 'Enter an integer';
  85.           End;
  86.         With Field[5] Do
  87.           Begin
  88.             XCoord := 5;
  89.             YCoord := 14;
  90.             FieldData := Ptr(Seg(Test.TestStr), Ofs(Test.TestStr));
  91.             FieldType := String_Field;
  92.             FieldLength := SizeOf(Test.TestStr);
  93.             LegalChars := '';
  94.             ScreenPrompt := 'TestStr :';
  95.             HelpPrompt := 'Enter any String';
  96.           End;
  97.       End;
  98.       {End DBMenu initialization}
  99.       {**************************************}
  100.  
  101.   ClrScr;
  102.   Writeln('TestInt length is = ', SizeOf(Test.TestReal));
  103.   repeat until keypressed;
  104.   runmenu(Test_File, Test);
  105.   ClrScr;
  106.  
  107. end.