main.mpr

来自「一个简单的企业工资管理系统」· MPR 代码 · 共 46 行

*       *********************************************************
*       *                                                         
*       * 03/10/02              MAIN.MPR                18:12:48  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 作者名称                                                
*       *                                                         
*       * 版权所有 (C) 2002 公司名称                             
*       * 地址                                                    
*       * 城市,     邮编                                          
*       * 国家                                              
*       *                                                         
*       * 说明:                                            
*       * 此程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _0mb131csc OF _MSYSMENU PROMPT "数据管理" COLOR SCHEME 3
DEFINE PAD _0mb131ctp OF _MSYSMENU PROMPT "查询" COLOR SCHEME 3
DEFINE PAD _0mb131ctr OF _MSYSMENU PROMPT "退出" COLOR SCHEME 3
ON PAD _0mb131csc OF _MSYSMENU ACTIVATE POPUP 数据管理
ON PAD _0mb131ctp OF _MSYSMENU ACTIVATE POPUP 查询
ON SELECTION PAD _0mb131ctr OF _MSYSMENU clear events

DEFINE POPUP 数据管理 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 数据管理 PROMPT "员工信息输入"
ON SELECTION BAR 1 OF 数据管理 do form form\personnel

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 form\result
ON SELECTION BAR 2 OF 查询 do form form\grcx