mymenu.bak

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

*       *********************************************************
*       *                                                         
*       * 03/17/06             MYMENU.MPR               21:37:01  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * Author's Name                                           
*       *                                                         
*       * Copyright (C) 2006 Company Name                         
*       * Address                                                 
*       * City,     Zip                                           
*       *                                                         
*       * Description:                                            
*       * This PROGRAM was automatically generated BY GENMENU.    
*       *                                                         
*       *********************************************************


*       *********************************************************
*       *                                                         
*       *                      Menu Definition                    
*       *                                                         
*       *********************************************************
*

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _1ra1abzak OF _MSYSMENU PROMPT "基础信息" COLOR SCHEME 3
DEFINE PAD _1ra1abzal OF _MSYSMENU PROMPT "营业管理" COLOR SCHEME 3
DEFINE PAD _1ra1abzam OF _MSYSMENU PROMPT "查询与统计" COLOR SCHEME 3
DEFINE PAD _1ra1abzan OF _MSYSMENU PROMPT "打印输出" COLOR SCHEME 3
DEFINE PAD _1ra1abzao OF _MSYSMENU PROMPT "系统维护" COLOR SCHEME 3
DEFINE PAD _1ra1abzap OF _MSYSMENU PROMPT "退出" COLOR SCHEME 3
ON PAD _1ra1abzak OF _MSYSMENU ACTIVATE POPUP 新菜单项
ON PAD _1ra1abzal OF _MSYSMENU ACTIVATE POPUP _1r10q0vom
ON PAD _1ra1abzam OF _MSYSMENU ACTIVATE POPUP _1r10q10un
ON PAD _1ra1abzan OF _MSYSMENU ACTIVATE POPUP _1r10q162m
ON PAD _1ra1abzao OF _MSYSMENU ACTIVATE POPUP _1r10q1fap
ON SELECTION PAD _1ra1abzap OF _MSYSMENU ;
	DO _1ra1abzaq ;
	IN LOCFILE("\BJGL\MYMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MYMENU?")

DEFINE POPUP 新菜单项 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 新菜单项 PROMPT "房间信息"
DEFINE BAR 2 OF 新菜单项 PROMPT "价目表"
DEFINE BAR 3 OF 新菜单项 PROMPT "卡类别"
DEFINE BAR 4 OF 新菜单项 PROMPT "医师信息"
ON SELECTION BAR 1 OF 新菜单项 ;
	DO _1ra1abzbe ;
	IN LOCFILE("\BJGL\MYMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MYMENU?")
ON SELECTION BAR 2 OF 新菜单项 ;
	DO _1ra1abzc5 ;
	IN LOCFILE("\BJGL\MYMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MYMENU?")
ON SELECTION BAR 3 OF 新菜单项 ;
	DO _1ra1abzcv ;
	IN LOCFILE("\BJGL\MYMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MYMENU?")
ON SELECTION BAR 4 OF 新菜单项 ;
	DO _1ra1abzdk ;
	IN LOCFILE("\BJGL\MYMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MYMENU?")

DEFINE POPUP _1r10q0vom MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF _1r10q0vom PROMPT "顾客注册"
DEFINE BAR 2 OF _1r10q0vom PROMPT "顾客结账"
DEFINE BAR 3 OF _1r10q0vom PROMPT "每日结算"
DEFINE BAR 4 OF _1r10q0vom PROMPT "发放新卡"
ON SELECTION BAR 2 OF _1r10q0vom ;
	DO _1ra1abzec ;
	IN LOCFILE("\BJGL\MYMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MYMENU?")
ON SELECTION BAR 4 OF _1r10q0vom ;
	DO _1ra1abzf2 ;
	IN LOCFILE("\BJGL\MYMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MYMENU?")

DEFINE POPUP _1r10q10un MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF _1r10q10un PROMPT "营业日报查询"
DEFINE BAR 2 OF _1r10q10un PROMPT "每日营业收入"
DEFINE BAR 3 OF _1r10q10un PROMPT "医师工资查询"
DEFINE BAR 4 OF _1r10q10un PROMPT "每月营业收入"
DEFINE BAR 5 OF _1r10q10un PROMPT "查询用卡情况"
DEFINE BAR 6 OF _1r10q10un PROMPT "营业状态显示"

DEFINE POPUP _1r10q162m MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF _1r10q162m PROMPT "打印保健卡"
DEFINE BAR 2 OF _1r10q162m PROMPT "打印营业收入表"
DEFINE BAR 3 OF _1r10q162m PROMPT "打印每月工资"
DEFINE BAR 4 OF _1r10q162m PROMPT "打印营业日报"

DEFINE POPUP _1r10q1fap MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF _1r10q1fap PROMPT "密码管理"
DEFINE BAR 2 OF _1r10q1fap PROMPT "单位名称"
DEFINE BAR 3 OF _1r10q1fap PROMPT "数据备份"
DEFINE BAR 4 OF _1r10q1fap PROMPT "临时屏保"
ON SELECTION BAR 1 OF _1r10q1fap ;
	DO _1ra1abzfu ;
	IN LOCFILE("\BJGL\MYMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MYMENU?")
ON SELECTION BAR 2 OF _1r10q1fap ;
	DO _1ra1abzgr ;
	IN LOCFILE("\BJGL\MYMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MYMENU?")
ON BAR 3 OF _1r10q1fap ACTIVATE POPUP 数据备份
ON SELECTION BAR 4 OF _1r10q1fap ;
	DO _1ra1abzhh ;
	IN LOCFILE("\BJGL\MYMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MYMENU?")

DEFINE POPUP 数据备份 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 数据备份 PROMPT "数据备份"
DEFINE BAR 2 OF 数据备份 PROMPT "数据恢复"
ON SELECTION BAR 1 OF 数据备份 ;
	DO _1ra1abzi9 ;
	IN LOCFILE("\BJGL\MYMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MYMENU?")
ON SELECTION BAR 2 OF 数据备份 ;
	DO _1ra1abzj0 ;
	IN LOCFILE("\BJGL\MYMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MYMENU?")


*       *********************************************************
*       *                                                         
*       * _1RA1ABZAQ  ON SELECTION PAD                            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MYMENU.MPR,            Record:   44         
*       * Called By:  ON SELECTION PAD                            
*       * Prompt:     退出                                        
*       * Snippet:    1                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1ra1abzaq
* close all
 *clear events
 *set sysmenu to default
 *set sysmenu on
 *set talk on
 *set notify on
 *set exclusive on
 *set safety on
 *RETURN
 *ON SHUTDOWN
 *thisform.release
 QUIT


*       *********************************************************
*       *                                                         
*       * _1RA1ABZBE  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 _1ra1abzbe
do form room_bed


*       *********************************************************
*       *                                                         
*       * _1RA1ABZC5  ON SELECTION BAR 2 OF POPUP 新菜单项        
*       *                                                         
*       * Procedure Origin: