知识大全 PB中实现可监控的数据备份

Posted 2022-07-16 数据库

篇首语：一锹挖不成水井，一天盖不成罗马城。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 PB中实现可监控的数据备份相关的知识，希望对你有一定的参考价值。

PB中实现可监控的数据备份 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　在众多的数据库应用开发平台中 PowerBuilder作为一个强大的图形Client/Server数据库应用程序开发工具而得到广泛使用本文将向读者详细介绍在PB开发的数据库应用程序中实现可监控数据备份的具体解决方案

　　PowerBuilder是当今数据库应用程序中常用的开发工具之一开发者能用它来建立用户容易使用的各种数据库应用程序 PB内部定义的函数种类繁多并允许开发者修改其数据库当然 PB的部分功能也存在着不足

　　在数据库系统中数据备份是一种最为常用也极其重要的功能在数据库DBMS环境下我们可以直接调用数据库本身提供的图形化或命令行式的备份命令进行备份而在PB中却只能使用Run ( string windowstate )的格式调用DOS下的命令而这种方法的一个重要弊端就是数据库备份的成功与否只能在DOS窗口中以数据库系统的自身返回信息显示一般情况下为英文字符这样既与应用程序的中文界面不协调也增加了对使用人员的要求显得不够专业

　　在实践中笔者发现一种根据数据库的返回信息自动判断备份成功与否的方法并能在数据备份没有完成时拒绝退出效果令人满意下面在PowerBuilder Oracle Windows x环境下就这一方法的实现做一介绍

　　在备份图标按钮的Click事件中加入以下代码 if fileexists( c:\\jybak log ) then filedelete( c:\\jybak log ) end if Run( exp userid=scnmis/scnmis@jydb file=c:\\jybak dmp full=y log=c:\\jybak log Minimized!); st_message text= 正在备份请耐心等待 back_up = True 　　其中 back_up为全局变量定义为 boolean back_up = false 　　在窗口的Timer事件中加入以下代码 long file_handle string read_line If back_up Then st_message text= 正在备份请耐心等待 If L_quit Then SetPointer(Hourglass!) End If file_handle = fileopen( c:\\jybak log LineMode!) do while fileread(file_handle read_line) > loop If file_handle > Then fileclose(file_handle) SetPointer( Arrow! ) if Left(read_line ) <> Export terminated successfully then st_message text= 数据备份失败! Messagebox( 警告: 数据备份失败! ) else st_message text= 数据备份成功! Messagebox( 恭喜! 数据备份成功! ) end if g_bfbz = True back_up = False If L_quit Then close(w_main) Exit_Windows( ) End If End If End If 　　其中 Exit_Windows为Global External Function 定义为 FUNCTION long ExitWindowsEx(long a long b) LIBRARY user dll 　　至此监控的数据备份的目的基本已经达到为了实现在备份没有完成的情况下禁止退出在退出图标按钮的Click事件中加入以下代码 long file_handle i string read_line long rc allow rc = MessageBox( 请您选择: 是否退出系统？ Question! YesNo! ) if rc = then If g_bfbz = False then If back_up Then MessageBox( 提示信息: 备份正在进行完成后才能退出按确定继续备份 ) Goto Lab Else allow = Messagebox( 提示信息退出前应当备份现在开始吗? Question! YesNo!) L_quit =true If allow= Then Triggerevent(Cb_backup Clicked!) Else close(w_main) ExitWindowsEx( ) End If End If Else close(w_main) ExitWindowsEx( ) End if End if

cha138/Article/program/SQL/201311/16434