start.mpr

建设银行帐户管理系统

*       *********************************************************
*       *                                                         
*       * 03/06/00              START.MPR               21:11:14  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 作者名称                                                
*       *                                                         
*       * 版权所有 (C) 2000 公司名称                             
*       * 地址                                                    
*       * 城市,     邮编                                          
*       * 国家                                              
*       *                                                         
*       * 说明:                                            
*       * 此程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _01u19etum OF _MSYSMENU PROMPT "台帐基础管理(\<E)" COLOR SCHEME 3 ;
	KEY ALT+E, ""
DEFINE PAD _01u19etux OF _MSYSMENU PROMPT "系统参数设置(\<S)" COLOR SCHEME 3 ;
	KEY ALT+S, ""
DEFINE PAD _01u19etuy OF _MSYSMENU PROMPT "帮助(\<H)" COLOR SCHEME 3 ;
	KEY ALT+H, ""
ON PAD _01u19etum OF _MSYSMENU ACTIVATE POPUP 台帐基础管
ON PAD _01u19etux OF _MSYSMENU ACTIVATE POPUP 系统参数设
ON PAD _01u19etuy OF _MSYSMENU ACTIVATE POPUP 帮助h

DEFINE POPUP 台帐基础管 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 台帐基础管 PROMPT "台帐手工录入(\<J)" ;
	MESSAGE 设备台帐的手工录入
DEFINE BAR 2 OF 台帐基础管 PROMPT "台帐报表生成(\<R)" ;
	MESSAGE 设备台帐报表数据的生成
DEFINE BAR 3 OF 台帐基础管 PROMPT "台帐报表打印(\<P)" ;
	MESSAGE 打印设备台帐报表
DEFINE BAR 4 OF 台帐基础管 PROMPT "\-"
DEFINE BAR 5 OF 台帐基础管 PROMPT "报表日期(\<D)" ;
	MESSAGE 报表日期录入
DEFINE BAR 6 OF 台帐基础管 PROMPT "\-"
DEFINE BAR 7 OF 台帐基础管 PROMPT "数据备份(\<C)" ;
	MESSAGE 备份台帐数据
DEFINE BAR 8 OF 台帐基础管 PROMPT "数据恢复(\<R)" ;
	MESSAGE 恢复台帐数据
DEFINE BAR 9 OF 台帐基础管 PROMPT "\-"
DEFINE BAR 10 OF 台帐基础管 PROMPT "数据上传(\<P)" ;
	MESSAGE 形成上报数据
DEFINE BAR 11 OF 台帐基础管 PROMPT "数据接收(\<G)" ;
	MESSAGE 接收下级行数据
DEFINE BAR 12 OF 台帐基础管 PROMPT "\-"
DEFINE BAR 13 OF 台帐基础管 PROMPT "退出系统(\<Q)" ;
	MESSAGE 退出操作系统
ON SELECTION BAR 1 OF 台帐基础管 DO FORM TZ_lr name tz_lr
ON SELECTION BAR 2 OF 台帐基础管 DO FORM TZ_tjb name tz_tjb
ON SELECTION BAR 3 OF 台帐基础管 DO FORM TZ_DY name tz_dy
ON SELECTION BAR 5 OF 台帐基础管 DO FORM TZ_date name tz_date
ON SELECTION BAR 7 OF 台帐基础管 DO FORM TZ_BF name tz_bf
ON SELECTION BAR 8 OF 台帐基础管 DO FORM TZ_HF name tz_hf
ON SELECTION BAR 10 OF 台帐基础管 do form tz_sc name tz_sc
ON SELECTION BAR 11 OF 台帐基础管 DO FORM TZ_JS name tz_js
ON SELECTION BAR 13 OF 台帐基础管 do qUIT1

DEFINE POPUP 系统参数设 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 系统参数设 PROMPT "行名管理(\<N)" ;
	MESSAGE 本行名称录入
DEFINE BAR 2 OF 系统参数设 PROMPT "\-"
DEFINE BAR 3 OF 系统参数设 PROMPT "设备种类型号管理(\<Z)" ;
	MESSAGE 设备的种类、型号等
ON SELECTION BAR 1 OF 系统参数设 DO FORM TZ_HM name tz_hm
ON BAR 3 OF 系统参数设 ACTIVATE POPUP 设备种类型

DEFINE POPUP 设备种类型 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 设备种类型 PROMPT "手工管理"
DEFINE BAR 2 OF 设备种类型 PROMPT "磁盘导入/导出"
ON SELECTION BAR 1 OF 设备种类型 do form tz_zl
ON SELECTION BAR 2 OF 设备种类型 do form tz_zl2

DEFINE POPUP 帮助h MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR _MST_HELP OF 帮助h PROMPT "系统使用说明(\<M)" ;
	MESSAGE 系统使用帮助说明
DEFINE BAR 2 OF 帮助h PROMPT "\-"
DEFINE BAR 3 OF 帮助h PROMPT "关于(\<A)" ;
	MESSAGE 系统著作版权及版本号
ON SELECTION BAR 3 OF 帮助h DO FORM ABOUT