企业管理

开发平台：
VFP

CSHXG-1.PRG：源码内容
							 SELE 2
 SET COLOR TO W/N
 mc = mxkm
 @ 6+pd, 31 GET mc
 READ
 sl1 = ysl
 dw1 = dw
 dj1 = ydj
 njye1 = jje
 ndye1 = dje
 pdk = kmdm
 bz = slbz
 IF bz='2'
      SAVE SCREEN TO pm
      SET COLOR TO G+/GR
      @ 3, 20 CLEAR TO 6, 60
      @ 4, 26 SAY '请输入数量:' GET sl1 PICTURE '999999.999'
      SET COLOR TO W/N
      READ
      ?? CHR(7)
      SET COLOR TO BG+/RB
      @ 3, 20 CLEAR TO 6, 60
      @ 4, 26 SAY '请输入单价:' GET dj1 PICTURE '9999999.99'
      SET COLOR TO W/N
      READ
      SET COLOR TO G+/GR
      @ 3, 20 CLEAR TO 6, 60
      @ 4, 26 SAY '请输入单位:' GET dw1
      SET COLOR TO W/N
      READ
      REST SCREEN FROM pm
 ENDI
 IF jhd='+'
      IF ye>=0
           ye1 = ye
           ye2 = 0
      ELSE
           ye2 = -ye
           ye1 = 0
      ENDI
 ELSE
      IF ye>=0
           ye2 = ye
           ye1 = 0
      ELSE
           ye1 = -ye
           ye2 = 0
      ENDI
 ENDI
 ncye1 = njye
 ncye2 = ndye
 SET COLOR TO W/N
 @ 6+pd, 53 GET ye1 PICTURE '9999999999.99'
 READ
 IF ye1=0
      SET COLOR TO W/N
      @ pd+6, 66 SAY '' GET ye2 PICTURE '9999999999.99'
      READ
 ENDI
 SET COLOR TO W/N
 @ 3, 1 GET njye1 PICTURE '99999999999.99'
 READ
 SET COLOR TO W/N
 @ 3, 22 GET ndye1 PICTURE '99999999999.99'
 READ
 SET COLOR TO W/N
 @ 3, 45 GET ncye1 PICTURE '99999999999.99'
 READ
 IF ncye1=0
      @ 3, 45 SAY '                 '
      SET COLOR TO W/N
      @ 3, 64 GET ncye2 PICTURE '999999999999.99'
      READ
 ENDI
 SAVE SCREEN TO pm
 SET COLOR TO BG+/RB
 @ 3, 20 CLEAR TO 6, 60
 @ 4, 30 SAY '正 在 存 盘 !'
 @ 5, 30 SAY '请稍候 ......'
 SELE 1
 LOCA ALL FOR pdk$kmdm .AND. LEN(LTRIM(TRIM(pdk)))=LEN(LTRIM(TRIM(kmdm)))
 REPL kmmc WITH mc
 SELE 2
 LOCA ALL FOR pdk$kmdm .AND. LEN(LTRIM(TRIM(pdk)))=LEN(LTRIM(TRIM(kmdm)))
 REPL mxkm WITH mc
 IF bz='2'
      REPL dw WITH dw1
      REPL ydj WITH dj1
      REPL ysl WITH sl1
 ENDI
 REPL jje WITH njye1
 REPL dje WITH ndye1
 REPL njye WITH ncye1
 REPL ndye WITH ncye2
 IF ye1<>0
      IF jhd='+'
           REPL ye WITH ye1
      ELSE
           REPL ye WITH -ye1
      ENDI
 ELSE
      IF jhd='-'
           REPL ye WITH ye2
      ELSE
           REPL ye WITH -ye2
      ENDI
 ENDI
 x = INKEY(1)
 REST SCREEN FROM pm
 SET COLOR TO W/N
 @ 6+pd, 0 SAY SPACE(80)
 @ 3, 0 SAY SPACE(80)
 SET COLOR TO G+/B
 @ 6+pd, 0 SAY kmdm
 @ 6+pd, 10 SAY zzkm
 @ 6+pd, 31 SAY mxkm
 IF jhd='+'
      IF ye>=0
           @ 6+pd, 52 SAY ye
           @ 6+pd, 66 SAY '            '
      ELSE
           @ 6+pd, 66 SAY -ye
           @ 6+pd, 52 SAY '            '
      ENDI
 ELSE
      IF ye>=0
           @ 6+pd, 52 SAY '            '
           @ 6+pd, 66 SAY ye
      ELSE
           @ 6+pd, 66 SAY '            '
           @ 6+pd, 52 SAY -ye
      ENDI
 ENDI
 SET COLOR TO W/N
 @ 3, 1 SAY jje
 @ 3, 22 SAY dje
 @ 3, 45 SAY njye
 @ 3, 65 SAY ndye
 RETU
*

						