企业管理

开发平台：

VFP

SLXS-1.PRG：源码内容

							 xx = slbz
 IF xx='2'
      SET COLOR TO BG/B
      @ 18+bs, 1 SAY gg
      a1 = ssl
      IF a1<>0
           @ 18+bs, 9 SAY ssl PICTURE '99999999.999'
           @ 18+bs, 21 SAY sdj
      ELSE
           @ 18+bs, 9 SAY fsl PICTURE '99999999.999'
           @ 18+bs, 21 SAY fdj
      ENDI
 ENDI
 RETU
*

						