关于VFP如何将SQL后台数据按周备份到前台的一段程序

“备份”按钮Click事件代码如下:
CLOSE DATABASES
LOCAL oSql
oSql="select * from 备份表"
IF SQLEXEC(CON,oSql,"备份表")>0
   COPY TO 临时表\备份表.DBF
ENDIF

PUBLIC WJM
WJM=''
thisform.processbar.visible=.t.
SET CONS OFF
WAIT WINDOWS "正在拷贝数据,请稍后..." NOWAIT
SQLSETPROP(con,'BatchMode',.T.)
oSql="select * from logs;select * from 辅助材料定额;select * from 工序护套用量;select * from 工装清单;select * from 权限设定;select * from 试制指导书;select * from 图纸日期;select * from 下料压接指导书1;select * from 压接标准;select * from 技术文件发放登记表;"
oSql=oSql+"select * from 改制方案;select * from 试制线束汇总表;select * from 材料代用;select * from 下料压接指导书1 WHERE LEN(LTRIM(RTRIM(线号)))=0;select * from 技术文件接收登记表"
IF SQLEXEC(CON,oSql,"TABLE")>0
   SELECT TABLE
   COPY TO \\audi\工艺管理\表\logs.DBF
   SELECT TABLE1
   COPY TO \\audi\工艺管理\表\胶布定额.DBF
   SELECT TABLE2
   COPY TO \\audi\工艺管理\表\工序护套用量.DBF
   SELECT TABLE3
   COPY TO \\audi\工艺管理\表\工装清单.DBF
   SELECT TABLE4
   COPY TO \\audi\工艺管理\表\权限设定.DBF
   SELECT TABLE5
   COPY TO \\audi\工艺管理\表\试制指导书.DBF
   SELECT TABLE6
   COPY TO \\audi\工艺管理\表\图纸日期.DBF
   SELECT TABLE7
   COPY TO \\audi\工艺管理\表\下料压接指导书1.DBF
   SELECT TABLE8
   COPY TO \\audi\工艺管理\表\压接标准.DBF
   SELECT TABLE9
   COPY TO \\audi\工艺管理\表\技术文件发放登记表.DBF
   SELECT TABLE10
   COPY TO \\audi\工艺管理\表\改制方案.DBF
   SELECT TABLE11
   COPY TO \\audi\工艺管理\表\试制线束汇总表.DBF
   SELECT TABLE12
   COPY TO \\audi\工艺管理\表\材料代用.DBF
   SELECT TABLE13
   COPY TO \\audi\工艺管理\表\管类表.DBF
   SELECT TABLE14
   COPY TO \\audi\工艺管理\表\技术文件接收登记表.dbf
ENDIF
CLOSE DATABASES

SELE 0
USE 临时表\备份表.DBF Alias BFB
COUNT TO JL
thisform.PROCESSBAR.max=JL
GO TOP
FOR I=1 TO JL
    WJM=ALLT(表名)+'.DBF'
    DO CASE
       CASE DOW(DATE())=1
            copy file \\audi\工艺管理\表\&WJM to \\audi\工艺管理\备份\星期日\&WJM
       CASE DOW(DATE())=2
            copy file \\audi\工艺管理\表\&WJM to \\audi\工艺管理\备份\星期一\&WJM
       CASE DOW(DATE())=3
            copy file \\audi\工艺管理\表\&WJM to \\audi\工艺管理\备份\星期二\&WJM
       CASE DOW(DATE())=4
            copy file \\audi\工艺管理\表\&WJM to \\audi\工艺管理\备份\星期三\&WJM
       CASE DOW(DATE())=5
            copy file \\audi\工艺管理\表\&WJM to \\audi\工艺管理\备份\星期四\&WJM
       CASE DOW(DATE())=6
            copy file \\audi\工艺管理\表\&WJM to \\audi\工艺管理\备份\星期五\&WJM
       CASE DOW(DATE())=7
            copy file \\audi\工艺管理\表\&WJM to \\audi\工艺管理\备份\星期六\&WJM
    ENDCASE
    thisform.PROCESSBAR.value=I
SKIP
ENDFOR

WAIT CLEA
MESSAGEBOX("数据备份完毕...",0+64,"信息")
CLOSE DATA
thisform.processbar.visible=.F.
SET CONS ON

 

“退出”按钮Click事件代码：
thisform.release

 

本文出自 “老周乱弹” 博客，转载请与作者联系！