www.pudn.com > jq_caiwu.ARJ > 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 
*