home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / VISUAL_B / CODIGO_1 / TABLES / TABLE.GLB < prev    next >
Encoding:
Text File  |  1991-07-14  |  823 b   |  26 lines
  1. '========================================================
  2. ' This file contains the global variables and constants
  3. ' used by the program.
  4. '========================================================
  5.  
  6.     '==> Max number of inventory items for this demo. The
  7.     '    choice was arbitrary.
  8.     Global Const MaxItems = 72
  9.     
  10.     '==> Data structure and array for inventory items.
  11.     Type ItemStruct
  12.         ProdName As String
  13.         Cost As Currency
  14.         MarkUp As Currency
  15.         Price As Currency
  16.         InStock As Integer
  17.     End Type
  18.     Global Item(1 To MaxItems) As ItemStruct
  19.  
  20.     '==> Number of items that can be displayed in the
  21.     '    table at one time. Depends on the Height
  22.     '    Property of the Label Control and the Font
  23.     '    that is used.
  24.     Global Const TableLen = 10
  25.  
  26.