mmenu.bak

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

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


*       *********************************************************
*       *                                                         
*       * _1UA0NSQOX  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 _1ua0nsqox
do  form linegl


*       *********************************************************
*       *                                                         
*       * _1UA0NSQOY  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 _1ua0nsqoy
do  form lineqk


*       *********************************************************
*       *                                                         
*       * _1UA0NSQP8  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 _1ua0nsqp8
do  form findmember


*       *********************************************************
*       *                                                         
*       * _1UA0NSQP9  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 _1ua0nsqp9
do  form findline


*       *********************************************************
*       *                                                         
*       * _1UA0NSQPA  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 _1ua0nsqpa
do  form findlineqk


*       *********************************************************
*       *                                                         
*       * _1UA0NSQPB  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 _1ua0nsqpb
do form linegl


*       *********************************************************
*       *                                                         
*       * _1UA0NSQPC  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 _1ua0nsqpc
do form backup


*       *********************************************************
*       *                                                         
*       * _1UA0NSQPD  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 _1ua0nsqpd
local filename
filename=getpic('bmp,jpg,ico,gif','文件名','确定')
_screen.imgl.picture=filename


*       *********************************************************
*       *                                                         
*       * _1UA0NSQPO  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 _1ua0nsqpo
do form task


*       *********************************************************
*       *                                                         
*       * _1UA0NSQPP  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 _1ua0nsqpp
do form passwordch


*       *********************************************************
*       *                                                         
*       * _1UA0NSQPQ  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 _1ua0nsqpq
do form about