rsgl.mpr

简单人事管理

*       *********************************************************
*       *                                                         
*       * 12/22/07              RSGL.MPR                23:24:28  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 作者名称                                                
*       *                                                         
*       * 版权所有 (C) 2007 公司名称                             
*       * 地址                                                    
*       * 城市,     邮编                                          
*       * 国家                                              
*       *                                                         
*       * 说明:                                            
*       * 此程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


*       *********************************************************
*       *                                                         
*       *                         设置代码                        
*       *                                                         
*       *********************************************************
*

set talk off
set safety off
set date ansi
set century on
set default to d:\rsgl
use rsda

dkda=.f.

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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _2991e65vm OF _MSYSMENU PROMPT "系统" COLOR SCHEME 3
DEFINE PAD _2991e65vn OF _MSYSMENU PROMPT "编辑" COLOR SCHEME 3
DEFINE PAD _2991e65vo OF _MSYSMENU PROMPT "查询及统计" COLOR SCHEME 3
ON PAD _2991e65vm OF _MSYSMENU ACTIVATE POPUP 系统
ON PAD _2991e65vn OF _MSYSMENU ACTIVATE POPUP 编辑
ON PAD _2991e65vo 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 rsda name rsda
ON SELECTION BAR 2 OF 系统 rsda.release
ON SELECTION BAR 3 OF 系统 report form hmc to printer
ON SELECTION BAR 4 OF 系统 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 "恢复人员"
ON SELECTION BAR 1 OF 编辑 do form bjry name bjry
ON SELECTION BAR 2 OF 编辑 delete
ON SELECTION BAR 3 OF 编辑 recall

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 cx name cx
ON SELECTION BAR 2 OF 查询及统计 do form ckjl name ckjl
ON BAR 3 OF 查询及统计 ACTIVATE POPUP 统计

DEFINE POPUP 统计 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 统计 PROMPT "统计各部门人数"
DEFINE BAR 2 OF 统计 PROMPT "统计各职务人数"
ON SELECTION BAR 1 OF 统计 do tjbm
ON SELECTION BAR 2 OF 统计 do tjzw


*       *********************************************************
*       *                                                         
*       *                      清理代码及过程                     
*       *                                                         
*       *********************************************************
*

read events
set sysmenu to default

if dkda
rsda.release
endif
close database all

cancel