mymenu.mpr

是一个人事管理系统

*       *********************************************************
*       *                                                         
*       * 2008-9-5            MYMENU.MPR              12:42:22  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 作者名称                                                
*       *                                                         
*       * 版权所有 (C) 2008 公司名称                             
*       * 地址                                                    
*       * 城市,     邮编                                          
*       * 国家                                              
*       *                                                         
*       * 说明:                                            
*       * 此程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _2gh0r8f2f OF _MSYSMENU PROMPT "基本信息管理" COLOR SCHEME 3
DEFINE PAD _2gh0r8f2g OF _MSYSMENU PROMPT "考勤考评管理" COLOR SCHEME 3
DEFINE PAD _2gh0r8f2h OF _MSYSMENU PROMPT "系统用户管理" COLOR SCHEME 3
DEFINE PAD _2gh0r8f2i OF _MSYSMENU PROMPT "帮助" COLOR SCHEME 3
ON PAD _2gh0r8f2f OF _MSYSMENU ACTIVATE POPUP 新菜单项
ON PAD _2gh0r8f2g OF _MSYSMENU ACTIVATE POPUP _19t0oazun
ON PAD _2gh0r8f2h OF _MSYSMENU ACTIVATE POPUP _19t0ocbls
ON PAD _2gh0r8f2i 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 "退出系统"
ON SELECTION BAR 1 OF 新菜单项 Do Form form\frmBmgl
ON SELECTION BAR 2 OF 新菜单项 Do Form form\frmRygl
ON SELECTION BAR 3 OF 新菜单项 QUIT

DEFINE POPUP _19t0oazun MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF _19t0oazun PROMPT "考勤管理"
DEFINE BAR 2 OF _19t0oazun PROMPT "考评管理"
ON SELECTION BAR 1 OF _19t0oazun Do Form form\frmkq
ON SELECTION BAR 2 OF _19t0oazun Do Form form\frmkp

DEFINE POPUP _19t0ocbls MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF _19t0ocbls PROMPT "用户管理"
DEFINE BAR 2 OF _19t0ocbls PROMPT "修改密码"
ON SELECTION BAR 1 OF _19t0ocbls ;
	DO _2gh0r8f2j ;
	IN LOCFILE("CHP11\MYMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MYMENU?")
ON SELECTION BAR 2 OF _19t0ocbls Do Form Form\frmPwd

DEFINE POPUP 帮助 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 帮助 PROMPT "关于..."
ON SELECTION BAR 1 OF 帮助 Do Form Form\frmAbout


*       *********************************************************
*       *                                                         
*       * _2GH0R8F2J  ON SELECTION BAR 1 OF POPUP _19t0ocbls      
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MYMENU.MPR,            Record:   14         
*       * Called By:  ON SELECTION BAR 1 OF POPUP _19t0ocbls      
*       * Prompt:     用户管理                                    
*       * Snippet:    1                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _2gh0r8f2j
If UserType = 1
  Do Form Form\frmUsers
Else
  MessageBox("没有权限")
Endif