home *** CD-ROM | disk | FTP | other *** search
/ DOS Wares / doswares.zip / doswares / DATABASE / DBASE5 / CUA_SAMP.ZIP / AREACODE.DFM < prev    next >
Encoding:
Text File  |  1994-06-24  |  1.9 KB  |  100 lines
  1. *
  2. * Define new Area Code form
  3. *
  4. DEFINE FORM Area FROM 3,2 TO 10,67 ;
  5.     PROPERTY ;
  6.         Text "AREACODES",;
  7.         OnOpen OpenArea,;
  8.         OnClose CloseArea
  9.  
  10. *
  11. * New Define EntryFields and Define Text Statements
  12. *
  13. DEFINE RECTANGLE Box OF Area ;
  14.     PROPERTY;
  15.         TOP 0,;
  16.         Left 1,;
  17.         width 62,;
  18.         Height 4
  19.  
  20. *
  21. * Define Dataentry and Text
  22. *
  23. DEFINE TEXT t1 OF Area AT 1,4 ;
  24.     PROPERTY ;
  25.         TEXT "Area Code:"
  26.  
  27. DEFINE ENTRYFIELD Code OF Area AT 1,19 ;
  28.     PROPERTY ;
  29.         DATALINK "AreaCode->Code",;
  30.         WIDTH 10
  31.  
  32. DEFINE TEXT T2 OF Area AT 2,4 ;
  33.     PROPERTY ;
  34.         TEXT "CITY:"
  35.  
  36. DEFINE ENTRYFIELD City OF Area AT 2,19 ;
  37.     PROPERTY ;
  38.         DATALINK "AreaCode->City",;
  39.         WIDTH 30,;
  40.         STATUSMESSAGE "Enter the name of the part"
  41.         * FUNCTION "!"
  42.  
  43.  *
  44.  *  Add a Text String for Status marking on form
  45.  *
  46. DEFINE TEXT cStatus OF Area AT 2,50 ;
  47.     PROPERTY;
  48.         Text "" ,;
  49.         COLORNORMAL "R/W"
  50.  
  51. *
  52. * Define your own buttons here, don't use Library.prg because
  53. * the form size is different
  54. *
  55.    DEFINE Pushbutton Add OF Area AT 4,2 ;
  56.     PROPERTY ;
  57.         Text "A&dd",;
  58.         COLORPICKNORMAL "R/G",;
  59.         WIDTH 10,;
  60.         OnClick "Add_new"
  61.  
  62.    DEFINE PushButton Del1 OF Area AT 4,12 ;
  63.     PROPERTY ;
  64.         Text "De&l",;
  65.         COLORPICKNORMAL "R/G",;
  66.         WIDTH 10,;
  67.         OnClick "DelIt"
  68.  
  69.    DEFINE PushButton Next1 OF Area AT 4,22;
  70.     PROPERTY ;
  71.         Text "&Next" ,;
  72.         COLORPICKNORMAL "R/G",;
  73.         WIDTH 10 ,;
  74.         OnClick "SkipHand"
  75.  
  76.    DEFINE PushButton Prev1 OF Area AT 4,32 ;
  77.     PROPERTY ;
  78.         Text "&Prev"  ,;
  79.         COLORPICKNORMAL "R/G",;
  80.         Width 10,;
  81.         OnClick "PrevHand"
  82.  
  83.    DEFINE PushButton Print1 OF Area AT 4,42 ;
  84.     PROPERTY ;
  85.         Text "P&rint",;
  86.         COLORPICKNORMAL "R/G",;
  87.         Width 10,;
  88.         OnClick "PrintForm"
  89.  
  90.    DEFINE PushButton Exit1 OF Area AT 4,52 ;
  91.     PROPERTY ;
  92.         Text "E&xit",;
  93.         COLORPICKNORMAL "R/G",;
  94.         Width 10,;
  95.         OnClick "CanHand"
  96.  
  97.  
  98. ********************************* END OF Area.DFM *************************
  99.  
  100.