main.mpr

在Delphi中

*       *********************************************************
*       *                                                         
*       * 01/11/03              MAIN.MPR                15:21:19  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 作者名称                                                
*       *                                                         
*       * 版权所有 (C) 2003 公司名称                             
*       * 地址                                                    
*       * 城市,     邮编                                          
*       * 国家                                              
*       *                                                         
*       * 说明:                                            
*       * 此程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


*       *********************************************************
*       *                                                         
*       *                         菜单定义                        
*       *                                                         
*       *********************************************************
*

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _0uw0wwu2w OF _MSYSMENU PROMPT "\S系统" COLOR SCHEME 3 ;
	KEY ALT+\, ""
DEFINE PAD _0uw0wwu2y OF _MSYSMENU PROMPT "\T读者档案" COLOR SCHEME 3 ;
	KEY ALT+\, ""
DEFINE PAD _0uw0wwu30 OF _MSYSMENU PROMPT "\B图书档案" COLOR SCHEME 3 ;
	KEY ALT+\, ""
DEFINE PAD _0uw0wwu32 OF _MSYSMENU PROMPT "\Q图书检索" COLOR SCHEME 3 ;
	KEY ALT+\, ""
DEFINE PAD _0uw0wwu34 OF _MSYSMENU PROMPT "\U借阅图书" COLOR SCHEME 3 ;
	KEY ALT+\, ""
DEFINE PAD _0uw0wwu36 OF _MSYSMENU PROMPT "\R归还图书" COLOR SCHEME 3 ;
	KEY ALT+\, ""
DEFINE PAD _0uw0wwu38 OF _MSYSMENU PROMPT "\M安全维护" COLOR SCHEME 3 ;
	KEY ALT+\, ""
DEFINE PAD _0uw0wwu3a OF _MSYSMENU PROMPT "\H帮助" COLOR SCHEME 3 ;
	KEY ALT+\, ""
ON PAD _0uw0wwu2w OF _MSYSMENU ACTIVATE POPUP s系统
ON PAD _0uw0wwu2y OF _MSYSMENU ACTIVATE POPUP t读者档案
ON PAD _0uw0wwu30 OF _MSYSMENU ACTIVATE POPUP b图书档案
ON PAD _0uw0wwu3a OF _MSYSMENU ACTIVATE POPUP h帮助

DEFINE POPUP s系统 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF s系统 PROMPT "<\P密码设置"
DEFINE BAR 2 OF s系统 PROMPT "<\Y系统设置"
DEFINE BAR 3 OF s系统 PROMPT "\-"
DEFINE BAR 4 OF s系统 PROMPT "\E退出系统"
ON SELECTION BAR 1 OF s系统 do passwordset.prg
ON SELECTION BAR 2 OF s系统 do systemset.prg
ON SELECTION BAR 4 OF s系统 do exitsystem.prg

DEFINE POPUP t读者档案 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF t读者档案 PROMPT "增加读者"
DEFINE BAR 2 OF t读者档案 PROMPT "注销读者"
DEFINE BAR 3 OF t读者档案 PROMPT "修改读者"
DEFINE BAR 4 OF t读者档案 PROMPT "查询读者"
DEFINE BAR 5 OF t读者档案 PROMPT "读者办证"

DEFINE POPUP b图书档案 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF b图书档案 PROMPT "新增图书"
DEFINE BAR 2 OF b图书档案 PROMPT "注销图书"
DEFINE BAR 3 OF b图书档案 PROMPT "修改图书"

DEFINE POPUP h帮助 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF h帮助 PROMPT "\A关于作者..."
DEFINE BAR 2 OF h帮助 PROMPT "\H主题帮助"