📄 menu.bak
字号:
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:
* *
* * 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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -