rsglcd.mpr

人事与工资管理系统 人事与工资管理系统是现代企业管理工作不可缺少的一部分

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


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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _1jk0p853e OF _MSYSMENU PROMPT "数据输入与编辑" COLOR SCHEME 3
DEFINE PAD _1jk0p853f OF _MSYSMENU PROMPT "数据查询" COLOR SCHEME 3
DEFINE PAD _1jk0p853g OF _MSYSMENU PROMPT "数据打印" COLOR SCHEME 3
DEFINE PAD _1jk0p853h OF _MSYSMENU PROMPT "系统维护" COLOR SCHEME 3
DEFINE PAD _1jk0p853i OF _MSYSMENU PROMPT "退出" COLOR SCHEME 3
ON PAD _1jk0p853e OF _MSYSMENU ACTIVATE POPUP 数据输入与
ON PAD _1jk0p853f OF _MSYSMENU ACTIVATE POPUP 数据查询
ON PAD _1jk0p853g OF _MSYSMENU ACTIVATE POPUP 数据打印
ON PAD _1jk0p853h OF _MSYSMENU ACTIVATE POPUP 系统维护
ON PAD _1jk0p853i OF _MSYSMENU ACTIVATE POPUP 退出

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 form 人事编辑.scx
ON SELECTION BAR 2 OF 数据输入与 do form 工资表编辑.scx
ON SELECTION BAR 3 OF 数据输入与 do form 课时编辑.scx
ON SELECTION BAR 4 OF 数据输入与 do form 部门代码编辑.scx

DEFINE POPUP 数据查询 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 数据查询 PROMPT "人事查询表"
DEFINE BAR 2 OF 数据查询 PROMPT "工资查询表"
DEFINE BAR 3 OF 数据查询 PROMPT "统计人数"
ON SELECTION BAR 1 OF 数据查询 do form 人事查询表.scx
ON SELECTION BAR 2 OF 数据查询 do form 工资查询表.scx
ON SELECTION BAR 3 OF 数据查询 do form 统计人数.scx

DEFINE POPUP 数据打印 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 数据打印 PROMPT "职工基本情况表"
DEFINE BAR 2 OF 数据打印 PROMPT "工资表"
ON SELECTION BAR 1 OF 数据打印 report form 职工基本情况表.frx
ON SELECTION BAR 2 OF 数据打印 report form 工资表.frx

DEFINE POPUP 系统维护 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 系统维护 PROMPT "用户维护"
ON SELECTION BAR 1 OF 系统维护 do form 用户维护.scx

DEFINE POPUP 退出 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 退出 PROMPT "退出"
ON SELECTION BAR 1 OF 退出 ;
	DO _1jk0p853j ;
	IN LOCFILE("\王珏4\RSGLCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is RSGLCD?")


*       *********************************************************
*       *                                                         
*       * _1JK0P853J  ON SELECTION BAR 1 OF POPUP 退出            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  RSGLCD.MPR,            Record:   23         
*       * Called By:  ON SELECTION BAR 1 OF POPUP 退出            
*       * Prompt:     退出                                        
*       * Snippet:    1                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1jk0p853j
clear events
quit