rsgl.bak

Vfq做中级人事管理数据库

*       *********************************************************
*       *                                                         
*       * 2004.12.17             RSGL.MPR               22:39:45  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 作者名称                                                
*       *                                                         
*       * 版权所有 (C) 2004 公司名称                             
*       * 地址                                                    
*       * 城市,     邮编                                          
*       * 国家                                              
*       *                                                         
*       * 说明:                                            
*       * 此程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


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

set talk off
set safety off
set date ansi
set century on
set default to e:\li\rsgl
use rsda
select 0
use bmzd
select 0
use zwzd

dkda=.f.


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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _1ek1cknrv OF _MSYSMENU PROMPT "系统" COLOR SCHEME 3
DEFINE PAD _1ek1cknrw OF _MSYSMENU PROMPT "编辑" COLOR SCHEME 3
DEFINE PAD _1ek1cknrx OF _MSYSMENU PROMPT "查询及统计" COLOR SCHEME 3
DEFINE PAD _1ek1cknry OF _MSYSMENU PROMPT "维护" COLOR SCHEME 3
ON PAD _1ek1cknrv OF _MSYSMENU ACTIVATE POPUP 系统
ON PAD _1ek1cknrw OF _MSYSMENU ACTIVATE POPUP 编辑
ON PAD _1ek1cknrx OF _MSYSMENU ACTIVATE POPUP 查询及统计
ON PAD _1ek1cknry OF _MSYSMENU ACTIVATE POPUP 维护

DEFINE POPUP 系统 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 系统 PROMPT "打开人事档案(\<D)" ;
	KEY CTRL+A, "CTRL+A"
DEFINE BAR 2 OF 系统 PROMPT "关闭人事档案(\<C)" ;
	KEY CTRL+D, "CTRL+D"
DEFINE BAR 3 OF 系统 PROMPT "打印花名册" ;
	KEY CTRL+P, "CTRL+P"
DEFINE BAR 4 OF 系统 PROMPT "\-"
DEFINE BAR 5 OF 系统 PROMPT "退出(\<Q)" ;
	KEY CTRL+Q, "CTRL+Q" ;
	MESSAGE '退出系统'
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 编辑 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 "\-"
DEFINE BAR _med_paste OF 编辑 PROMPT "粘贴(\<P)" ;
	KEY CTRL+V, "Ctrl+V" ;
	MESSAGE "粘贴剪贴板上的内容"
DEFINE BAR _med_copy OF 编辑 PROMPT "复制(\<C)" ;
	KEY CTRL+C, "Ctrl+C" ;
	MESSAGE "将选定内容复制到剪贴板上"
DEFINE BAR _med_cut OF 编辑 PROMPT "剪切(\<T)" ;
	KEY CTRL+X, "Ctrl+X" ;
	MESSAGE "移去选定内容并将其放入剪贴板"
ON SELECTION BAR 1 OF 编辑 do form bjry name bjry
ON SELECTION BAR 3 OF 编辑 delete
ON SELECTION BAR 4 OF 编辑 recall

DEFINE POPUP 查询及统计 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 查询及统计 PROMPT "查询" ;
	SKIP FOR .not.dkda
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

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 bmzd name bmzd
ON SELECTION BAR 2 OF 维护 do form zwzd name zwzd


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

read events
set sysmenu to default
if dkda
   rsda.release
endif
close database all

cancel