sal.spr

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

*       *********************************************************
*       *                                                         
*       * 98-04-20               SAL.SPR                 13:56:28 
*       *                                                         
*       *********************************************************
*       *                                                         
*       * Author's Name                                           
*       *                                                         
*       * Copyright (c) 1998 Company Name                         
*       * Address                                                 
*       * City,     Zip                                           
*       *                                                         
*       * 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()


*       *********************************************************
*       *                                                         
*       *        SAL/Windows Databases, Indexes, Relations        
*       *                                                         
*       *********************************************************
*

IF USED("sjjh")
       SELECT sjjh
    SET ORDER TO 0
ELSE
       SELECT 0
       USE (LOCFILE("sjjh.dbf","DBF","Where is sjjh?"));
               AGAIN ALIAS sjjh ;
               ORDER 0
ENDIF

IF USED("nrb")
       SELECT nrb
    SET ORDER TO 0
ELSE
       SELECT 0
       USE (LOCFILE("nrb.dbf","DBF","Where is nrb?"));
               AGAIN ALIAS nrb ;
               ORDER 0
ENDIF

IF USED("dzb")
       SELECT dzb
    SET ORDER TO 0
ELSE
       SELECT 0
       USE (LOCFILE("dzb.dbf","DBF","Where is dzb?"));
               AGAIN ALIAS dzb ;
               ORDER 0
ENDIF

SELECT dzb


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

IF NOT WEXIST("int") ;
 OR UPPER(WTITLE("INT")) == "INT.PJX" ;
 OR UPPER(WTITLE("INT")) == "INT.SCX" ;
 OR UPPER(WTITLE("INT")) == "INT.MNX" ;
 OR UPPER(WTITLE("INT")) == "INT.PRG" ;
 OR UPPER(WTITLE("INT")) == "INT.FRX" ;
 OR UPPER(WTITLE("INT")) == "INT.QPR"
	DEFINE WINDOW int ;
	      AT 6.938, 7.500 ;
	      SIZE 9.222,60.750 ;
	 TITLE "输入窗口" ;
	    FONT "宋体", 12 ;
	       FLOAT ;
	       NOCLOSE ;
	    MINIMIZE ;
	    SYSTEM ;
	      COLOR RGB(,,,192,192,192)
ENDIF


*       *********************************************************
*       *                                                         
*       *                SAL/Windows Screen Layout                
*       *                                                         
*       *********************************************************
*

#REGION 1
IF WVISIBLE("int")
    ACTIVATE WINDOW int SAME
ELSE
    ACTIVATE WINDOW int NOSHOW
ENDIF
@ 1.778,7.500 SAY "请输入销售量：" ;
    FONT "宋体", 12 ;
 STYLE "T"
@ 3.389,22.000 GET XSL ;
    SIZE 1.111,10.125 ;
       DEFAULT 0 ;
    FONT "宋体", 12 ;
 PICTURE "@K"
@ 1.167,45.000 GET SALBUTT1 ;
    PICTURE "@*VN 确定;帮助;取消" ;
       SIZE 1.438,9.571,0.375 ;
       DEFAULT 1 ;
    FONT "MS Sans Serif", 11
@ 6.889,2.625 SAY SALP ;
    SIZE 1.111,6.500 ;
    FONT "宋体", 12
@ 6.611,2.000 TO 6.611,10.000 ;
    PEN 2, 8 ;
 STYLE "1" ;
      COLOR RGB(128,128,128,128,128,128)
@ 6.667,1.875 TO 8.223,1.875 ;
    PEN 2, 8 ;
      COLOR RGB(128,128,128,128,128,128)
@ 8.111,2.000 TO 8.111,9.875 ;
    PEN 2, 8 ;
 STYLE "1" ;
      COLOR RGB(255,255,255,255,255,255)
@ 6.667,9.625 TO 8.167,9.625 ;
    PEN 2, 8 ;
      COLOR RGB(255,255,255,255,255,255)
@ 6.667,10.250 TO 8.223,10.250 ;
    PEN 2, 8 ;
      COLOR RGB(128,128,128,128,128,128)
@ 6.611,10.375 TO 6.611,58.500 ;
    PEN 2, 8 ;
 STYLE "1" ;
      COLOR RGB(128,128,128,128,128,128)
@ 8.111,10.375 TO 8.111,58.500 ;
    PEN 2, 8 ;
 STYLE "1" ;
      COLOR RGB(255,255,255,255,255,255)
@ 6.667,58.375 TO 8.223,58.375 ;
    PEN 2, 8 ;
      COLOR RGB(255,255,255,255,255,255)
@ 3.722,26.375 TO 3.722,26.500 ;
    PEN 1, 8 ;
 STYLE "1"
@ 3.167,21.250 TO 4.667,21.250 ;
    PEN 2, 8 ;
      COLOR RGB(128,128,128,128,128,128)
@ 3.111,21.250 TO 3.111,33.000 ;
    PEN 2, 8 ;
 STYLE "1" ;
      COLOR RGB(128,128,128,128,128,128)
@ 4.611,21.125 TO 4.611,33.000 ;
    PEN 2, 8 ;
 STYLE "1" ;
      COLOR RGB(255,255,255,255,255,255)
@ 3.111,32.750 TO 4.667,32.750 ;
    PEN 2, 8 ;
      COLOR RGB(255,255,255,255,255,255)
@ 6.889,11.000 SAY TEXT ;
    SIZE 1.056,46.750 ;
    FONT "宋体", 12
@ 6.444,1.500 TO 8.444,59.000 ;
    PEN 1, 8

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

READ CYCLE

RELEASE WINDOW int

*       *********************************************************
*       *                                                         
*       *                Windows Closing Databases                
*       *                                                         
*       *********************************************************
*

IF USED("sjjh")
 SELECT sjjh
 USE
ENDIF

IF USED("nrb")
 SELECT nrb
 USE
ENDIF

IF USED("dzb")
 SELECT dzb
 USE
ENDIF

SELECT (m.currarea)


#REGION 0

SET READBORDER &rborder

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