comm.spr

这是继一之后的第2个管理信息系统的案例 很不错的 大家来看看吧

*       *********************************************************
*       *                                                         
*       * 98-04-15              COMM.SPR                 08:56:57 
*       *                                                         
*       *********************************************************

#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("commml2") ;
 OR UPPER(WTITLE("COMMML2")) == "COMMML2.PJX" ;
 OR UPPER(WTITLE("COMMML2")) == "COMMML2.SCX" ;
 OR UPPER(WTITLE("COMMML2")) == "COMMML2.MNX" ;
 OR UPPER(WTITLE("COMMML2")) == "COMMML2.PRG" ;
 OR UPPER(WTITLE("COMMML2")) == "COMMML2.FRX" ;
 OR UPPER(WTITLE("COMMML2")) == "COMMML2.QPR"
	DEFINE WINDOW commml2 ;
	      AT 6.938, 7.500 ;
	      SIZE 9.222,60.625 ;
	 TITLE "输入窗口" ;
	    FONT "宋体", 12 ;
	       FLOAT ;
	       NOCLOSE ;
	    MINIMIZE ;
	    SYSTEM ;
	      COLOR RGB(,,,192,192,192)
ENDIF

*       *               COMM/Windows Screen Layout                

#REGION 1
IF WVISIBLE("commml2")
    ACTIVATE WINDOW commml2 SAME
ELSE
    ACTIVATE WINDOW commml2 NOSHOW
ENDIF
@ 1.889,6.875 SAY "请输入命令：" ;
    FONT "宋体", 12 ;
 STYLE "T"
@ 3.556,21.625 GET COMM ;
    SIZE 1.389,11.500 ;
       DEFAULT " " ;
    FONT "宋体", 12 ;
 PICTURE "@K"
@ 1.444,44.000 GET COMMBUTT1 ;
    PICTURE "@*VN 确定;帮助;取消" ;
       SIZE 1.438,9.286,0.375 ;
       DEFAULT 1 ;
    FONT "MS Sans Serif", 11
@ 6.944,3.000 SAY COMMP ;
    SIZE 1.222,6.125 ;
    FONT "宋体", 12
@ 6.944,11.250 SAY TEXT ;
    SIZE 1.278,46.125 ;
    FONT "宋体", 12
@ 3.278,20.875 TO 3.278,34.000 ;
    PEN 2, 8 ;
 STYLE "1" ;
      COLOR RGB(128,128,128,128,128,128)
@ 3.278,20.875 TO 5.167,20.875 ;
    PEN 2, 8 ;
      COLOR RGB(128,128,128,128,128,128)
@ 5.056,21.000 TO 5.056,33.875 ;
    PEN 2, 8 ;
 STYLE "1" ;
      COLOR RGB(255,255,255,255,255,255)
@ 3.278,33.625 TO 5.167,33.625 ;
    PEN 2, 8 ;
      COLOR RGB(255,255,255,255,255,255)
@ 6.667,2.250 TO 8.389,2.250 ;
    PEN 2, 8 ;
      COLOR RGB(128,128,128,128,128,128)
@ 6.667,2.250 TO 6.667,9.875 ;
    PEN 2, 8 ;
 STYLE "1" ;
      COLOR RGB(128,128,128,128,128,128)
@ 6.667,9.625 TO 8.389,9.625 ;
    PEN 2, 8 ;
      COLOR RGB(255,255,255,255,255,255)
@ 8.278,2.375 TO 8.278,9.875 ;
    PEN 2, 8 ;
 STYLE "1" ;
      COLOR RGB(255,255,255,255,255,255)
@ 6.667,10.500 TO 8.445,10.500 ;
    PEN 2, 8 ;
      COLOR RGB(128,128,128,128,128,128)
@ 6.667,10.500 TO 6.667,58.000 ;
    PEN 2, 8 ;
 STYLE "1" ;
      COLOR RGB(128,128,128,128,128,128)
@ 8.333,10.625 TO 8.333,58.125 ;
    PEN 2, 8 ;
 STYLE "1" ;
      COLOR RGB(255,255,255,255,255,255)
@ 6.667,58.000 TO 8.445,58.000 ;
    PEN 2, 8 ;
      COLOR RGB(255,255,255,255,255,255)

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

READ CYCLE

RELEASE WINDOW commml2
SELECT (m.currarea)


#REGION 0

SET READBORDER &rborder

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