![](/icons/65521de.gif)
![](/icons/65521dou.gif)
![](/icons/65521yi.gif)
![](/icons/65521de.gif)
![](/icons/65521chengxu.gif)
![](/icons/65521dou2.gif)
![](/icons/65521de.gif)
![](/icons/65521chengxu.gif)
![](/icons/65521de.gif)
![](/icons/65521dou2.gif)
PowerBuilder是当今数据库应用
![](/icons/65521chengxu.gif)
![](/icons/65521de.gif)
![](/icons/65521yi.gif)
![](/icons/65521dou.gif)
![](/icons/65521de.gif)
![](/icons/65521chengxu.gif)
![](/icons/65521dou.gif)
![](/icons/65521de.gif)
![](/icons/65521hanshu.gif)
![](/icons/65521dou.gif)
![](/icons/65521dou.gif)
![](/icons/65521dou.gif)
![](/icons/65521de.gif)
![](/icons/65521dou2.gif)
在数据库系统中
![](/icons/65521dou.gif)
![](/icons/65521yi.gif)
![](/icons/65521de.gif)
![](/icons/65521dou2.gif)
![](/icons/65521dou.gif)
![](/icons/65521diaoyong.gif)
![](/icons/65521de.gif)
![](/icons/65521de.gif)
![](/icons/65521dou.gif)
![](/icons/65521string.gif)
![](/icons/65521de.gif)
![](/icons/65521diaoyong.gif)
![](/icons/65521de.gif)
![](/icons/65521dou.gif)
![](/icons/65521de.gif)
![](/icons/65521yi.gif)
![](/icons/65521de.gif)
![](/icons/65521dou.gif)
![](/icons/65521de.gif)
![](/icons/65521dou.gif)
![](/icons/65521yi.gif)
![](/icons/65521zifu.gif)
![](/icons/65521dou.gif)
![](/icons/65521chengxu.gif)
![](/icons/65521de.gif)
![](/icons/65521dou.gif)
![](/icons/65521de.gif)
![](/icons/65521dou.gif)
![](/icons/65521dou2.gif)
在实战中
![](/icons/65521dou.gif)
![](/icons/65521yi.gif)
![](/icons/65521de.gif)
![](/icons/65521de.gif)
![](/icons/65521dou.gif)
![](/icons/65521dou.gif)
![](/icons/65521dou2.gif)
![](/icons/65521yi.gif)
![](/icons/65521de.gif)
![](/icons/65521yi.gif)
![](/icons/65521dou2.gif)
1、在“备份”图标按钮
![](/icons/65521de.gif)
![](/icons/65521if.gif)
filedelete("c:\jybak.log")
end
![](/icons/65521if.gif)
Run("exp73 userid=scnmis/scnmis@jydb file=c:\jybak.dmp full=y log=c:\jybak.log",Minimized!);
st_message.text='正在备份,请耐心等待
![](/icons/65521dou2.gif)
back_up = True
其中
![](/icons/65521dou.gif)
![](/icons/65521dou.gif)
![](/icons/65521dou2.gif)
2、在窗口
![](/icons/65521de.gif)
long file_handle
![](/icons/65521string.gif)
If back_up Then
st_message.text='正在备份,请耐心等待
![](/icons/65521dou2.gif)
If L_quit Then
SetPo
![](/icons/65521int.gif)
End If
file_handle = fileopen( 'c:\jybak.log',LineMode!)
do while fileread(file_handle,read_line) > -1
loop
If file_handle > 0 Then
fileclose(file_handle)
SetPo
![](/icons/65521int.gif)
![](/icons/65521if.gif)
st_message.text='数据备份失败!'
Messagebox("警告:", "数据备份失败!")
![](/icons/65521else.gif)
st_message.text='数据备份成功!'
Messagebox("恭喜!", "数据备份成功!")
end
![](/icons/65521if.gif)
g_bfbz = True
back_up = False
If L_quit Then
close(w_
![](/icons/65521main.gif)
Exit_Windows( 5,0 )
End If
End If
End If
其中
![](/icons/65521dou.gif)
![](/icons/65521dou.gif)
![](/icons/65521dou2.gif)
3、至此
![](/icons/65521dou.gif)
![](/icons/65521de.gif)
![](/icons/65521de.gif)
![](/icons/65521de.gif)
![](/icons/65521dou2.gif)
![](/icons/65521de.gif)
![](/icons/65521dou.gif)
![](/icons/65521de.gif)
long file_handle ,i
![](/icons/65521string.gif)
long rc,allow
rc = MessageBox( "请您选择:", "是否退出系统?", Question!, YesNo! )
![](/icons/65521if.gif)
If g_bfbz = False then
If back_up Then
MessageBox( "提示信息:","备份正在进行,完成后才能退出
![](/icons/65521dou2.gif)
Goto Lab0
Else
allow = Messagebox("提示信息","退出前应当备份,现在开始吗?", Question!, YesNo!)
L_quit =true
If allow=1 Then
Triggerevent(Cb_backup,Clicked!)
Else
close(w_
![](/icons/65521main.gif)
ExitWindowsEx( 5,0 )
End If
End If
Else
close(w_
![](/icons/65521main.gif)
ExitWindowsEx( 5,0 )
End
![](/icons/65521if.gif)
End
![](/icons/65521if.gif)
以上思路方法在PowerBuilder 6.5、Oracle 7.3.2环境下调试通过
![](/icons/65521dou.gif)
![](/icons/65521dou.gif)
![](/icons/65521de.gif)
![](/icons/65521dou.gif)
![](/icons/65521yi.gif)
![](/icons/65521de.gif)
![](/icons/65521dou2.gif)
最新评论