SLXS.PRG
上传用户:hbmaozhan
上传日期:2013-01-31
资源大小:1007k
文件大小:0k
源码类别:

企业管理

开发平台:

VFP

  1.  xx = slbz
  2.  IF xx='2'
  3.       SET COLOR TO BG/N
  4.       @ 18+bs, 1 SAY gg
  5.       a1 = ssl
  6.       IF a1<>0
  7.            @ 18+bs, 9 SAY ssl PICTURE '99999999.999'
  8.            @ 18+bs, 21 SAY sdj
  9.       ELSE
  10.            @ 18+bs, 9 SAY fsl PICTURE '99999999.999'
  11.            @ 18+bs, 21 SAY fdj
  12.       ENDI
  13.  ENDI
  14.  RETU
  15. *