⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 mymenu.mpr

📁 用vfp语言设计的保健管理系统源码
💻 MPR
📖 第 1 页 / 共 2 页
字号:
 *set sysmenu on
 *set talk on
 *set notify on
 *set exclusive on
 *set safety on
 *RETURN
 *ON SHUTDOWN
 *thisform.release
 QUIT


*       *********************************************************
*       *                                                         
*       * _1RJ0YKTEJ  ON SELECTION BAR 1 OF POPUP 新菜单项        
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MYMENU.MPR,            Record:    5         
*       * Called By:  ON SELECTION BAR 1 OF POPUP 新菜单项        
*       * Prompt:     房间信息                                    
*       * Snippet:    2                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1rj0yktej
do form room_bed


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


*       *********************************************************
*       *                                                         
*       * _1RJ0YKTFU  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 _1rj0yktfu
do form klb


*       *********************************************************
*       *                                                         
*       * _1RJ0YKTGP  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 _1rj0yktgp
do form lldoctor


*       *********************************************************
*       *                                                         
*       * _1RJ0YKTH5  ON SELECTION BAR 5 OF POPUP 新菜单项        
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MYMENU.MPR,            Record:    9         
*       * Called By:  ON SELECTION BAR 5 OF POPUP 新菜单项        
*       * Prompt:     会员卡作息                                  
*       * Snippet:    6                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1rj0ykth5
DO FORM llkxx


*       *********************************************************
*       *                                                         
*       * _1RJ0YKTI0  ON SELECTION BAR 1 OF POPUP _1r10q0vom      
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MYMENU.MPR,            Record:   12         
*       * Called By:  ON SELECTION BAR 1 OF POPUP _1r10q0vom      
*       * Prompt:     顾客注册                                    
*       * Snippet:    7                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1rj0ykti0
DO FORM gkdj


*       *********************************************************
*       *                                                         
*       * _1RJ0YKTIV  ON SELECTION BAR 2 OF POPUP _1r10q0vom      
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MYMENU.MPR,            Record:   13         
*       * Called By:  ON SELECTION BAR 2 OF POPUP _1r10q0vom      
*       * Prompt:     顾客结账                                    
*       * Snippet:    8                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1rj0yktiv
do form jz


*       *********************************************************
*       *                                                         
*       * _1RJ0YKTJR  ON SELECTION BAR 4 OF POPUP _1r10q0vom      
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MYMENU.MPR,            Record:   15         
*       * Called By:  ON SELECTION BAR 4 OF POPUP _1r10q0vom      
*       * Prompt:     发放新卡                                    
*       * Snippet:    9                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1rj0yktjr
do form newcard


*       *********************************************************
*       *                                                         
*       * _1RJ0YKTKM  ON SELECTION BAR 5 OF POPUP _1r10q10un      
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MYMENU.MPR,            Record:   22         
*       * Called By:  ON SELECTION BAR 5 OF POPUP _1r10q10un      
*       * Prompt:     营业状态显示                                
*       * Snippet:    10                                          
*       *                                                         
*       *********************************************************
*
PROCEDURE _1rj0yktkm
DO FORM ztcx


*       *********************************************************
*       *                                                         
*       * _1RJ0YKTL1  ON SELECTION BAR 1 OF POPUP _1r10q1fap      
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MYMENU.MPR,            Record:   31         
*       * Called By:  ON SELECTION BAR 1 OF POPUP _1r10q1fap      
*       * Prompt:     密码管理                                    
*       * Snippet:    11                                          
*       *                                                         
*       *********************************************************
*
PROCEDURE _1rj0yktl1
do form chage_code


*       *********************************************************
*       *                                                         
*       * _1RJ0YKTLX  ON SELECTION BAR 2 OF POPUP _1r10q1fap      
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MYMENU.MPR,            Record:   32         
*       * Called By:  ON SELECTION BAR 2 OF POPUP _1r10q1fap      
*       * Prompt:     单位名称                                    
*       * Snippet:    12                                          
*       *                                                         
*       *********************************************************
*
PROCEDURE _1rj0yktlx
do form dw


*       *********************************************************
*       *                                                         
*       * _1RJ0YKTMS  ON SELECTION BAR 4 OF POPUP _1r10q1fap      
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MYMENU.MPR,            Record:   37         
*       * Called By:  ON SELECTION BAR 4 OF POPUP _1r10q1fap      
*       * Prompt:     临时屏保                                    
*       * Snippet:    13                                          
*       *                                                         
*       *********************************************************
*
PROCEDURE _1rj0yktms
DO FORM pb


*       *********************************************************
*       *                                                         
*       * _1RJ0YKTN8  ON SELECTION BAR 1 OF POPUP 数据备份        
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MYMENU.MPR,            Record:   35         
*       * Called By:  ON SELECTION BAR 1 OF POPUP 数据备份        
*       * Prompt:     数据备份                                    
*       * Snippet:    14                                          
*       *                                                         
*       *********************************************************
*
PROCEDURE _1rj0yktn8
DO bak.prg


*       *********************************************************
*       *                                                         
*       * _1RJ0YKTO3  ON SELECTION BAR 2 OF POPUP 数据备份        
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MYMENU.MPR,            Record:   36         
*       * Called By:  ON SELECTION BAR 2 OF POPUP 数据备份        
*       * Prompt:     数据恢复                                    
*       * Snippet:    15                                          
*       *                                                         
*       *********************************************************
*
PROCEDURE _1rj0ykto3
DO huifu.prg

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -