home *** CD-ROM | disk | FTP | other *** search
/ Total C++ 2 / TOTALCTWO.iso / vfp5.0 / vfp / samples / tastrade / menus / main.mpr < prev    next >
Encoding:
Text File  |  1996-08-21  |  16.4 KB  |  367 lines
  1. *       *********************************************************
  2. *       *                                                         
  3. *       * 10/06/95              MAIN.MPR                10:10:01  
  4. *       *                                                         
  5. *       *********************************************************
  6. *       *                                                         
  7. *       * Microsoft Corporation                                   
  8. *       *                                                         
  9. *       * Copyright (C) 1995 Microsoft Corporation                
  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. *       *                        Setup Code                       
  22. *       *                                                         
  23. *       *********************************************************
  24. *
  25.  
  26. #INCLUDE "INCLUDE\TASTRADE.H"
  27.  
  28. *       *********************************************************
  29. *       *                                                         
  30. *       *                      Menu Definition                    
  31. *       *                                                         
  32. *       *********************************************************
  33. *
  34.  
  35. SET SYSMENU TO
  36.  
  37. SET SYSMENU AUTOMATIC
  38.  
  39. DEFINE PAD Pad OF _MSYSMENU PROMPT "\<File" COLOR SCHEME 3 ;
  40.     KEY ALT+F, "ALT+F" ;
  41.     MESSAGE "Create, save, delete, and restore records, close forms, print reports, or quit Tastrade"
  42. DEFINE PAD Edit OF _MSYSMENU PROMPT "\<Edit" COLOR SCHEME 3 ;
  43.     KEY ALT+E, "ALT+E" ;
  44.     SKIP FOR !FormIsObject()  ;
  45.     MESSAGE "Edits text or current selection"
  46. DEFINE PAD Orders OF _MSYSMENU PROMPT "\<Orders" COLOR SCHEME 3 ;
  47.     KEY ALT+O, "ALT+O" ;
  48.     MESSAGE "Access to Order Entry and Order History forms"
  49. DEFINE PAD Administration OF _MSYSMENU PROMPT "\<Administration" COLOR SCHEME 3 ;
  50.     KEY ALT+A, "ALT+A" ;
  51.     MESSAGE "Login, change password, and access to all maintenance forms"
  52. DEFINE PAD _msm_file OF _MSYSMENU PROMPT "\<Navigation" COLOR SCHEME 3 ;
  53.     KEY ALT+N, "ALT+N" ;
  54.     SKIP FOR !FormIsObject()  OR TYPE("oApp.oToolBar") <> "O"  ;
  55.     MESSAGE "Commands to navigate through records on the active form"
  56. DEFINE PAD Utilities OF _MSYSMENU PROMPT "\<Utilities" COLOR SCHEME 3 ;
  57.     KEY ALT+U, "ALT+U" ;
  58.     MESSAGE "Trace, debug, and view windows, suspend, resume, and cancel programs"
  59. DEFINE PAD Window OF _MSYSMENU PROMPT "\<Window" COLOR SCHEME 3 ;
  60.     KEY ALT+W, "ALT+W" ;
  61.     SKIP FOR !FormIsObject()  ;
  62.     MESSAGE "Window selection"
  63. DEFINE PAD Help OF _MSYSMENU PROMPT "\<Help" COLOR SCHEME 3 ;
  64.     KEY ALT+H, "ALT+H" ;
  65.     MESSAGE "Displays help on Tastrade"
  66. ON PAD Pad OF _MSYSMENU ACTIVATE POPUP file
  67. ON PAD Edit OF _MSYSMENU ACTIVATE POPUP edit
  68. ON PAD Orders OF _MSYSMENU ACTIVATE POPUP _qx713dax1
  69. ON PAD Administration OF _MSYSMENU ACTIVATE POPUP _qx713dsus
  70. ON PAD _msm_file OF _MSYSMENU ACTIVATE POPUP navigation
  71. ON PAD Utilities OF _MSYSMENU ACTIVATE POPUP utilities
  72. ON PAD Window OF _MSYSMENU ACTIVATE POPUP window
  73. ON PAD Help OF _MSYSMENU ACTIVATE POPUP help
  74.  
  75. DEFINE POPUP file MARGIN RELATIVE SHADOW COLOR SCHEME 4
  76. DEFINE BAR 1 OF file PROMPT "\<New" ;
  77.     KEY CTRL+N, "Ctrl+N" ;
  78.     SKIP FOR !FormIsObject() OR TYPE("oApp.oToolBar") <> "O"  OR !oApp.oToolBar.cmdNew.Enabled ;
  79.     MESSAGE "Creates a new record in the active form"
  80. DEFINE BAR 2 OF file PROMPT "\<Close" ;
  81.     SKIP FOR !FormIsObject() OR TYPE("oApp.oToolBar") <> "O"  OR !oApp.oToolBar.cmdClose.Enabled ;
  82.     MESSAGE "Closes the active form"
  83. DEFINE BAR 3 OF file PROMPT "\-"
  84. DEFINE BAR 4 OF file PROMPT "\<Save" ;
  85.     KEY CTRL+S, "Ctrl+S" ;
  86.     SKIP FOR !FormIsObject()  OR TYPE("oApp.oToolBar") <> "O" OR !oApp.oToolBar.cmdSave.Enabled ;
  87.     MESSAGE "Saves the current record in the active form"
  88. DEFINE BAR 5 OF file PROMPT "\<Restore" ;
  89.     KEY CTRL+E, "Ctrl+E" ;
  90.     SKIP FOR !FormIsObject()  OR TYPE("oApp.oToolBar") <> "O" OR !oApp.oToolBar.cmdRestore.Enabled ;
  91.     MESSAGE "Restores the original values of the current record in the active form"
  92. DEFINE BAR 6 OF file PROMPT "\<Delete" ;
  93.     SKIP FOR !FormIsObject()  OR TYPE("oApp.oToolBar") <> "O" OR !_screen.activeform.lAllowDelete ;
  94.     MESSAGE "Deletes the current record in the active form"
  95. DEFINE BAR 7 OF file PROMPT "\-"
  96. DEFINE BAR 8 OF file PROMPT "\<Print Reports ..." ;
  97.     KEY CTRL+P, "Ctrl+P" ;
  98.     MESSAGE "Runs the report and list selection form"
  99. DEFINE BAR 9 OF file PROMPT "Print Set\<up" ;
  100.     MESSAGE "Changes the page layout and printer settings"
  101. DEFINE BAR 10 OF file PROMPT "\-"
  102. DEFINE BAR 11 OF file PROMPT "Return to Visual Fo\<xPro"
  103. ON SELECTION BAR 1 OF file oApp.oToolbar.cmdNew.Click()
  104. ON SELECTION BAR 2 OF file oApp.oToolbar.cmdClose.Click()
  105. ON SELECTION BAR 4 OF file oApp.oToolbar.cmdSave.Click()
  106. ON SELECTION BAR 5 OF file oApp.oToolbar.cmdRestore.Click()
  107. ON SELECTION BAR 6 OF file _screen.activeform.delete()
  108. ON SELECTION BAR 8 OF file DO FORM Reports
  109. ON SELECTION BAR 9 OF file ;
  110.     DO _r480lsini ;
  111.     IN LOCFILE("MAINSAMP\MENUS\MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAIN?")
  112. ON SELECTION BAR 11 OF file ;
  113.     DO _r480lsiom ;
  114.     IN LOCFILE("MAINSAMP\MENUS\MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAIN?")
  115.  
  116. DEFINE POPUP edit MARGIN RELATIVE SHADOW COLOR SCHEME 4
  117. DEFINE BAR _med_undo OF edit PROMPT "\<Undo" ;
  118.     KEY CTRL+Z, "Ctrl+Z" ;
  119.     MESSAGE "Undoes the last change made to the current control of the active form"
  120. DEFINE BAR _med_redo OF edit PROMPT "\<Redo" ;
  121.     KEY CTRL+R, "Ctrl+R" ;
  122.     MESSAGE "Repeats the last change made to the current control of the active form"
  123. DEFINE BAR 3 OF edit PROMPT "\-"
  124. DEFINE BAR _med_cut OF edit PROMPT "Cu\<t" ;
  125.     KEY CTRL+X, "Ctrl+X" ;
  126.     MESSAGE "Removes the selection and places it onto the clipboard"
  127. DEFINE BAR _med_copy OF edit PROMPT "\<Copy" ;
  128.     KEY CTRL+C, "Ctrl+C" ;
  129.     MESSAGE "Copies the selection onto the clipboard"
  130. DEFINE BAR _med_paste OF edit PROMPT "\<Paste" ;
  131.     KEY CTRL+V, "Ctrl+V" ;
  132.     MESSAGE "Pastes the contents of the clipboard"
  133. DEFINE BAR 7 OF edit PROMPT "\-"
  134. DEFINE BAR _med_slcta OF edit PROMPT "Select \<All" ;
  135.     KEY CTRL+A, "Ctrl+A" ;
  136.     MESSAGE "Selects all text in the current control of the active form"
  137.  
  138. DEFINE POPUP _qx713dax1 MARGIN RELATIVE SHADOW COLOR SCHEME 4
  139. DEFINE BAR 1 OF _qx713dax1 PROMPT "Order \<Entry" ;
  140.     SKIP FOR WEXIST("frmOrderEntry") ;
  141.     MESSAGE "Runs the Order Entry form"
  142. DEFINE BAR 2 OF _qx713dax1 PROMPT "Order \<History" ;
  143.     MESSAGE "Runs the Order History form"
  144. ON SELECTION BAR 1 OF _qx713dax1 oApp.DoForm("ordentry")
  145. ON SELECTION BAR 2 OF _qx713dax1 oApp.DoForm("ordhist")
  146.  
  147. DEFINE POPUP _qx713dsus MARGIN RELATIVE SHADOW COLOR SCHEME 4
  148. DEFINE BAR 1 OF _qx713dsus PROMPT "\<Login" ;
  149.     SKIP FOR !EMPTY(WONTOP()) ;
  150.     MESSAGE "Log in as another user"
  151. DEFINE BAR 2 OF _qx713dsus PROMPT "C\<hange Password" ;
  152.     SKIP FOR !EMPTY(WONTOP()) ;
  153.     MESSAGE "Changes the password for the current user"
  154. DEFINE BAR 3 OF _qx713dsus PROMPT "\-"
  155. DEFINE BAR 4 OF _qx713dsus PROMPT "\<Customers" ;
  156.     SKIP FOR WEXIST("frmCustomers") ;
  157.     MESSAGE "Add, edit, or delete customers"
  158. DEFINE BAR 5 OF _qx713dsus PROMPT "C\<ategories" ;
  159.     SKIP FOR WEXIST("frmCategory") ;
  160.     MESSAGE "Add, edit, or delete categories"
  161. DEFINE BAR 6 OF _qx713dsus PROMPT "\<Employees" ;
  162.     SKIP FOR WEXIST("frmEmployee") ;
  163.     MESSAGE "Add, edit, or delete employees"
  164. DEFINE BAR 7 OF _qx713dsus PROMPT "\<Shippers" ;
  165.     SKIP FOR WEXIST("frmShippers") ;
  166.     MESSAGE "Add, edit, or delete shippers"
  167. DEFINE BAR 8 OF _qx713dsus PROMPT "S\<uppliers" ;
  168.     SKIP FOR WEXIST("frmSuppliers") ;
  169.     MESSAGE "Add, edit, or delete suppliers"
  170. DEFINE BAR 9 OF _qx713dsus PROMPT "\<Products" ;
  171.     SKIP FOR WEXIST("frmProducts") ;
  172.     MESSAGE "Add, edit, or delete products"
  173. DEFINE BAR 10 OF _qx713dsus PROMPT "\-"
  174. DEFINE BAR 11 OF _qx713dsus PROMPT "\<Behind the Scenes" ;
  175.     SKIP FOR WEXIST("frmBehindSC") ;
  176.     MESSAGE "Find out how this application was created"
  177. ON SELECTION BAR 1 OF _qx713dsus ;
  178.     DO _r480lsiy2 ;
  179.     IN LOCFILE("MAINSAMP\MENUS\MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAIN?")
  180. ON SELECTION BAR 2 OF _qx713dsus DO FORM chngpswd
  181. ON SELECTION BAR 4 OF _qx713dsus oApp.DoForm("customer")
  182. ON SELECTION BAR 5 OF _qx713dsus oApp.DoForm("category")
  183. ON SELECTION BAR 6 OF _qx713dsus oApp.DoForm("employee")
  184. ON SELECTION BAR 7 OF _qx713dsus oApp.DoForm("shipper")
  185. ON SELECTION BAR 8 OF _qx713dsus oApp.DoForm("supplier")
  186. ON SELECTION BAR 9 OF _qx713dsus oApp.DoForm("product")
  187. ON SELECTION BAR 11 OF _qx713dsus oApp.DoForm("behindsc")
  188.  
  189. DEFINE POPUP navigation MARGIN RELATIVE SHADOW COLOR SCHEME 4
  190. DEFINE BAR 1 OF navigation PROMPT "\<First" ;
  191.     KEY CTRL+HOME, "Ctrl+Home" ;
  192.     SKIP FOR !FormIsObject()  OR TYPE("oApp.oToolBar") <> "O"  OR !oApp.oToolBar.cmdFirst.Enabled ;
  193.     MESSAGE "Moves the record pointer of the current alias to the first record"
  194. DEFINE BAR 2 OF navigation PROMPT "\<Prior" ;
  195.     KEY CTRL+PGUP, "Ctrl+PgUp" ;
  196.     SKIP FOR !FormIsObject()  OR TYPE("oApp.oToolBar") <> "O"  OR !oApp.oToolBar.cmdPrior.Enabled ;
  197.     MESSAGE "Moves the record pointer of the current alias to the previous record"
  198. DEFINE BAR 3 OF navigation PROMPT "Ne\<xt" ;
  199.     KEY CTRL+PGDN, "Ctrl+PgDn" ;
  200.     SKIP FOR !FormIsObject()  OR TYPE("oApp.oToolBar") <> "O"  OR !oApp.oToolBar.cmdNext.Enabled ;
  201.     MESSAGE "Moves the record pointer of the current alias to the next record"
  202. DEFINE BAR 4 OF navigation PROMPT "\<Last" ;
  203.     KEY CTRL+END, "Ctrl+End" ;
  204.     SKIP FOR !FormIsObject()  OR TYPE("oApp.oToolBar") <> "O"  OR !oApp.oToolBar.cmdLast.Enabled ;
  205.     MESSAGE "Moves the record pointer of the current alias to the last record"
  206. ON SELECTION BAR 1 OF navigation oApp.oToolbar.cmdFirst.Click()
  207. ON SELECTION BAR 2 OF navigation oApp.oToolbar.cmdPrior.Click()
  208. ON SELECTION BAR 3 OF navigation oApp.oToolbar.cmdNext.Click()
  209. ON SELECTION BAR 4 OF navigation oApp.oToolbar.cmdLast.Click()
  210.  
  211. DEFINE POPUP utilities MARGIN RELATIVE SHADOW COLOR SCHEME 4
  212. DEFINE BAR _MWI_TRACE OF utilities PROMPT "\<Trace" ;
  213.     MESSAGE "Displays the trace window"
  214. DEFINE BAR _MWI_DEBUG OF utilities PROMPT "De\<bug" ;
  215.     MESSAGE "Displays the debug window"
  216. DEFINE BAR _MWI_VIEW OF utilities PROMPT "\<View" ;
  217.     MESSAGE "Displays the view window"
  218. DEFINE BAR _MWI_CMD OF utilities PROMPT "\<Command" ;
  219.     KEY CTRL+F2, "Ctrl+F2" ;
  220.     MESSAGE "Displays the command window"
  221. DEFINE BAR 5 OF utilities PROMPT "\-"
  222. DEFINE BAR 6 OF utilities PROMPT "\<Suspend" ;
  223.     MESSAGE "Suspends the currently running program"
  224. DEFINE BAR _MPR_RESUM OF utilities PROMPT "\<Resume" ;
  225.     MESSAGE "Resumes running the current suspended program"
  226. DEFINE BAR _MPR_CANCL OF utilities PROMPT "C\<ancel" ;
  227.     MESSAGE "Stops running the current program"
  228. DEFINE BAR 9 OF utilities PROMPT "\-"
  229. DEFINE BAR 10 OF utilities PROMPT "Rebuild \<DBC/Reindex" ;
  230.     SKIP FOR !EMPTY(WONTOP()) ;
  231.     MESSAGE "Rebuilds the database and reindexes all tables"
  232. ON SELECTION BAR 6 OF utilities suspend
  233. ON SELECTION BAR 10 OF utilities DO FORM rebuild
  234.  
  235. DEFINE POPUP window MARGIN RELATIVE SHADOW COLOR SCHEME 4
  236. DEFINE BAR 1 OF window PROMPT "This bar will be removed"
  237.  
  238. DEFINE POPUP help MARGIN RELATIVE SHADOW COLOR SCHEME 4
  239. DEFINE BAR _mst_help OF help PROMPT "\<Contents" ;
  240.     MESSAGE "Displays Help table of contents"
  241. DEFINE BAR _mst_hpsch OF help PROMPT "\<Search for Help on..." ;
  242.     MESSAGE "Searches for Help topics by keyword"
  243. DEFINE BAR 3 OF help PROMPT "\-"
  244. DEFINE BAR 4 OF help PROMPT "\<About Tasmanian Traders..." ;
  245.     MESSAGE "Displays information about this application and the system configuration"
  246. ON SELECTION BAR 4 OF help ;
  247.     DO _r480lsj9h ;
  248.     IN LOCFILE("MAINSAMP\MENUS\MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAIN?")
  249.  
  250. ON SELECTION MENU _MSYSMENU *-- (c) Microsoft Corporation 1995
  251. ON SELECTION POPUP file 
  252.  
  253. *       *********************************************************
  254. *       *                                                         
  255. *       *                 Cleanup Code & Procedures               
  256. *       *                                                         
  257. *       *********************************************************
  258. *
  259.  
  260. RELEASE BAR 1 OF Window
  261.  
  262. IF UPPER(oApp.GetUserLevel()) <> USER_APPDEV_LOC
  263.   RELEASE PAD Utilities OF _MSYSMENU
  264. ENDIF
  265.  
  266. IF !INLIST(UPPER(oApp.GetUserLevel()) , USER_APPDEV_LOC, USER_OPSMGR_LOC)
  267.   RELEASE BAR 1 OF ADMINBAR_LOC  && Login
  268.   RELEASE BAR 2 OF ADMINBAR_LOC  && Change Password
  269.   RELEASE BAR 3 OF ADMINBAR_LOC  && Separator
  270. ENDIF
  271.  
  272.  
  273. *       *********************************************************
  274. *       *                                                         
  275. *       * _R480LSINI  ON SELECTION BAR 9 OF POPUP file            
  276. *       *                                                         
  277. *       * Procedure Origin:                                       
  278. *       *                                                         
  279. *       * From Menu:  MAIN.MPR,            Record:   15           
  280. *       * Called By:  ON SELECTION BAR 9 OF POPUP file            
  281. *       * Prompt:     Print Setup                                 
  282. *       * Snippet:    1                                           
  283. *       *                                                         
  284. *       *********************************************************
  285. *
  286. PROCEDURE _r480lsini
  287. LOCAL lcOldError
  288. lcOldError = ON('ERROR')
  289. ON ERROR *
  290. =SYS(1037)
  291. ON ERROR &lcOldError
  292.  
  293.  
  294.  
  295. *       *********************************************************
  296. *       *                                                         
  297. *       * _R480LSIOM  ON SELECTION BAR 11 OF POPUP file           
  298. *       *                                                         
  299. *       * Procedure Origin:                                       
  300. *       *                                                         
  301. *       * From Menu:  MAIN.MPR,            Record:   18           
  302. *       * Called By:  ON SELECTION BAR 11 OF POPUP file           
  303. *       * Prompt:     Return to Visual FoxPro                     
  304. *       * Snippet:    2                                           
  305. *       *                                                         
  306. *       *********************************************************
  307. *
  308. PROCEDURE _r480lsiom
  309. IF oApp.CleanUp()
  310.   RELEASE oApp
  311. ENDIF
  312.  
  313.  
  314.  
  315. *       *********************************************************
  316. *       *                                                         
  317. *       * _R480LSIY2  ON SELECTION BAR 1 OF POPUP _qx713dsus      
  318. *       *                                                         
  319. *       * Procedure Origin:                                       
  320. *       *                                                         
  321. *       * From Menu:  MAIN.MPR,            Record:   35           
  322. *       * Called By:  ON SELECTION BAR 1 OF POPUP _qx713dsus      
  323. *       * Prompt:     Login                                       
  324. *       * Snippet:    3                                           
  325. *       *                                                         
  326. *       *********************************************************
  327. *
  328. PROCEDURE _r480lsiy2
  329. LOCAL lcUserLevel
  330.  
  331. lcUserLevel = oApp.GetUserLevel()
  332. =oApp.Login()
  333.  
  334. IF oApp.GetUserLevel() <> lcUserLevel
  335.   oApp.DoMenu()
  336. ENDIF
  337.  
  338.  
  339.  
  340. *       *********************************************************
  341. *       *                                                         
  342. *       * _R480LSJ9H  ON SELECTION BAR 4 OF POPUP help            
  343. *       *                                                         
  344. *       * Procedure Origin:                                       
  345. *       *                                                         
  346. *       * From Menu:  MAIN.MPR,            Record:   75           
  347. *       * Called By:  ON SELECTION BAR 4 OF POPUP help            
  348. *       * Prompt:     About Tasmanian Traders...                  
  349. *       * Snippet:    4                                           
  350. *       *                                                         
  351. *       *********************************************************
  352. *
  353. PROCEDURE _r480lsj9h
  354. LOCAL loAboutBox
  355.  
  356.  
  357. SET CLASSLIB TO about ADDITIVE
  358. loAboutBox = CREATEOBJECT("AboutBox", ;
  359.               TASTRADE_LOC, ;
  360.               VERSION_LOC, ;
  361.               COPYRIGHT_LOC, ;
  362.               RIGHTSRSRVD_LOC, ;
  363.               "BITMAPS\TTRADESM.BMP")
  364.  
  365. loAboutBox.Show()
  366. RELEASE CLASSLIB about.vcx
  367.