home *** CD-ROM | disk | FTP | other *** search
/ DOS Wares / doswares.zip / doswares / DATABASE / DBASE5 / CUA_SAMP.ZIP / CUST.DFM < prev    next >
Encoding:
Text File  |  1994-06-24  |  5.2 KB  |  233 lines
  1. *
  2. * Define Form Here
  3. *
  4. DEFINE FORM Cust1 FROM 2,2 TO 21,74 ;
  5.     PROPERTY ;
  6.         Text "CUSTOMER",;
  7.         OnOpen OpenCust,;
  8.         OnClose CloseCust,;
  9.         OnGotFocus RePaint
  10. *
  11. * New Define EntryFields and Define Text Statements
  12. *
  13. DEFINE RECTANGLE Box OF Cust1 ;
  14.     PROPERTY;
  15.         TOP 0,;
  16.         Left 1,;
  17.         width 68,;
  18.         Height 9
  19.  
  20. DEFINE RECTANGLE Box2 OF Cust1 ;
  21.     PROPERTY;
  22.         TOP 9,;
  23.         Left 1,;
  24.         width 68,;
  25.         Height 7
  26.  
  27. *
  28. * Define Text and Data entry
  29. *
  30. DEFINE TEXT idnum OF Cust1 AT 1, 4 ;
  31.     PROPERTY ;
  32.         TEXT "CUSTOMER NO:"
  33.  
  34. DEFINE ENTRYFIELD custid OF Cust1 At 1,18 ;
  35.     PROPERTY ;
  36.         DATALINK "Cust->Cust_Id",;
  37.         VALID "DupCheck",;
  38.         VALIDREQUIRED .T. ,;
  39.         WIDTH 6
  40.  
  41. DEFINE TEXT nam OF Cust1 AT 2, 4 ;
  42.     PROPERTY ;
  43.         TEXT "NAME:"
  44.  
  45. DEFINE ENTRYFIELD cstmer OF Cust1 AT 2,18 ;
  46.     PROPERTY ;
  47.         DATALINK "Cust->Customer",;
  48.         Width 30,;
  49.         STATUSMESSAGE "Enter name of customer"
  50.  
  51. DEFINE TEXT addr OF Cust1 AT 3, 4 ;
  52.     PROPERTY ;
  53.         TEXT "ADDRESS:"
  54.  
  55. DEFINE ENTRYFIELD Add1 OF Cust1 AT 3,18 ;
  56.     PROPERTY ;
  57.         WIDTH 30,;
  58.         DATALINK "Cust->Address1"
  59.  
  60. DEFINE ENTRYFIELD Add2 OF Cust1 AT 4,18 ;
  61.     PROPERTY ;
  62.         WIDTH 30,;
  63.         DATALINK "Cust->Address2"
  64.  
  65. DEFINE TEXT cit OF Cust1 AT 5, 4 ;
  66.     PROPERTY ;
  67.         TEXT "CITY:"
  68.  
  69. DEFINE ENTRYFIELD City OF Cust1 AT 5,18 ;
  70.     PROPERTY ;
  71.         DATALINK "Cust->City" ,;
  72.         PICTURE "!XXXXXXXXXXXXX"
  73.  
  74. DEFINE TEXT st OF Cust1 AT 5, 32 ;
  75.     PROPERTY ;
  76.         TEXT "STATE:"
  77.  
  78. DEFINE ENTRYFIELD state OF Cust1 AT 5,39 ;
  79.     PROPERTY ;
  80.         PICTURE  "!!",;
  81.         DATALINK "Cust->state",;
  82.         WIDTH 2
  83.  
  84. DEFINE TEXT zp OF Cust1 AT 5, 42 ;
  85.     PROPERTY ;
  86.         TEXT "ZIP:"
  87.  
  88. DEFINE ENTRYFIELD zip OF Cust1 AT 5,46 ;
  89.     PROPERTY ;
  90.         DATALINK "Cust->Zip",;
  91.         WIDTH 5
  92.  
  93. DEFINE TEXT pn OF Cust1 AT 6, 4 ;
  94.     PROPERTY ;
  95.         TEXT "PHONE:"
  96.  
  97. DEFINE ENTRYFIELD phone OF Cust1 AT 6,18 ;
  98.     PROPERTY ;
  99.         PICTURE  "(999)999-9999",;
  100.         WIDTH 15,;
  101.         DATALINK "Cust->Phone"
  102.  
  103. DEFINE TEXT cat OF Cust1 AT 7, 4 ;
  104.     PROPERTY ;
  105.         TEXT "CATEGORY:",;
  106.         COLORNORMAL "B/W",;
  107.         WIDTH 15
  108.  
  109. DEFINE COMBOBOX cCatgry OF Cust1 AT 7,18 ;
  110.     PROPERTY ;
  111.         DATALINK "Cust->Category",;
  112.         DATASOURCE "STRING ARCHITECTS,CONSULTANTS,LEGAL,CONTRACTORS" ,;
  113.         WIDTH 20
  114.  
  115. DEFINE TEXT cn OF Cust1 AT 10, 4 ;
  116.     PROPERTY ;
  117.         TEXT "CONTACT:"
  118.  
  119. DEFINE ENTRYFIELD cont OF Cust1 AT 10,18 ;
  120.     PROPERTY ;
  121.         Width 20,;
  122.         DATALINK "Cust->Contact",;
  123.         STATUSMESSAGE "Enter name of contact"
  124.  
  125. DEFINE TEXT phn OF Cust1 AT 11, 4 ;
  126.     PROPERTY ;
  127.         TEXT "PHONE:"
  128.  
  129. DEFINE ENTRYFIELD Phone2 OF Cust1 AT 11,18 ;
  130.     PROPERTY ;
  131.         Width 15,;
  132.         DATALINK "Cust->phone_cont",;
  133.         PICTURE "(999)999-9999"
  134.  
  135. DEFINE TEXT ext OF Cust1 AT 11, 32 ;
  136.     PROPERTY ;
  137.         TEXT "EXTENSION:"
  138.  
  139. DEFINE ENTRYFIELD phext OF Cust1 AT 11,42 ;
  140.     PROPERTY ;
  141.         DATALINK "Cust->phone_ext",;
  142.         PICTURE "9999" ,;
  143.         WIDTH 4,;
  144.         STATUSMESSAGE "Enter phone extension"
  145.  
  146. DEFINE TEXT last OF Cust1 AT 12, 4 ;
  147.     PROPERTY ;
  148.         TEXT "LAST DATE:"
  149.  
  150. DEFINE ENTRYFIELD lastd OF Cust1 AT 12,18 ;
  151.     PROPERTY ;
  152.         DATALINK "Cust->date_last",;
  153.         StatusMESSAGE "Enter date that customer was last contacted"
  154.         * FUNCTION "D"
  155.  
  156. DEFINE TEXT trms OF Cust1 AT 13, 4 ;
  157.     PROPERTY ;
  158.         TEXT "TERMS:",;
  159.         COLORNORMAL "B/W"
  160.  
  161. DEFINE COMBOBOX cTerms OF Cust1 AT 13,18 ;
  162.     PROPERTY ;
  163.         DATALINK "Cust->Terms",;
  164.         DATASOURCE "STRING NET15,NET30,NET45",;
  165.         WIDTH 15
  166.  
  167.  
  168. DEFINE TEXT comm OF Cust1 AT 14, 4 ;
  169.     PROPERTY ;
  170.         TEXT "COMMENT:"
  171.  
  172. DEFINE ENTRYFIELD comments OF Cust1 AT 14,18 ;
  173.     PROPERTY ;
  174.         DATALINK "Cust->Comments" ,;
  175.         WIDTH 20
  176.  
  177. *
  178. *  Add a Text String for Status marking on form
  179. *
  180. DEFINE TEXT cStatus OF Cust1 AT 1,60 ;
  181.     PROPERTY;
  182.         Text ""
  183.  
  184. *
  185. * add the buttons to this form,
  186. *
  187.  
  188. DEFINE PUSHBUTTON Add OF Cust1 AT 16,4 ;
  189.     PROPERTY ;
  190.         Text "A&dd",;
  191.         COLORPICKNORMAL "R/G",;
  192.         WIDTH 10,;
  193.         OnClick "Add_new"
  194.  
  195. DEFINE PUSHBUTTON Del1 OF Cust1 AT 16,14 ;
  196.     PROPERTY ;
  197.         Text "De&l",;
  198.         COLORPICKNORMAL "R/G",;
  199.         WIDTH 10,;
  200.         OnClick "DelIt"
  201.  
  202. DEFINE PUSHBUTTON Next1 OF Cust1 AT 16,24;
  203.     PROPERTY ;
  204.         Text "&Next" ,;
  205.         COLORPICKNORMAL "R/G",;
  206.         WIDTH 10 ,;
  207.         OnClick "SkipHand"
  208.  
  209. * DSV changed hot key to avoid conflict
  210. DEFINE PUSHBUTTON Prev1 OF Cust1 AT 16,34 ;
  211.     PROPERTY ;
  212.         Text "&Prev"  ,;
  213.         COLORPICKNORMAL "R/G",;
  214.         Width 10,;
  215.         OnClick "PrevHand"
  216.  
  217. DEFINE PUSHBUTTON Print1 OF Cust1 AT 16,44 ;
  218.     PROPERTY ;
  219.         Text "P&rint",;
  220.         COLORPICKNORMAL "R/G",;
  221.         Width 10,;
  222.         OnClick "PrintForm"
  223.  
  224. DEFINE PUSHBUTTON Exit1 OF Cust1 AT 16,54 ;
  225.     PROPERTY ;
  226.         Text "E&xit",;
  227.         COLORPICKNORMAL "R/G",;
  228.         Width 10,;
  229.         OnClick "CanHand"
  230.  
  231.  
  232. ******************************  END OF CUST.DFM ****************************
  233.