home *** CD-ROM | disk | FTP | other *** search
/ DOS Wares / doswares.zip / doswares / DATABASE / DBASE5 / CUA_SAMP.ZIP / EMPLOYEE.DFM < prev    next >
Encoding:
Text File  |  1994-06-24  |  7.1 KB  |  335 lines
  1.  
  2. *
  3. * Define a New Form and Entry Fields
  4. *
  5. DEFINE FORM Emp From 2,2 TO 21,74 ;
  6.     PROPERTY ;
  7.         Text "EMPLOYEE",;
  8.         OnOpen OpenEmp,;
  9.         OnClose CloseEmp,;
  10.         OnGotFocus Repaint
  11.  *
  12.  * New Define EntryFields and Define Text Statements
  13.  *
  14. DEFINE RECTANGLE Box OF Emp ;
  15.     PROPERTY;
  16.         TOP 0,;
  17.         Left 1,;
  18.         width 68,;
  19.         Height 7
  20.  
  21.  
  22. DEFINE RECTANGLE Box2 OF Emp ;
  23.     PROPERTY;
  24.         TOP 7,;
  25.         Left 1,;
  26.         width 68,;
  27.         Height 9
  28.  
  29. DEFINE TEXT L1 OF Emp AT 1,3 ;
  30.     PROPERTY ;
  31.         Text "LAST NAME:",;
  32.         ENABLED .T.
  33.  
  34.  
  35. DEFINE EntryField Last OF Emp AT 1,15 ;
  36.     PROPERTY ;
  37.         DATALINK "LastName",;
  38.         WIDTH 15, ;
  39.         PICTURE "!XXXXXXXXXXXXXX", ;
  40.         VALID "DupCheck",;
  41.         VALIDREQUIRED .T.
  42.  
  43. DEFINE TEXT F1 OF Emp AT 1,32 ;
  44.     PROPERTY ;
  45.         Text "FIRST:"
  46.  
  47. DEFINE EntryField First OF Emp AT 1,39 ;
  48.     PROPERTY ;
  49.         DATALINK "FirstName",;
  50.         WIDTH 10,;
  51.         PICTURE "!XXXXXXXXX"
  52.  
  53. DEFINE TEXT Middle OF Emp AT 1,50 ;
  54.     PROPERTY ;
  55.         TEXT "M:"
  56.  
  57.  
  58. DEFINE ENTRYFIELD init OF Emp AT 1,52 ;
  59.     PROPERTY ;
  60.         DATALINK "Initial",;
  61.         WIDTH 1,;
  62.         PICTURE "!" &&,;
  63.  
  64. DEFINE TEXT Addr OF Emp AT 2,3 ;
  65.     PROPERTY ;
  66.         Text "ADDRESS:"
  67.  
  68.  
  69. DEFINE EntryField Add1 OF Emp AT 2,15 ;
  70.     PROPERTY ;
  71.         DATALINK "Address1",;
  72.         WIDTH 20
  73.  
  74. DEFINE EntryField Add2 OF Emp AT 3,15 ;
  75.     PROPERTY ;
  76.         DATALINK "Address2",;
  77.         WIDTH 20
  78.  
  79. DEFINE TEXT City1 OF Emp AT 4,3 ;
  80.     PROPERTY ;
  81.         Text "CITY:"
  82.  
  83. DEFINE ENTRYFIELD city OF Emp AT 4,15 ;
  84.     PROPERTY ;
  85.         DATALINK "City",;
  86.         PICTURE "!XXXXXXXXXXXXX",;
  87.         WIDTH 14
  88.  
  89. DEFINE TEXT St OF Emp AT 4,32 ;
  90.     PROPERTY ;
  91.         Text "STATE:"
  92.  
  93. DEFINE ENTRYFIELD state OF Emp AT 4,39 ;
  94.     PROPERTY ;
  95.         DATALINK "State",;
  96.         WIDTH 2,;
  97.         PICTURE "!!"
  98.  
  99. DEFINE TEXT Zp OF Emp AT 4,43 ;
  100.     PROPERTY ;
  101.         Text "ZIP:"
  102.  
  103. DEFINE ENTRYFIELD zip OF Emp AT 4,48 ;
  104.     PROPERTY ;
  105.         DATALINK "Zip",;
  106.         WIDTH 10
  107.  
  108. DEFINE TEXT Ph OF Emp AT 5,3 ;
  109.     PROPERTY ;
  110.         Text "PHONE:"
  111.  
  112. DEFINE ENTRYFIELD phone OF Emp AT 5,15 ;
  113.     PROPERTY ;
  114.         DATALINK "Phone",;
  115.         PICTURE  "(999)999-9999",;
  116.         WIDTH 13
  117.  
  118. DEFINE TEXT Dept OF Emp AT 8,3 ;
  119.     PROPERTY ;
  120.         Text "SALES:"
  121.  
  122. * RadioButton for SALES and EXECUTIVE
  123. DEFINE RADIOBUTTON Sales OF Emp AT 9,3;
  124.     PROPERTY ;
  125.         TEXT "&SALES" ,;
  126.         Group .T. ,;
  127.         Height 1,;
  128.         Width 15 ,;
  129.         COLORNORMAL "N/W",;
  130.         COLORPICKNORMAL "R/W"
  131.  
  132. DEFINE RADIOBUTTON Exec OF Emp AT 10,3 ;
  133.     PROPERTY ;
  134.         Text "EXE&CUTIVE" ,;
  135.         Group .F.,;
  136.         Height 1,;
  137.         Width 15,;
  138.         COLORNORMAL "N/W",;
  139.         COLORPICKNORMAL "R/W"
  140. *
  141. * Check Box for Items
  142. *
  143. DEFINE TEXT stuff OF Emp AT 11,3 ;
  144.     PROPERTY ;
  145.         TEXT "STATUS:",;
  146.         COLORNORMAL "B/W"
  147.  
  148. DEFINE CHECKBOX fulltime OF Emp AT 12,3 ;
  149.     PROPERTY ;
  150.         TEXT "F&ull Time" ,;
  151.         Group .T. ,;
  152.         Height 1,;
  153.         Width 15 ,;
  154.         COLORNORMAL "N/W",;
  155.         COLORPICKNORMAL "R/W",;
  156.         DATALINK "full_time"
  157.  
  158. DEFINE CHECKBOX exmpt OF Emp AT 13,3 ;
  159.     PROPERTY ;
  160.         Text "Exe&mpt" ,;
  161.         Group .F. ,;
  162.         Height 1  ,;
  163.         Width 15  ,;
  164.         ColorNormal "N/W",;
  165.         DATALINK "exempt",;
  166.                 COLORPICKNORMAL "R/W"
  167. *
  168. * Define More RadioButtons
  169. *
  170. DEFINE TEXT spclty OF Emp AT 8,20 ;
  171.     PROPERTY ;
  172.         Text "SPECIALTY:",;
  173.         COLORNORMAL "B/W"
  174.  
  175. DEFINE RADIOBUTTON admin OF Emp AT 9,20 ;
  176.     PROPERTY ;
  177.         Text "ADM&IN",;
  178.         GROUP .T. ,;
  179.         WIDTH 16,;
  180.         COLORNORMAL "N/W",;
  181.         COLORPICKNORMAL "R/W"
  182.  
  183. DEFINE RADIOBUTTON commer OF Emp AT 10,20 ;
  184.     PROPERTY ;
  185.         Text "CO&MMERCIAL",;
  186.         GROUP .F. ,;
  187.         WIDTH 16 ,;
  188.         COLORNORMAL "N/W",;
  189.         COLORPICKNORMAL "R/W"
  190.  
  191. DEFINE RADIOBUTTON Resid OF Emp AT 11,20 ;
  192.     PROPERTY ;
  193.         Text "RESI&DENTIAL",;
  194.         Group .F. ,;
  195.         COLORNORMAL "N/W",;
  196.         COLORPICKNORMAL "R/W",;
  197.         WIDTH 16
  198.  
  199. DEFINE TEXT EID OF Emp AT 8,40 ;
  200.     PROPERTY ;
  201.         Text "Emp ID:"
  202. DEFINE ENTRYFIELD EmpID OF Emp AT 8,52 ;
  203.     PROPERTY ;
  204.         DATALINK "Employee->Emp_ID",;
  205.         PICTURE "999-99-9999",;
  206.         Width 11
  207.  
  208. DEFINE TEXT titl OF Emp AT 9,40 ;
  209.     PROPERTY ;
  210.         Text "TITLE:"
  211.  
  212. DEFINE ENTRYFIELD title OF Emp AT 9,52 ;
  213.     PROPERTY ;
  214.         DATALINK "Title",;
  215.         STATUSMESSAGE "Enter the employee's job title",;
  216.         WIDTH 15
  217.  
  218. DEFINE TEXT Dgr OF Emp AT 10,40 ;
  219.     PROPERTY ;
  220.         Text "DEGREE:"
  221.  
  222. DEFINE ENTRYFIELD BDegree OF Emp AT 10,52 ;
  223.     PROPERTY ;
  224.         DATALINK "Degree",;
  225.         STATUSMESSAGE "Enter the highest degree employee obtained",;
  226.         WIDTH 7
  227.  
  228. DEFINE TEXT yrs OF Emp AT 11,40 ;
  229.     PROPERTY ;
  230.         Text "YEARS EXP:"
  231.  
  232. DEFINE ENTRYFIELD yrsExp OF Emp AT 11,52 ;
  233.     PROPERTY ;
  234.         DATALINK "Yrs_Exper",;
  235.         WIDTH 4
  236.  
  237. DEFINE TEXT lbgrde OF Emp AT 12,40 ;
  238.     PROPERTY ;
  239.         Text "GRADE LEVEL:"
  240.  
  241. DEFINE ENTRYFIELD laborgrade OF Emp AT 12,52 ;
  242.     PROPERTY ;
  243.         DATALINK "Laborgrade",;
  244.         WIDTH 1
  245.  
  246. DEFINE TEXT Rte OF Emp AT 13,40 ;
  247.     PROPERTY ;
  248.         Text "RATE:"
  249.  
  250. DEFINE ENTRYFIELD rate OF Emp AT 13,52 ;
  251.     PROPERTY ;
  252.         DATALINK "Rate",;
  253.         WIDTH 9
  254.  
  255.  
  256. DEFINE TEXT Sal OF Emp AT 14,40 ;
  257.     PROPERTY ;
  258.         Text "SALARY:"
  259.  
  260. DEFINE ENTRYFIELD Salry OF Emp AT 14,52 ;
  261.     PROPERTY ;
  262.         DATALINK "Salary",;
  263.         WIDTH 11
  264.  
  265. DEFINE TEXT CText OF Emp AT 14,3 ;
  266.     PROPERTY ;
  267.         Text "COMMENTS:"
  268.  
  269. DEFINE ENTRYFIELD Comments OF Emp AT 14, 14 ;
  270.     PROPERTY ;
  271.         DATALINK "Comments",;
  272.         WIDTH 24
  273.  
  274.  
  275. *
  276. *  Add a Text String for Status marking on form
  277. *
  278. DEFINE TEXT cStatus OF Emp AT 1,60 ;
  279.     PROPERTY;
  280.         Text "",;
  281.         COLORNORMAL "R/W"
  282.  
  283.  
  284. *
  285. * add the buttons to this form,
  286. *
  287.  
  288. DEFINE PUSHBUTTON Add OF Emp AT 16,4 ;
  289.     PROPERTY ;
  290.         Text "A&dd",;
  291.         WIDTH 10,;
  292.         COLORPICKNORMAL "R/G",;
  293.         OnClick "Add_new"
  294.  
  295. DEFINE PUSHBUTTON Del1 OF Emp AT 16,14 ;
  296.     PROPERTY ;
  297.         Text "De&l",;
  298.         WIDTH 10,;
  299.         COLORPICKNORMAL "R/G",;
  300.         OnClick "DelIt"
  301.  
  302. DEFINE PUSHBUTTON Next1 OF Emp AT 16,24;
  303.     PROPERTY ;
  304.         Text "&Next" ,;
  305.         WIDTH 10 ,;
  306.         COLORPICKNORMAL "R/G",;
  307.         OnClick "SkipHand"
  308.         *x.Next1.PROCFILE = "Library.prg"
  309.  
  310. DEFINE PUSHBUTTON Prev1 OF Emp AT 16,34 ;
  311.     PROPERTY ;
  312.         Text "&Prev"  ,;
  313.         Width 10,;
  314.         COLORPICKNORMAL "R/G",;
  315.         OnClick "PrevHand"
  316.  
  317. DEFINE PUSHBUTTON Print1 OF Emp AT 16,44 ;
  318.     PROPERTY ;
  319.         Text "P&rint",;
  320.         Width 10,;
  321.         COLORPICKNORMAL "R/G",;
  322.         OnClick "PrintForm"
  323.  
  324. DEFINE PUSHBUTTON Exit1 OF Emp AT 16,54 ;
  325.     PROPERTY ;
  326.         Text "E&xit",;
  327.         Width 10,;
  328.         COLORPICKNORMAL "R/G",;
  329.         OnClick "CanHand"
  330.  
  331.  
  332.  
  333. ********************************  END OF EMPLOYEE.DFM  *********************
  334.  
  335.