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