home *** CD-ROM | disk | FTP | other *** search
/ Stars of Shareware: Programmierung / SOURCE.mdf / programm / msdos / pascal / gsdbase / hlth_unt.pas < prev    next >
Pascal/Delphi Source File  |  1990-01-06  |  4KB  |  165 lines
  1. unit Hlth_Unt;
  2.  
  3. interface
  4. uses
  5.    GS_dBase, GS_DB_FL;
  6.  
  7. type
  8.    Hlth_Unt_FL001  =  Object(GS_dBase_FL_I)      {FOOD_CODE  }
  9.                          constructor   Init(LF, LR : pointer);
  10.                       end;
  11.  
  12.    Hlth_Unt_FL002  =  Object(GS_dBase_FL_C)      {FOOD       }
  13.                          constructor   Init(LF, LR : pointer);
  14.                       end;
  15.  
  16.    Hlth_Unt_FL003  =  Object(GS_dBase_FL_R)      {QUANTITY   }
  17.                          constructor   Init(LF, LR : pointer);
  18.                       end;
  19.  
  20.    Hlth_Unt_FL004  =  Object(GS_dBase_FL_C)      {UNITTYPE   }
  21.                          constructor   Init(LF, LR : pointer);
  22.                       end;
  23.  
  24.    Hlth_Unt_FL005  =  Object(GS_dBase_FL_R)      {CALS       }
  25.                          constructor   Init(LF, LR : pointer);
  26.                       end;
  27.  
  28.    Hlth_Unt_FL006  =  Object(GS_dBase_FL_I)      {TOT_FAT_G  }
  29.                          constructor   Init(LF, LR : pointer);
  30.                       end;
  31.  
  32.    Hlth_Unt_FL007  =  Object(GS_dBase_FL_I)      {SAT_FAT_G  }
  33.                          constructor   Init(LF, LR : pointer);
  34.                       end;
  35.  
  36.    Hlth_Unt_FL008  =  Object(GS_dBase_FL_I)      {CHOLES_MG  }
  37.                          constructor   Init(LF, LR : pointer);
  38.                       end;
  39.  
  40.    Hlth_Unt_FL009  =  Object(GS_dBase_FL_M)      {COMMENTS   }
  41.                          constructor   Init(LF, LR : pointer);
  42.                       end;
  43.  
  44.    Hlth_Unt_Objct  =  Object(GS_dBase_DB)
  45.                          FOOD_CODE   : Hlth_Unt_FL001;
  46.                          FOOD        : Hlth_Unt_FL002;
  47.                          QUANTITY    : Hlth_Unt_FL003;
  48.                          UNITTYPE    : Hlth_Unt_FL004;
  49.                          CALS        : Hlth_Unt_FL005;
  50.                          TOT_FAT_G   : Hlth_Unt_FL006;
  51.                          SAT_FAT_G   : Hlth_Unt_FL007;
  52.                          CHOLES_MG   : Hlth_Unt_FL008;
  53.                          COMMENTS    : Hlth_Unt_FL009;
  54.                       end;
  55.  
  56. var
  57.    Hlth_Unt_R    : Hlth_Unt_Objct;
  58.    Hlth_Unt_Exit : pointer;
  59.  
  60. implementation
  61.  
  62. type
  63.    PtrRec  =  record
  64.                  ofs, seg : word;
  65.               end;
  66.  
  67. constructor Hlth_Unt_FL001.Init(LF, LR : pointer);
  68. begin
  69.    OffSet := 1;
  70.    Inc(PtrRec(LF).ofs,0);
  71.    Inc(PtrRec(LR).ofs,1);
  72.    GS_dBase_FL_I.Init(LF, LR);
  73. end;
  74.  
  75. constructor Hlth_Unt_FL002.Init(LF, LR : pointer);
  76. begin
  77.    OffSet := 6;
  78.    Inc(PtrRec(LF).ofs,32);
  79.    Inc(PtrRec(LR).ofs,6);
  80.    GS_dBase_FL_C.Init(LF, LR);
  81. end;
  82.  
  83. constructor Hlth_Unt_FL003.Init(LF, LR : pointer);
  84. begin
  85.    OffSet := 26;
  86.    Inc(PtrRec(LF).ofs,64);
  87.    Inc(PtrRec(LR).ofs,26);
  88.    GS_dBase_FL_R.Init(LF, LR);
  89. end;
  90.  
  91. constructor Hlth_Unt_FL004.Init(LF, LR : pointer);
  92. begin
  93.    OffSet := 31;
  94.    Inc(PtrRec(LF).ofs,96);
  95.    Inc(PtrRec(LR).ofs,31);
  96.    GS_dBase_FL_C.Init(LF, LR);
  97. end;
  98.  
  99. constructor Hlth_Unt_FL005.Init(LF, LR : pointer);
  100. begin
  101.    OffSet := 33;
  102.    Inc(PtrRec(LF).ofs,128);
  103.    Inc(PtrRec(LR).ofs,33);
  104.    GS_dBase_FL_R.Init(LF, LR);
  105. end;
  106.  
  107. constructor Hlth_Unt_FL006.Init(LF, LR : pointer);
  108. begin
  109.    OffSet := 39;
  110.    Inc(PtrRec(LF).ofs,160);
  111.    Inc(PtrRec(LR).ofs,39);
  112.    GS_dBase_FL_I.Init(LF, LR);
  113. end;
  114.  
  115. constructor Hlth_Unt_FL007.Init(LF, LR : pointer);
  116. begin
  117.    OffSet := 42;
  118.    Inc(PtrRec(LF).ofs,192);
  119.    Inc(PtrRec(LR).ofs,42);
  120.    GS_dBase_FL_I.Init(LF, LR);
  121. end;
  122.  
  123. constructor Hlth_Unt_FL008.Init(LF, LR : pointer);
  124. begin
  125.    OffSet := 45;
  126.    Inc(PtrRec(LF).ofs,224);
  127.    Inc(PtrRec(LR).ofs,45);
  128.    GS_dBase_FL_I.Init(LF, LR);
  129. end;
  130.  
  131. constructor Hlth_Unt_FL009.Init(LF, LR : pointer);
  132. begin
  133.    OffSet := 49;
  134.    Inc(PtrRec(LF).ofs,256);
  135.    Inc(PtrRec(LR).ofs,49);
  136.    GS_dBase_FL_M.Init(LF, LR);
  137.    File_ptr := @Hlth_Unt_R.mFile;
  138. end;
  139.  
  140. {$F+}
  141. procedure Exit_Proc;
  142. begin
  143.    Hlth_Unt_R.Close;
  144.    exitProc := Hlth_Unt_Exit;
  145. end;
  146.  
  147. begin
  148.    Hlth_Unt_Exit := exitProc;
  149.    exitProc := @Exit_Proc;
  150.    Hlth_Unt_R.Init('Health');
  151.    with Hlth_Unt_R do
  152.    begin
  153.       FOOD_CODE.Init(Fields, CurRecord);
  154.       FOOD.Init(Fields, CurRecord);
  155.       QUANTITY.Init(Fields, CurRecord);
  156.       UNITTYPE.Init(Fields, CurRecord);
  157.       CALS.Init(Fields, CurRecord);
  158.       TOT_FAT_G.Init(Fields, CurRecord);
  159.       SAT_FAT_G.Init(Fields, CurRecord);
  160.       CHOLES_MG.Init(Fields, CurRecord);
  161.       COMMENTS.Init(Fields, CurRecord);
  162.    end;
  163.    Hlth_Unt_R.Close;
  164. end.
  165.