菜单1.mpr

很好的程序 是关于旅行业务管理的源码 但是没有报告

*       *********************************************************
*       *                                                         
*       * _1U50XABGF  ON SELECTION BAR 2 OF POPUP 浏览            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  菜单1.MPR,            Record:   12          
*       * Called By:  ON SELECTION BAR 2 OF POPUP 浏览            
*       * Prompt:     路线情况                                    
*       * Snippet:    5                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1u50xabgf
do  form line


*       *********************************************************
*       *                                                         
*       * _1U50XABGG  ON SELECTION BAR 3 OF POPUP 浏览            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  菜单1.MPR,            Record:   13          
*       * Called By:  ON SELECTION BAR 3 OF POPUP 浏览            
*       * Prompt:     团队情况                                    
*       * Snippet:    6                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1u50xabgg
do  form linegl


*       *********************************************************
*       *                                                         
*       * _1U50XABGH  ON SELECTION BAR 4 OF POPUP 浏览            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  菜单1.MPR,            Record:   14          
*       * Called By:  ON SELECTION BAR 4 OF POPUP 浏览            
*       * Prompt:     团队管理情况                                
*       * Snippet:    7                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1u50xabgh
do  form lineqk


*       *********************************************************
*       *                                                         
*       * _1U50XABGI  ON SELECTION BAR 1 OF POPUP 查询            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  菜单1.MPR,            Record:   17          
*       * Called By:  ON SELECTION BAR 1 OF POPUP 查询            
*       * Prompt:     团员基本信息                                
*       * Snippet:    8                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1u50xabgi
do  form findmember


*       *********************************************************
*       *                                                         
*       * _1U50XABGJ  ON SELECTION BAR 2 OF POPUP 查询            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  菜单1.MPR,            Record:   18          
*       * Called By:  ON SELECTION BAR 2 OF POPUP 查询            
*       * Prompt:     团队团员信息                                
*       * Snippet:    9                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1u50xabgj
do  form findline


*       *********************************************************
*       *                                                         
*       * _1U50XABGK  ON SELECTION BAR 3 OF POPUP 查询            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  菜单1.MPR,            Record:   19          
*       * Called By:  ON SELECTION BAR 3 OF POPUP 查询            
*       * Prompt:     旅游团队信息                                
*       * Snippet:    10                                          
*       *                                                         
*       *********************************************************
*
PROCEDURE _1u50xabgk
do  form findlineqk


*       *********************************************************
*       *                                                         
*       * _1U50XABGL  ON SELECTION BAR 1 OF POPUP 报表            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  菜单1.MPR,            Record:   22          
*       * Called By:  ON SELECTION BAR 1 OF POPUP 报表            
*       * Prompt:     团员情况                                    
*       * Snippet:    11                                          
*       *                                                         
*       *********************************************************
*
PROCEDURE _1u50xabgl
do form linegl


*       *********************************************************
*       *                                                         
*       * _1U50XABGM  ON SELECTION BAR 1 OF POPUP 系统维护        
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  菜单1.MPR,            Record:   25          
*       * Called By:  ON SELECTION BAR 1 OF POPUP 系统维护        
*       * Prompt:     数据备份                                    
*       * Snippet:    12                                          
*       *                                                         
*       *********************************************************
*
PROCEDURE _1u50xabgm
do form backup


*       *********************************************************
*       *                                                         
*       * _1U50XABGN  ON SELECTION BAR 2 OF POPUP 系统维护        
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  菜单1.MPR,            Record:   26          
*       * Called By:  ON SELECTION BAR 2 OF POPUP 系统维护        
*       * Prompt:     更改背景                                    
*       * Snippet:    13                                          
*       *                                                         
*       *********************************************************
*
PROCEDURE _1u50xabgn
local filename
filename=getpic('bmp,jpg,ico,gif','文件名','确定')
_screen.imgl.picture=filename


*       *********************************************************
*       *                                                         
*       * _1U50XABGO  ON SELECTION BAR 3 OF POPUP 系统维护        
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  菜单1.MPR,            Record:   27          
*       * Called By:  ON SELECTION BAR 3 OF POPUP 系统维护        
*       * Prompt:     选项                                        
*       * Snippet:    14                                          
*       *                                                         
*       *********************************************************
*
PROCEDURE _1u50xabgo
do form task


*       *********************************************************
*       *                                                         
*       * _1U50XABGP  ON SELECTION BAR 4 OF POPUP 系统维护        
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  菜单1.MPR,            Record:   28          
*       * Called By:  ON SELECTION BAR 4 OF POPUP 系统维护        
*       * Prompt:     更改密码                                    
*       * Snippet:    15                                          
*       *                                                         
*       *********************************************************
*
PROCEDURE _1u50xabgp
do form passwordch


*       *********************************************************
*       *                                                         
*       * _1U50XABGQ  ON SELECTION BAR 1 OF POPUP 帮助            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  菜单1.MPR,            Record:   31          
*       * Called By:  ON SELECTION BAR 1 OF POPUP 帮助            
*       * Prompt:     版本信息                                    
*       * Snippet:    16                                          
*       *                                                         
*       *********************************************************
*
PROCEDURE _1u50xabgq
do form about