pri.spr

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

*       *********************************************************
*       *                                                         
*       * 98-04-15               PRI.SPR                 10:47:48 
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 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()


*       *********************************************************
*       *                                                         
*       *        PRI/Windows Databases, Indexes, Relations        
*       *                                                         
*       *********************************************************
*

IF USED("sjjh")
       SELECT sjjh
    SET ORDER TO 0
ELSE
       SELECT 0
       USE (LOCFILE("d:\mydocu~1\newfox\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("d:\mydocu~1\newfox\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("d:\mydocu~1\newfox\dzb.dbf","DBF","Where is dzb?"));
               AGAIN ALIAS dzb ;
               ORDER 0
ENDIF

SELECT dzb


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

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


*       *********************************************************
*       *                                                         
*       *                PRI/Windows Screen Layout                
*       *                                                         
*       *********************************************************
*

#REGION 1
IF WVISIBLE("priml2")
    ACTIVATE WINDOW priml2 SAME
ELSE
    ACTIVATE WINDOW priml2 NOSHOW
ENDIF
@ 1.833,6.500 SAY "请输入价格：" ;
    FONT "宋体", 12 ;
 STYLE "T"
@ 3.278,21.375 GET JG ;
    SIZE 1.333,11.000 ;
       DEFAULT 0 ;
    FONT "宋体", 12 ;
 PICTURE "@K"
@ 1.389,45.000 GET PRIBUTT1 ;
    PICTURE "@*VN 确定;帮助;取消" ;
       SIZE 1.438,8.286,0.438 ;
       DEFAULT 1 ;
    FONT "MS Sans Serif", 11
@ 2.944,20.500 TO 2.944,33.250 ;
    PEN 2, 8 ;
 STYLE "1" ;
      COLOR RGB(128,128,128,128,128,128)
@ 2.944,20.500 TO 4.944,20.500 ;
    PEN 2, 8 ;
      COLOR RGB(128,128,128,128,128,128)
@ 4.778,20.500 TO 4.778,33.250 ;
    PEN 2, 8 ;
 STYLE "1" ;
      COLOR RGB(255,255,255,255,255,255)
@ 2.889,33.000 TO 4.889,33.000 ;
    PEN 2, 8 ;
      COLOR RGB(255,255,255,255,255,255)
@ 6.722,1.875 TO 8.444,58.750 ;
    PEN 1, 8
@ 7.111,3.000 SAY PRIP ;
    SIZE 0.944,5.375 ;
    FONT "宋体", 12
@ 7.111,10.750 SAY TEXT ;
    SIZE 1.000,46.750 ;
    FONT "宋体", 12
@ 6.833,2.125 TO 6.833,9.250 ;
    PEN 2, 8 ;
 STYLE "1" ;
      COLOR RGB(128,128,128,128,128,128)
@ 6.833,2.250 TO 8.277,2.250 ;
    PEN 2, 8 ;
      COLOR RGB(128,128,128,128,128,128)
@ 8.167,2.250 TO 8.167,9.125 ;
    PEN 2, 8 ;
 STYLE "1" ;
      COLOR RGB(255,255,255,255,255,255)
@ 6.889,9.125 TO 8.278,9.125 ;
    PEN 2, 8 ;
      COLOR RGB(255,255,255,255,255,255)
@ 6.833,9.875 TO 8.277,9.875 ;
    PEN 2, 8 ;
      COLOR RGB(128,128,128,128,128,128)
@ 6.833,9.750 TO 6.833,58.125 ;
    PEN 2, 8 ;
 STYLE "1" ;
      COLOR RGB(128,128,128,128,128,128)
@ 8.167,9.875 TO 8.167,58.375 ;
    PEN 2, 8 ;
 STYLE "1" ;
      COLOR RGB(255,255,255,255,255,255)
@ 6.778,58.125 TO 8.278,58.125 ;
    PEN 2, 8 ;
      COLOR RGB(255,255,255,255,255,255)

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

READ CYCLE

RELEASE WINDOW priml2

*       *********************************************************
*       *                                                         
*       *                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