powerbuilder程序.docVIP

W_data窗口 w_data open() //参数是bakcup时为数据备份,否则是恢复 wf_destroy() postevent(ue_post) is_parm = message.stringparm if is_parm = backup then this.title = 数据备份 cb_1.text = (B)备份 st_2.text = 此窗口用于数据备份 else this.title = 数据恢复 cb_1.text = (R)恢复 st_2.text = 此窗口用于数据恢复,请谨重使用! end if cb_1//备份 //对备份和恢复进行不同的操作 //定义操作返回值整形变量 integer li_return,li_i //参数为backup时进行备份操作 disconnect using sqlca; if sqlca.sqlcode 0 then messagebox(错误,数据断开失败!,stopsign!,ok!) return end if if is_parm = backup then //拷贝数据库到数据库目录下的backup.mdb若存在此库,则做覆盖操作,并返回整形执行结果 li_return = filecopy(数据库/special.mdb,数据库/backup.mdb,true) //文件拷贝错误,提示错误. if li_return 1 then messagebox(错误,数据备份出现错误!,stopsign!,ok!) connect using sqlca; if sqlca.sqlcode 0 then messagebox(错误,数据连接失败!,stopsign!,ok!) return end if return end if //做一假象,以使界面美观 for li_i = 1 to 3000 yield() st_1.visible = true st_1.text = 正在备份,请稍等! next st_1.visible = false st_1.text = messagebox(提示,备份完毕,exclamation!,ok!) //为其它参数时,进行恢复操作 else if messagebox(提示,恢复操作要小心使用!是否继续?,exclamation!,okcancel!) = 2 then return //如不存一备份文件将提示错误,不能执行恢复操作 if fileexists(数据库/backup.mdb) then else messagebox(错误,你还没有备份过库文件!,stopsign!,ok!) connect using sqlca; if sqlca.sqlcode 0 then messagebox(错误,数据连接失败!,stopsign!,ok!) return end if return end if //拷贝备份库backup.mdb至special.mdb,返回执行结果 li_return = filecopy(数据库/backup.mdb,数据库/special.mdb,true) //文件拷贝错误,提示错误 if li_return 1 then messagebox(错误,数据恢复出现错误!,stopsign!,ok!) connect using sqlca; if sqlca.sqlcode 0 then messagebox(错误,数据连接失败!,stopsign!,ok!) return end if return end if //做一假象,以使界面美观 for li_i = 1 to 3000 yield() st_1.visible = true st_1.text = 正在恢复,请稍等! next st_1.visible = false st_1.text = messagebox(提示,恢复完毕,exclamation!,ok!) end if connect using sqlca; if sqlca.sqlcode 0 then messagebox(错误,数据连接失败!,stopsign!,ok!) return end if cb_2//退出 //关闭窗口 close(parent) w_edit窗口 w_edit open() //此窗口用于工种 部门 学历 等级信息的维护 /