menu1.mpr

这是一简单的名片管理系统

*       *********************************************************
*       *                                                         
*       * 03/18/05              MENU1.MPR               21:26:08  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * Author's Name                                           
*       *                                                         
*       * Copyright (C) 2005 Company Name                         
*       * Address                                                 
*       * City,     Zip                                           
*       *                                                         
*       * Description:                                            
*       * This PROGRAM was automatically generated BY GENMENU.    
*       *                                                         
*       *********************************************************


*       *********************************************************
*       *                                                         
*       *                      Menu Definition                    
*       *                                                         
*       *********************************************************
*

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _1h419xzp8 OF _MSYSMENU PROMPT "信息维护\<X" COLOR SCHEME 3 ;
	KEY ALT+X, ""
DEFINE PAD _1h419xzpa OF _MSYSMENU PROMPT "信息查阅\<R" COLOR SCHEME 3 ;
	KEY ALT+R, ""
DEFINE PAD _1h419xzpb OF _MSYSMENU PROMPT "帮助\<H" COLOR SCHEME 3 ;
	KEY ALT+H, ""
DEFINE PAD _1h419xzpc OF _MSYSMENU PROMPT "退出系统\<E" COLOR SCHEME 3 ;
	KEY ALT+E, ""
ON PAD _1h419xzp8 OF _MSYSMENU ACTIVATE POPUP 新菜单项
ON PAD _1h419xzpa OF _MSYSMENU ACTIVATE POPUP _0jv0siavo
ON PAD _1h419xzpb OF _MSYSMENU ACTIVATE POPUP _0jv0sk7fm
ON SELECTION PAD _1h419xzpc OF _MSYSMENU ;
	DO _1h419xzpd ;
	IN LOCFILE("VFP名片管理系统\MENU1" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU1?")

DEFINE POPUP 新菜单项 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 新菜单项 PROMPT "添加记录\<A"
DEFINE BAR 2 OF 新菜单项 PROMPT "删除记录\<D"
DEFINE BAR 3 OF 新菜单项 PROMPT "修改记录\<M"
ON SELECTION BAR 1 OF 新菜单项 do form input
ON SELECTION BAR 2 OF 新菜单项 do form delete
ON SELECTION BAR 3 OF 新菜单项  do form edit

DEFINE POPUP _0jv0siavo MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF _0jv0siavo PROMPT "查询记录\<S"
DEFINE BAR 2 OF _0jv0siavo PROMPT "浏览记录\<L"
ON SELECTION BAR 1 OF _0jv0siavo do form select
ON SELECTION BAR 2 OF _0jv0siavo  do form read

DEFINE POPUP _0jv0sk7fm MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF _0jv0sk7fm PROMPT "使用说明"
DEFINE BAR 2 OF _0jv0sk7fm PROMPT "制作人员"
ON SELECTION BAR 1 OF _0jv0sk7fm do form instruction
ON SELECTION BAR 2 OF _0jv0sk7fm do form note


*       *********************************************************
*       *                                                         
*       * _1H419XZPD  ON SELECTION PAD                            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MENU1.MPR,            Record:   16          
*       * Called By:  ON SELECTION PAD                            
*       * Prompt:     退出系统E                                   
*       * Snippet:    1                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1h419xzpd
if messagebox("真的要退出吗？",4+48,"退出")=6
  clear events
  clear all
endif