pzgl.mpr

编制管理.可以用于人事编制管理,并自动打印相关报表.

*       *********************************************************
*       *                                                         
*       * 02/13/08              PZGL.MPR                17:41:15  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 作者名称                                                
*       *                                                         
*       * 版权所有 (C) 2008 公司名称                             
*       * 地址                                                    
*       * 城市,     邮编                                          
*       * 国家                                              
*       *                                                         
*       * 说明:                                            
*       * 此程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _2as11wsoh OF _MSYSMENU PROMPT "录  入" COLOR SCHEME 3
DEFINE PAD _2as11wsoi OF _MSYSMENU PROMPT "电子照像" COLOR SCHEME 3
DEFINE PAD _2as11wsoj OF _MSYSMENU PROMPT "查询与修改" COLOR SCHEME 3
DEFINE PAD _2as11wsok OF _MSYSMENU PROMPT "打  印" COLOR SCHEME 3
DEFINE PAD _2as11wsol OF _MSYSMENU PROMPT "系  统" COLOR SCHEME 3
ON PAD _2as11wsoh OF _MSYSMENU ACTIVATE POPUP 录入
ON PAD _2as11wsoi OF _MSYSMENU ACTIVATE POPUP 电子照像
ON PAD _2as11wsoj OF _MSYSMENU ACTIVATE POPUP 查询与修改
ON PAD _2as11wsok OF _MSYSMENU ACTIVATE POPUP 打印
ON PAD _2as11wsol OF _MSYSMENU ACTIVATE POPUP 系统

DEFINE POPUP 录入 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 录入 PROMPT "基本信息录入"
ON SELECTION BAR 1 OF 录入 do form xxly

DEFINE POPUP 电子照像 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 电子照像 PROMPT "电子照像"
ON SELECTION BAR 1 OF 电子照像 do form dzzx

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 pzcx
ON SELECTION BAR 2 OF 查询与修改 do form pzcx00
ON SELECTION BAR 4 OF 查询与修改 do form pzxg

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 "\-"
DEFINE BAR 5 OF 打印 PROMPT "打印个人信息表"
ON SELECTION BAR 1 OF 打印 do form dy01
ON SELECTION BAR 3 OF 打印 do form dy02
ON SELECTION BAR 5 OF 打印 do form pzcxdy

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 "\-"
DEFINE BAR 5 OF 系统 PROMPT "退  出"
ON SELECTION BAR 1 OF 系统 do form sm.scx
ON SELECTION BAR 3 OF 系统 do form dhly.scx
ON SELECTION BAR 5 OF 系统 quit