home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / GSDBASE.ZIP / HLTHDATA.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-01-08  |  1.8 KB  |  80 lines
  1. unit HlthData;
  2.  
  3. interface
  4. uses
  5.    GS_dBase, GS_DB_FL;
  6.  
  7. type
  8.    HlthData_FL001  =  Object(GS_dBase_FL_I)      {F_CODE     }
  9.                          constructor   Init(LF, LR : pointer);
  10.                       end;
  11.  
  12.    HlthData_FL002  =  Object(GS_dBase_FL_C)      {L_NAME     }
  13.                          constructor   Init(LF, LR : pointer);
  14.                       end;
  15.  
  16.    HlthData_FL003  =  Object(GS_dBase_FL_D)      {M_DATE     }
  17.                          constructor   Init(LF, LR : pointer);
  18.                       end;
  19.  
  20.    HlthData_Objct  =  Object(GS_dBase_DB)
  21.                          F_CODE      : HlthData_FL001;
  22.                          L_NAME      : HlthData_FL002;
  23.                          M_DATE      : HlthData_FL003;
  24.                       end;
  25.  
  26. var
  27.    HlthData_R    : HlthData_Objct;
  28.    HlthData_Exit : pointer;
  29.  
  30. implementation
  31.  
  32. type
  33.    PtrRec  =  record
  34.                  ofs, seg : word;
  35.               end;
  36.  
  37. constructor HlthData_FL001.Init(LF, LR : pointer);
  38. begin
  39.    OffSet := 1;
  40.    Inc(PtrRec(LF).ofs,0);
  41.    Inc(PtrRec(LR).ofs,1);
  42.    GS_dBase_FL_I.Init(LF, LR);
  43. end;
  44.  
  45. constructor HlthData_FL002.Init(LF, LR : pointer);
  46. begin
  47.    OffSet := 6;
  48.    Inc(PtrRec(LF).ofs,32);
  49.    Inc(PtrRec(LR).ofs,6);
  50.    GS_dBase_FL_C.Init(LF, LR);
  51. end;
  52.  
  53. constructor HlthData_FL003.Init(LF, LR : pointer);
  54. begin
  55.    OffSet := 26;
  56.    Inc(PtrRec(LF).ofs,64);
  57.    Inc(PtrRec(LR).ofs,26);
  58.    GS_dBase_FL_D.Init(LF, LR);
  59. end;
  60.  
  61. {$F+}
  62. procedure Exit_Proc;
  63. begin
  64.    HlthData_R.Close;
  65.    exitProc := HlthData_Exit;
  66. end;
  67.  
  68. begin
  69.    HlthData_Exit := exitProc;
  70.    exitProc := @Exit_Proc;
  71.    HlthData_R.Init('HlthData');
  72.    with HlthData_R do
  73.    begin
  74.       F_CODE.Init(Fields, CurRecord);
  75.       L_NAME.Init(Fields, CurRecord);
  76.       M_DATE.Init(Fields, CurRecord);
  77.    end;
  78.    HlthData_R.Close;
  79. end.
  80.