|
楼主 |
发表于 2023-1-11 10:59:58
|
显示全部楼层
山东省菏泽市
我在论坛找了一个源码
.版本 2
.子程序 _按钮_备份_被单击
.局部变量 备份目录, 文本型
.如果真 (取反 (EDB.是否有记录 ()))
信息框 (EDB.取错误信息 (), #警告图标, “温馨提示”, )
返回 ()
.如果真结束
.如果真 (取反 (文件是否存在 (取运行目录 () + “\backup”)))
创建目录 (取运行目录 () + “\backup”)
.如果真结束
备份目录 = 取运行目录 () + “\backup\” + 到文本 (取现行时间 ()) + “.edb”
全部关闭 ()
.如果真 (写到文件 (备份目录, 读入文件 (全_数据库目录)))
.判断开始 (EDB.连接数据库 (全_数据库目录, 全_索引目录, #jzedb, #jzenx))
信息框 (“备份成功”, #信息图标, “温馨提示”, )
.默认
信息框 (“备份失败”, #信息图标, “温馨提示”, )
.判断结束
.如果真结束
.子程序 _按钮_还原_被单击
.如果真 (信息框 (“此操作为清空所有数据,请确保重要数据已备份”, #信息图标 + #确认取消钮, “温馨提示”, ) = #确认钮)
全部关闭 ()
.如果真 (删除文件 (全_数据库目录))
处理事件 ()
.判断开始 (EDB.连接数据库 (全_数据库目录, 全_索引目录, #jzedb, #jzenx))
功能_一键连环 ()
信息框 (“还原成功”, #信息图标, “温馨提示”, )
.默认
信息框 (“还原失败”, #信息图标, “温馨提示”, )
.判断结束
返回 ()
.如果真结束
信息框 (“还原失败”, #信息图标, “温馨提示”, )
.如果真结束
判断 (EDB.连接数据库 (全_数据库目录, 全_索引目录, #jzedb, #jzenx))他这有两个图片资源不知道有啥用 |
|