菜单.mpr

图书馆管理系统

*       *********************************************************
*       *                                                         
*       * 01/24/07              菜单.MPR                14:43:50  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 作者名称                                                
*       *                                                         
*       * 版权所有 (C) 2007 公司名称                             
*       * 地址                                                    
*       * 城市,     邮编                                          
*       * 国家                                              
*       *                                                         
*       * 说明:                                            
*       * 此程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _2010vkm8v OF _MSYSMENU PROMPT "用户权限(\Y)" COLOR SCHEME 3 ;
	KEY CTRL+Y, "CTRL+Y"
DEFINE PAD _2010vkm8w OF _MSYSMENU PROMPT "基本信息维护(\C)" COLOR SCHEME 3 ;
	KEY CTRL+C, "CTRL+C"
DEFINE PAD _2010vkm8x OF _MSYSMENU PROMPT "管理信息(\V)" COLOR SCHEME 3 ;
	KEY CTRL+V, "CTRL+V"
DEFINE PAD _2010vkm8y OF _MSYSMENU PROMPT "信息打印(\P)" COLOR SCHEME 3 ;
	KEY CTRL+P, "CTRL+P"
DEFINE PAD _2010vkm8z OF _MSYSMENU PROMPT "退出" COLOR SCHEME 3
ON SELECTION PAD _2010vkm8v OF _MSYSMENU do form 修改密码
ON SELECTION PAD _2010vkm8w OF _MSYSMENU do form 信息表单
ON SELECTION PAD _2010vkm8x OF _MSYSMENU do form 管理表单
ON PAD _2010vkm8y OF _MSYSMENU ACTIVATE POPUP 信息打印p
ON SELECTION PAD _2010vkm8z OF _MSYSMENU ;
	DO _2010vkm90 ;
	IN LOCFILE("\VFP\菜单" ,"MPX;MPR|FXP;PRG" ,"WHERE is 菜单?")

DEFINE POPUP 信息打印p MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 信息打印p PROMPT "读者信息"
DEFINE BAR 2 OF 信息打印p PROMPT "借书信息"
ON SELECTION BAR 1 OF 信息打印p report form 读者信息 preview
ON SELECTION BAR 2 OF 信息打印p report form 借书记录 preview


*       *********************************************************
*       *                                                         
*       * _2010VKM90  ON SELECTION PAD                            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  菜单.MPR,            Record:   10           
*       * Called By:  ON SELECTION PAD                            
*       * Prompt:     退出                                        
*       * Snippet:    1                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _2010vkm90
set sysmenu to default
set talk on
set safety on
close all
clear all
clear window
clear event
quit