main.mpr

工会管理软件

*       *********************************************************
*       *                                                         
*       * 02/10/03              MAIN.MPR                22:15:24  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * Author's Name                                           
*       *                                                         
*       * Copyright (C) 2003 Company Name                         
*       * Address                                                 
*       * City,     Zip                                           
*       *                                                         
*       * Description:                                            
*       * This PROGRAM was automatically generated BY GENMENU.    
*       *                                                         
*       *********************************************************


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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _0vq1bpcp6 OF _MSYSMENU PROMPT "数据录入(\<W)" COLOR SCHEME 3 ;
	KEY ALT+W, ""
DEFINE PAD _0vq1bpcpf OF _MSYSMENU PROMPT "修改(\<E)" COLOR SCHEME 3 ;
	KEY ALT+E, ""
DEFINE PAD _0vq1bpcpg OF _MSYSMENU PROMPT "查询(\<F)" COLOR SCHEME 3 ;
	KEY ALT+F, ""
DEFINE PAD _0vq1bpcph OF _MSYSMENU PROMPT "退出(\<X)" COLOR SCHEME 3 ;
	KEY ALT+X, ""
ON PAD _0vq1bpcp6 OF _MSYSMENU ACTIVATE POPUP 数据录入w
ON SELECTION PAD _0vq1bpcpf OF _MSYSMENU do form xiugai
ON PAD _0vq1bpcpg OF _MSYSMENU ACTIVATE POPUP 查询f
ON SELECTION PAD _0vq1bpcph OF _MSYSMENU quit

DEFINE POPUP 数据录入w MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 数据录入w PROMPT "工会会员登记"
DEFINE BAR 2 OF 数据录入w PROMPT "工会会员代表登记"
DEFINE BAR 3 OF 数据录入w PROMPT "职工疗养登记"
DEFINE BAR 4 OF 数据录入w PROMPT "困难补助登记"
DEFINE BAR 5 OF 数据录入w PROMPT "职工互助保险登记"
DEFINE BAR 6 OF 数据录入w PROMPT "班组建设登记"
DEFINE BAR 7 OF 数据录入w PROMPT "厂务公开登记"
DEFINE BAR 8 OF 数据录入w PROMPT "宣传报道登记"
DEFINE BAR 9 OF 数据录入w PROMPT "文体活动登记"
ON SELECTION BAR 1 OF 数据录入w do form ghhy
ON SELECTION BAR 2 OF 数据录入w do form hydb
ON SELECTION BAR 3 OF 数据录入w do form zgly
ON SELECTION BAR 4 OF 数据录入w do form knbz
ON SELECTION BAR 5 OF 数据录入w do form zghz
ON SELECTION BAR 6 OF 数据录入w do form bzjs
ON SELECTION BAR 7 OF 数据录入w do form cwgk
ON SELECTION BAR 8 OF 数据录入w do form xcbd
ON SELECTION BAR 9 OF 数据录入w do form wthd

DEFINE POPUP 查询f MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 查询f PROMPT "职工、会员代表查询"
DEFINE BAR 2 OF 查询f PROMPT "职工疗养情况查询"
DEFINE BAR 3 OF 查询f PROMPT "职工困难补助查询"
DEFINE BAR 4 OF 查询f PROMPT "职工互助保险查询"
DEFINE BAR 5 OF 查询f PROMPT "班组建设工作查询"
DEFINE BAR 6 OF 查询f PROMPT "厂务公开情况查询"
DEFINE BAR 7 OF 查询f PROMPT "宣传报道情况查询"
DEFINE BAR 8 OF 查询f PROMPT "文体活动情况查询"
ON SELECTION BAR 1 OF 查询f do form hydbcx
ON SELECTION BAR 2 OF 查询f do form zglycx
ON SELECTION BAR 3 OF 查询f do form knbzcx
ON SELECTION BAR 4 OF 查询f do form zghzcx
ON SELECTION BAR 5 OF 查询f do form bzjscx
ON SELECTION BAR 6 OF 查询f do form cwgkcx
ON SELECTION BAR 7 OF 查询f do form xcbdcx
ON SELECTION BAR 8 OF 查询f do form wthdcx