main.mpr

用于一般学校对学生的个人信息进行信息管理方面.

*       *********************************************************
*       *                                                         
*       * 10/22/08              MAIN.MPR                09:16:39  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 作者名称                                                
*       *                                                         
*       * 版权所有 (C) 2008 公司名称                             
*       * 地址                                                    
*       * 城市,     邮编                                          
*       * 国家                                              
*       *                                                         
*       * 说明:                                            
*       * 此程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _2hs0jvvdj OF _MSYSMENU PROMPT "文件" COLOR SCHEME 3
DEFINE PAD _2hs0jvvdk OF _MSYSMENU PROMPT "abc" COLOR SCHEME 3 ;
	KEY ALT+A, ""
ON PAD _2hs0jvvdj OF _MSYSMENU ACTIVATE POPUP 文件
ON PAD _2hs0jvvdk OF _MSYSMENU ACTIVATE POPUP abc

DEFINE POPUP 文件 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR _mfi_prevu OF 文件 PROMPT "Print Pre\<view" ;
	MESSAGE "Displays full pages as they will be printed"
DEFINE BAR _mfi_pgset OF 文件 PROMPT "Page Set\<up..." ;
	MESSAGE "Changes the page layout and printer settings"
DEFINE BAR _mfi_open OF 文件 PROMPT "\<Open..." ;
	KEY CTRL+O, "Ctrl+O" ;
	MESSAGE "Opens an existing file"
DEFINE BAR 4 OF 文件 PROMPT "\-"
DEFINE BAR 5 OF 文件 PROMPT "修改密码..."
DEFINE BAR 6 OF 文件 PROMPT "以不同身份登录..."
DEFINE BAR 7 OF 文件 PROMPT "\-"
DEFINE BAR 8 OF 文件 PROMPT "关闭"
ON SELECTION BAR 5 OF 文件 do form changepsw
ON SELECTION BAR 6 OF 文件 do form changeuser
ON SELECTION BAR 8 OF 文件 quit

DEFINE POPUP abc MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF abc PROMPT "fffgffg"
DEFINE BAR 2 OF abc PROMPT "fgfgjjhj" ;
	SKIP FOR s_privilege="USER"
DEFINE BAR 3 OF abc PROMPT "RTRTR"
ON BAR 3 OF abc ACTIVATE POPUP rtrtr

DEFINE POPUP rtrtr MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF rtrtr PROMPT "FGFGF"