main.mpr

用vfp语言设计的人事管理系统源码

*       *********************************************************
*       *                                                         
*       * 03/05/06              MAIN.MPR                14:21:11  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 张德有   李强   马成龙                                  
*       *                                                         
*       * Copyright (C) 2006 石家庄铁道学院                       
*       * 工程管理（2）班                                         
*       * 石家庄市,     050021                                    
*       * 河北省                                            
*       *                                                         
*       * Description:                                            
*       * This PROGRAM was automatically generated BY GENMENU.    
*       *                                                         
*       *********************************************************


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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _1qy0uri2x OF _MSYSMENU PROMPT "档案新增或修改" COLOR SCHEME 3
DEFINE PAD _1qy0uri2y OF _MSYSMENU PROMPT "档案查询" COLOR SCHEME 3
DEFINE PAD _1qy0uri2z OF _MSYSMENU PROMPT "档案打印" COLOR SCHEME 3
DEFINE PAD _1qy0uri30 OF _MSYSMENU PROMPT "档案统计" COLOR SCHEME 3
DEFINE PAD _1qy0uri31 OF _MSYSMENU PROMPT "档案管理" COLOR SCHEME 3
DEFINE PAD _1qy0uri32 OF _MSYSMENU PROMPT "退出" COLOR SCHEME 3
ON PAD _1qy0uri2x OF _MSYSMENU ACTIVATE POPUP 档案新增或
ON SELECTION PAD _1qy0uri2y OF _MSYSMENU do form dacx2
ON PAD _1qy0uri2z OF _MSYSMENU ACTIVATE POPUP 档案打印
ON PAD _1qy0uri30 OF _MSYSMENU ACTIVATE POPUP 档案统计
ON PAD _1qy0uri31 OF _MSYSMENU ACTIVATE POPUP 档案管理
ON SELECTION PAD _1qy0uri32 OF _MSYSMENU ;
	DO _1qy0uri3d ;
	IN LOCFILE("人事管理系统\MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAIN?")

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 srgrxx
ON SELECTION BAR 2 OF 档案新增或 do form srjtcy
ON SELECTION BAR 3 OF 档案新增或 do form srshgx

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 档案打印 report form grxx preview
ON SELECTION BAR 2 OF 档案打印 report form jtcy preview
ON SELECTION BAR 3 OF 档案打印 report form shgx preview

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 jg
ON SELECTION BAR 2 OF 档案统计 do form xb
ON SELECTION BAR 3 OF 档案统计 do form zw

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 scgrxx
ON SELECTION BAR 2 OF 档案管理 do form scjtcy
ON SELECTION BAR 3 OF 档案管理 do form scshgx


*       *********************************************************
*       *                                                         
*       * _1QY0URI3D  ON SELECTION PAD                            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MAIN.MPR,            Record:   24           
*       * Called By:  ON SELECTION PAD                            
*       * Prompt:     退出                                        
*       * Snippet:    1                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1qy0uri3d
close all
 clear events
 set sysmenu to default
 set sysmenu on
 set talk on
 set notify on
 set exclusive on
 set safety on
 quit