menubar.mpr

学生图书管理系统,. 系统要求 1) 操作平台：中文 Windows 2000/xp 2) 显示分辨率设置：增强 16 位

*       *********************************************************
*       *                                                         
*       * 12/30/07             MENUBAR.MPR              08:52:20  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 作者名称                                                
*       *                                                         
*       * 版权所有 (C) 2007 公司名称                             
*       * 地址                                                    
*       * 城市,     邮编                                          
*       * 国家                                              
*       *                                                         
*       * 说明:                                            
*       * 此程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _29h0j0llr OF _MSYSMENU PROMPT "文件(\<F)" COLOR SCHEME 3 ;
	KEY ALT+F, ""
DEFINE PAD _29h0j0lls OF _MSYSMENU PROMPT "编辑(\<E)" COLOR SCHEME 3 ;
	KEY ALT+E, "" ;
	MESSAGE "编辑学生图书管理的信息"
DEFINE PAD _29h0j0llt OF _MSYSMENU PROMPT "检索(\<S)" COLOR SCHEME 3 ;
	KEY ALT+S, ""
DEFINE PAD _29h0j0llu OF _MSYSMENU PROMPT "显示(\<V)" COLOR SCHEME 3 ;
	KEY ALT+V, ""
DEFINE PAD _29h0j0llv OF _MSYSMENU PROMPT "借还(\<R)" COLOR SCHEME 3 ;
	KEY ALT+R, ""
DEFINE PAD _29h0j0llw OF _MSYSMENU PROMPT "退出系统(\<Q)" COLOR SCHEME 3 ;
	KEY ALT+Q, ""
DEFINE PAD _29h0j0llx OF _MSYSMENU PROMPT "帮助(\<H)" COLOR SCHEME 3 ;
	KEY ALT+H, ""
ON PAD _29h0j0llr OF _MSYSMENU ACTIVATE POPUP 文件f
ON PAD _29h0j0lls OF _MSYSMENU ACTIVATE POPUP 编辑e
ON PAD _29h0j0llt OF _MSYSMENU ACTIVATE POPUP 检索s
ON PAD _29h0j0llu OF _MSYSMENU ACTIVATE POPUP 显示v
ON PAD _29h0j0llv OF _MSYSMENU ACTIVATE POPUP 借还r
ON SELECTION PAD _29h0j0llw OF _MSYSMENU quit
ON PAD _29h0j0llx OF _MSYSMENU ACTIVATE POPUP 帮助h

DEFINE POPUP 文件f MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR _mfi_new OF 文件f PROMPT "新建(\<N)..." ;
	KEY CTRL+N, "Ctrl+N" ;
	MESSAGE "创建新文件"
DEFINE BAR _mfi_open OF 文件f PROMPT "打开(\<O)..." ;
	KEY CTRL+O, "Ctrl+O" ;
	MESSAGE "打开已有文件"
DEFINE BAR 3 OF 文件f PROMPT "\-"
DEFINE BAR _mfi_save OF 文件f PROMPT "保存(\<S)" ;
	KEY CTRL+S, "Ctrl+S" ;
	MESSAGE "保存当前改动了的文件"
DEFINE BAR _mfi_savas OF 文件f PROMPT "另存为(\<A)..." ;
	MESSAGE "用新文件名保存当前改动了的文件"
DEFINE BAR 6 OF 文件f PROMPT "\-"
DEFINE BAR _mfi_close OF 文件f PROMPT "关闭(\<C)" ;
	MESSAGE "关闭当前文件"

DEFINE POPUP 编辑e MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 编辑e PROMPT "图书编辑(\<B)" ;
	KEY F2, "F2" ;
	MESSAGE "进行图书信息管理"
DEFINE BAR 2 OF 编辑e PROMPT "学生信息(\<S)" ;
	KEY F3, "F3" ;
	MESSAGE '进行学生信息管理'
DEFINE BAR 3 OF 编辑e PROMPT "更改口令(\<C)" ;
	KEY ALT+A, "ALT+A" ;
	MESSAGE "更改管理员密码"
ON SELECTION BAR 1 OF 编辑e do form editbook
ON SELECTION BAR 2 OF 编辑e do form editstu
ON SELECTION BAR 3 OF 编辑e do form dbap with xno

DEFINE POPUP 检索s MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 检索s PROMPT "分类检索(\<C)" ;
	KEY F4, "F4" ;
	MESSAGE "进行图书所有资料检索"
DEFINE BAR 2 OF 检索s PROMPT "图书查询(\<Q)" ;
	KEY F5, "F5" ;
	MESSAGE "进行图书条件查询"
DEFINE BAR 3 OF 检索s PROMPT "畅销书目(\<B)" ;
	KEY ALT+B, "ALT+B" ;
	MESSAGE "近期最受读者欢迎的图书"
ON SELECTION BAR 1 OF 检索s do form bookquery
ON SELECTION BAR 2 OF 检索s do form book

DEFINE POPUP 显示v MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 显示v PROMPT "个人资料(\<P)" ;
	KEY F6, "F6" ;
	MESSAGE "查看个人详细资料信息"
DEFINE BAR 2 OF 显示v PROMPT "所借图书(\<B)" ;
	KEY F7, "F7" ;
	MESSAGE "显示个人所借的图书详细资料"
DEFINE BAR 3 OF 显示v PROMPT "书库图书(\<A)" ;
	KEY CTRL+A, "CTRL+A" ;
	MESSAGE "显示书库存所有图书"
ON SELECTION BAR 1 OF 显示v do form personal with xno
ON SELECTION BAR 2 OF 显示v do form mybook with xno
ON SELECTION BAR 3 OF 显示v DO FORM bookbrow

DEFINE POPUP 借还r MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 借还r PROMPT "读者借书(\<B)" ;
	KEY F8, "F8" ;
	MESSAGE "读者借书管理"
DEFINE BAR 2 OF 借还r PROMPT "读者还书(\<R)" ;
	KEY F9, "F9" ;
	MESSAGE "读者还书操作"
DEFINE BAR 3 OF 借还r PROMPT "罚款情况(\<P)" ;
	KEY ALT+P, "ALT+P" ;
	MESSAGE "查看读者借书超期处罚情况"
ON SELECTION BAR 1 OF 借还r do form stubw
ON SELECTION BAR 2 OF 借还r do form sturetn

DEFINE POPUP 帮助h MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 帮助h PROMPT "如何使用(\<H)" ;
	KEY F1, "F1" ;
	MESSAGE "帮助信息"
DEFINE BAR 2 OF 帮助h PROMPT "在线帮助(\<L)" ;
	KEY ALT+I, "ALT+I" ;
	MESSAGE "通过Internet互联网络进行帮助"