main.mpr

本人制作的工资管理系统的课程设计,有需要的朋友尽量下载吧!希望大家快乐

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


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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _1hn17vko2 OF _MSYSMENU PROMPT "工资设定" COLOR SCHEME 3
DEFINE PAD _1hn17vko3 OF _MSYSMENU PROMPT "工资查询" COLOR SCHEME 3
DEFINE PAD _1hn17vko4 OF _MSYSMENU PROMPT "工资汇总" COLOR SCHEME 3
DEFINE PAD _1hn17vko5 OF _MSYSMENU PROMPT "退出系统" COLOR SCHEME 3
ON PAD _1hn17vko2 OF _MSYSMENU ACTIVATE POPUP 工资设定
ON PAD _1hn17vko3 OF _MSYSMENU ACTIVATE POPUP 工资查询
ON PAD _1hn17vko4 OF _MSYSMENU ACTIVATE POPUP 工资汇总
ON SELECTION PAD _1hn17vko5 OF _MSYSMENU clear events

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 gzsd
ON SELECTION BAR 2 OF 工资设定 do form gzsd
ON SELECTION BAR 3 OF 工资设定 do form gzsd
ON SELECTION BAR 4 OF 工资设定 do form gzsd

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 gzcx
ON SELECTION BAR 2 OF 工资查询 do form gzcx
ON SELECTION BAR 3 OF 工资查询 do form gzcx
ON SELECTION BAR 4 OF 工资查询 do form gzcx

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 gzhz
ON SELECTION BAR 2 OF 工资汇总 do form gzhz
ON SELECTION BAR 3 OF 工资汇总 do form gzhz