行业应用

开发平台：

VFP

GDCY.PRG：源码内容

							*rq1=date()   
on key   
   set colo to /1
  @ 7,9 clea to 12,50
   set colo to w/2
  x1=6
x2=11
y1=8
y2=46
  @ 6,7 clea to 11,47
  do box_1
   pd=0
  set colo to w+/2
   
   @ 8,15 say '请输入目标月份:' get pd pict'99' 
    read
   if pd>12 .or. pd<1
    ?? chr(7)
    @ 8,15 say '                          '
    set colo to 6+/2
    @ 8,15 say '一年当中有'
    @ 8,27 say pd pict'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
   ! cd ..
   ! cd &pd
   cd=pd  
   set colo to 6+/2
   ?? 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 colo to w+/4
   @ 9,22 say  rq1
   i=inkey(0)
  endif
clos data
set colo to w+/1
*set colo of scheme 3 to w+/1
@ 0,0,23,79 box '北北北北' colo scheme 3
set colo to w+/n
@ 1,1,22,78 box '鞍鞍鞍鞍鞍' colo scheme 1
@ 23,28 say "当前数据的月份:"+str(Ryear,4,0)+"年"+str(Ryf,2,0)+"月" colo 1+/3
@ 24,0 say ' JQ001汇总报表系统(Ver1.0)  黄朝生研制  版权所有  南宁市建政路51号  邮编:530023 ' colo 4/w  
set clock to 23,69
on key label Escape do Rquit
retu

						