home *** CD-ROM | disk | FTP | other *** search
/ DOS Wares / doswares.zip / doswares / DATABASE / DBASE5 / CUA_SAMP.ZIP / MDFWD.DFM < prev    next >
Encoding:
Text File  |  1994-06-24  |  1.2 KB  |  67 lines
  1.  
  2.  
  3. DEFINE FORM MDFwd ; 
  4.    PROPERTY ;
  5.       HEIGHT   9,;
  6.       LEFT    12,;
  7.       TEXT   [Forward Search],;
  8.       TOP      5,;
  9.       WIDTH   44
  10.  
  11. MDFwd.Action = .F.
  12.  
  13. *...........................................................
  14.  
  15. DEFINE TEXT txName1 OF MDFwd ; 
  16.    PROPERTY ;
  17.       LEFT   1,;
  18.       TOP    1,;
  19.       WIDTH 22
  20.  
  21. MDFwd.txName1.Label    = .F.
  22. MDFwd.txName1.Text     = [Enter search value for:]
  23.  
  24. DEFINE TEXT txName5 OF MDFwd ; 
  25.    PROPERTY ;
  26.       LEFT  1,;
  27.       TOP   2,;
  28.       WIDTH 4
  29.  
  30. MDFwd.txName5.Label    = .F.
  31. MDFwd.txName5.Text     = UPPER(ALLTRIM(LEFT(cStr, 40)))
  32.  
  33. DEFINE ENTRYFIELD etName4 OF MDFwd ; 
  34.    PROPERTY ;
  35.       LEFT 1,;
  36.       TOP  3
  37.  
  38. DEFINE PUSHBUTTON bOK2 OF MDFwd ; 
  39.    PROPERTY ;
  40.       DEFAULT .T.,;
  41.       LEFT      8,;
  42.       ONCLICK  OKHand,;
  43.       TOP       5,;
  44.       WIDTH    10
  45.  
  46. MDFwd.bOK2.Procfile = "OKHAND.PRG," + HOME() + "FORMRUN.DBO"
  47. MDFwd.bOK2.Text     = "&Ok"
  48. MDFwd.bOK2.Width    = 10
  49.  
  50. DEFINE PUSHBUTTON bCan3 OF MDFwd ; 
  51.    PROPERTY ;
  52.       LEFT    23,;
  53.       ONCLICK CanHand,;
  54.       TOP      5,;
  55.       WIDTH   10
  56.  
  57. MDFwd.bCan3.Procfile = "CANHAND.PRG," + HOME() + "FORMRUN.DBO"
  58. MDFwd.bCan3.Text     = "Cancel"
  59. MDFwd.bCan3.Width    = 10
  60.  
  61.  
  62.  
  63.  
  64.  
  65.  
  66.  
  67.