home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a084 / 2.ddi / CKSAMPLE / SAMPLE.MPR < prev    next >
Encoding:
Text File  |  1993-05-25  |  3.3 KB  |  75 lines
  1. *       *********************************************************
  2. *       *                                                         
  3. *       * 05/18/93             SAMPLE.MPR               13:44:07  
  4. *       *                                                         
  5. *       *********************************************************
  6. *       *                                                         
  7. *       * Steven Hsu, Wayne Lampel                                
  8. *       *                                                         
  9. *       * Copyright (c) 1993 Microsoft                            
  10. *       * One Microsoft Way                                       
  11. *       * Redmond, WA  98052                                      
  12. *       *                                                         
  13. *       * Description:                                            
  14. *       * This program was automatically generated by GENMENU.    
  15. *       *                                                         
  16. *       *********************************************************
  17.  
  18.  
  19. *       *********************************************************
  20. *       *                                                         
  21. *       *                      Menu Definition                    
  22. *       *                                                         
  23. *       *********************************************************
  24. *
  25.  
  26. SET SYSMENU TO
  27.  
  28. SET SYSMENU AUTOMATIC
  29.  
  30. DEFINE PAD _qfx0tfuda OF _MSYSMENU PROMPT "\<Database" COLOR SCHEME 3
  31. DEFINE PAD _qfx0tfudq OF _MSYSMENU PROMPT "\<Query" COLOR SCHEME 3 ;
  32.     SKIP FOR ckHandle == 0
  33. DEFINE PAD _msm_window OF _MSYSMENU PROMPT "\<Help" COLOR SCHEME 3
  34. ON PAD _qfx0tfuda OF _MSYSMENU ACTIVATE POPUP database
  35. ON PAD _qfx0tfudq OF _MSYSMENU ACTIVATE POPUP query
  36. ON PAD _msm_window OF _MSYSMENU ACTIVATE POPUP help
  37.  
  38. DEFINE POPUP database MARGIN RELATIVE SHADOW COLOR SCHEME 4
  39. DEFINE BAR 1 OF database PROMPT "\<Connect..." ;
  40.     SKIP FOR ckHandle != 0
  41. DEFINE BAR 2 OF database PROMPT "\<Disconnect" ;
  42.     SKIP FOR ckHandle == 0
  43. DEFINE BAR 3 OF database PROMPT "\-"
  44. DEFINE BAR 4 OF database PROMPT "\<Use Database..." ;
  45.     SKIP FOR ckHandle = 0
  46. DEFINE BAR 5 OF database PROMPT "\<Options..."
  47. DEFINE BAR 6 OF database PROMPT "Convert \<Memo..."
  48. DEFINE BAR 7 OF database PROMPT "\-"
  49. DEFINE BAR 8 OF database PROMPT "E\<xit" ;
  50.     KEY ALT+F4, "Alt+F4"
  51. ON SELECTION BAR 1 OF database DO Connect.SPR
  52. ON SELECTION BAR 2 OF database DO Disconn
  53. ON SELECTION BAR 4 OF database DO usedb.spr
  54. ON SELECTION BAR 5 OF database DO options.spr
  55. ON SELECTION BAR 6 OF database DO memtogen.spr
  56. ON SELECTION BAR 8 OF database DO cleanup.prg
  57.  
  58. DEFINE POPUP query MARGIN RELATIVE SHADOW COLOR SCHEME 4
  59. DEFINE BAR 1 OF query PROMPT "\<Build Query..." ;
  60.     SKIP FOR ckHandle == 0
  61. DEFINE BAR 2 OF query PROMPT "\<Edit Query..."
  62. DEFINE BAR 3 OF query PROMPT "\-"
  63. DEFINE BAR 4 OF query PROMPT "E\<xecute Query" ;
  64.     SKIP FOR ckHandle == 0
  65. ON SELECTION BAR 1 OF query DO BQuery.SPR
  66. ON SELECTION BAR 2 OF query DO EditQuer.SPR
  67. ON SELECTION BAR 4 OF query DO xQuery WITH sqlSelect
  68.  
  69. DEFINE POPUP help MARGIN RELATIVE SHADOW COLOR SCHEME 4
  70. DEFINE BAR 1 OF help PROMPT "\<How to use CKSample"
  71. DEFINE BAR 2 OF help PROMPT "\-"
  72. DEFINE BAR 3 OF help PROMPT "\<About CKSample..."
  73. ON SELECTION BAR 1 OF help DO helpck.spr
  74. ON SELECTION BAR 3 OF help DO about.spr
  75.