home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0040 - 0049 / ibm0040-0049 / ibm0040.tar / ibm0040 / WINBASE2.ZIP / EXAMPLES.EXE / SORRENTO / CUSTETRY.TXT < prev    next >
Encoding:
Text File  |  1991-08-07  |  4.6 KB  |  269 lines
  1. FORM CUSTETRY 
  2.  
  3. COLOR 7 
  4. EXECUTE_MODE CONCURRENT 
  5. DDE_SERVER 
  6. AUTO_COMMMIT USE_DEFAULT 
  7.  
  8. QUERY INPUT CUSTENTRY SELECT *
  9. FROM  CUSTOMER   
  10. END_QUERY 
  11.  
  12. BITMAP 111 16 471 286 
  13. FILE C:\WINBASE\SORRENTO\SUPER.PCX 
  14.  
  15. BOX 1060 335 1771 527 
  16. TITLE Customer Id 
  17.  
  18. BOX 78 533 1216 988 
  19. TITLE Company Info 
  20.  
  21. BOX 1053 1076 1944 1268 
  22. TITLE Customer Name 
  23.  
  24. ENTRY 527 23 2184 150 
  25. DATA_TYPE CHARACTER 
  26. QUERY_NAME CUSTENTRY 
  27. TYPE EXPRESSION 
  28. EXPRESSION 'CUSTOMER ENTRY FORM' 
  29. JUSTIFICATION LEFT 
  30. COLOR 4 
  31. STYLE 5 
  32. FONT 32 Tms Rmn 
  33.  
  34. ENTRY 72 322 1034 397 
  35. DATA_TYPE CHARACTER 
  36. QUERY_NAME CUSTENTRY 
  37. TYPE EXPRESSION 
  38. EXPRESSION 'Use this form for new and updating' 
  39. JUSTIFICATION LEFT 
  40. COLOR 1 
  41. FONT 17 Tms Rmn 
  42.  
  43. ENTRY 1099 390 1700 449 
  44. DATA_TYPE CHARACTER 
  45. QUERY_NAME CUSTENTRY 
  46. TYPE EXPRESSION 
  47. EXPRESSION 'Customer Id Number' 
  48. JUSTIFICATION LEFT 
  49. COLOR 1 
  50.  
  51. ENTRY 72 397 1027 475 
  52. DATA_TYPE CHARACTER 
  53. QUERY_NAME CUSTENTRY 
  54. TYPE EXPRESSION 
  55. EXPRESSION 'Customer Information' 
  56. JUSTIFICATION LEFT 
  57. COLOR 1 
  58. FONT 17 Tms Rmn 
  59.  
  60. ENTRY 1099 462 1489 517 
  61. DATA_TYPE CHARACTER 
  62. QUERY_NAME CUSTENTRY 
  63. DATABASE CUST_ID 
  64. TYPE INPUT 
  65. EXPRESSION nullc 
  66. ENTRY_NUM 1 
  67. ENTERABLE TRUE 
  68. SEARCHABLE SORRENTO.CUSTOMER CUST_ID 
  69. ZOOM_FORM custzm 
  70. JUSTIFICATION LEFT 
  71. COLOR 4 
  72. ALLOW 15 
  73.  
  74. ENTRY 120 575 439 634 
  75. DATA_TYPE CHARACTER 
  76. QUERY_NAME CUSTENTRY 
  77. TYPE EXPRESSION 
  78. EXPRESSION 'Company' 
  79. JUSTIFICATION RIGHT 
  80. COLOR 1 
  81.  
  82. ENTRY 491 575 1141 634 
  83. DATA_TYPE CHARACTER 
  84. QUERY_NAME CUSTENTRY 
  85. DATABASE COMPANY 
  86. TYPE INPUT 
  87. EXPRESSION COMPANY 
  88. ENTRY_NUM 2 
  89. ENTERABLE TRUE 
  90. JUSTIFICATION LEFT 
  91. COLOR 4 
  92. ALLOW 15 
  93.  
  94. ENTRY 120 634 439 686 
  95. DATA_TYPE CHARACTER 
  96. QUERY_NAME CUSTENTRY 
  97. TYPE EXPRESSION 
  98. EXPRESSION 'Address 1' 
  99. JUSTIFICATION RIGHT 
  100. COLOR 1 
  101.  
  102. ENTRY 491 634 1141 689 
  103. DATA_TYPE CHARACTER 
  104. QUERY_NAME CUSTENTRY 
  105. DATABASE ADDR1 
  106. TYPE INPUT 
  107. EXPRESSION ADDR1 
  108. ENTRY_NUM 3 
  109. ENTERABLE TRUE 
  110. JUSTIFICATION LEFT 
  111. COLOR 4 
  112. ALLOW 15 
  113.  
  114. ENTRY 120 686 439 741 
  115. DATA_TYPE CHARACTER 
  116. QUERY_NAME CUSTENTRY 
  117. TYPE EXPRESSION 
  118. EXPRESSION 'City' 
  119. JUSTIFICATION RIGHT 
  120. COLOR 1 
  121.  
  122. ENTRY 491 689 1141 744 
  123. DATA_TYPE CHARACTER 
  124. QUERY_NAME CUSTENTRY 
  125. DATABASE CITY 
  126. TYPE INPUT 
  127. EXPRESSION CITY 
  128. ENTRY_NUM 4 
  129. ENTERABLE TRUE 
  130. JUSTIFICATION LEFT 
  131. COLOR 4 
  132. ALLOW 15 
  133.  
  134. ENTRY 120 741 439 800 
  135. DATA_TYPE CHARACTER 
  136. QUERY_NAME CUSTENTRY 
  137. TYPE EXPRESSION 
  138. EXPRESSION 'State' 
  139. JUSTIFICATION RIGHT 
  140. COLOR 1 
  141.  
  142. ENTRY 491 744 1141 806 
  143. DATA_TYPE CHARACTER 
  144. QUERY_NAME CUSTENTRY 
  145. DATABASE STATE 
  146. TYPE INPUT 
  147. EXPRESSION STATE 
  148. ENTRY_NUM 5 
  149. ENTERABLE TRUE 
  150. JUSTIFICATION LEFT 
  151. COLOR 4 
  152. ALLOW 15 
  153.  
  154. ENTRY 120 800 439 861 
  155. DATA_TYPE CHARACTER 
  156. QUERY_NAME CUSTENTRY 
  157. TYPE EXPRESSION 
  158. EXPRESSION 'Zip' 
  159. JUSTIFICATION RIGHT 
  160. COLOR 1 
  161.  
  162. ENTRY 491 806 1141 865 
  163. DATA_TYPE CHARACTER 
  164. QUERY_NAME CUSTENTRY 
  165. DATABASE ZIP 
  166. TYPE INPUT 
  167. EXPRESSION ZIP 
  168. ENTRY_NUM 6 
  169. ENTERABLE TRUE 
  170. JUSTIFICATION LEFT 
  171. COLOR 4 
  172. ALLOW 15 
  173.  
  174. ENTRY 120 861 439 920 
  175. DATA_TYPE CHARACTER 
  176. QUERY_NAME CUSTENTRY 
  177. TYPE EXPRESSION 
  178. EXPRESSION 'Phone' 
  179. JUSTIFICATION RIGHT 
  180. COLOR 1 
  181.  
  182. ENTRY 491 865 1141 926 
  183. DATA_TYPE CHARACTER 
  184. QUERY_NAME CUSTENTRY 
  185. DATABASE PHONE 
  186. TYPE INPUT 
  187. EXPRESSION PHONE 
  188. ENTRY_NUM 7 
  189. ENTERABLE TRUE 
  190. JUSTIFICATION LEFT 
  191. COLOR 4 
  192. ALLOW 15 
  193. FORMAT (___)___-____ 
  194.  
  195. ENTRY 237 1076 874 1147 
  196. DATA_TYPE CHARACTER 
  197. QUERY_NAME CUSTENTRY 
  198. TYPE EXPRESSION 
  199. EXPRESSION concat('Record ',char(recordnum,0),' of ',char(numrecs,0),' Records') 
  200. JUSTIFICATION LEFT 
  201. COLOR 1 
  202. FONT 19 Tms Rmn 
  203.  
  204. ENTRY 1086 1115 1414 1173 
  205. DATA_TYPE CHARACTER 
  206. QUERY_NAME CUSTENTRY 
  207. TYPE EXPRESSION 
  208. EXPRESSION 'First Name' 
  209. JUSTIFICATION RIGHT 
  210. COLOR 1 
  211.  
  212. ENTRY 1437 1118 1895 1177 
  213. DATA_TYPE CHARACTER 
  214. QUERY_NAME CUSTENTRY 
  215. DATABASE FNAME 
  216. TYPE INPUT 
  217. EXPRESSION FNAME 
  218. ENTRY_NUM 8 
  219. ENTERABLE TRUE 
  220. JUSTIFICATION LEFT 
  221. COLOR 4 
  222. ALLOW 15 
  223.  
  224. ENTRY 1086 1173 1414 1235 
  225. DATA_TYPE CHARACTER 
  226. QUERY_NAME CUSTENTRY 
  227. TYPE EXPRESSION 
  228. EXPRESSION 'Last Name' 
  229. JUSTIFICATION RIGHT 
  230. COLOR 1 
  231.  
  232. ENTRY 1437 1177 1895 1238 
  233. DATA_TYPE CHARACTER 
  234. QUERY_NAME CUSTENTRY 
  235. DATABASE LNAME 
  236. TYPE INPUT 
  237. EXPRESSION LNAME 
  238. ENTRY_NUM 9 
  239. ENTERABLE TRUE 
  240. JUSTIFICATION LEFT 
  241. COLOR 4 
  242. ALLOW 15 
  243.  
  244. BUTTON 1443 244 1762 322 
  245. TYPE SEARCH 
  246. TITLE Search... 
  247.  
  248. BUTTON 1459 543 1895 631 
  249. QUERY_NAME CUSTENTRY 
  250. TYPE NEW 
  251. TITLE New Record 
  252.  
  253. BUTTON 1459 676 1901 764 
  254. QUERY_NAME CUSTENTRY 
  255. TYPE DELETE 
  256. TITLE Delete Record 
  257.  
  258. BUTTON 1459 806 1901 897 
  259. TYPE UNDO 
  260. TITLE ROLL BACK 
  261.  
  262. BUTTON 1459 946 1895 1030 
  263. TYPE SAVE 
  264. TITLE COMMIT 
  265.  
  266. SCROLL_BAR 1310 536 1411 1034 
  267. QUERY_NAME CUSTENTRY 
  268.  
  269.