*       *********************************************************
*       *                                                         
*       * 10/22/08             主菜單.MPR               08:53:51  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 作者名稱                                                
*       *                                                         
*       * 版權所有 (C) 2008 公司名稱                             
*       * 地址                                                    
*       * 城市,     郵編                                          
*       * 國家                                              
*       *                                                         
*       * 說明:                                            
*       * 此程序由 GENMENU 自動生成。    
*       *                                                         
*       *********************************************************


*       *********************************************************
*       *                                                         
*       *                         菜單定義                        
*       *                                                         
*       *********************************************************
*

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _2hs0j2k0h OF _MSYSMENU PROMPT "系統維護(\<S)" COLOR SCHEME 3 ;
	KEY ALT+S, ""
DEFINE PAD _2hs0j2k0i OF _MSYSMENU PROMPT "數據錄入(\<R)" COLOR SCHEME 3 ;
	KEY ALT+R, ""
DEFINE PAD _2hs0j2k0j OF _MSYSMENU PROMPT "數據瀏覽(\<B)" COLOR SCHEME 3 ;
	KEY ALT+B, ""
DEFINE PAD _2hs0j2k0k OF _MSYSMENU PROMPT "數據查詢(\<F)" COLOR SCHEME 3 ;
	KEY ALT+F, ""
DEFINE PAD _2hs0j2k0l OF _MSYSMENU PROMPT "報表(\<T)" COLOR SCHEME 3 ;
	KEY ALT+T, ""
DEFINE PAD _2hs0j2k0m OF _MSYSMENU PROMPT "幫助(\<H)" COLOR SCHEME 3 ;
	KEY ALT+H, ""
ON PAD _2hs0j2k0h OF _MSYSMENU ACTIVATE POPUP 系統維護s
ON PAD _2hs0j2k0i OF _MSYSMENU ACTIVATE POPUP 數據錄入r
ON SELECTION PAD _2hs0j2k0j OF _MSYSMENU do form"f:0\數據瀏覽.scx"
ON SELECTION PAD _2hs0j2k0k OF _MSYSMENU do form"f:\0\學生信息查詢.scx"
ON PAD _2hs0j2k0l OF _MSYSMENU ACTIVATE POPUP 報表t
ON PAD _2hs0j2k0m OF _MSYSMENU ACTIVATE POPUP 幫助h

DEFINE POPUP 系統維護s MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 系統維護s PROMPT "數據備份(\<B)"
DEFINE BAR 2 OF 系統維護s PROMPT "數據恢復(\<F)"
DEFINE BAR 3 OF 系統維護s PROMPT "更改密碼(\<R)"
DEFINE BAR 4 OF 系統維護s PROMPT "頁面設置(\<U)"
DEFINE BAR 5 OF 系統維護s PROMPT "退出(\<X)"
ON SELECTION BAR 5 OF 系統維護s ;
	DO _2hs0j2k0n ;
	IN LOCFILE("\0\主菜單" ,"MPX;MPR|FXP;PRG" ,"WHERE is 主菜單?")

DEFINE POPUP 數據錄入r MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 數據錄入r PROMPT "學生(\<S)"
DEFINE BAR 2 OF 數據錄入r PROMPT "專業信息(\<P)"
DEFINE BAR 3 OF 數據錄入r PROMPT "宿舍信息(\<Z)"
ON SELECTION BAR 1 OF 數據錄入r do form"f:0\學生信息.scx"
ON SELECTION BAR 2 OF 數據錄入r do form"f:\0\專業信息.scx"
ON SELECTION BAR 3 OF 數據錄入r do form"f:\0\宿舍信息.scx"

DEFINE POPUP 報表t MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 報表t PROMPT "學生信息報表(\<I)"
DEFINE BAR 2 OF 報表t PROMPT "學生成績報表"
ON SELECTION BAR 1 OF 報表t report form"f:\0\學生信息報表.frx" preview
ON SELECTION BAR 2 OF 報表t report form"f:\0\學生成績報表.frx" preview

DEFINE POPUP 幫助h MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 幫助h PROMPT "幫助主題(\<V)"
DEFINE BAR 2 OF 幫助h PROMPT "關于系統(\<A)"
ON SELECTION BAR 2 OF 幫助h do form"f:\0\幫助.scx"


*       *********************************************************
*       *                                                         
*       * _2HS0J2K0N  ON SELECTION BAR 5 OF POPUP 系統維護s       
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  主菜單.MPR,            Record:   13         
*       * Called By:  ON SELECTION BAR 5 OF POPUP 系統維護s       
*       * Prompt:     退出(X)                                     
*       * Snippet:    1                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _2hs0j2k0n
tempstr=messagebox("確定要退出嗎?",68,"學生住宿管理系統")
if tempstr=6
use
modi window screen
set sysmenu to default
activate window command
release all
clear events
endif