“备份”按钮Click事件代码如下:
CLOSE DATABASES
LOCAL oSql
oSql="select * from 备份表"
IF SQLEXEC(CON,oSql,"备份表")>0
COPY TO 临时表\备份表.DBF
ENDIF
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
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
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
MESSAGEBOX("数据备份完毕...",0+64,"信息")
CLOSE DATA
thisform.processbar.visible=.F.
SET CONS ON
“退出”按钮Click事件代码:
thisform.release
thisform.release
转载于:https://blog.51cto.com/cclzlt/45644