learndc.mpr

查字典背单词系统

*       *********************************************************
*       *                                                         
*       * 07/01/04             LEARNDC.MPR              13:45:51  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 作者名称                                                
*       *                                                         
*       * 版权所有 (C) 2004 公司名称                             
*       * 地址                                                    
*       * 城市,     邮编                                          
*       * 国家                                              
*       *                                                         
*       * 说明:                                            
*       * 此程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _19v0ti26z OF _MSYSMENU PROMPT "查字典(\<S)" COLOR SCHEME 3 ;
	KEY ALT+S, "" ;
	SKIP FOR bzbl
DEFINE PAD _19v0ti270 OF _MSYSMENU PROMPT "提取单词(\<T)" COLOR SCHEME 3 ;
	KEY ALT+T, "" ;
	SKIP FOR bzbl
DEFINE PAD _19v0ti271 OF _MSYSMENU PROMPT "记忆单词(\<L)" COLOR SCHEME 3 ;
	KEY ALT+L, "" ;
	SKIP FOR bzbl
DEFINE PAD _19v0ti272 OF _MSYSMENU PROMPT "测试(\<E)" COLOR SCHEME 3 ;
	KEY ALT+E, "" ;
	SKIP FOR bzbl
DEFINE PAD _19v0ti273 OF _MSYSMENU PROMPT "打印单词(\<P)" COLOR SCHEME 3 ;
	KEY ALT+P, "" ;
	SKIP FOR bzbl
DEFINE PAD _19v0ti274 OF _MSYSMENU PROMPT "增加新词(\<I)" COLOR SCHEME 3 ;
	KEY ALT+I, "" ;
	SKIP FOR bzbl
DEFINE PAD _19v0ti275 OF _MSYSMENU PROMPT "系统管理(\<G)" COLOR SCHEME 3 ;
	KEY ALT+G, "" ;
	SKIP FOR bzbl
ON SELECTION PAD _19v0ti26z OF _MSYSMENU ;
	DO _19v0ti276 ;
	IN LOCFILE("\ENGXX\LEARNDC" ,"MPX;MPR|FXP;PRG" ,"WHERE is LEARNDC?")
ON SELECTION PAD _19v0ti270 OF _MSYSMENU ;
	DO _19v0ti277 ;
	IN LOCFILE("\ENGXX\LEARNDC" ,"MPX;MPR|FXP;PRG" ,"WHERE is LEARNDC?")
ON PAD _19v0ti271 OF _MSYSMENU ACTIVATE POPUP 记忆单词l
ON PAD _19v0ti272 OF _MSYSMENU ACTIVATE POPUP 测试e
ON PAD _19v0ti273 OF _MSYSMENU ACTIVATE POPUP 打印单词p
ON SELECTION PAD _19v0ti274 OF _MSYSMENU ;
	DO _19v0ti278 ;
	IN LOCFILE("\ENGXX\LEARNDC" ,"MPX;MPR|FXP;PRG" ,"WHERE is LEARNDC?")
ON PAD _19v0ti275 OF _MSYSMENU ACTIVATE POPUP 系统管理g

DEFINE POPUP 记忆单词l MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 记忆单词l PROMPT "对比记忆单词"
DEFINE BAR 2 OF 记忆单词l PROMPT "生词"
DEFINE BAR 3 OF 记忆单词l PROMPT "提取单词本"
ON SELECTION BAR 1 OF 记忆单词l ;
	DO _19v0ti279 ;
	IN LOCFILE("\ENGXX\LEARNDC" ,"MPX;MPR|FXP;PRG" ,"WHERE is LEARNDC?")
ON SELECTION BAR 2 OF 记忆单词l ;
	DO _19v0ti27a ;
	IN LOCFILE("\ENGXX\LEARNDC" ,"MPX;MPR|FXP;PRG" ,"WHERE is LEARNDC?")
ON SELECTION BAR 3 OF 记忆单词l ;
	DO _19v0ti27b ;
	IN LOCFILE("\ENGXX\LEARNDC" ,"MPX;MPR|FXP;PRG" ,"WHERE is LEARNDC?")

DEFINE POPUP 测试e MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 测试e PROMPT "对比记忆单词"
DEFINE BAR 2 OF 测试e PROMPT "生词"
DEFINE BAR 3 OF 测试e PROMPT "提取单词本"
ON BAR 1 OF 测试e ACTIVATE POPUP 新菜单项
ON BAR 2 OF 测试e ACTIVATE POPUP _1dq18r3vt
ON BAR 3 OF 测试e 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 _19v0ti27c ;
	IN LOCFILE("\ENGXX\LEARNDC" ,"MPX;MPR|FXP;PRG" ,"WHERE is LEARNDC?")
ON SELECTION BAR 2 OF 新菜单项 ;
	DO _19v0ti27d ;
	IN LOCFILE("\ENGXX\LEARNDC" ,"MPX;MPR|FXP;PRG" ,"WHERE is LEARNDC?")

DEFINE POPUP _1dq18r3vt MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF _1dq18r3vt PROMPT "回忆词意"
DEFINE BAR 2 OF _1dq18r3vt PROMPT "回忆拼写"
ON SELECTION BAR 1 OF _1dq18r3vt ;
	DO _19v0ti27e ;
	IN LOCFILE("\ENGXX\LEARNDC" ,"MPX;MPR|FXP;PRG" ,"WHERE is LEARNDC?")
ON SELECTION BAR 2 OF _1dq18r3vt ;
	DO _19v0ti27f ;
	IN LOCFILE("\ENGXX\LEARNDC" ,"MPX;MPR|FXP;PRG" ,"WHERE is LEARNDC?")

DEFINE POPUP 提取单词本 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 提取单词本 PROMPT "回忆词意"
DEFINE BAR 2 OF 提取单词本 PROMPT "回忆拼写"
ON SELECTION BAR 1 OF 提取单词本 ;
	DO _19v0ti27g ;
	IN LOCFILE("\ENGXX\LEARNDC" ,"MPX;MPR|FXP;PRG" ,"WHERE is LEARNDC?")
ON SELECTION BAR 2 OF 提取单词本 ;
	DO _19v0ti27h ;
	IN LOCFILE("\ENGXX\LEARNDC" ,"MPX;MPR|FXP;PRG" ,"WHERE is LEARNDC?")

DEFINE POPUP 打印单词p MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 打印单词p PROMPT "对比记忆单词本"
DEFINE BAR 2 OF 打印单词p PROMPT "生词本"
DEFINE BAR 3 OF 打印单词p PROMPT "提取单词本"
ON SELECTION BAR 1 OF 打印单词p ;
	DO _19v0ti27i ;
	IN LOCFILE("\ENGXX\LEARNDC" ,"MPX;MPR|FXP;PRG" ,"WHERE is LEARNDC?")
ON SELECTION BAR 2 OF 打印单词p ;
	DO _19v0ti27j ;
	IN LOCFILE("\ENGXX\LEARNDC" ,"MPX;MPR|FXP;PRG" ,"WHERE is LEARNDC?")
ON SELECTION BAR 3 OF 打印单词p ;
	DO _19v0ti27k ;
	IN LOCFILE("\ENGXX\LEARNDC" ,"MPX;MPR|FXP;PRG" ,"WHERE is LEARNDC?")

DEFINE POPUP 系统管理g MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 系统管理g PROMPT "初始化"
DEFINE BAR 2 OF 系统管理g PROMPT "修改密码"
DEFINE BAR 3 OF 系统管理g PROMPT "退出系统"
ON BAR 1 OF 系统管理g ACTIVATE POPUP 初始化
ON SELECTION BAR 2 OF 系统管理g ;
	DO _19v0ti27l ;
	IN LOCFILE("\ENGXX\LEARNDC" ,"MPX;MPR|FXP;PRG" ,"WHERE is LEARNDC?")
ON SELECTION BAR 3 OF 系统管理g ;
	DO _19v0ti27m ;
	IN LOCFILE("\ENGXX\LEARNDC" ,"MPX;MPR|FXP;PRG" ,"WHERE is LEARNDC?")

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 _19v0ti27n ;
	IN LOCFILE("\ENGXX\LEARNDC" ,"MPX;MPR|FXP;PRG" ,"WHERE is LEARNDC?")
ON SELECTION BAR 2 OF 初始化 ;
	DO _19v0ti27o ;
	IN LOCFILE("\ENGXX\LEARNDC" ,"MPX;MPR|FXP;PRG" ,"WHERE is LEARNDC?")
ON SELECTION BAR 3 OF 初始化 ;
	DO _19v0ti27p ;
	IN LOCFILE("\ENGXX\LEARNDC" ,"MPX;MPR|FXP;PRG" ,"WHERE is LEARNDC?")


*       *********************************************************
*       *                                                         
*       * _19V0TI276  ON SELECTION PAD                            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  LEARNDC.MPR,            Record:    3        
*       * Called By:  ON SELECTION PAD                            
*       * Prompt:     查字典(S)                                   
*       * Snippet:    1                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _19v0ti276
bzbl=.t.  &&设置该变量为.T.,使所有的菜单项不可用
do form search  &&调用查字典表单
bzbl=.f.  &&恢复所有的菜单项可用


*       *********************************************************
*       *                                                         
*       * _19V0TI277  ON SELECTION PAD                            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  LEARNDC.MPR,            Record:    4        
*       * Called By:  ON SELECTION PAD                            
*       * Prompt:     提取单词(T)                                 
*       * Snippet:    2                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _19v0ti277
bzbl=.t.
do form tqdc
bzbl=.f.


*       *********************************************************
*       *                                                         
*       * _19V0TI278  ON SELECTION PAD                            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  LEARNDC.MPR,            Record:   29        
*       * Called By:  ON SELECTION PAD                            
*       * Prompt:     增加新词(I)                                 
*       * Snippet:    3                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _19v0ti278
bzbl=.t.
do form adddc with ""
bzbl=.f.


*       *********************************************************
*       *                                                         
*       * _19V0TI279  ON SELECTION BAR 1 OF POPUP 记忆单词l       
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  LEARNDC.MPR,            Record:    7        
*       * Called By:  ON SELECTION BAR 1 OF POPUP 记忆单词l       
*       * Prompt:     对比记忆单词                                
*       * Snippet:    4                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _19v0ti279
bzbl=.t.
do form comsele
bzbl=.f.


*       *********************************************************
*       *                                                         
*       * _19V0TI27A  ON SELECTION BAR 2 OF POPUP 记忆单词l       
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  LEARNDC.MPR,            Record:    8        
*       * Called By:  ON SELECTION BAR 2 OF POPUP 记忆单词l       
*       * Prompt:     生词                                        
*       * Snippet:    5                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _19v0ti27a
bzbl=.t.
do form szsele
bzbl=.f.


*       *********************************************************
*       *                                                         
*       * _19V0TI27B  ON SELECTION BAR 3 OF POPUP 记忆单词l       
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  LEARNDC.MPR,            Record:    9        
*       * Called By:  ON SELECTION BAR 3 OF POPUP 记忆单词l       
*       * Prompt:     提取单词本                                  
*       * Snippet:    6                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _19v0ti27b
bzbl=.t.
do form tqsele
bzbl=.f.


*       *********************************************************
*       *                                                         
*       * _19V0TI27C  ON SELECTION BAR 1 OF POPUP 新菜单项        
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  LEARNDC.MPR,            Record:   14        
*       * Called By:  ON SELECTION BAR 1 OF POPUP 新菜单项