企业管理

开发平台：

VFP

ZBDY.PRG：源码内容

							 CLOS ALL
 sy = 0
 my = 0
 SET COLOR TO N/BG, W+/GR
 ?? CHR(7)
 @ 10, 20 CLEAR TO 14, 60
 @ 11, 24 SAY '请输入要打印帐本的开始与终止月份:'
 @ 13, 28 SAY '开始月份' GET sy PICTURE '99' VALID sy>=0 .AND. sy<13
 READ
 IF sy=0
      SET COLOR TO W+/N
      @ 2, 8, 20, 60 BOX '鞍鞍鞍鞍鞍

						