zcd.mpr

这是一个小型企业工资管理系统

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


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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _1p11bbnh5 OF _MSYSMENU PROMPT "初始化(\<R)" COLOR SCHEME 3 ;
	KEY ALT+R, "" ;
	SKIP FOR yhdj>4
DEFINE PAD _1p11bbnh6 OF _MSYSMENU PROMPT "数据查询(\<Q)" COLOR SCHEME 3 ;
	KEY ALT+Q, "" ;
	SKIP FOR yhdj>4
DEFINE PAD _1p11bbnh7 OF _MSYSMENU PROMPT "数据更新(\<U)" COLOR SCHEME 3 ;
	KEY ALT+U, "" ;
	SKIP FOR yhdj>1
DEFINE PAD _1p11bbnh8 OF _MSYSMENU PROMPT "数据输出(\<O)" COLOR SCHEME 3 ;
	KEY ALT+O, "" ;
	SKIP FOR yhdj>1
DEFINE PAD _1p11bbnh9 OF _MSYSMENU PROMPT "数据统计(\<S)" COLOR SCHEME 3 ;
	KEY ALT+S, "" ;
	SKIP FOR yhdj>4
DEFINE PAD _1p11bbnha OF _MSYSMENU PROMPT "系统维护(\<H)" COLOR SCHEME 3 ;
	KEY ALT+H, ""
DEFINE PAD _1p11bbnhb OF _MSYSMENU PROMPT "退出(\<E)" COLOR SCHEME 3 ;
	KEY ALT+E, ""
ON SELECTION PAD _1p11bbnh5 OF _MSYSMENU ;
	DO _1p11bbnhc ;
	IN LOCFILE("STAFF\ZCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is ZCD?")
ON PAD _1p11bbnh6 OF _MSYSMENU ACTIVATE POPUP 数据查询q
ON PAD _1p11bbnh7 OF _MSYSMENU ACTIVATE POPUP 数据更新u
ON SELECTION PAD _1p11bbnh8 OF _MSYSMENU do form sjsc
ON SELECTION PAD _1p11bbnh9 OF _MSYSMENU do form sjtj
ON PAD _1p11bbnha OF _MSYSMENU ACTIVATE POPUP 系统维护h
ON PAD _1p11bbnhb OF _MSYSMENU ACTIVATE POPUP 退出e

DEFINE POPUP 数据查询q MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 数据查询q PROMPT "人事数据查询"
DEFINE BAR 2 OF 数据查询q PROMPT "家庭成员查询"
DEFINE BAR 3 OF 数据查询q PROMPT "社会关系查询"
DEFINE BAR 4 OF 数据查询q PROMPT "个人简历查询"
ON SELECTION BAR 1 OF 数据查询q do form rscx
ON SELECTION BAR 2 OF 数据查询q do form jtcycx
ON SELECTION BAR 3 OF 数据查询q do form shgxcx
ON SELECTION BAR 4 OF 数据查询q do form grjlcx

DEFINE POPUP 数据更新u MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 数据更新u PROMPT "人事数据更新"
DEFINE BAR 2 OF 数据更新u PROMPT "家庭成员更新"
DEFINE BAR 3 OF 数据更新u PROMPT "社会关系更新"
DEFINE BAR 4 OF 数据更新u PROMPT "个人简历更新"
ON SELECTION BAR 1 OF 数据更新u do form rsgx
ON SELECTION BAR 2 OF 数据更新u do form jtcygx
ON SELECTION BAR 3 OF 数据更新u do form shgxgx
ON SELECTION BAR 4 OF 数据更新u do form grjlgx

DEFINE POPUP 系统维护h MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 系统维护h PROMPT "主表单" ;
	KEY CTRL+Z, "CTRL+Z"
DEFINE BAR 2 OF 系统维护h PROMPT "\-"
DEFINE BAR 3 OF 系统维护h PROMPT "修改密码(\<M)" ;
	KEY CTRL+M, "CTRL+M"
DEFINE BAR 4 OF 系统维护h PROMPT "增删用户(\<S)" ;
	KEY CTRL+S, "CTRL+S" ;
	SKIP FOR yhdj>1
DEFINE BAR 5 OF 系统维护h PROMPT "\-"
DEFINE BAR _mfi_prevu OF 系统维护h PROMPT "打印预览(\<V)" ;
	MESSAGE "在打印前显示整个页面"
DEFINE BAR _mfi_pgset OF 系统维护h PROMPT "页面设置(\<U)..." ;
	MESSAGE "修改页面布局和打印机设置"
DEFINE BAR _mfi_sysprint OF 系统维护h PROMPT "打印(\<P)..." ;
	KEY CTRL+P, "Ctrl+P" ;
	MESSAGE "打印一个文本文件，报表，标签、命令窗口的内容或剪贴板上的内容"
DEFINE BAR 9 OF 系统维护h PROMPT "\-"
DEFINE BAR 10 OF 系统维护h PROMPT "关于本系统(\<A)" ;
	KEY CTRL+A, "CTRL+A"
ON SELECTION BAR 1 OF 系统维护h do form zbd
ON SELECTION BAR 3 OF 系统维护h do form xgmm
ON SELECTION BAR 4 OF 系统维护h do form zsyh

DEFINE POPUP 退出e MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR _mfi_save OF 退出e PROMPT "保存(\<S)" ;
	KEY CTRL+S, "Ctrl+S" ;
	MESSAGE "保存当前改动了的文件"
DEFINE BAR 2 OF 退出e PROMPT "退出(\<X)" ;
	KEY CTRL+X, "CTRL+X" ;
	MESSAGE "退出 Visual FoxPro"
ON SELECTION BAR 2 OF 退出e ;
	DO _1p11bbnhk ;
	IN LOCFILE("STAFF\ZCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is ZCD?")


*       *********************************************************
*       *                                                         
*       * _1P11BBNHC  ON SELECTION PAD                            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  ZCD.MPR,            Record:    3            
*       * Called By:  ON SELECTION PAD                            
*       * Prompt:     初始化(R)                                   
*       * Snippet:    1                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1p11bbnhc
clear
close all
do setting
do zcd.mpr
do form zbd


*       *********************************************************
*       *                                                         
*       * _1P11BBNHK  ON SELECTION BAR 2 OF POPUP 退出e           
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  ZCD.MPR,            Record:   33            
*       * Called By:  ON SELECTION BAR 2 OF POPUP 退出e           
*       * Prompt:     退出(X)                                     
*       * Snippet:    2                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1p11bbnhk
do reset
clear all
clear events