行业应用

开发平台：
VFP

MENU.MPR：源码内容
							*       *********************************************************
*       *                                                         
*       * 01/23/00              MENU.MPR                21:20:09  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 作者名称                                                
*       *                                                         
*       * 版权所有 (C) 2000 公司名称                             
*       * 地址                                                    
*       * 城市,     邮编                                          
*       * 国家                                              
*       *                                                         
*       * 说明:                                            
*       * 此程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************
*       *********************************************************
*       *                                                         
*       *                         菜单定义                        
*       *                                                         
*       *********************************************************
*
SET SYSMENU TO
SET SYSMENU AUTOMATIC
DEFINE PAD _00n19qaqw OF _MSYSMENU PROMPT "录入修改(&A)" COLOR SCHEME 3 ;
	SKIP FOR !m1
DEFINE PAD _00n19qar9 OF _MSYSMENU PROMPT "查询打印(&B)" COLOR SCHEME 3 ;
	SKIP FOR !m2
DEFINE PAD _00n19qara OF _MSYSMENU PROMPT "操作记录(&D)" COLOR SCHEME 3 ;
	SKIP FOR !m3
DEFINE PAD _00n19qarb OF _MSYSMENU PROMPT "口令修改(&C)" COLOR SCHEME 3 ;
	SKIP FOR !m4
DEFINE PAD _00n19qarc OF _MSYSMENU PROMPT "退出(&X)" COLOR SCHEME 3
ON SELECTION PAD _00n19qaqw OF _MSYSMENU ;
	DO _00n19qarf ;
	IN LOCFILE("....BUSINESSMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU?")
ON SELECTION PAD _00n19qar9 OF _MSYSMENU ;
	DO _00n19qarz ;
	IN LOCFILE("....BUSINESSMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU?")
ON SELECTION PAD _00n19qara OF _MSYSMENU ;
	DO _00n19qas1 ;
	IN LOCFILE("....BUSINESSMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU?")
ON SELECTION PAD _00n19qarb OF _MSYSMENU ;
	DO _00n19qas3 ;
	IN LOCFILE("....BUSINESSMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU?")
ON SELECTION PAD _00n19qarc OF _MSYSMENU ;
	DO _00n19qask ;
	IN LOCFILE("....BUSINESSMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU?")
*       *********************************************************
*       *                                                         
*       * _00N19QARF  ON SELECTION PAD                            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MENU.MPR,            Record:    3           
*       * Called By:  ON SELECTION PAD                            
*       * Prompt:     录入修改(&A)                                
*       * Snippet:    1                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _00n19qarf
do record with "录入修改"
do form bd
*       *********************************************************
*       *                                                         
*       * _00N19QARZ  ON SELECTION PAD                            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MENU.MPR,            Record:    4           
*       * Called By:  ON SELECTION PAD                            
*       * Prompt:     查询打印(&B)                                
*       * Snippet:    2                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _00n19qarz
do record with "查询打印"
do form seek
*       *********************************************************
*       *                                                         
*       * _00N19QAS1  ON SELECTION PAD                            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MENU.MPR,            Record:    5           
*       * Called By:  ON SELECTION PAD                            
*       * Prompt:     操作记录(&D)                                
*       * Snippet:    3                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _00n19qas1
do form brows
*       *********************************************************
*       *                                                         
*       * _00N19QAS3  ON SELECTION PAD                            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MENU.MPR,            Record:    6           
*       * Called By:  ON SELECTION PAD                            
*       * Prompt:     口令修改(&C)                                
*       * Snippet:    4                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _00n19qas3
do form passmodi
*       *********************************************************
*       *                                                         
*       * _00N19QASK  ON SELECTION PAD                            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MENU.MPR,            Record:    7           
*       * Called By:  ON SELECTION PAD                            
*       * Prompt:     退出(&X)                                    
*       * Snippet:    5                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _00n19qask
quit

						