mymenu.bak

用vfp语言设计的保健管理系统源码

*       *                                                         
*       * From Menu:  MYMENU.MPR,            Record:    6         
*       * Called By:  ON SELECTION BAR 2 OF POPUP 新菜单项        
*       * Prompt:     价目表                                      
*       * Snippet:    3                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1ra1abzc5
do form price


*       *********************************************************
*       *                                                         
*       * _1RA1ABZCV  ON SELECTION BAR 3 OF POPUP 新菜单项        
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MYMENU.MPR,            Record:    7         
*       * Called By:  ON SELECTION BAR 3 OF POPUP 新菜单项        
*       * Prompt:     卡类别                                      
*       * Snippet:    4                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1ra1abzcv
do form klb


*       *********************************************************
*       *                                                         
*       * _1RA1ABZDK  ON SELECTION BAR 4 OF POPUP 新菜单项        
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MYMENU.MPR,            Record:    8         
*       * Called By:  ON SELECTION BAR 4 OF POPUP 新菜单项        
*       * Prompt:     医师信息                                    
*       * Snippet:    5                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1ra1abzdk
do form doctor


*       *********************************************************
*       *                                                         
*       * _1RA1ABZEC  ON SELECTION BAR 2 OF POPUP _1r10q0vom      
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MYMENU.MPR,            Record:   12         
*       * Called By:  ON SELECTION BAR 2 OF POPUP _1r10q0vom      
*       * Prompt:     顾客结账                                    
*       * Snippet:    6                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1ra1abzec
do form jz


*       *********************************************************
*       *                                                         
*       * _1RA1ABZF2  ON SELECTION BAR 4 OF POPUP _1r10q0vom      
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MYMENU.MPR,            Record:   14         
*       * Called By:  ON SELECTION BAR 4 OF POPUP _1r10q0vom      
*       * Prompt:     发放新卡                                    
*       * Snippet:    7                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1ra1abzf2
do form newcard


*       *********************************************************
*       *                                                         
*       * _1RA1ABZFU  ON SELECTION BAR 1 OF POPUP _1r10q1fap      
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MYMENU.MPR,            Record:   37         
*       * Called By:  ON SELECTION BAR 1 OF POPUP _1r10q1fap      
*       * Prompt:     密码管理                                    
*       * Snippet:    8                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1ra1abzfu
do form chage_code


*       *********************************************************
*       *                                                         
*       * _1RA1ABZGR  ON SELECTION BAR 2 OF POPUP _1r10q1fap      
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MYMENU.MPR,            Record:   38         
*       * Called By:  ON SELECTION BAR 2 OF POPUP _1r10q1fap      
*       * Prompt:     单位名称                                    
*       * Snippet:    9                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1ra1abzgr
do form dw


*       *********************************************************
*       *                                                         
*       * _1RA1ABZHH  ON SELECTION BAR 4 OF POPUP _1r10q1fap      
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MYMENU.MPR,            Record:   43         
*       * Called By:  ON SELECTION BAR 4 OF POPUP _1r10q1fap      
*       * Prompt:     临时屏保                                    
*       * Snippet:    10                                          
*       *                                                         
*       *********************************************************
*
PROCEDURE _1ra1abzhh
DO1 FORM pb


*       *********************************************************
*       *                                                         
*       * _1RA1ABZI9  ON SELECTION BAR 1 OF POPUP 数据备份        
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MYMENU.MPR,            Record:   41         
*       * Called By:  ON SELECTION BAR 1 OF POPUP 数据备份        
*       * Prompt:     数据备份                                    
*       * Snippet:    11                                          
*       *                                                         
*       *********************************************************
*
PROCEDURE _1ra1abzi9
DO bak.prg


*       *********************************************************
*       *                                                         
*       * _1RA1ABZJ0  ON SELECTION BAR 2 OF POPUP 数据备份        
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MYMENU.MPR,            Record:   42         
*       * Called By:  ON SELECTION BAR 2 OF POPUP 数据备份        
*       * Prompt:     数据恢复                                    
*       * Snippet:    12                                          
*       *                                                         
*       *********************************************************
*
PROCEDURE _1ra1abzj0
DO huifu.prg