行业应用

开发平台：

VFP

ZRHZ_1.PRG：源码内容

							********************************************
*    程序名:ZRHZ_1.PRG
*    功能:  拷贝文件到JQBB ZRHZ.PRG的子程序
*    设计:  黄朝生
********************************************
use jqfaxindataoutdatayear &&恢复日期
Ryear=nf
Rdate=yf
use
file1='jqbb'+ltrim(str(Ryear))+'m'+ltrim(str(Rdate))+''
if pd<10
   x1=str(pd,1,1)
   else
   x1=str(pd,2,1)
endif
* 拷贝数据
clos data
   @ 18,11 say '正在拷贝文件......'
       if file("jqfaxindataoutdatafzbhz.dbf")
       wj='fzb'+x1+'.dbf'
       file2=file1+wj
       eras &file2
       copy file indataoutdatafzbhz.dbf to &file2
       endif
       if file("jqfaxindataoutdatasybhz.dbf")
       wj='syb'+x1+'.dbf'
       file2=file1+wj
       eras &file2
       copy file indataoutdatasybhz.dbf to &file2
       endif
       if file("jqfaxindataoutdatabcmxbhz.dbf")
       wj='bcmxb'+x1+'.dbf'
       file2=file1+wj
       eras &file2
       copy file indataoutdatabcmxbhz.dbf to &file2
       endif
       if file("jqfaxindataoutdatayjkbhz.dbf")
       wj='yjkb'+x1+'.dbf'
       file2=file1+wj
       eras &file2
       copy file indataoutdatayjkbhz.dbf to &file2
       endif
       if file("jqfaxindataoutdatazzsbhz.dbf")
       wj='zzsb'+x1+'.dbf'
       file2=file1+wj
       eras &file2
       copy file indataoutdatazzsbhz.dbf to &file2
       endif
retu

						