企业管理

开发平台：

VFP

GDCY.PRG：源码内容

							 SET COLOR TO N/B
 @ 7, 9 CLEAR TO 12, 50
 SET COLOR TO W/G
 x1 = 6
 x2 = 11
 y1 = 8
 y2 = 46
 @ 6, 7 CLEAR TO 11, 47
 DO box_1
 pd = 0
 SET COLOR TO W+/G
 @ 8, 15 SAY '请输入目标月份:' GET pd PICTURE '99'
 READ
 IF pd>12 .OR. pd<1
      ?? CHR(7)
      @ 8, 15 SAY '                          '
      SET COLOR TO GR+/G
      @ 8, 15 SAY '一年当中有'
      @ 8, 27 SAY pd PICTURE '99'
      @ 8, 31 SAY '月份吗?'
      i = INKEY(0)
 ELSE
      yf1 = pd
      ryf = pd
      cd1 = pd
      pd = STR(pd, 2, 0)
      pd = LTRIM(pd)
      pd = 'm'+pd
      yf = pd
      RUN cd ..
      ! cd &pd
      cd = pd
      SET COLOR TO GR+/G
      ?? CHR(7)
      @ 8, 15 SAY '                        '
      @ 8, 15 SAY '进入'+pd+'月工作区,已修改系统'
      zz = DAY(rq1)
      yy = YEAR(rq1)
      xx = STR(cd1, 2, 0)+'/'+STR(zz, 2, 0)+'/'+STR(yy, 4, 0)
      rq1 = CTOD(xx)
      @ 9, 15 SAY '日期'
      SET COLOR TO W+/R
      @ 9, 22 SAY rq1
      i = INKEY(0)
 ENDI
 SET COLOR TO W+/N
 @ 2, 2, 20, 50 BOX '鞍鞍鞍鞍鞍鞍'
 @ 23, 28 SAY '当前数据的月份:'+STR(ryear, 4, 0)+'年'+STR(ryf, 2, 0)+'月' COLOR B+/BG 
 RETU
*

						