mainmenu.mpr

来自「一个很优秀的企业人事管理系统。本软件免费」· MPR 代码 · 共 62 行

*       *********************************************************
*       *                                                         
*       * 00.08.04            MAINMENU.MPR              17:39:58  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 作者名称                                                
*       *                                                         
*       * 版权所有 (C) 2000 公司名称                             
*       * 地址                                                    
*       * 城市,     邮编                                          
*       * 国家                                              
*       *                                                         
*       * 说明:                                            
*       * 此程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _06111v4j4 OF _MSYSMENU PROMPT "工资录入" COLOR SCHEME 3
DEFINE PAD _06111v4jg OF _MSYSMENU PROMPT "工资查询及打印" COLOR SCHEME 3
DEFINE PAD _06111v4jh OF _MSYSMENU PROMPT "系统维护" COLOR SCHEME 3
DEFINE PAD _06111v4ji OF _MSYSMENU PROMPT "退出" COLOR SCHEME 3
ON SELECTION PAD _06111v4j4 OF _MSYSMENU do form gz1
ON SELECTION PAD _06111v4jg OF _MSYSMENU do form gz2
ON SELECTION PAD _06111v4jh OF _MSYSMENU do form gz3
ON SELECTION PAD _06111v4ji OF _MSYSMENU ;
	DO _06111v4jk ;
	IN LOCFILE("\GZ\MAINMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAINMENU?")


*       *********************************************************
*       *                                                         
*       * _06111V4JK  ON SELECTION PAD                            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MAINMENU.MPR,            Record:    6       
*       * Called By:  ON SELECTION PAD                            
*       * Prompt:     退出                                        
*       * Snippet:    1                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _06111v4jk
release menu mainmenu
clear read
close all
set sysmenu to default
cancel