开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 行业应用 > 企业管理 > 查看源码
FSXS.PRG
资源名称：jq_caiwu.ARJ　[点击查看]
上传用户：hbmaozhan
上传日期：2013-01-31
资源大小：1007k
文件大小：1k
源码类别：

企业管理

开发平台：

VFP

FSXS.PRG：源码内容
  1.  pdk = jje
  2.  IF pdk<0
  3.       SET COLOR TO R+/N
  4.       @ 7+bs, 42 SAY jje
  5.       SET COLOR TO W/N
  6.       @ 7+bs, 58 SAY '              '
  7.  ELSE
  8.       IF pdk>0
  9.            @ 7+bs, 42 SAY jje
  10.            @ 7+bs, 58 SAY '              '
  11.       ELSE
  12.            pdk = dje
  13.            @ 7+bs, 42 SAY '              '
  14.            IF pdk<0
  15.                 SET COLOR TO R+/N
  16.                 @ 7+bs, 58 SAY dje
  17.                 SET COLOR TO W/N
  18.            ELSE
  19.                 @ 7+bs, 58 SAY dje
  20.            ENDI
  21.       ENDI
  22.  ENDI
  23.  SET COLOR TO W/N
  24.  RETU
  25. *