edtshort.mpr

功能模块:报关操作,运输操作,报关查询,运输查询

*       *********************************************************
*       *                                                         
*       * 01/05/01            EDTSHORT.MPR              00:08:08  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 作者名称                                                
*       *                                                         
*       * 版权所有 (C) 2001 公司名称                             
*       * 地址                                                    
*       * 城市,     邮编                                          
*       * 国家                                              
*       *                                                         
*       * 说明:                                            
*       * 此程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


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

DEFINE POPUP 我的右菜单 SHORTCUT RELATIVE FROM MROW(),MCOL()
DEFINE BAR 1 OF 我的右菜单 PROMPT "下一条"
DEFINE BAR 2 OF 我的右菜单 PROMPT "上一条"
DEFINE BAR 3 OF 我的右菜单 PROMPT "\-"
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 "删除" ;
	MESSAGE "删除记录"
DEFINE BAR 9 OF 我的右菜单 PROMPT "取消删除" ;
	SKIP FOR IIF(DELETED(),.F.,.T.)
DEFINE BAR 10 OF 我的右菜单 PROMPT "\-"
DEFINE BAR _med_copy OF 我的右菜单 PROMPT "复制" ;
	KEY CTRL+C, "Ctrl+C" ;
	MESSAGE "Copies the selection onto the Clipboard"
DEFINE BAR 12 OF 我的右菜单 PROMPT "\-"
DEFINE BAR 13 OF 我的右菜单 PROMPT "字体..."
ON SELECTION BAR 1 OF 我的右菜单 ;
	DO _0ac00agq1 ;
	IN LOCFILE("DEMO\MENUS\EDTSHORT" ,"MPX;MPR|FXP;PRG" ,"WHERE is EDTSHORT?")
ON SELECTION BAR 2 OF 我的右菜单 ;
	DO _0ac00agq2 ;
	IN LOCFILE("DEMO\MENUS\EDTSHORT" ,"MPX;MPR|FXP;PRG" ,"WHERE is EDTSHORT?")
ON SELECTION BAR 4 OF 我的右菜单 application.activeform.tbrtools.cmdfind.click
ON SELECTION BAR 5 OF 我的右菜单 application.activeform.tbrtools.cmdappe.click
ON SELECTION BAR 6 OF 我的右菜单 application.activeform.tbrtools.cmdmodi.click
ON SELECTION BAR 8 OF 我的右菜单 application.activeform.tbrtools.cmddele.click
ON SELECTION BAR 9 OF 我的右菜单 ;
	DO _0ac00agq3 ;
	IN LOCFILE("DEMO\MENUS\EDTSHORT" ,"MPX;MPR|FXP;PRG" ,"WHERE is EDTSHORT?")
ON SELECTION BAR 13 OF 我的右菜单 ;
	DO _0ac00agq4 ;
	IN LOCFILE("DEMO\MENUS\EDTSHORT" ,"MPX;MPR|FXP;PRG" ,"WHERE is EDTSHORT?")

ACTIVATE POPUP 我的右菜单

*       *********************************************************
*       *                                                         
*       * _0AC00AGQ1  ON SELECTION BAR 1 OF POPUP 我的右菜单      
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  EDTSHORT.MPR,            Record:    5       
*       * Called By:  ON SELECTION BAR 1 OF POPUP 我的右菜单      
*       * Prompt:     下一条                                      
*       * Snippet:    1                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _0ac00agq1
if eof()
   go top
else
   skip
endif
application.activeform.refresh


*       *********************************************************
*       *                                                         
*       * _0AC00AGQ2  ON SELECTION BAR 2 OF POPUP 我的右菜单      
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  EDTSHORT.MPR,            Record:    6       
*       * Called By:  ON SELECTION BAR 2 OF POPUP 我的右菜单      
*       * Prompt:     上一条                                      
*       * Snippet:    2                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _0ac00agq2
if bof()
   go bottom
else
    skip -1
endif

application.activeform.refresh


*       *********************************************************
*       *                                                         
*       * _0AC00AGQ3  ON SELECTION BAR 9 OF POPUP 我的右菜单      
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  EDTSHORT.MPR,            Record:   15       
*       * Called By:  ON SELECTION BAR 9 OF POPUP 我的右菜单      
*       * Prompt:     取消删除                                    
*       * Snippet:    3                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _0ac00agq3
recall


*       *********************************************************
*       *                                                         
*       * _0AC00AGQ4  ON SELECTION BAR 13 OF POPUP 我的右菜单     
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  EDTSHORT.MPR,            Record:   20       
*       * Called By:  ON SELECTION BAR 13 OF POPUP 我的右菜单     
*       * Prompt:     字体...                                     
*       * Snippet:    4                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _0ac00agq4
	cFont = GetFont()
	IF EMPTY(cFont)
		RETURN
	ENDIF
	dh1 = AT(",",cFont,1)  &&第一个逗号位置
	dh2 = AT(",",cFont,2)&&第二个逗号位置
	FontName = SUBSTR(cFont,1,dh1-1) &&字体名,要减1
	FontSize = VAL(SUBSTR(cFont,dh1+1,dh2-dh1-1)) &&字体大小
*	FontBold = ATC("B",SUBSTR(cFont,m.comma2Loc))#0
*	FontItalic = ATC("I",SUBSTR(cFont,m.comma2Loc))#0
*wait window FontName&&+[,]+SUBSTR(cFont,dh1+1,dh2-dh1)+[,]
*wait window SUBSTR(cFont,dh1+1,dh2-dh1-1)

application.activeform.Pageframe1.Page1.Edit1.fontname=fontname
application.activeform.Pageframe1.Page1.Edit1.fontsize=fontsize
application.activeform.Pageframe1.Page1.Edit1.refresh