home *** CD-ROM | disk | FTP | other *** search
/ DOS Wares / doswares.zip / doswares / DATABASE / DBASE5 / CUA_SAMP.ZIP / VENDORS.DFM < prev    next >
Encoding:
Text File  |  1994-06-24  |  4.9 KB  |  223 lines
  1. *
  2. * Define the Form
  3. *
  4. DEFINE FORM vend FROM 2,2 TO 21,74 ;
  5.     PROPERTY ;
  6.         Text "VENDORS",;
  7.         OnOpen OpenVend,;
  8.         OnClose CloseVend,;
  9.         OnGotFocus Repaint
  10. *
  11. * New Define EntryFields and Define Text Statements
  12. *
  13. DEFINE RECTANGLE Box OF Vend ;
  14.     PROPERTY;
  15.         TOP 0,;
  16.         Left 1,;
  17.         width 68,;
  18.         Height 7
  19.  
  20. DEFINE RECTANGLE Box2 OF Vend ;
  21.     PROPERTY;
  22.         TOP 7,;
  23.         Left 1,;
  24.         width 68,;
  25.         Height 9
  26. *
  27. *Define the fields and text
  28. *
  29.   DEFINE TEXT vnum OF Vend AT 1,6 ;
  30.       PROPERTY ;
  31.           TEXT "VENDOR #:"
  32.  
  33.    DEFINE ENTRYFIELD vendorid OF Vend AT 1,15 ;
  34.        PROPERTY ;
  35.            PICTURE  "9999" , ;
  36.            DATALINK "Vendors->Vendor_id",;
  37.            WIDTH 4,;
  38.            VALID "DupCheck",;
  39.            STATUSMESSAGE "Enter a four digit vendor ID number, or Esc to quit"
  40.  
  41.  DEFINE TEXT vname OF Vend AT 2,6 ;
  42.      PROPERTY ;
  43.          TEXT "NAME:"
  44.  
  45.  DEFINE ENTRYFIELD vendor OF Vend AT 2,15 ;
  46.      PROPERTY ;
  47.          DATALINK "Vendors->Vendor",;
  48.          WIDTH 30,;
  49.          STATUSMESSAGE "Enter vendor name"
  50.  
  51. DEFINE TEXT vadd OF Vend AT 3,6 ;
  52.     PROPERTY ;
  53.         TEXT "ADDRESS:"
  54.  
  55. DEFINE ENTRYFIELD add1 OF Vend AT 3,15 ;
  56.     PROPERTY ;
  57.         DATALINK "Vendors->Address1",;
  58.         WIDTH 30
  59.  
  60. DEFINE ENTRYFIELD add2 OF Vend AT 4,15 ;
  61.     PROPERTY ;
  62.         DATALINK "Vendors->Address2",;
  63.         WIDTH 30
  64.  
  65. DEFINE TEXT vcity OF Vend AT 5,6 ;
  66.     PROPERTY ;
  67.         TEXT "CITY:"
  68.  
  69. DEFINE ENTRYFIELD city OF Vend AT 5,15 ;
  70.     PROPERTY ;
  71.         PICTURE "!XXXXXXXXXXXXX",;
  72.         DATALINK "Vendors->City",;
  73.         WIDTH 20
  74.  
  75. DEFINE TEXT vst OF Vend AT 5,36 ;
  76.     PROPERTY ;
  77.         TEXT "ST:"
  78.  
  79. DEFINE ENTRYFIELD state OF Vend AT 5,39;
  80.     PROPERTY ;
  81.         PICTURE  "!!",;
  82.         DATALINK "Vendors->State",;
  83.         WIDTH 2
  84.  
  85. DEFINE TEXT vzip OF Vend AT 5,42 ;
  86.     PROPERTY ;
  87.         TEXT "ZIP:"
  88.  
  89. DEFINE ENTRYFIELD zip OF Vend AT 5,47;
  90.     PROPERTY ;
  91.         DATALINK "Vendors->zip",;
  92.         WIDTH 10
  93.  
  94. DEFINE TEXT vcon OF Vend AT 8,6 ;
  95.     PROPERTY ;
  96.         TEXT "CONTACT:"
  97.  
  98. DEFINE ENTRYFIELD contact OF Vend AT 8,15 ;
  99.     PROPERTY ;
  100.         DATALINK "Vendors->contact",;
  101.         WIDTH 30,;
  102.         STATUSMESSAGE "Enter name of vendor contact"
  103.  
  104. DEFINE TEXT vphone OF Vend AT 9,6 ;
  105.     PROPERTY ;
  106.         TEXT "PHONE:"
  107.  
  108. DEFINE ENTRYFIELD phone OF Vend AT 9,15 ;
  109.     PROPERTY ;
  110.         PICTURE "(999)999-9999", ;
  111.         DATALINK "Vendors->phone",;
  112.         WIDTH 13
  113.  
  114. DEFINE TEXT vext OF Vend AT 9,30 ;
  115.     PROPERTY ;
  116.         TEXT "EXTENSION:"
  117.  
  118. DEFINE ENTRYFIELD phone_ext OF Vend AT 9,41 ;
  119.     PROPERTY ;
  120.         PICTURE "9999" ,;
  121.         DATALINK "Vendors->Phone_Ext",;
  122.         WIDTH 4,;
  123.         STATUSMESSAGE "Enter phone extension"
  124.  
  125. DEFINE TEXT vtrm OF Vend AT 11,6 ;
  126.     PROPERTY ;
  127.         TEXT "TERMS:" ,;
  128.         COLORNORMAL "B/W"
  129.  
  130. DEFINE RADIOBUTTON Net15 OF Vend AT 12,6 ;
  131.     PROPERTY ;
  132.         Text "NET &15",;
  133.         COLORPICKNORMAL "R/W",;
  134.         GROUP .T. ,;
  135.         WIDTH 12 ,;
  136.         COLORNORMAL "N/W"
  137.  
  138. DEFINE RADIOBUTTON Net30 OF Vend AT 13,6 ;
  139.     PROPERTY ;
  140.         Text "NET &30",;
  141.         COLORPICKNORMAL "R/W",;
  142.         GROUP .F. ,;
  143.         WIDTH 12 ,;
  144.         COLORNORMAL "N/W"
  145.  
  146. DEFINE TEXT vdis OF Vend AT 11,20 ;
  147.     PROPERTY ;
  148.         TEXT "DISCOUNT:" ,;
  149.         COLORNORMAL "B/W"
  150.  
  151. DEFINE SPINBOX discount OF Vend AT 12,22 ;
  152.     PROPERTY ;
  153.         PICTURE "99" ,;
  154.         DATALINK "Vendors->Discount",;
  155.         WIDTH 5,;
  156.         RANGEMIN 0,;
  157.         RANGEMAX 30,;
  158.         RANGEREQUIRED .T.,;
  159.         SPINONLY .T.,;
  160.         STATUSMESSAGE "Enter a discount rate (max. 30)"
  161.  
  162. DEFINE TEXT perc OF Vend AT 12,28 ;
  163.     PROPERTY;
  164.         Text "%"
  165. *
  166. *
  167. *  Add a Text String for Status marking on form
  168. *
  169. DEFINE TEXT cStatus OF Vend AT 1,60 ;
  170.     PROPERTY;
  171.         Text ""
  172.  
  173. *
  174. * add the buttons to this form,
  175. *
  176.  
  177. DEFINE PUSHBUTTON Add OF Vend AT 16,4 ;
  178.     PROPERTY ;
  179.         Text "A&dd",;
  180.         COLORPICKNORMAL "R/G",;
  181.         WIDTH 10,;
  182.         OnClick "Add_new"
  183.  
  184. DEFINE PUSHBUTTON Del1 OF Vend AT 16,14 ;
  185.     PROPERTY ;
  186.         Text "De&l",;
  187.         COLORPICKNORMAL "R/G",;
  188.         WIDTH 10,;
  189.         OnClick "DelIt"
  190.  
  191. DEFINE PUSHBUTTON Next1 OF Vend AT 16,24;
  192.     PROPERTY ;
  193.         Text "&Next" ,;
  194.         COLORPICKNORMAL "R/G",;
  195.         WIDTH 10 ,;
  196.         OnClick "SkipHand"
  197.  
  198.  
  199. DEFINE PUSHBUTTON Prev1 OF Vend AT 16,34 ;
  200.     PROPERTY ;
  201.         Text "&Prev"  ,;
  202.         COLORPICKNORMAL "R/G",;
  203.         Width 10,;
  204.         OnClick "PrevHand"
  205.  
  206. DEFINE PUSHBUTTON Print1 OF Vend AT 16,44 ;
  207.     PROPERTY ;
  208.         Text "P&rint",;
  209.         COLORPICKNORMAL "R/G",;
  210.         Width 10,;
  211.         OnClick "PrintForm"
  212.  
  213. DEFINE PUSHBUTTON Exit1 OF Vend AT 16,54 ;
  214.     PROPERTY ;
  215.         Text "E&xit",;
  216.         COLORPICKNORMAL "R/G",;
  217.         Width 10,;
  218.         OnClick "CanHand"
  219.  
  220.  
  221.  
  222. **************************  END OF VENDORS.DFM  ****************************
  223.