行业应用

开发平台：

VFP

HFSJ.PRG：源码内容

							*d=Ryear
set colo to 4+/
@ 4,38 clea to 7,62
?? chr(7)
@ 5,42 say '真有恢复数据吗?'
pd1='N'
@ 6,49 get pd1 pict'x'
read
if pd1<>'Y' .and. pd1<>'y'
set colo to w+/n
@ 4,38,7,62 box'鞍鞍鞍鞍鞍鞍'
retu
endif
set colo to
@ 4,38 clea to 7,62
?? chr(7)
@ 5,40 say '请将备份盘插入A驱动器!'
@ 6,42 say '然后按任意健......'
i=inkey(0)
****测试该年数据是否存在
set path to C:
if file('A:disk.$$$') 
   set path to jqbb
   use A:disk.$$$
else
set path to jqbb
set colo to 
   @ 4,30 clea to 8,68 
   @ 5,34 say '备份盘有关描述信息已丢失!'
   @ 7,34 say '不能用本功能恢复数据......'
a=inkey(0) 
use
set colo to w+/n
@ 1,1,22,78 box'鞍鞍鞍鞍鞍鞍'
 retu
endif
clea
pd=1
do whil pd<=mm
  clea
  pd2='A:'+str(xm,4,0)+'.00'+str(pd,1,0)
   pd3="'"+pd2+"'"
 if file(&pd3)
     @ 5,28 say '准备恢复'+str(xm,4,0)+'年数据第'+str(pd,2,0)+'张!'
     @ 7,24 say '请将备份盘插入A驱动器,然后按任意键.... '
       i=inkey(0)
       @ 12,20 say '正在恢复文件......'
        if pd=1
          x=str(xm,4,0)
          ! md jqbb&x
          ! md jqbb&xm1
          ! md jqbb&xm2
          ! md jqbb&xm3
          ! md jqbb&xm4
          ! md jqbb&xm5
          ! md jqbb&xm6
          ! md jqbb&xm7
          ! md jqbb&xm8
          ! md jqbb&xm9
          ! md jqbb&xm10
          ! md jqbb&xm11
          ! md jqbb&xm12
        endif
       ! jqbbarj x &pd2 -y 
    else
       @ 12,20 say '请插入'+str(xm,4,0)+'年第'+str(pd,1,0)+'张备份盘'
       @ 14, 25 say '按ESC=退出,其他键继续......' 
        i=inkey(0)
          if i=27
            exit
          else
            loop 
          endif
    endif
    pd=pd+1 
 enddo
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

						