行业应用

开发平台：
VFP

BFSJ.PRG：源码内容
							***
pd=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,8,65 box'鞍鞍鞍鞍鞍'
retu
endif
set colo to
@ 4,38 clea to 7,62
?? chr(7)
@ 5,40 say '备份哪个年份的数据?'
@ 6,46 get pd pict'9999'
read
****测试该年数据是否存在
*eras cdk.dbf
x=pd
pd='jqbb'+str(pd,4,0)
pd1='jqbbtemp'+str(x,4,0)
pd2=pd1+'.001'
*! cwcdk &pd
 xx=pd+'nul'
if file(xx)
 * eras cdk.dbf
  ! md jqbbtemp
  ! cd jqbbtemp
  ! del jqbbtemp*.0??
  ! jqbbarj a -r -v1200 &pd2 &pd -y
  a1=str(Ryear,4,0)
  if Ryf<10
      a2=str(Ryf,1,0)
  else
      a2=str(Ryf,2,0)
  endif
  a2='m'+a2
  ! cd jqbb&a1&a2
  clea
   pd=1
do whil .t.
  pd2=pd1+'.00'+str(pd,1,0)
  pd3="'"+pd2+"'"
if file(&pd3)
   pd=pd+1
 else
exit
endif
enddo
pd=pd-1
! copy jqbbdisk.$$$ jqbbtemp >nul
use jqbbtempdisk.$$$
repl xm with x,mm with pd
use
set colo to 2+/
@ 10,30 say '请准备'+str(pd,2,0)+'张已格式化的空软盘!'
@ 12,30 say '按任意键转入拷贝......'
i=inkey(0)
set colo to
clea
   pd=1
  do whil .t.
   clea
   pd2=pd1+'.00'+str(pd,1,0)
   pd3="'"+pd2+"'"
   if file(&pd3)
      @ 5,35 say '准备拷贝第      张!'
      @ 5,47 say pd pict'99'
      @ 7,23 say '本程序没有测试磁盘是否已格式化.请用已格式化'
      @ 9,19 say '的空软盘插入A驱动器,按Y键开始拷贝,其他键退出....'
      i=inkey(0)
      if i=89 .or. i=121 .or. i=13
       *拷贝
       @ 12,25 say '正在拷贝文件......'
*       ! del A:*.0??
       a1=sys(5)
       set defa to A:
       if diskspace()<1200000
        set defa to &a1
         set colo to 5+/
         @ 12,25 say 'A盘空间不足,请换成已格式化的新盘!'
          ?? chr(7)
          ?? chr(7)
          set colo to 
         i=inkey(0)
         loop
       endif
        set defa to &a1       
       ! copy &pd2 A: >nul
      *  if pd=1
        ! copy jqbbtempdisk.$$$ A: >nul
       * endif 
       else
       set colo to 5+/
       @ 12,25 say '不拷贝文件! 按任意键退出......'
       i=inkey(5)
        exit  &&不拷贝退出
     endif
      else
      @ 14,25 say '退出!'
      exit    &&拷贝完毕退出
   endif
    pd=pd+1 
  enddo
else
*eras cdk.dbf
 @ 4,38 clea to 7,62
 @ 5,40 say '没有指定年份的数据!'
  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

						