hypm.spr

来自「用VF所编的管理系统」· SPR 代码 · 共 145 行

*       *********************************************************
*       *                                                         
*       * 04-02-24              HYPM.SPR                 12:14:59 
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 陈寿松                                                  
*       *                                                         
*       * Copyright (c) 2004 Company Name                         
*       * 上海市国顺路177弄33号401室                              
*       * 上海,     200433                                        
*       * 中国                                              
*       *                                                         
*       * Description:                                            
*       * This program was automatically generated by GENSCRN.    
*       *                                                         
*       *********************************************************


#REGION 0
REGIONAL m.currarea, m.talkstat, m.compstat

IF SET("TALK") = "ON"
    SET TALK OFF
    m.talkstat = "ON"
ELSE
    m.talkstat = "OFF"
ENDIF
m.compstat = SET("COMPATIBLE")
SET COMPATIBLE FOXPLUS

m.rborder = SET("READBORDER")
SET READBORDER ON

m.currarea = SELECT()


*       *********************************************************
*       *                                                         
*       *               Windows Window definitions                
*       *                                                         
*       *********************************************************
*

IF NOT WEXIST("drck") ;
 OR UPPER(WTITLE("DRCK")) == "DRCK.PJX" ;
 OR UPPER(WTITLE("DRCK")) == "DRCK.SCX" ;
 OR UPPER(WTITLE("DRCK")) == "DRCK.MNX" ;
 OR UPPER(WTITLE("DRCK")) == "DRCK.PRG" ;
 OR UPPER(WTITLE("DRCK")) == "DRCK.FRX" ;
 OR UPPER(WTITLE("DRCK")) == "DRCK.QPR"
	DEFINE WINDOW drck ;
	      AT  0.000, 0.000  ;
	      SIZE 23.077,100.000 ;
	 TITLE "登陆窗口" ;
	    FONT "MS Sans Serif", 8 ;
	       FLOAT ;
	       NOCLOSE ;
	    MINIMIZE ;
	    SYSTEM ;
	    FILL FILE LOCFILE("\1.BMP","BMP|ICO", ;
	            "Where is 1?")
	MOVE WINDOW drck CENTER
ENDIF


*       *********************************************************
*       *                                                         
*       *               HYPM/Windows Screen Layout                
*       *                                                         
*       *********************************************************
*

#REGION 1
IF WVISIBLE("drck")
    ACTIVATE WINDOW drck SAME
ELSE
    ACTIVATE WINDOW drck NOSHOW
ENDIF
@ 2.308,11.600 SAY "欢迎进入通讯录管理系统" ;
    FONT "楷体_GB2312", 26 ;
 STYLE "T" ;
      COLOR RGB(0,255,0,,,,)
@ 8.538,35.400 SAY "作者:" ;
    FONT "宋体", 18 ;
 STYLE "T" ;
      COLOR RGB(255,0,255,,,,)
@ 8.692,48.600 SAY "陈寿松" ;
    FONT "楷体_GB2312", 16 ;
 STYLE "T" ;
      COLOR RGB(128,0,0,,,,)
@ 15.462,19.800 GET denglu ;
    PICTURE "@*HN 登陆" ;
       SIZE 1.259,5.385,0.308 ;
       DEFAULT 1 ;
    FONT "黑体", 18 ;
 STYLE "B" ;
 VALID _16b0q97j4()
@ 15.538,64.600 GET tuichu ;
    PICTURE "@*HT 退出" ;
       SIZE 1.333,5.385,0.308 ;
       DEFAULT 1 ;
    FONT "黑体", 18 ;
 STYLE "B"

IF NOT WVISIBLE("drck")
 ACTIVATE WINDOW drck
ENDIF

READ CYCLE

RELEASE WINDOW drck
SELECT (m.currarea)


#REGION 0

SET READBORDER &rborder

IF m.talkstat = "ON"
    SET TALK ON
ENDIF
IF m.compstat = "ON"
    SET COMPATIBLE ON
ENDIF


*       *********************************************************
*       *                                                         
*       * _16B0Q97J4           denglu VALID                       
*       *                                                         
*       * Function Origin:                                        
*       *                                                         
*       * From Platform:       Windows                            
*       * From Screen:         HYPM,     Record Number:    5      
*       * Variable:            denglu                             
*       * Called By:           VALID Clause                       
*       * Object Type:         Push Button                        
*       * Snippet Number:      1                                  
*       *                                                         
*       *********************************************************
*
FUNCTION _16b0q97j4     &&  denglu VALID
#REGION 1
do mm.prg