xs.spr

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

	DEFINE WINDOW int ;
	      AT 6.938, 7.500 ;
	      SIZE 9.222,60.750 ;
	 TITLE "输入窗口" ;
	    FONT "宋体", 12 ;
	       FLOAT ;
	       NOCLOSE ;
	    MINIMIZE ;
	    SYSTEM ;
@ 1.000,6.000 SAY "希望显示哪几列：" ;
    FONT "宋体", 12 ;
 STYLE "T"
@ 2.778,10.750 GET XS1 ;
    PICTURE "@*C 销售量" ;
       SIZE 1.000,8.500 ;
       DEFAULT 0 ;
    FONT "宋体", 11 ;
 STYLE "T" ;
 VALID _ru918ah09()
@ 4.000,10.750 GET XS2 ;
    PICTURE "@*C 单位成本" ;
       SIZE 1.000,10.375 ;
       DEFAULT 0 ;
    FONT "宋体", 11 ;
 STYLE "T" ;
 VALID _ru918ah1i()
@ 5.167,10.750 GET XS3 ;
    PICTURE "@*C 价格" ;
       SIZE 1.000,6.625 ;
       DEFAULT 0 ;
    FONT "宋体", 11 ;
 STYLE "T" ;
 VALID _ru918ah2n()
@ 2.833,26.750 GET XS4 ;
    PICTURE "@*C 销售收入" ;
       SIZE 1.000,10.375 ;
       DEFAULT 0 ;
    FONT "宋体", 11 ;
 STYLE "T" ;
 VALID _ru918ah3s()
@ 4.056,26.750 GET XS5 ;
    PICTURE "@*C 耗费" ;
       SIZE 1.000,6.625 ;
       DEFAULT 0 ;
    FONT "宋体", 11 ;
 STYLE "T" ;
 VALID _ru918ah4v()
@ 5.278,26.750 GET XS6 ;
    PICTURE "@*C 利润" ;
       SIZE 1.000,6.625 ;
       DEFAULT 0 ;
    FONT "宋体", 11 ;
 STYLE "T" ;
 VALID _ru918ah63()
@ 3.056,44.875 GET BUTT1 ;
    PICTURE "@*VN 确定;帮助" ;
       SIZE 1.438,9.286,0.625 ;
       DEFAULT 1 ;
    FONT "MS Sans Serif", 10 ;
 VALID _ru918ah77()

FUNCTION _ru918ah09     &&  XS1 VALID
#REGION 1
IF XS1=1
   ZD1="SALES"
ELSE
   ZD1=""
ENDIF
FUNCTION _ru918ah1i     &&  XS2 VALID
#REGION 1
IF XS2=1
   ZD2="UNITCOST"
ELSE
   ZD2=""
ENDIF
FUNCTION _ru918ah2n     &&  XS3 VALID
#REGION 1
IF XS3=1
   ZD3="PRICE"
ELSE
   XD3=""
ENDIF
FUNCTION _ru918ah3s     &&  XS4 VALID
#REGION 1
IF XS4=1
   ZD4="REVENUE"
ELSE
   ZD4=""
ENDIF
FUNCTION _ru918ah4v     &&  XS5 VALID
#REGION 1
IF XS5=1
   ZD5="COST"
ELSE
   ZD5=""
ENDIF
FUNCTION _ru918ah63     &&  XS6 VALID
#REGION 1
IF XS6=1
   ZD6="PROFIT"
ELSE
   ZD6=""
ENDIF
FUNCTION _ru918ah77     &&  BUTT1 VALID
#REGION 1
DO CASE
      CASE BUTT1=1
   ZD=ZD1+','+ZD2+','+ZD3+','+ZD4+','+ZD5+','+ZD6
   ZD=ALLTRIM(ZD)
   SELE 6
   BROWSE FIELD ZD NOAP NOED NODE
   RELEASE WINDOW ML2
CASE BUTT1=2
    DO PROHELP
ENDCASE