uni.spr

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

*       *********************************************************
*       *                                                         
*       * 98-04-15               UNI.SPR                 10:46:59 
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 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()


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


*       *********************************************************
*       *                                                         
*       *                UNI/Windows Screen Layout                
*       *                                                         
*       *********************************************************
*

#REGION 1
IF WVISIBLE("uniml2")
    ACTIVATE WINDOW uniml2 SAME
ELSE
    ACTIVATE WINDOW uniml2 NOSHOW
ENDIF
@ 2.000,5.375 SAY "请输入单位成本：" ;
    FONT "宋体", 12 ;
 STYLE "T"
@ 3.722,24.125 GET DWCB ;
    SIZE 1.111,9.250 ;
       DEFAULT 0 ;
    FONT "宋体", 12
@ 1.444,44.000 GET UNIBUTT1 ;
    PICTURE "@*VN 确定;帮助;取消" ;
       SIZE 1.438,8.429,0.438 ;
       DEFAULT 1 ;
    FONT "MS Sans Serif", 11
@ 3.389,23.250 TO 3.389,34.375 ;
    PEN 2, 8 ;
 STYLE "1" ;
      COLOR RGB(128,128,128,128,128,128)
@ 3.389,23.250 TO 5.111,23.250 ;
    PEN 2, 8 ;
      COLOR RGB(128,128,128,128,128,128)
@ 5.000,23.250 TO 5.000,34.125 ;
    PEN 2, 8 ;
 STYLE "1" ;
      COLOR RGB(255,255,255,255,255,255)
@ 3.444,34.125 TO 5.055,34.125 ;
    PEN 2, 8 ;
      COLOR RGB(255,255,255,255,255,255)
@ 6.667,2.125 TO 8.445,58.375 ;
    PEN 1, 8
@ 7.000,3.125 SAY UNIP ;
    SIZE 1.056,6.375 ;
    FONT "宋体", 12
@ 7.000,11.250 SAY TEXT ;
    SIZE 1.056,45.875 ;
    FONT "宋体", 12
@ 6.778,2.375 TO 6.778,10.250 ;
    PEN 2, 8 ;
 STYLE "1" ;
      COLOR RGB(128,128,128,128,128,128)
@ 6.778,2.375 TO 8.278,2.375 ;
    PEN 2, 8 ;
      COLOR RGB(128,128,128,128,128,128)
@ 8.167,2.375 TO 8.167,10.375 ;
    PEN 2, 8 ;
 STYLE "1" ;
      COLOR RGB(255,255,255,255,255,255)
@ 6.778,10.000 TO 8.222,10.000 ;
    PEN 2, 8 ;
      COLOR RGB(255,255,255,255,255,255)
@ 6.722,10.500 TO 8.278,10.500 ;
    PEN 2, 8 ;
      COLOR RGB(128,128,128,128,128,128)
@ 6.944,10.625 TO 6.944,10.750 ;
    PEN 1, 8 ;
 STYLE "1"
@ 6.778,10.375 TO 6.778,58.000 ;
    PEN 2, 8 ;
 STYLE "1" ;
      COLOR RGB(128,128,128,128,128,128)
@ 8.167,10.500 TO 8.167,58.000 ;
    PEN 2, 8 ;
 STYLE "1" ;
      COLOR RGB(255,255,255,255,255,255)
@ 6.778,57.750 TO 8.222,57.750 ;
    PEN 2, 8 ;
      COLOR RGB(255,255,255,255,255,255)

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

READ CYCLE

RELEASE WINDOW uniml2

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