menu_main.mpr

本系统是典型的小型数据库管理系统,其中涉及开发数据库程序的一些细节!登录时,请选择"管理员"!密码为:88888888,建议分辨率:800*600.相信您会从中得到一些收获

DEFINE BAR 1 OF 显示s PROMPT "显示工具栏" ;
	KEY CTRL+S, "CTRL+S" ;
	MESSAGE "显示工具栏"
ON SELECTION BAR 1 OF 显示s ;
	DO _0y10rrntj ;
	IN LOCFILE("企业工资管理系统\MENUS\MENU_MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU_MAIN?")

DEFINE POPUP 系统帮助h MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 系统帮助h PROMPT "系统帮助" ;
	KEY CTRL+H, "CTRL+H"
ON SELECTION BAR 1 OF 系统帮助h ;
	DO _0y10rrntk ;
	IN LOCFILE("企业工资管理系统\MENUS\MENU_MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU_MAIN?")

DEFINE POPUP 退出系统q MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 退出系统q PROMPT "退出系统" ;
	KEY CTRL+X, "CTRL+X"
ON SELECTION BAR 1 OF 退出系统q ;
	DO _0y10rrntl ;
	IN LOCFILE("企业工资管理系统\MENUS\MENU_MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU_MAIN?")


*       *********************************************************
*       *                                                         
*       * _0Y10RRNTC  ON SELECTION BAR 8 OF POPUP 数据设置c       
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MENU_MAIN.MPR,            Record:   12      
*       * Called By:  ON SELECTION BAR 8 OF POPUP 数据设置c       
*       * Prompt:     退出系统                                    
*       * Snippet:    1                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _0y10rrntc
close all
clear events
quit



*       *********************************************************
*       *                                                         
*       * _0Y10RRNTD  ON SELECTION BAR 1 OF POPUP 数据浏览b       
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MENU_MAIN.MPR,            Record:   15      
*       * Called By:  ON SELECTION BAR 1 OF POPUP 数据浏览b       
*       * Prompt:     部门信息                                    
*       * Snippet:    2                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _0y10rrntd
set skip of bar 1 of 数据浏览B .t.
do form lcdir+'\forms\dep_brow.scx'


*       *********************************************************
*       *                                                         
*       * _0Y10RRNTE  ON SELECTION BAR 2 OF POPUP 数据浏览b       
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MENU_MAIN.MPR,            Record:   16      
*       * Called By:  ON SELECTION BAR 2 OF POPUP 数据浏览b       
*       * Prompt:     工龄信息                                    
*       * Snippet:    3                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _0y10rrnte
set skip of bar 2 of 数据浏览B .t.
do form lcdir+'\forms\age_brow.scx'


*       *********************************************************
*       *                                                         
*       * _0Y10RRNTF  ON SELECTION BAR 4 OF POPUP 数据浏览b       
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MENU_MAIN.MPR,            Record:   18      
*       * Called By:  ON SELECTION BAR 4 OF POPUP 数据浏览b       
*       * Prompt:     福利信息                                    
*       * Snippet:    4                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _0y10rrntf
set skip of bar 4 of 数据浏览B .t.
do form lcdir+'\forms\wale_brow.scx'


*       *********************************************************
*       *                                                         
*       * _0Y10RRNTG  ON SELECTION BAR 5 OF POPUP 数据浏览b       
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MENU_MAIN.MPR,            Record:   19      
*       * Called By:  ON SELECTION BAR 5 OF POPUP 数据浏览b       
*       * Prompt:     职称信息                                    
*       * Snippet:    5                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _0y10rrntg
set skip of bar 5 of 数据浏览B .t.
do form lcdir+'\forms\ran_brow.scx'


*       *********************************************************
*       *                                                         
*       * _0Y10RRNTJ  ON SELECTION BAR 1 OF POPUP 显示s           
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MENU_MAIN.MPR,            Record:   58      
*       * Called By:  ON SELECTION BAR 1 OF POPUP 显示s           
*       * Prompt:     显示工具栏                                  
*       * Snippet:    6                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _0y10rrntj
set mark of bar 1 of 显示S to .t.
set skip of bar 1 of 显示S .t.
do form lcdir+'\forms\tool.scx'


*       *********************************************************
*       *                                                         
*       * _0Y10RRNTK  ON SELECTION BAR 1 OF POPUP 系统帮助h       
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MENU_MAIN.MPR,            Record:   61      
*       * Called By:  ON SELECTION BAR 1 OF POPUP 系统帮助h       
*       * Prompt:     系统帮助                                    
*       * Snippet:    7                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _0y10rrntk
set skip of bar 1 of 系统帮助H .t.
do form lcdir+'\forms\help.scx'


*       *********************************************************
*       *                                                         
*       * _0Y10RRNTL  ON SELECTION BAR 1 OF POPUP 退出系统q       
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MENU_MAIN.MPR,            Record:   64      
*       * Called By:  ON SELECTION BAR 1 OF POPUP 退出系统q       
*       * Prompt:     退出系统                                    
*       * Snippet:    8                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _0y10rrntl
close all
clear events
quit