企业管理

开发平台：

VFP

FSXS-1.PRG：源码内容

							 pd = jje
 IF pd<0
      SET COLOR TO R+/B
      @ ROW(), 42 SAY jje PICTURE '99999999999.99'
      @ ROW(), 58 SAY '              '
 ELSE
      IF pd>0
           SET COLOR TO G+/B
           @ ROW(), 42 SAY jje PICTURE '99999999999.99'
           @ ROW(), 58 SAY '              '
      ELSE
           pd = dje
           IF pd<0
                SET COLOR TO R+/B
                @ ROW(), 42 SAY '              '
                @ ROW(), 58 SAY dje
           ELSE
                SET COLOR TO G+/B
                @ ROW(), 42 SAY '             '
                @ ROW(), 58 SAY dje
           ENDI
      ENDI
 ENDI
 SET COLOR TO W/N
 RETU
*

						