*       *********************************************************
*       *                                                         
*       * 08/24/03              MAIN.MPR                22:02:39  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 作者名稱                                                
*       *                                                         
*       * 版權所有 (C) 2003 公司名稱                             
*       * 地址                                                    
*       * 城市,     郵編                                          
*       * 國家                                              
*       *                                                         
*       * 說明:                                            
*       * 此程序由 GENMENU 自動生成。    
*       *                                                         
*       *********************************************************


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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _1151b8yjk OF _MSYSMENU PROMPT "管理(\<G)" COLOR SCHEME 3 ;
	KEY ALT+G, ""
DEFINE PAD _1151b8yjl OF _MSYSMENU PROMPT "修改(\<E)" COLOR SCHEME 3 ;
	KEY ALT+E, ""
DEFINE PAD _1151b8yjm OF _MSYSMENU PROMPT "查詢(\<F)" COLOR SCHEME 3 ;
	KEY ALT+F, ""
DEFINE PAD _1151b8yjn OF _MSYSMENU PROMPT "退出(\<X)" COLOR SCHEME 3 ;
	KEY ALT+X, ""
ON PAD _1151b8yjk OF _MSYSMENU ACTIVATE POPUP 管理g
ON PAD _1151b8yjl OF _MSYSMENU ACTIVATE POPUP 修改e
ON PAD _1151b8yjm OF _MSYSMENU ACTIVATE POPUP 查詢f
ON SELECTION PAD _1151b8yjn OF _MSYSMENU quit

DEFINE POPUP 管理g MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 管理g PROMPT "辦理借書證"
DEFINE BAR 2 OF 管理g PROMPT "圖書登記"
DEFINE BAR 3 OF 管理g PROMPT "\-"
DEFINE BAR 4 OF 管理g PROMPT "借書登記"
DEFINE BAR 5 OF 管理g PROMPT "還書登記"
ON SELECTION BAR 1 OF 管理g do form jsz
ON SELECTION BAR 2 OF 管理g do form ts
ON SELECTION BAR 4 OF 管理g do form jsdj
ON SELECTION BAR 5 OF 管理g do form hsdj

DEFINE POPUP 修改e MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 修改e PROMPT "借書證信息修改"
DEFINE BAR 2 OF 修改e PROMPT "圖書登記修改"
ON SELECTION BAR 1 OF 修改e do form jszxg
ON SELECTION BAR 2 OF 修改e do form tsxg

DEFINE POPUP 查詢f MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 查詢f PROMPT "圖書外借情況查詢"
DEFINE BAR 2 OF 查詢f PROMPT "館內圖書情況查詢"
DEFINE BAR 3 OF 查詢f PROMPT "圖書外借和歸還情況查詢"
DEFINE BAR 4 OF 查詢f PROMPT "\-"
DEFINE BAR 5 OF 查詢f PROMPT "借書證辦理情況查詢"
ON SELECTION BAR 1 OF 查詢f do form wjcx
ON SELECTION BAR 2 OF 查詢f do form tucx
ON SELECTION BAR 3 OF 查詢f do form ghcx
ON SELECTION BAR 5 OF 查詢f do form jszcx