mmenu.mpr

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

*       *********************************************************
*
PROCEDURE _2xs0ph1xc
if select ("line")=0
 use line
endif
sele line
brow


*       *********************************************************
*       *                                                         
*       * _2XS0PH1XD  ON SELECTION BAR 3 OF POPUP 浏览            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MMENU.MPR,            Record:   13          
*       * Called By:  ON SELECTION BAR 3 OF POPUP 浏览            
*       * Prompt:     团队情况                                    
*       * Snippet:    6                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _2xs0ph1xd
if select ("linegl")=0
 use linegl
endif
sele linegl
brow


*       *********************************************************
*       *                                                         
*       * _2XS0PH1XE  ON SELECTION BAR 4 OF POPUP 浏览            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MMENU.MPR,            Record:   14          
*       * Called By:  ON SELECTION BAR 4 OF POPUP 浏览            
*       * Prompt:     团队管理情况                                
*       * Snippet:    7                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _2xs0ph1xe
if select ("lineqk")=0
 use lineqk
endif
sele lineqk
brow


*       *********************************************************
*       *                                                         
*       * _2XS0PH1XF  ON SELECTION BAR 1 OF POPUP 查询            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MMENU.MPR,            Record:   17          
*       * Called By:  ON SELECTION BAR 1 OF POPUP 查询            
*       * Prompt:     团员基本信息                                
*       * Snippet:    8                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _2xs0ph1xf
if select ("member")=0
 use member
endif
sele member
brow


*       *********************************************************
*       *                                                         
*       * _2XS0PH1XG  ON SELECTION BAR 2 OF POPUP 查询            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MMENU.MPR,            Record:   18          
*       * Called By:  ON SELECTION BAR 2 OF POPUP 查询            
*       * Prompt:     团队团员信息                                
*       * Snippet:    9                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _2xs0ph1xg
if select ("line")=0
 use line
endif
sele line
brow


*       *********************************************************
*       *                                                         
*       * _2XS0PH1XQ  ON SELECTION BAR 3 OF POPUP 查询            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MMENU.MPR,            Record:   19          
*       * Called By:  ON SELECTION BAR 3 OF POPUP 查询            
*       * Prompt:     旅游团队信息                                
*       * Snippet:    10                                          
*       *                                                         
*       *********************************************************
*
PROCEDURE _2xs0ph1xq
if select ("lineqk")=0
 use lineqk
endif
sele lineqk
brow


*       *********************************************************
*       *                                                         
*       * _2XS0PH1XR  ON SELECTION BAR 1 OF POPUP 报表            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MMENU.MPR,            Record:   22          
*       * Called By:  ON SELECTION BAR 1 OF POPUP 报表            
*       * Prompt:     团员情况                                    
*       * Snippet:    11                                          
*       *                                                         
*       *********************************************************
*
PROCEDURE _2xs0ph1xr
if select ("linegl")=0
 use linegl
endif
sele linegl
brow


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


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


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


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


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