kjcd.mpr

Vfq做中级人事管理数据库

*       *********************************************************
*       *                                                         
*       * 12/27/04              KJCD.MPR                09:06:03  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * Author's Name                                           
*       *                                                         
*       * Copyright (C) 2004 Company Name                         
*       * Address                                                 
*       * City,     Zip                                           
*       *                                                         
*       * Description:                                            
*       * This PROGRAM was automatically generated BY GENMENU.    
*       *                                                         
*       *********************************************************


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

DEFINE POPUP 快捷菜单 SHORTCUT RELATIVE FROM MROW(),MCOL()
DEFINE BAR 1 OF 快捷菜单 PROMPT "系统"
DEFINE BAR 2 OF 快捷菜单 PROMPT "编辑"
DEFINE BAR 3 OF 快捷菜单 PROMPT "查询及统计"
DEFINE BAR 4 OF 快捷菜单 PROMPT "维护"
ON BAR 1 OF 快捷菜单 ACTIVATE POPUP 新菜单项
ON BAR 2 OF 快捷菜单 ACTIVATE POPUP _1e21ci94u
ON BAR 3 OF 快捷菜单 ACTIVATE POPUP _1e21ckd82
ON BAR 4 OF 快捷菜单 ACTIVATE POPUP _1e21cn29q

DEFINE POPUP 新菜单项 SHORTCUT RELATIVE
DEFINE BAR 1 OF 新菜单项 PROMPT "打开人事档案(\<D)"
DEFINE BAR 2 OF 新菜单项 PROMPT "关闭人事档案(\<C)"
DEFINE BAR 3 OF 新菜单项 PROMPT "打印花名册"
DEFINE BAR 4 OF 新菜单项 PROMPT "\-"
DEFINE BAR 5 OF 新菜单项 PROMPT "退出(\<Q)"
ON SELECTION BAR 1 OF 新菜单项 do form rsda name rsda
ON SELECTION BAR 2 OF 新菜单项 rsda.release
ON SELECTION BAR 3 OF 新菜单项 report form hmc
ON SELECTION BAR 5 OF 新菜单项 clear events

DEFINE POPUP _1e21ci94u SHORTCUT RELATIVE
DEFINE BAR 1 OF _1e21ci94u PROMPT "新增或修改人员"
DEFINE BAR 2 OF _1e21ci94u PROMPT "删除人员"
DEFINE BAR 3 OF _1e21ci94u PROMPT "恢复人员"
ON SELECTION BAR 1 OF _1e21ci94u do form bjry name bjry
ON SELECTION BAR 2 OF _1e21ci94u delete
ON SELECTION BAR 3 OF _1e21ci94u recall

DEFINE POPUP _1e21ckd82 SHORTCUT RELATIVE
DEFINE BAR 1 OF _1e21ckd82 PROMPT "查询"
DEFINE BAR 2 OF _1e21ckd82 PROMPT "查看简历"
DEFINE BAR 3 OF _1e21ckd82 PROMPT "统计"
ON SELECTION BAR 1 OF _1e21ckd82 do form cx name cx
ON SELECTION BAR 2 OF _1e21ckd82 do form ckjl name ckjl
ON BAR 3 OF _1e21ckd82 ACTIVATE POPUP _1e21cl3i3

DEFINE POPUP _1e21cl3i3 SHORTCUT RELATIVE
DEFINE BAR 1 OF _1e21cl3i3 PROMPT "统计各部门人数"
DEFINE BAR 2 OF _1e21cl3i3 PROMPT "统计各职务人数"
ON SELECTION BAR 1 OF _1e21cl3i3 do tjbm
ON SELECTION BAR 2 OF _1e21cl3i3 do tjzw

DEFINE POPUP _1e21cn29q SHORTCUT RELATIVE
DEFINE BAR 1 OF _1e21cn29q PROMPT "部门字典"
DEFINE BAR 2 OF _1e21cn29q PROMPT "职务字典"
ON SELECTION BAR 1 OF _1e21cn29q do form bmzd name bmzd
ON SELECTION BAR 2 OF _1e21cn29q do form zwzd name zwzd

ACTIVATE POPUP 快捷菜单