int li_index,li_count,li_ret
string ls_syntax,ls_errors,ls_colname,ls_modstring,ls_sql
string ls_list[]
st_1.text=" 正在恢复....."
ls_syntax="select * from jdrm_2"
dw_1.create(sqlca.syntaxfromsql(ls_syntax,"style(type=grid)",ls_errors))
if len(ls_errors) > 0 then
messagebox("","恢复借档人资料库时发生错误,停止恢复!",stopsign!)
return
end if
dw_1.settransobject(sqlca)
ls_syntax="select * from jdrm_2"
if dw_1.modify("datawindow.table.select=~'ls_syntax~'")<>"" then
messagebox("","数据库表出错,无法恢复!",stopsign!)
return
end if
if dw_1.modify("datawindow.table.updatetable='jdrm_2'")<>"" then
messagebox("wrong!","表不可修改!")
return
end if
do while li_count > 0
ls_colname= ls_list[li_count]
ls_modstring=ls_colname+".update" + "=" + "yes"
if dw_1.modify(ls_modstring) <> "" then
messagebox("错误","表不可修改!")
return
else
li_count --
end if
loop
if filelength("c:\temp\借档人资料库.dbf")=-1 then
messagebox("","没有借档人资料库的备份数据",stopsign!)
return
end if
ls_sql="delete from jdrm_2"
execute immediate :ls_sql;
if sqlca.sqlcode<>0 then
messagebox("失败","清表失败,停止恢复!",stopsign!)
return
end if
do while dw_1.rowcount() > 0
dw_1.deleterow(0)
loop
li_ret=dw_1.importfile("c:\temp\借档人资料库.dbf")
if li_ret < -2 then
messagebox("错误","恢复借档人资料库时出现错误,停止恢复!",stopsign!)
return
end if
if dw_1.update()=1 then
commit;
else
rollback;
end if
int li_index,li_total,li_ret
string ls_syntax,ls_errors,ls_directory
st_1.text="正在备份........"
//ls_directory=sle_1.text
ls_syntax="select * from jdjm_table_1"
dw_1.create(sqlca.syntaxfromsql(ls_syntax,"style(type=grid)",ls_errors))
if len(ls_errors) > 0 then
messagebox("","备份借档案卷数据库时发生错误,停止备份!",stopsign!)
return
end if
dw_1.settransobject(sqlca)
dw_1.retrieve()
li_ret=dw_1.saveas( "c:\temp\借档案卷资料库.dbf",dbase3!,true)
if li_ret=-1 then messagebox("备份失败","备份失败!")
IF SQLCA_MASTER.SQLCODE = 0 THEN
Messagebox("系统信息","数据库恢复完成!")
This.Enabled = TRUE
cb_backup.Enabled = TRUE
RETURN
ELSE
Messagebox('系统信息','数据库备份操作未进行!',Stopsign!)
RETURN
END IF
DISCONNECT USING SQLCA_MASTER ;
CONNECT USING SQLCA ;
SetPointer(HourGlass!)