home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0040 - 0049 / ibm0040-0049 / ibm0040.tar / ibm0040 / WINBASE2.ZIP / EXAMPLES.EXE / DEMO / INVENT.TXT < prev    next >
Encoding:
Text File  |  1991-08-07  |  5.9 KB  |  337 lines
  1. FORM INVENT   
  2.  
  3. COLOR 7 
  4. EXECUTE_MODE CONCURRENT 
  5. DDE_SERVER 
  6. AUTO_COMMMIT USE_DEFAULT 
  7.  
  8. QUERY INPUT INVENMAIN SELECT *
  9. FROM DEMO.INVENTORY 
  10. END_QUERY 
  11.  
  12. REPEATED 7 533 1859 933 
  13. QUERY_NAME INVENMAIN 
  14. HAS_BORDER 
  15.  
  16. ENTRY 514 23 2178 163 
  17. DATA_TYPE CHARACTER 
  18. QUERY_NAME INVENMAIN 
  19. TYPE EXPRESSION 
  20. EXPRESSION 'INVENTORY TRACKING' 
  21. JUSTIFICATION LEFT 
  22. COLOR 4 
  23. STYLE 5 
  24. FONT 22 Helv 
  25.  
  26. ENTRY 533 215 1489 299 
  27. DATA_TYPE CHARACTER 
  28. QUERY_NAME INVENMAIN 
  29. TYPE EXPRESSION 
  30. EXPRESSION 'Part numbers must begin with:' 
  31. JUSTIFICATION LEFT 
  32. COLOR 1 
  33. STYLE 1 
  34. FONT 17 Helv 
  35.  
  36. ENTRY 1498 218 1856 273 
  37. DATA_TYPE CHARACTER 
  38. QUERY_NAME INVENMAIN 
  39. TYPE EXPRESSION 
  40. EXPRESSION 'B=Body Parts' 
  41. JUSTIFICATION LEFT 
  42. COLOR 1 
  43. FONT 14 Helv 
  44.  
  45. ENTRY 1498 273 1856 328 
  46. DATA_TYPE CHARACTER 
  47. QUERY_NAME INVENMAIN 
  48. TYPE EXPRESSION 
  49. EXPRESSION 'E = Engine' 
  50. JUSTIFICATION LEFT 
  51. COLOR 1 
  52. FONT 14 Helv 
  53.  
  54. ENTRY 1495 332 1989 387 
  55. DATA_TYPE CHARACTER 
  56. QUERY_NAME INVENMAIN 
  57. TYPE EXPRESSION 
  58. EXPRESSION 'M = Miscellaneous' 
  59. JUSTIFICATION LEFT 
  60. COLOR 1 
  61. FONT 14 Helv 
  62.  
  63. ENTRY 26 445 299 517 
  64. DATA_TYPE CHARACTER 
  65. QUERY_NAME INVENMAIN 
  66. TYPE EXPRESSION 
  67. EXPRESSION 'Part Number' 
  68. JUSTIFICATION LEFT 
  69. COLOR 1 
  70. FONT 14 Helv 
  71.  
  72. ENTRY 315 445 637 517 
  73. DATA_TYPE CHARACTER 
  74. QUERY_NAME INVENMAIN 
  75. TYPE EXPRESSION 
  76. EXPRESSION 'Manufacturer' 
  77. JUSTIFICATION LEFT 
  78. COLOR 1 
  79. FONT 14 Helv 
  80.  
  81. ENTRY 650 445 1050 517 
  82. DATA_TYPE CHARACTER 
  83. QUERY_NAME INVENMAIN 
  84. TYPE EXPRESSION 
  85. EXPRESSION 'Prod Description' 
  86. JUSTIFICATION LEFT 
  87. COLOR 1 
  88. FONT 14 Helv 
  89.  
  90. ENTRY 1073 445 1248 517 
  91. DATA_TYPE CHARACTER 
  92. QUERY_NAME INVENMAIN 
  93. TYPE EXPRESSION 
  94. EXPRESSION 'Cost' 
  95. JUSTIFICATION LEFT 
  96. COLOR 1 
  97. FONT 14 Helv 
  98.  
  99. ENTRY 1271 445 1511 517 
  100. DATA_TYPE CHARACTER 
  101. QUERY_NAME INVENMAIN 
  102. TYPE EXPRESSION 
  103. EXPRESSION 'Price Each' 
  104. JUSTIFICATION LEFT 
  105. COLOR 1 
  106. FONT 14 Helv 
  107.  
  108. ENTRY 1567 449 1840 517 
  109. DATA_TYPE CHARACTER 
  110. QUERY_NAME INVENMAIN 
  111. TYPE EXPRESSION 
  112. EXPRESSION 'Inventory' 
  113. JUSTIFICATION LEFT 
  114. COLOR 1 
  115. FONT 12 Helv 
  116.  
  117. ENTRY 1498 393 1856 452 
  118. DATA_TYPE CHARACTER 
  119. QUERY_NAME INVENMAIN 
  120. TYPE EXPRESSION 
  121. EXPRESSION 'S=Suspension' 
  122. JUSTIFICATION LEFT 
  123. COLOR 1 
  124. FONT 14 Helv 
  125.  
  126. ENTRY 29 556 296 627 
  127. DATA_TYPE CHARACTER 
  128. QUERY_NAME INVENMAIN 
  129. DATABASE PART_NUM 
  130. TYPE INPUT 
  131. EXPRESSION PART_NUM 
  132. ENTRY_NUM 1 
  133. ENTERABLE TRUE 
  134. JUSTIFICATION LEFT 
  135. COLOR 4 
  136. FONT 10 Helv 
  137. ALLOW 15 
  138.  
  139. ENTRY 322 559 637 631 
  140. DATA_TYPE CHARACTER 
  141. QUERY_NAME INVENMAIN 
  142. DATABASE PROD_NAME 
  143. TYPE INPUT 
  144. EXPRESSION PROD_NAME 
  145. ENTRY_NUM 2 
  146. ENTERABLE TRUE 
  147. JUSTIFICATION LEFT 
  148. COLOR 4 
  149. FONT 10 Helv 
  150. ALLOW 15 
  151.  
  152. ENTRY 653 559 1014 631 
  153. DATA_TYPE CHARACTER 
  154. QUERY_NAME INVENMAIN 
  155. DATABASE PROD_DESC 
  156. TYPE INPUT 
  157. EXPRESSION PROD_DESC 
  158. ENTRY_NUM 3 
  159. ENTERABLE TRUE 
  160. JUSTIFICATION LEFT 
  161. COLOR 4 
  162. FONT 10 Helv 
  163. ALLOW 15 
  164.  
  165. ENTRY 1073 559 1225 631 
  166. DATA_TYPE DECIMAL 
  167. QUERY_NAME INVENMAIN 
  168. DATABASE U_COST 
  169. TYPE INPUT 
  170. EXPRESSION u_cost 
  171. ENTRY_NUM 4 
  172. ENTERABLE TRUE 
  173. JUSTIFICATION RIGHT 
  174. COLOR 4 
  175. FONT 10 Helv 
  176. SCALE 2 
  177. EXPO_START 13 
  178.  
  179. ENTRY 1570 559 1752 631 
  180. DATA_TYPE SMALL_INTEGER 
  181. QUERY_NAME INVENMAIN 
  182. TYPE EXPRESSION 
  183. EXPRESSION INVENTORY 
  184. CELL_NAME INV 
  185. JUSTIFICATION RIGHT 
  186. COLOR 4 
  187. FONT 10 Helv 
  188. EXPO_START 13 
  189.  
  190. ENTRY 1290 562 1472 627 
  191. DATA_TYPE DECIMAL 
  192. QUERY_NAME INVENMAIN 
  193. DATABASE U_PRICE 
  194. TYPE INPUT 
  195. EXPRESSION u_price 
  196. ENTRY_NUM 5 
  197. ENTERABLE TRUE 
  198. JUSTIFICATION RIGHT 
  199. COLOR 4 
  200. FONT 10 Helv 
  201. SCALE 2 
  202. EXPO_START 13 
  203.  
  204. ENTRY 75 962 624 1034 
  205. DATA_TYPE CHARACTER 
  206. QUERY_NAME INVENMAIN 
  207. TYPE EXPRESSION 
  208. EXPRESSION 'Full Description ' 
  209. JUSTIFICATION LEFT 
  210. COLOR 1 
  211. FONT 14 Helv 
  212.  
  213. ENTRY 640 962 1404 1034 
  214. DATA_TYPE CHARACTER 
  215. QUERY_NAME INVENMAIN 
  216. TYPE EXPRESSION 
  217. EXPRESSION concat('Record ',char(recordnum,0),' of ',char(numrecs,0),' Records') 
  218. JUSTIFICATION LEFT 
  219. COLOR 1 
  220. FONT 19 Tms Rmn 
  221.  
  222. ENTRY 1440 962 1973 1021 
  223. DATA_TYPE CHARACTER 
  224. QUERY_NAME INVENMAIN 
  225. TYPE EXPRESSION 
  226. EXPRESSION 'Inventory Control' 
  227. JUSTIFICATION LEFT 
  228. COLOR 1 
  229. FONT 12 Helv 
  230.  
  231. ENTRY 1440 1021 1645 1079 
  232. DATA_TYPE CHARACTER 
  233. QUERY_NAME INVENMAIN 
  234. TYPE EXPRESSION 
  235. EXPRESSION 'ADD' 
  236. JUSTIFICATION LEFT 
  237. COLOR 1 
  238. FONT 12 Helv 
  239.  
  240. ENTRY 1710 1021 2012 1082 
  241. DATA_TYPE CHARACTER 
  242. QUERY_NAME INVENMAIN 
  243. TYPE EXPRESSION 
  244. EXPRESSION 'SUBTRACT' 
  245. JUSTIFICATION LEFT 
  246. COLOR 1 
  247. FONT 12 Helv 
  248.  
  249. ENTRY 75 1063 1407 1138 
  250. DATA_TYPE MEMO 
  251. QUERY_NAME INVENMAIN 
  252. DATABASE FULL_DESC 
  253. TYPE INPUT 
  254. EXPRESSION full_desc 
  255. ENTRY_NUM 0 
  256. ENTERABLE TRUE 
  257. JUSTIFICATION LEFT 
  258. COLOR 4 
  259. FONT 12 Helv 
  260. ALLOW 0 
  261.  
  262. ENTRY 1440 1079 1645 1147 
  263. DATA_TYPE SMALL_INTEGER 
  264. QUERY_NAME INVENMAIN 
  265. TYPE INPUT 
  266. EXPRESSION nulli 
  267. CELL_NAME A 
  268. ENTRY_NUM 0 
  269. ENTERABLE TRUE 
  270. JUSTIFICATION RIGHT 
  271. EXPO_START 13 
  272.  
  273. ENTRY 1710 1082 1905 1147 
  274. DATA_TYPE SMALL_INTEGER 
  275. QUERY_NAME INVENMAIN 
  276. TYPE INPUT 
  277. EXPRESSION nulli 
  278. CELL_NAME S 
  279. ENTRY_NUM 0 
  280. ENTERABLE TRUE 
  281. JUSTIFICATION RIGHT 
  282. EXPO_START 13 
  283.  
  284. ENTRY 2230 1134 2678 1206 
  285. DATA_TYPE SMALL_INTEGER 
  286. QUERY_NAME INVENMAIN 
  287. DATABASE INVENTORY 
  288. TYPE EXPRESSION 
  289. EXPRESSION int(:inv+if(isnull(:a),0,(:a))-if(isnull(:s),0,(:s))) 
  290. CELL_NAME INVTOT 
  291. JUSTIFICATION RIGHT 
  292. EXPO_START 13 
  293.  
  294. ENTRY 1437 1164 1937 1225 
  295. DATA_TYPE CHARACTER 
  296. QUERY_NAME INVENMAIN 
  297. TYPE EXPRESSION 
  298. EXPRESSION 'New Inventory total' 
  299. JUSTIFICATION LEFT 
  300. COLOR 1 
  301. FONT 12 Helv 
  302.  
  303. ENTRY 1433 1225 1976 1287 
  304. DATA_TYPE CHARACTER 
  305. QUERY_NAME INVENMAIN 
  306. TYPE EXPRESSION 
  307. EXPRESSION 'Please Save if correct' 
  308. JUSTIFICATION LEFT 
  309. COLOR 1 
  310. FONT 12 Helv 
  311.  
  312. ENTRY 1440 1294 1651 1362 
  313. DATA_TYPE FLOAT 
  314. QUERY_NAME INVENMAIN 
  315. TYPE EXPRESSION 
  316. EXPRESSION if((:inv!=:invtot),:invtot,nulli) 
  317. JUSTIFICATION RIGHT 
  318. EXPO_START 13 
  319.  
  320. BUTTON 13 1248 410 1359 
  321. TYPE SAVE 
  322. TITLE Save Item 
  323.  
  324. BUTTON 429 1248 822 1362 
  325. QUERY_NAME INVENMAIN 
  326. TYPE NEW 
  327. TITLE New Item 
  328.  
  329. BUTTON 845 1248 1242 1362 
  330. QUERY_NAME INVENMAIN 
  331. TYPE DELETE 
  332. TITLE Delete Item 
  333.  
  334. SCROLL_BAR 1882 530 1947 939 
  335. QUERY_NAME INVENMAIN 
  336.  
  337.