menu_main.mpr

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

*       *********************************************************
*       *                                                         
*       * 05/04/03            MENU_MAIN.MPR             12:57:20  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 唐守勤                                                  
*       *                                                         
*       * 版权所有 (C) 2003 齐齐哈尔大学 化院 无机002班          
*       * 齐齐哈尔大学                                            
*       * 齐齐哈尔, 黑  161006                                    
*       * 中国                                              
*       *                                                         
*       * 说明:                                            
*       * 此程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _0y10rrnt4 OF _MSYSMENU PROMPT "数据设置(\<C)" COLOR SCHEME 3 ;
	KEY ALT+C, ""
DEFINE PAD _0y10rrnt5 OF _MSYSMENU PROMPT "数据浏览(\<B)" COLOR SCHEME 3 ;
	KEY ALT+B, ""
DEFINE PAD _0y10rrnt6 OF _MSYSMENU PROMPT "员工查询(\<Q)" COLOR SCHEME 3 ;
	KEY ALT+Q, ""
DEFINE PAD _0y10rrnt7 OF _MSYSMENU PROMPT "工资报表(\<T)" COLOR SCHEME 3 ;
	KEY ALT+T, ""
DEFINE PAD _0y10rrnt8 OF _MSYSMENU PROMPT "更改密码(\<P)" COLOR SCHEME 3 ;
	KEY ALT+P, ""
DEFINE PAD _0y10rrnt9 OF _MSYSMENU PROMPT "显示(\<S)" COLOR SCHEME 3 ;
	KEY ALT+S, ""
DEFINE PAD _0y10rrnta OF _MSYSMENU PROMPT "系统帮助(\<H)" COLOR SCHEME 3 ;
	KEY ALT+H, ""
DEFINE PAD _0y10rrntb OF _MSYSMENU PROMPT "退出系统(\<Q)" COLOR SCHEME 3 ;
	KEY ALT+Q, ""
ON PAD _0y10rrnt4 OF _MSYSMENU ACTIVATE POPUP 数据设置c
ON PAD _0y10rrnt5 OF _MSYSMENU ACTIVATE POPUP 数据浏览b
ON PAD _0y10rrnt6 OF _MSYSMENU ACTIVATE POPUP 员工查询q
ON PAD _0y10rrnt7 OF _MSYSMENU ACTIVATE POPUP 工资报表t
ON PAD _0y10rrnt8 OF _MSYSMENU ACTIVATE POPUP 更改密码p
ON PAD _0y10rrnt9 OF _MSYSMENU ACTIVATE POPUP 显示s
ON PAD _0y10rrnta OF _MSYSMENU ACTIVATE POPUP 系统帮助h
ON PAD _0y10rrntb OF _MSYSMENU ACTIVATE POPUP 退出系统q

DEFINE POPUP 数据设置c MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 数据设置c PROMPT "部门工资" ;
	KEY ALT+D, "ALT+D"
DEFINE BAR 2 OF 数据设置c PROMPT "福利工资" ;
	KEY ALT+W, "ALT+W"
DEFINE BAR 3 OF 数据设置c PROMPT "职称工资" ;
	KEY ALT+R, "ALT+R"
DEFINE BAR 4 OF 数据设置c PROMPT "工龄工资" ;
	KEY ALT+A, "ALT+A"
DEFINE BAR 5 OF 数据设置c PROMPT "\-"
DEFINE BAR 6 OF 数据设置c PROMPT "职工增删" ;
	KEY ALT+W, "ALT+W"
DEFINE BAR 7 OF 数据设置c PROMPT "\-"
DEFINE BAR 8 OF 数据设置c PROMPT "退出系统" ;
	KEY CTRL+X, "CTRL+X"
ON SELECTION BAR 1 OF 数据设置c do form lcdir+'\forms\enterd.scx'
ON SELECTION BAR 2 OF 数据设置c do form lcdir+'\forms\enterw.scx'
ON SELECTION BAR 3 OF 数据设置c do form lcdir+'\forms\enterr.scx'
ON SELECTION BAR 4 OF 数据设置c do form lcdir+'\forms\entera.scx'
ON SELECTION BAR 6 OF 数据设置c do form lcdir+'\forms\enteri.scx'
ON SELECTION BAR 8 OF 数据设置c ;
	DO _0y10rrntc ;
	IN LOCFILE("企业工资管理系统\MENUS\MENU_MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU_MAIN?")

DEFINE POPUP 数据浏览b MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 数据浏览b PROMPT "部门信息" ;
	KEY CTRL+D, "CTRL+D"
DEFINE BAR 2 OF 数据浏览b PROMPT "工龄信息" ;
	KEY CTRL+A, "CTRL+A"
DEFINE BAR 3 OF 数据浏览b PROMPT "\-"
DEFINE BAR 4 OF 数据浏览b PROMPT "福利信息" ;
	KEY CTRL+W, "CTRL+W"
DEFINE BAR 5 OF 数据浏览b PROMPT "职称信息" ;
	KEY CTRL+R, "CTRL+R"
ON SELECTION BAR 1 OF 数据浏览b ;
	DO _0y10rrntd ;
	IN LOCFILE("企业工资管理系统\MENUS\MENU_MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU_MAIN?")
ON SELECTION BAR 2 OF 数据浏览b ;
	DO _0y10rrnte ;
	IN LOCFILE("企业工资管理系统\MENUS\MENU_MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU_MAIN?")
ON SELECTION BAR 4 OF 数据浏览b ;
	DO _0y10rrntf ;
	IN LOCFILE("企业工资管理系统\MENUS\MENU_MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU_MAIN?")
ON SELECTION BAR 5 OF 数据浏览b ;
	DO _0y10rrntg ;
	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+I, "CTRL+I"
DEFINE BAR 2 OF 员工查询q PROMPT "员工工资" ;
	KEY CTRL+C, "CTRL+C"
ON SELECTION BAR 1 OF 员工查询q do form lcdir+'\forms\entr2.scx'
ON SELECTION BAR 2 OF 员工查询q do form lcdir+'\forms\entr.scx'

DEFINE POPUP 工资报表t MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 工资报表t PROMPT "个人信息"
DEFINE BAR 2 OF 工资报表t PROMPT "\-"
DEFINE BAR 3 OF 工资报表t PROMPT "部门信息"
DEFINE BAR 4 OF 工资报表t PROMPT "工龄信息"
DEFINE BAR 5 OF 工资报表t PROMPT "福利信息"
DEFINE BAR 6 OF 工资报表t PROMPT "职称信息"
DEFINE BAR 7 OF 工资报表t PROMPT "\-"
DEFINE BAR 8 OF 工资报表t PROMPT "员工信息"
ON BAR 1 OF 工资报表t ACTIVATE POPUP 个人信息
ON BAR 3 OF 工资报表t ACTIVATE POPUP 个人工资
ON BAR 4 OF 工资报表t ACTIVATE POPUP 工龄信息
ON BAR 5 OF 工资报表t ACTIVATE POPUP 福利信息
ON BAR 6 OF 工资报表t ACTIVATE POPUP 职称信息
ON BAR 8 OF 工资报表t ACTIVATE POPUP 员工信息

DEFINE POPUP 个人信息 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 个人信息 PROMPT "打印预览"
DEFINE BAR 2 OF 个人信息 PROMPT "打    印"
ON SELECTION BAR 1 OF 个人信息 do form lcdir+'\forms\entrri.scx'
ON SELECTION BAR 2 OF 个人信息 do form lcdir+'\forms\entrri1.scx'

DEFINE POPUP 个人工资 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 个人工资 PROMPT "打印预览"
DEFINE BAR 2 OF 个人工资 PROMPT "打    印"
ON SELECTION BAR 1 OF 个人工资 report form lcdir+'\report\rep_dep.frt' preview
ON SELECTION BAR 2 OF 个人工资 report form lcdir+'\report\rep_dep.frt' to printer

DEFINE POPUP 工龄信息 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 工龄信息 PROMPT "打印预览"
DEFINE BAR 2 OF 工龄信息 PROMPT "打    印"
ON SELECTION BAR 1 OF 工龄信息 report form lcdir+'\report\rep_age.frt' preview
ON SELECTION BAR 2 OF 工龄信息 report form lcdir+'\report\rep_age.frt' to printer

DEFINE POPUP 福利信息 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 福利信息 PROMPT "打印预览"
DEFINE BAR 2 OF 福利信息 PROMPT "打   印"
ON SELECTION BAR 1 OF 福利信息 report form lcdir+'\report\rep_wal.frt' preview
ON SELECTION BAR 2 OF 福利信息 report form lcdir+'\report\rep_wal.frt' to printer

DEFINE POPUP 职称信息 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 职称信息 PROMPT "打印预览"
DEFINE BAR 2 OF 职称信息 PROMPT "打   印"
ON SELECTION BAR 1 OF 职称信息 report form lcdir+'\report\rep_ran.frt' preview
ON SELECTION BAR 2 OF 职称信息 report form lcdir+'\report\rep_ran.frt' to printer

DEFINE POPUP 员工信息 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 员工信息 PROMPT "打印预览"
DEFINE BAR 2 OF 员工信息 PROMPT "打印"
ON SELECTION BAR 1 OF 员工信息 do form lcdir+'\forms\enterri.scx'
ON SELECTION BAR 2 OF 员工信息 do form lcdir+'\forms\enterri1.scx'

DEFINE POPUP 更改密码p MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 更改密码p PROMPT "系统密码" ;
	KEY CTRL+P, "CTRL+P"
DEFINE BAR 2 OF 更改密码p PROMPT "用户密码" ;
	KEY CTRL+U, "CTRL+U"
ON SELECTION BAR 1 OF 更改密码p do form lcdir+'\forms\enter1.scx'
ON SELECTION BAR 2 OF 更改密码p do form lcdir+'\forms\entr1.scx'

DEFINE POPUP 显示s MARGIN RELATIVE SHADOW COLOR SCHEME 4