此工具用于SQL Server数据库数据的备份，避免数据丢失
以下是源代码，可直接复制到极语言编程进行编译
小程序 窗体消息(整数 窗口,整数 消息,整数 参数,整数 数据)
判断(消息)
为 窗口关闭{停止(0)}
为 单击左键{如果(参数=1)启停备份}
否则{处理窗口(窗口,消息,参数,数据)}
结束
整数 份数,数据库,库表,文件,间隔;
文本 驱动[68]="DRIVER={SQL Server};SERVER=(local);Trusted_Connection=yes; DATABASE=";
文本 名称[32],路径[64],语句[120];
小程序 窗体启动
文件=路径+当前目录(64,路径)
桌面.左=窗体
读取消息
结束
引入 "lib\odbc32.lib";
小程序 初始化
数据分配(1,0, @库表)
设置环境(库表, 200,3, 0)
数据分配(2,库表,@数据库)
驱动连接(数据库,0,驱动,-3,0,0,0,1)
结束
小程序 执行语句(整数 sql)
数据分配(3, 数据库, @库表)
提交执行(库表, sql,-3)
结束
小程序 启停备份
如果(份数=0){
改窗口字(启动,"停止")
取窗口字(库名,名称,32)
初始化
间隔=取控件数(窗体,3,0,0)
份数=取控件数(窗体,4,0,0)
开启线程(@开始备份,0,间隔)}
否则{改窗口字(启动,"开始")
数据关闭(数据库)份数=0}
结束
小程序 开始备份(整数 秒);
整数 时间=秒,计数=0;文本 倒计时[20]
循环{延时(1000)
如果(时间<秒){时间++
格式化(倒计时,"%d秒后开始备份",秒-时间)
改窗口字(窗体,倒计时)}
否则{时间=0;计数++
如果(计数>份数){计数=1
发送消息(列表,列表删除,0,0)}
备份数据(计数)}
}(份数=0)
结束
小程序 备份数据(整数 计数)
格式化(文件,"\%s%d.bak",名称,计数)
发送消息(列表,列表添加,0,路径)
格式化(语句,"BACKUP DATABASE %s TO disk='%s' with init",名称,路径)
数据释放(3,库表)执行语句(语句)
结束;