|
|
楼主 |
发表于 2025-4-5 23:16:17
|
显示全部楼层
江西省上饶市
.版本 2
.支持库 iext
.子程序 _xtbak_被选择
.局部变量 backname, 文本型
.局部变量 isok, 逻辑型, , , 是否取消
.如果真 (全_当前登录用户.用户权限 ＝ “游客”)
信息框 (“当前用户为游客身份，无法进行 [数据备份] 操作。”, 0 ＋ #警告图标, “系统提示”, )
返回 ()
.如果真结束
backname ＝ 到文本 (取年份 (时间_取北京时间 ())) ＋ 到文本 (取月份 (时间_取北京时间 ())) ＋ 到文本 (取日 (时间_取北京时间 ())) ＋ “-” ＋ 到文本 (取小时 (时间_取北京时间 ())) ＋ 到文本 (取分钟 (时间_取北京时间 ())) ＋ 到文本 (取秒 (时间_取北京时间 ()))
' 如果 (信息框 (“是否进行数据备份?”, #是否钮 ＋ #询问图标, , ) ＝ #是钮)
创建目录 (取运行目录 () ＋ “\” ＋ “Databak”)
huifudata.过滤器 ＝ “*.asa”
huifudata.类型 ＝ 1
huifudata.初始目录 ＝ 取运行目录 () ＋ “\Databak\”
huifudata.文件名 ＝ backname
isok ＝ huifudata.打开 ()
.判断开始 (isok ＝ 假)
返回 ()
.默认
.判断结束
复制文件 (取运行目录 () ＋ “\” ＋ “data-final.asa”, huifudata.文件名)
' 文件_复制 (取运行目录 () ＋ “\” ＋ “data-final.asa”, 取运行目录 () ＋ “\Databak\” ＋ backname ＋ “.asa”, 0)
信息框 (“数据备份成功！”, 0 ＋ 48, “数据备份：”, )
.子程序 _xtrestore_被选择
.局部变量 isok, 逻辑型
.如果真 (全_当前登录用户.用户权限 ＝ “游客”)
信息框 (“当前用户为游客身份，无法进行 [数据恢复] 操作。”, 0 ＋ #警告图标, “系统提示”, )
返回 ()
.如果真结束
' 如果 (信息框 (“是否进行数据恢复?”, #是否钮 ＋ #询问图标, , ) ＝ #是钮)
创建目录 (取运行目录 () ＋ “\” ＋ “Databak”)
huifudata.过滤器 ＝ “*.asa”
huifudata.类型 ＝ 0
huifudata.初始目录 ＝ 取运行目录 () ＋ “\Databak\”
isok ＝ huifudata.打开 ()
.判断开始 (isok ＝ 假)
返回 ()
.默认
.判断结束
复制文件 (huifudata.文件名, 取运行目录 () ＋ “\” ＋ “data-final.asa”)
' 文件_复制 (取运行目录 () ＋ “\Databak\” ＋ “data-final.asa”, 取运行目录 () ＋ “\” ＋ “data-final.asa”, 0)
信息框 (“数据恢复成功！”, 0 ＋ 48, “数据恢复：”, )
_启动窗口2.超级列表框1.全部删除 ()
_启动窗口2.读取到超级列表框hy ()
以下为附件：
1. 源码文件
小仁仔客户管理系统V2.1主程序文件.zip
(3.66 MB, 下载次数: 0)
|
|
楼主: renhe2018
粤公网安备 44522102000125 增值电信业务经营许可证 粤B2-20192173
发表于 2025-4-6 08:17:35
扫一扫，关注易界动态