企业管理

开发平台：

VFP

HJXS.PRG：源码内容

							 SELE 1
 SUM FOR pzh=pz jje, dje TO a1, a2
 SET COLOR TO G/N
 IF a1<0
      SET COLOR TO R+/N
      @ 15, 42 SAY a1 PICTURE '9999999999.99'
      SET COLOR TO W/N
 ELSE
      @ 15, 42 SAY a1 PICTURE '9999999999.99'
 ENDI
 IF a2<0
      SET COLOR TO R+/N
      @ 15, 58 SAY a2 PICTURE '9999999999.99'
      SET COLOR TO G/N
 ELSE
      @ 15, 58 SAY a2 PICTURE '9999999999.99'
 ENDI
 SET COLOR TO W/N
 RETU
*

						