menu1.mpr

一个汽车修理厂管理系统源码

*       *********************************************************
*       *                                                         
*       * 1998-08-25             MENU1.MPR              00:06:02  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 段洪杰                                                  
*       *                                                         
*       * 版权(C) 1998 云南省地球物理技术研究所通海地震台   
*       * 云南省通海地震台                                        
*       * 通海, 云南  652700                                        
*       * 中国                                              
*       *                                                         
*       * 说明：                                            
*       * 本程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


*       *********************************************************
*       *                                                         
*       *                         安装代码                        
*       *                                                         
*       *********************************************************
*




*       *********************************************************
*       *                                                         
*       *                         菜单定义                        
*       *                                                         
*       *********************************************************
*

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _rxn007rd8 OF _MSYSMENU PROMPT "门市管理(\<M)" COLOR SCHEME 3 ;
	KEY ALT+M, "ALT+M"
DEFINE PAD _rxn007rdc OF _MSYSMENU PROMPT "仓库管理(\<C)" COLOR SCHEME 3 ;
	KEY ALT+C, "ALT+C"
DEFINE PAD _rxn007rde OF _MSYSMENU PROMPT "人事管理(\<R)" COLOR SCHEME 3 ;
	KEY ALT+R, "ALT+R"
DEFINE PAD _rxn007rdg OF _MSYSMENU PROMPT "财务管理(\<W)" COLOR SCHEME 3 ;
	KEY ALT+W, "ALT+W"
DEFINE PAD _rxn007rdj OF _MSYSMENU PROMPT "客户信息管理(\<K)" COLOR SCHEME 3 ;
	KEY ALT+K, "ALT+K"
DEFINE PAD _rxn007rdl OF _MSYSMENU PROMPT "系统功能(\<X)" COLOR SCHEME 3 ;
	KEY ALT+X, "ALT+X"
DEFINE PAD _rxn007rdn OF _MSYSMENU PROMPT "帮助(\<H)" COLOR SCHEME 3 ;
	KEY ALT+H, "ALT+H"
ON PAD _rxn007rd8 OF _MSYSMENU ACTIVATE POPUP 门市管理m
ON PAD _rxn007rdc OF _MSYSMENU ACTIVATE POPUP 仓库管理c
ON PAD _rxn007rde OF _MSYSMENU ACTIVATE POPUP 人事管理r
ON PAD _rxn007rdg OF _MSYSMENU ACTIVATE POPUP 财务管理w
ON PAD _rxn007rdj OF _MSYSMENU ACTIVATE POPUP 客户信息管
ON PAD _rxn007rdl OF _MSYSMENU ACTIVATE POPUP 系统功能x
ON SELECTION PAD _rxn007rdn OF _MSYSMENU ;
	DO _rxn007rdy ;
	IN LOCFILE("\AUTOMIS\MENU1" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 MENU1?")

DEFINE POPUP 门市管理m MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 门市管理m PROMPT "门市配件销售(\<A)" ;
	KEY ALT+A, " " ;
	SKIP FOR !usermsxs
DEFINE BAR 2 OF 门市管理m PROMPT "门市每日扎帐(\<B)" ;
	KEY ALT+B, " " ;
	SKIP FOR !usermsjz
DEFINE BAR 3 OF 门市管理m PROMPT "\-"
DEFINE BAR 4 OF 门市管理m PROMPT "门市配件盘点(\<C)" ;
	KEY ALT+C, " " ;
	SKIP FOR !usermspd
DEFINE BAR 5 OF 门市管理m PROMPT "门市记帐查询(\<D)" ;
	KEY ALT+D, " " ;
	SKIP FOR !userjzcx
DEFINE BAR 6 OF 门市管理m PROMPT "\-"
DEFINE BAR 7 OF 门市管理m PROMPT "门市配件录入(\<E)" ;
	KEY ALT+E, " " ;
	SKIP FOR !usermslr
DEFINE BAR 8 OF 门市管理m PROMPT "门市配件查询(\<F)" ;
	KEY ALT+F, " " ;
	SKIP FOR !usermscx
DEFINE BAR 9 OF 门市管理m PROMPT "门市配件调拨(\<G)" ;
	KEY ALT+G, " " ;
	SKIP FOR !userckdms
ON SELECTION BAR 1 OF 门市管理m ;
	DO _rxn007rfa ;
	IN LOCFILE("\AUTOMIS\MENU1" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 MENU1?")
ON SELECTION BAR 2 OF 门市管理m ;
	DO _rxn007rff ;
	IN LOCFILE("\AUTOMIS\MENU1" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 MENU1?")
ON SELECTION BAR 4 OF 门市管理m ;
	DO _rxn007rfl ;
	IN LOCFILE("\AUTOMIS\MENU1" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 MENU1?")
ON SELECTION BAR 5 OF 门市管理m ;
	DO _rxn007rfq ;
	IN LOCFILE("\AUTOMIS\MENU1" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 MENU1?")
ON SELECTION BAR 7 OF 门市管理m ;
	DO _rxn007rfw ;
	IN LOCFILE("\AUTOMIS\MENU1" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 MENU1?")
ON SELECTION BAR 8 OF 门市管理m ;
	DO _rxn007rg1 ;
	IN LOCFILE("\AUTOMIS\MENU1" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 MENU1?")
ON SELECTION BAR 9 OF 门市管理m ;
	DO _rxn007rg7 ;
	IN LOCFILE("\AUTOMIS\MENU1" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 MENU1?")

DEFINE POPUP 仓库管理c MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 仓库管理c PROMPT "仓库配件出货(\<A)" ;
	KEY ALT+A, " " ;
	SKIP FOR !userckch
DEFINE BAR 2 OF 仓库管理c PROMPT "仓库每日扎帐(\<B)" ;
	KEY ALT+B, " " ;
	SKIP FOR !userckjz
DEFINE BAR 3 OF 仓库管理c PROMPT "\-"
DEFINE BAR 4 OF 仓库管理c PROMPT "仓库配件盘点(\<C)" ;
	KEY ALT+C, " " ;
	SKIP FOR !userckpd
DEFINE BAR 5 OF 仓库管理c PROMPT "仓库记帐查询(\<D)" ;
	KEY ALT+D, " " ;
	SKIP FOR !userckjzcx
DEFINE BAR 6 OF 仓库管理c PROMPT "\-"
DEFINE BAR 7 OF 仓库管理c PROMPT "仓库配件录入(\<E)" ;
	KEY ALT+E, " " ;
	SKIP FOR !usercarklr
DEFINE BAR 8 OF 仓库管理c PROMPT "仓库配件查询(\<F)" ;
	KEY ALT+F, " " ;
	SKIP FOR !usercarkcx
DEFINE BAR 9 OF 仓库管理c PROMPT "仓库配件调拨(\<G)" ;
	KEY ALT+G, " " ;
	SKIP FOR !userckdms
DEFINE BAR 10 OF 仓库管理c PROMPT "调拨信息浏览(\<H)"
ON SELECTION BAR 1 OF 仓库管理c ;
	DO _rxn007rgv ;
	IN LOCFILE("\AUTOMIS\MENU1" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 MENU1?")
ON SELECTION BAR 2 OF 仓库管理c ;
	DO _rxn007rh0 ;
	IN LOCFILE("\AUTOMIS\MENU1" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 MENU1?")
ON SELECTION BAR 4 OF 仓库管理c ;
	DO _rxn007rh6 ;
	IN LOCFILE("\AUTOMIS\MENU1" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 MENU1?")
ON SELECTION BAR 5 OF 仓库管理c ;
	DO _rxn007rhb ;
	IN LOCFILE("\AUTOMIS\MENU1" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 MENU1?")
ON SELECTION BAR 7 OF 仓库管理c ;
	DO _rxn007rhh ;
	IN LOCFILE("\AUTOMIS\MENU1" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 MENU1?")
ON SELECTION BAR 8 OF 仓库管理c ;
	DO _rxn007rhm ;
	IN LOCFILE("\AUTOMIS\MENU1" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 MENU1?")
ON SELECTION BAR 9 OF 仓库管理c ;
	DO _rxn007rhs ;
	IN LOCFILE("\AUTOMIS\MENU1" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 MENU1?")
ON SELECTION BAR 10 OF 仓库管理c ;
	DO _rxn007rhx ;
	IN LOCFILE("\AUTOMIS\MENU1" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 MENU1?")

DEFINE POPUP 人事管理r MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 人事管理r PROMPT "人事信息录入(\<A)" ;
	KEY ALT+A, " " ;
	SKIP FOR !userrslr
DEFINE BAR 2 OF 人事管理r PROMPT "人事信息查询(\<B)" ;
	KEY ALT+B, " " ;
	SKIP FOR !userrscx
ON SELECTION BAR 1 OF 人事管理r ;
	DO _rxn007ri9 ;
	IN LOCFILE("\AUTOMIS\MENU1" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 MENU1?")
ON SELECTION BAR 2 OF 人事管理r ;
	DO _rxn007rif ;
	IN LOCFILE("\AUTOMIS\MENU1" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 MENU1?")

DEFINE POPUP 财务管理w MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 财务管理w PROMPT "财务管理(\<A)" ;
	KEY ALT+A, " " ;
	SKIP FOR !usercwlr
ON SELECTION BAR 1 OF 财务管理w ;
	DO _rxn007rip ;
	IN LOCFILE("\AUTOMIS\MENU1" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 MENU1?")

DEFINE POPUP 客户信息管 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 客户信息管 PROMPT "客户信息录入(\<A)" ;
	KEY ALT+A, " " ;
	SKIP FOR !usercflr
DEFINE BAR 2 OF 客户信息管 PROMPT "客户信息查询(\<B)" ;
	KEY ALT+B, " " ;
	SKIP FOR !usercfcx
ON SELECTION BAR 1 OF 客户信息管 ;
	DO _rxn007rj1 ;
	IN LOCFILE("\AUTOMIS\MENU1" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 MENU1?")
ON SELECTION BAR 2 OF 客户信息管 ;
	DO _rxn007rj7 ;
	IN LOCFILE("\AUTOMIS\MENU1" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 MENU1?")

DEFINE POPUP 系统功能x MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 系统功能x PROMPT "关于 AutoMis (\<A)" ;
	KEY ALT+A, " "
DEFINE BAR 2 OF 系统功能x PROMPT "\-"
DEFINE BAR 3 OF 系统功能x PROMPT "修改口令(\<B)" ;
	KEY ALT+B, " "
DEFINE BAR 4 OF 系统功能x PROMPT "修改销售价系数(\<C)" ;
	KEY ALT+C, " " ;
	SKIP FOR !userjzcg
DEFINE BAR 5 OF 系统功能x PROMPT "\-"
DEFINE BAR 6 OF 系统功能x PROMPT "备份数据(\<D)" ;
	KEY ALT+D, " " ;
	SKIP FOR !usersjbf
DEFINE BAR 7 OF 系统功能x PROMPT "恢复数据(\<E)" ;
	KEY ALT+E, " " ;
	SKIP FOR !usersjhf
DEFINE BAR 8 OF 系统功能x PROMPT "\-"
DEFINE BAR 9 OF 系统功能x PROMPT "退出系统(\<Q)" ;
	KEY ALT+Q, "ALT+Q"
ON SELECTION BAR 1 OF 系统功能x ;
	DO _rxn007rjt ;
	IN LOCFILE("\AUTOMIS\MENU1" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 MENU1?")
ON SELECTION BAR 3 OF 系统功能x ;
	DO _rxn007rjz ;
	IN LOCFILE("\AUTOMIS\MENU1" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 MENU1?")
ON SELECTION BAR 4 OF 系统功能x ;
	DO _rxn007rk4 ;
	IN LOCFILE("\AUTOMIS\MENU1" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 MENU1?")
ON SELECTION BAR 6 OF 系统功能x ;
	DO _rxn007rka ;
	IN LOCFILE("\AUTOMIS\MENU1" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 MENU1?")
ON SELECTION BAR 7 OF 系统功能x ;
	DO _rxn007rkf ;
	IN LOCFILE("\AUTOMIS\MENU1" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 MENU1?")
ON SELECTION BAR 9 OF 系统功能x ;
	DO _rxn007rkl ;
	IN LOCFILE("\AUTOMIS\MENU1" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 MENU1?")


*       *********************************************************
*       *