home *** CD-ROM | disk | FTP | other *** search
/ DOS Wares / doswares.zip / doswares / DATABASE / DBASE5 / CUA_SAMP.ZIP / ORDERS.DFM < prev    next >
Encoding:
Text File  |  1994-06-24  |  4.6 KB  |  231 lines
  1. *
  2. * Define Form
  3. *
  4.  
  5. DEFINE FORM Ord FROM 2,2 TO 21,74 ;
  6.     PROPERTY ;
  7.         Text "ORDERS",;
  8.         OnOpen OpenOrd,;
  9.         OnClose CloseOrd,;
  10.         OnGotFocus Repaint
  11. *
  12. * New Define EntryFields and Define Text Statements
  13. *
  14. DEFINE RECTANGLE Box OF Ord ;
  15.     PROPERTY;
  16.         TOP 0,;
  17.         Left 1,;
  18.         Width 68,;
  19.         Height 7
  20.  
  21. DEFINE RECTANGLE Box2 OF Ord ;
  22.     PROPERTY;
  23.         TOP 7,;
  24.         Left 1,;
  25.         width 68,;
  26.         Height 9
  27.  
  28. DEFINE TEXT id OF Ord AT 2,4 ;
  29.     PROPERTY ;
  30.         Text "CUST ID:"
  31.  
  32. DEFINE ENTRYFIELD cust_id OF Ord AT 2,18 ;
  33.     PROPERTY ;
  34.         PICTURE  "!99999",;
  35.         WIDTH 7 ,;
  36.         DATALINK "Orders->Cust_Id" ,;
  37.         VALID "Lookupid" ,;
  38.         VALIDREQUIRED .T.
  39.     *CUSTOM PROPERTY*
  40.         Ord.Cust_id.AliasName = "ORDCUST"   && Custom Property
  41.  
  42. DEFINE TEXT or1 OF Ord AT 3,4 ;
  43.     PROPERTY ;
  44.         Text "ORDER DATE:"
  45.  
  46. DEFINE ENTRYFIELD date_trans OF Ord AT 3,18 ;
  47.     PROPERTY ;
  48.         DATALINK "Orders->date_Trans",;
  49.         STATUSMESSAGE "Enter date of this order"
  50.  
  51. DEFINE TEXT poNum OF Ord AT 3,35 ;
  52.     PROPERTY ;
  53.         Text "P.O. NUMBER:"
  54.  
  55. DEFINE ENTRYFIELD po_number OF Ord AT 3,48 ;
  56.     PROPERTY ;
  57.         DATALINK "Orders->po_number" ,;
  58.         WIDTH 5,;
  59.         STATUSMESSAGE "Enter customer's P.O. number"
  60.  
  61. DEFINE TEXT prtNum OF Ord AT 8,4 ;
  62.     PROPERTY ;
  63.         Text "PART #:"
  64.  
  65. DEFINE ENTRYFIELD part_id OF Ord AT 8,18 ;
  66.     PROPERTY ;
  67.         DATALINK "Orders->part_id",;
  68.         WIDTH 10  ,;
  69.         PICTURE "!-999-9999" ,;
  70.         VALID "Lookupid",;
  71.         STATUSMESSAGE "Enter a part ID number "
  72.     *CUSTOM PROPERTY*
  73.         Ord.Part_id.ALIASNAME="ORDGOODS"   && Custom Property I made up
  74.  
  75. * Read only text, From Relation
  76. DEFINE TEXT pname OF Ord AT 8,30 ;
  77.     PROPERTY ;
  78.         TEXT "",;
  79.         COLORNORMAL "BR/W",;
  80.         WIDTH 30
  81.  
  82. DEFINE TEXT qty1 OF Ord AT 9, 4 ;
  83.     PROPERTY ;
  84.         Text "QTY. ORDERED:"
  85.  
  86. DEFINE SPINBOX part_qty OF Ord AT 9,18 ;
  87.     PROPERTY ;
  88.         PICTURE "999" ,;
  89.         DATALINK "Orders->Part_qty",;
  90.         WIDTH 6,;
  91.         RANGEMIN 1,;
  92.         RANGEMAX 999 ,;
  93.         STATUSMESSAGE "Enter quantity of parts ordered"
  94.  
  95. DEFINE TEXT ea OF Ord AT 9,28 ;
  96.     PROPERTY ;
  97.         Text "each"
  98.  
  99. DEFINE TEXT pric OF Ord AT 9,37;
  100.     PROPERTY ;
  101.         Text "PRICE: $"
  102.  
  103. DEFINE TEXT Price OF Ord AT 9,47 ;
  104.     PROPERTY ;
  105.         TEXT "" ,;
  106.         COLORNORMAL "BR/W"
  107.  
  108. DEFINE TEXT qt1avail OF Ord AT 10,4 ;
  109.     PROPERTY ;
  110.         Text "QTY. AVAILABLE:"
  111.  
  112. DEFINE TEXT Qtyhand OF ORD AT 10,20 ;
  113.     PROPERTY ;
  114.         TEXT "" ,;
  115.         COLORNORMAL "BR/W",;
  116.         WIDTH 3
  117.  
  118. DEFINE TEXT ea1 OF Ord AT 10,28 ;
  119.     PROPERTY ;
  120.         Text "each"
  121.  
  122. DEFINE TEXT mar OF Ord AT 10,37 ;
  123.     PROPERTY ;
  124.         Text "MARGIN:"
  125.  
  126. DEFINE TEXT Profmgn OF Ord AT 10,47 ;
  127.        PROPERTY ;
  128.         TEXT "",;
  129.         COLORNORMAL "BR/W"
  130.  
  131. DEFINE TEXT per OF Ord AT 10,53 ;
  132.     PROPERTY ;
  133.         Text "%"
  134.  
  135. DEFINE TEXT Emp1 OF Ord AT 11, 4 ;
  136.     PROPERTY ;
  137.         Text "EMPLOYEE #:"
  138.  
  139. DEFINE ENTRYFIELD Emp_id OF Ord AT 11,18 ;
  140.     PROPERTY ;
  141.         PICTURE "999-99-9999" ,;
  142.         DATALINK "Orders->Emp_Id" ,;
  143.         VALID "Lookupid",;
  144.         VALIDREQUIRED .T. ,;
  145.         STATUSMESSAGE "Enter an Employee ID number "
  146.  
  147.     *CUSTOM PROPERTY*
  148.         Ord.Emp_Id.ALIASNAME="ORDEMP"  && Custom property I made up
  149.  
  150. DEFINE TEXT EmpName OF Ord AT 11,31 ;
  151.     PROPERTY ;
  152.         TEXT "",;
  153.         COLORNORMAL "BR/W",;
  154.         WIDTH 30
  155.  
  156. DEFINE CHECKBOX invoiced OF Ord AT 12,3;
  157.     PROPERTY ;
  158.         TEXT "&INVOICED",;
  159.         COLORNORMAL "R/W",;
  160.         WIDTH 15 ,;
  161.         DATALINK "Orders->invoiced",;
  162.         COLORNORMAL "B/W",;
  163.         STATUSMESSAGE "Check if order has been invoiced ..."
  164.  
  165. DEFINE TEXT not1 OF Ord AT 13, 4 ;
  166.     PROPERTY ;
  167.         Text "NOTES:"
  168.  
  169. DEFINE ENTRYFIELD Notes OF Ord AT 13,18 ;
  170.        PROPERTY ;
  171.         DATALINK "Orders->Notes",;
  172.         STATUSMESSAGE "Enter notes into memo field, press " + ;
  173.         "Ctrl-Home to enter (Ctrl-End to exit)"
  174.  
  175. *
  176. *  Add a Text String for Status marking on form
  177. *
  178.  
  179. DEFINE TEXT cStatus OF Ord AT 1,60 ;
  180. PROPERTY;
  181.     Text ""
  182.  
  183. *
  184. * add the buttons to this form,
  185. *
  186.  
  187. DEFINE PUSHBUTTON Add OF Ord AT 16,4 ;
  188.     PROPERTY ;
  189.         Text "A&dd",;
  190.         COLORPICKNORMAL "R/G",;
  191.         WIDTH 10,;
  192.         OnClick "Add_new"
  193.  
  194. DEFINE PUSHBUTTON Del1 OF Ord AT 16,14 ;
  195.     PROPERTY ;
  196.         Text "De&l",;
  197.         COLORPICKNORMAL "R/G",;
  198.         WIDTH 10,;
  199.         OnClick "DelIt"
  200.  
  201. DEFINE PUSHBUTTON Next1 OF Ord AT 16,24;
  202.     PROPERTY ;
  203.         Text "&Next" ,;
  204.         COLORPICKNORMAL "R/G",;
  205.         WIDTH 10 ,;
  206.         OnClick "SkipHand"
  207.  
  208. DEFINE PUSHBUTTON Prev1 OF Ord AT 16,34 ;
  209.     PROPERTY ;
  210.         Text "&Prev"  ,;
  211.         COLORPICKNORMAL "R/G",;
  212.         Width 10,;
  213.         OnClick "PrevHand"
  214.  
  215. DEFINE PUSHBUTTON Print1 OF Ord AT 16,44 ;
  216.     PROPERTY ;
  217.         Text "P&rint",;
  218.         COLORPICKNORMAL "R/G",;
  219.         Width 10,;
  220.         OnClick "PrintForm"
  221.  
  222. DEFINE PUSHBUTTON Exit1 OF Ord AT 16,54 ;
  223.     PROPERTY ;
  224.         Text "E&xit",;
  225.         COLORPICKNORMAL "R/G",;
  226.         Width 10,;
  227.         OnClick "CanHand"
  228.  
  229.  
  230. ************************************ END OF ORDERS.DFM *********************
  231.