home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l196 / 2.ddi / ISAMDEMO.BI$ / ISAMDEMO.bin
Encoding:
Text File  |  1990-06-24  |  5.8 KB  |  145 lines
  1. '       ISAMDEMO.BI  - isamdemo include file
  2.  
  3. '$INCLUDE: 'general.bi'
  4. '$INCLUDE: 'mouse.bi'
  5. '$INCLUDE: 'menu.bi'
  6. '$INCLUDE: 'window.bi'
  7. '$INCLUDE: 'format.bi'
  8.  
  9. 'menu bar title locations
  10. CONST FILETITLE = 1
  11. CONST TRANSTITLE = 2
  12. CONST CUSTTITLE = 3
  13. CONST INVTITLE = 4
  14.  
  15. CONST OK = 1
  16. CONST CANCEL = 2
  17.  
  18. 'customer record type for ISAM table
  19. TYPE CustRecord
  20.     AcctNo          AS STRING * 5                   'account number
  21.     Company         AS STRING * 70                  'company name
  22.     Street          AS STRING * 70                  'street address
  23.     City            AS STRING * 70                  'city name
  24.     state           AS STRING * 2                   'state name
  25.     Zip             AS STRING * 5                   'zip code
  26.     Phone1          AS STRING * 14                  'phone number
  27.     Phone2          AS STRING * 14                  'second phone number
  28.     Contact         AS STRING * 70                  'contact name
  29.     Opened          AS STRING * 6                   'date account opened
  30. END TYPE
  31.  
  32. 'inventory record type for ISAM table
  33. TYPE InventRecord
  34.     ItemNo          AS STRING * 5                   'item number
  35.     Descrip         AS STRING * 70                  'description
  36.     Cost            AS CURRENCY                     'item cost
  37.     Retail          AS CURRENCY                     'retail price
  38.     stock           AS INTEGER                      'current stock
  39.     Vendor          AS STRING * 70                  'vendor
  40. END TYPE
  41.  
  42. 'invoice record type for ISAM table
  43. TYPE InvoiceRecord
  44.     InvoiceNo       AS STRING * 6                   'invoice number
  45.     Date            AS STRING * 6                   'invoice date
  46.     AcctNo          AS STRING * 5                   'account number
  47.     TaxRate         AS DOUBLE                       'tax rate
  48.     Total           AS CURRENCY                     'invoice total
  49. END TYPE
  50.  
  51. 'transaction record type for ISAM table
  52. TYPE TransRecord
  53.     TransNo         AS INTEGER                      'transaction number
  54.     InvoiceNo       AS STRING * 6                   'invoice number
  55.     ItemNo          AS STRING * 5                   'item number
  56.     Quantity        AS INTEGER                      'quantity ordered
  57.     Price           AS CURRENCY                     'price
  58. END TYPE
  59.  
  60. 'structure  for creating list box
  61. TYPE ListBox
  62.     bLen            AS INTEGER                      'box length
  63.     bWid            AS INTEGER                      'box width
  64.     maxLen          AS INTEGER                      'max display length
  65.     listLen         AS INTEGER                      'list length
  66.     curPos          AS INTEGER                      'current box position
  67.     curTop          AS INTEGER                      'current top list item
  68.     sBut            AS INTEGER                      'scroll button
  69.     aBut            AS INTEGER                      'area button
  70.     topRow          AS INTEGER                      'top row of box
  71.     leftCol         AS INTEGER                      'left column of box
  72.     listPos         AS INTEGER                      'actual list position
  73. END TYPE
  74.  
  75. ' functions
  76. DECLARE FUNCTION GetBoundaries% (handle%, func%)
  77. DECLARE FUNCTION GetFileCount% (fileSpec$)
  78. DECLARE FUNCTION Max% (num1%, num2%)
  79. DECLARE FUNCTION Min% (num1%, num2%)
  80. DECLARE FUNCTION NextRecord% (TableNum%, key1$, origkey1$, lastkey1$, key2$, origkey2$, lastkey2$)
  81. DECLARE FUNCTION TotalInvoice% ()
  82.  
  83. ' subs
  84. DECLARE SUB DispInveWin (handle%)
  85. DECLARE SUB DispInvoWin (handle%)
  86. DECLARE SUB DispCustWin (handle%)
  87. DECLARE SUB Quit ()
  88. DECLARE SUB CreateListBox (text$(), tbox AS ANY, func%)
  89. DECLARE SUB ScrollList (text$(), tbox AS ANY, status%, func%, winRow%, winCol%)
  90. DECLARE SUB GetNextInvoice ()
  91. DECLARE SUB DrawList (text$(), tbox AS ANY, listtype%, oldbox AS ANY)
  92. DECLARE SUB PrintError (text$)
  93. DECLARE SUB ShowError (errorNum%)
  94. DECLARE SUB RunCustRec (handle%)
  95. DECLARE SUB RunInventRec (handle%)
  96. DECLARE SUB RunInvoice (handle%)
  97. DECLARE SUB RunList (handle%, func%)
  98. DECLARE SUB ClearCustRecord ()
  99. DECLARE SUB ClearInveRecord ()
  100. DECLARE SUB ClearInvoRecord ()
  101. DECLARE SUB ClearTranRecord ()
  102. DECLARE SUB InitAll ()
  103. DECLARE SUB UpdateInventory (ItemNo AS STRING, Quantity%)
  104. DECLARE SUB CreateCInvList (text$(), cBox AS ANY, oBox AS ANY, barpos%)
  105. DECLARE SUB CreateCustList (text$(), cBox AS ANY, oBox AS ANY, barpos%)
  106. DECLARE SUB CreateIndexes ()
  107. DECLARE SUB CreateInveList (text$(), cBox AS ANY, oBox AS ANY, barpos%)
  108. DECLARE SUB CreateInvoList (text$(), cBox AS ANY, oBox AS ANY, barpos%)
  109. DECLARE SUB CreateTranList (text$(), cBox AS ANY)
  110. DECLARE SUB NewDB ()
  111. DECLARE SUB OpenDB ()
  112.  
  113. 'necessary declarations for using toolboxes
  114. COMMON SHARED /uitools/ GloMenu           AS MenuMiscType
  115. COMMON SHARED /uitools/ GloTitle()        AS MenuTitleType
  116. COMMON SHARED /uitools/ GloItem()         AS MenuItemType
  117. COMMON SHARED /uitools/ GloWindow()       AS windowType
  118. COMMON SHARED /uitools/ GloButton()       AS buttonType
  119. COMMON SHARED /uitools/ GloEdit()         AS EditFieldType
  120. COMMON SHARED /uitools/ GloStorage        AS WindowStorageType
  121. COMMON SHARED /uitools/ GloWindowStack()  AS INTEGER
  122. COMMON SHARED /uitools/ GloBuffer$()
  123.  
  124. 'isam table numbers
  125. COMMON SHARED /isamdemo/ CustTabNum       AS INTEGER
  126. COMMON SHARED /isamdemo/ InveTabNum       AS INTEGER
  127. COMMON SHARED /isamdemo/ InvoTabNum       AS INTEGER
  128. COMMON SHARED /isamdemo/ TranTabNum       AS INTEGER
  129. 'dialog level
  130. COMMON SHARED /isamdemo/ level            AS INTEGER
  131. 'table lists boundaries
  132. COMMON SHARED /isamdemo/ Bound1$
  133. COMMON SHARED /isamdemo/ Bound2$
  134. 'table records
  135. COMMON SHARED /isamdemo/ CustRec          AS CustRecord
  136. COMMON SHARED /isamdemo/ InventRec        AS InventRecord
  137. COMMON SHARED /isamdemo/ InvoiceRec       AS InvoiceRecord
  138. COMMON SHARED /isamdemo/ TransRec         AS TransRecord
  139. 'isam file
  140. COMMON SHARED /isamdemo/ ISAMfile$
  141. COMMON /isamdemo/ finished                AS INTEGER
  142. COMMON SHARED /isamdemo/ origdir$
  143.  
  144.  
  145.