⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 showprg2

📁 这是继一之后的第2个管理信息系统的案例 很不错的 大家来看看吧
💻
字号:
🔍 
IF NOT WEXIST("dswin") ;
 OR UPPER(WTITLE("DSWIN")) == "DSWIN.PJX" ;
 OR UPPER(WTITLE("DSWIN")) == "DSWIN.SCX" ;
 OR UPPER(WTITLE("DSWIN")) == "DSWIN.MNX" ;
 OR UPPER(WTITLE("DSWIN")) == "DSWIN.PRG" ;
 OR UPPER(WTITLE("DSWIN")) == "DSWIN.FRX" ;
 OR UPPER(WTITLE("DSWIN")) == "DSWIN.QPR"
	DEFINE WINDOW dswin ;
	      AT 0.000, 0.000 ;
	      SIZE 27.462,119.400 ;
	    FONT "MS Sans Serif", 8 ;
	       FLOAT ;
	       NOCLOSE ;
	    MINIMIZE ;
	    SYSTEM ;
	      COLOR RGB(,,,192,192,192)
   MOVE WINDOW dswin CENTER 
ENDIF


*       *********************************************************
*       *                                                         
*       *                T3/Windows Screen Layout                 
*       *                                                         
*       *********************************************************
*

#REGION 1
SET ESCAPE OFF
IF WVISIBLE("dswin")
    ACTIVATE WINDOW dswin SAME
ELSE
    ACTIVATE WINDOW dswin NOSHOW
ENDIF
@ 23.154,2.400 TO 26.846,116.800 ;
    PEN 1, 8 ;
      COLOR RGB(255,255,255,,,,)
@ 23.231,2.400 TO 26.769,2.400 ;
    PEN 1, 8
@ 23.077,2.200 TO 23.077,116.400 ;
    PEN 1, 8 ;
 STYLE "1"
@ 7.385,14.400 TO 7.462,14.400 ;
    PEN 1, 8
@ 24.000,24.000 GET choice ;
    PICTURE "@*HN 显示图形;显示程序;退    出" ;
       SIZE 1.389,10.778,3.333 ;
       DEFAULT 1 ;
    FONT "宋体", 12 ;
 STYLE "B" ;
 VALID _s940r9rl0()
@ 0.923,2.400 TO 22.308,41.000 ;
    PEN 1, 8 ;
      COLOR RGB(255,255,255,,,,)
@ 0.923,42.800 TO 22.231,116.400 ;
    PEN 1, 8 ;
      COLOR RGB(255,255,255,,,,)
@ 0.923,2.400 TO 22.231,2.400 ;
    PEN 1, 8
@ 0.923,2.400 TO 0.923,41.000 ;
    PEN 1, 8 ;
 STYLE "1"
@ 0.923,42.600 TO 22.231,42.600 ;
    PEN 1, 8
@ 0.846,43.000 TO 0.846,116.000 ;
    PEN 1, 8 ;
 STYLE "1"
@ 1.538,11.600 SAY "输入五年产量" ;
    FONT "MS Sans Serif", 12 ;
 STYLE "BT"
@ 4.308,6.800 SAY "第一年：" ;
    FONT "MS Sans Serif", 12 ;
 STYLE "BT"
@ 4.308,19.600 GET y1 ;
    SIZE 0.889,8.889 ;
       DEFAULT " " ;
    FONT "宋体", 12 ;
 STYLE "B" ;
 PICTURE "9999" ;
      COLOR ,RGB(,,,255,255,255)
@ 7.231,6.800 SAY "第二年：" ;
    FONT "宋体", 12 ;
 STYLE "BT"
@ 7.231,19.600 GET y2 ;
    SIZE 0.889,8.778 ;
       DEFAULT " " ;
    FONT "宋体", 12 ;
 STYLE "B" ;
 PICTURE "9999" ;
      COLOR ,RGB(,,,255,255,255)
@ 10.000,6.800 SAY "第三年：" ;
    FONT "宋体", 12 ;
 STYLE "BT"
@ 9.923,19.800 GET y3 ;
    SIZE 0.889,8.556 ;
       DEFAULT " " ;
    FONT "宋体", 12 ;
 STYLE "B" ;
 PICTURE "9999" ;
      COLOR ,RGB(,,,255,255,255)
@ 12.769,7.000 SAY "第四年：" ;
    FONT "宋体", 12 ;
 STYLE "BT"
@ 12.769,19.600 GET y4 ;
    SIZE 0.889,8.667 ;
       DEFAULT " " ;
    FONT "宋体", 12 ;
 STYLE "B" ;
 PICTURE "9999" ;
      COLOR ,RGB(,,,255,255,255)
@ 15.538,6.800 SAY "第五年：" ;
    FONT "宋体", 12 ;
 STYLE "BT"
@ 15.538,19.600 GET y5 ;
    SIZE 0.889,8.667 ;
       DEFAULT " " ;
    FONT "宋体", 12 ;
 STYLE "B" ;
 PICTURE "9999" ;
      COLOR ,RGB(,,,255,255,255)

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

READ CYCLE
SET ESCAPE ON

RELEASE WINDOW dswin

FUNCTION _s940r9rl0     &&  choice VALID
#REGION 1
DO CASE


  CASE choice=1
   IF EMPTY(y1) OR EMPTY(y2) OR EMPTY(y3) OR EMPTY(y4) OR EMPTY(y5) 
     DO warn
     RETURN
   ENDIF  

   CLEAR 
@ 23.154,2.400 TO 26.846,116.800 ;
    PEN 1, 8 ;
      COLOR RGB(255,255,255,,,,)
@ 23.231,2.400 TO 26.769,2.400 ;
    PEN 1, 8
@ 23.077,2.200 TO 23.077,116.400 ;
    PEN 1, 8 ;
 STYLE "1"
@ 7.385,14.400 TO 7.462,14.400 ;
    PEN 1, 8
@ 24.000,24.000 GET choice ;
    PICTURE "@*HN 显示图形;显示程序;退    出" ;
       SIZE 1.389,10.778,3.333 ;
       DEFAULT 1 ;
    FONT "宋体", 12 ;
 STYLE "B" ;
 VALID _s940r9rl0()
@ 0.923,2.400 TO 22.308,41.000 ;
    PEN 1, 8 ;
      COLOR RGB(255,255,255,,,,)
@ 0.923,42.800 TO 22.231,116.400 ;
    PEN 1, 8 ;
      COLOR RGB(255,255,255,,,,)
@ 0.923,2.400 TO 22.231,2.400 ;
    PEN 1, 8
@ 0.923,2.400 TO 0.923,41.000 ;
    PEN 1, 8 ;
 STYLE "1"
@ 0.923,42.600 TO 22.231,42.600 ;
    PEN 1, 8
@ 0.846,43.000 TO 0.846,116.000 ;
    PEN 1, 8 ;
 STYLE "1"
@ 1.538,11.600 SAY "输入五年产量" ;
    FONT "MS Sans Serif", 12 ;
 STYLE "BT"
@ 4.308,6.800 SAY "第一年：" ;
    FONT "MS Sans Serif", 12 ;
 STYLE "BT"
@ 4.308,19.600 GET y1 ;
    SIZE 0.889,8.889 ;
       DEFAULT " " ;
    FONT "宋体", 12 ;
 STYLE "B" ;
 PICTURE "9999" ;
      COLOR ,RGB(,,,255,255,255)
@ 7.231,6.800 SAY "第二年：" ;
    FONT "宋体", 12 ;
 STYLE "BT"
@ 7.231,19.600 GET y2 ;
    SIZE 0.889,8.778 ;
       DEFAULT " " ;
    FONT "宋体", 12 ;
 STYLE "B" ;
 PICTURE "9999" ;
      COLOR ,RGB(,,,255,255,255)
@ 10.000,6.800 SAY "第三年：" ;
    FONT "宋体", 12 ;
 STYLE "BT"
@ 9.923,19.800 GET y3 ;
    SIZE 0.889,8.556 ;
       DEFAULT " " ;
    FONT "宋体", 12 ;
 STYLE "B" ;
 PICTURE "9999" ;
      COLOR ,RGB(,,,255,255,255)
@ 12.769,7.000 SAY "第四年：" ;
    FONT "宋体", 12 ;
 STYLE "BT"
@ 12.769,19.600 GET y4 ;
    SIZE 0.889,8.667 ;
       DEFAULT " " ;
    FONT "宋体", 12 ;
 STYLE "B" ;
 PICTURE "9999" ;
      COLOR ,RGB(,,,255,255,255)
@ 15.538,6.800 SAY "第五年：" ;
    FONT "宋体", 12 ;
 STYLE "BT"
@ 15.538,19.600 GET y5 ;
    SIZE 0.889,8.667 ;
       DEFAULT " " ;
    FONT "宋体", 12 ;
 STYLE "B" ;
 PICTURE "9999" ;
      COLOR ,RGB(,,,255,255,255)

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


   y11=VAL(y1)  
   maxy=y11
   y22=VAL(y2)  
     IF y22>maxy 
       maxy=y22
     ENDIF  
   y33=VAL(y3)
     IF y33>maxy 
       maxy=y33
     ENDIF  
   y44=VAL(y4)
     IF y44>maxy 
       maxy=y44
     ENDIF  
   y55=VAL(y5)
     IF y55>maxy 
       maxy=y55
     ENDIF  

      @ 1.846,45.600 TO 18.846,45.600 ;
    PEN 1, 8
   @ 18.923,45.800 TO 18.923,114.200 ;
    PEN 1, 8 ;
    STYLE "1"
   @ 18.923-(16*y11/maxy),53.800 TO 18.923,65.400 ;
    PATTERN 1 ;
    PEN 1, 8 ;
      COLOR RGB(,,,255,0,0)
   @ 18.923-(16*y22/maxy),65.200 TO 18.923,76.000 ;
    PATTERN 1 ;
    PEN 1, 8 ;
      COLOR RGB(,,,0,0,255)
   @ 18.923-(16*y33/maxy),75.800 TO 19.000,85.600 ;
    PATTERN 1 ;
    PEN 1, 8 ;
      COLOR RGB(,,,0,128,0) 
  @ 18.923-(16*y44/maxy),85.400 TO 18.923,95.200 ;
    PATTERN 1 ;
    PEN 1, 8 ;
      COLOR RGB(,,,255,255,0)
  @ 18.923-(16*y55/maxy),95.000 TO 19.000,105.400 ;
    PATTERN 1 ;
    PEN 1, 8 ;
      COLOR RGB(,,,255,0,255)
  @ 19.462,54.800 SAY "第一年" ;
    FONT "MS Sans Serif", 8 ;
    STYLE "T"
  @ 19.462,66.000 SAY "第二年" ;
    FONT "MS Sans Serif", 8 ;
    STYLE "T"
  @ 19.462,76.000 SAY "第三年" ;
    FONT "MS Sans Serif", 8 ;
    STYLE "T"
  @ 19.462,85.200 SAY " 第四年" ;
    FONT "MS Sans Serif", 8 ;
    STYLE "T"
  @ 19.462,95.200 SAY " 第五年" ;
    FONT "MS Sans Serif", 8 ;
     STYLE "T"
  CASE choice=2
     SET ESCAPE ON
   MODI FILE showprg2;
     NOEDIT; 
     IN WINDOW dswin
   SET ESCAPE OFF
   
 
  CASE choice=3
  CLEAR READ
ENDCASE

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -