小仁仔会员管理系统V2.1优化功能

renhe2018

pipicool 发表于 2025-4-5 19:22
学习一下

嘿，学习愉快哈。

pipicool

学习一下

renhe2018

kk2apple 发表于 2025-4-5 12:10
有个小建议，关于备份的，比如今天备份，就是2025.04.05备份一个文件，
明天备份，就是2025.04.06备份一个 ...

关于备份和恢复系统数据库的建议，代码如下：
可参考进行替换修改，或直接下载附件覆盖源主程序文件。

小仁仔客户管理系统V2.1主程序文件.zip (3.66 MB, 下载次数: 3)

2025-4-5 15:11 上传

点击文件名下载附件
源文件
下载积分: 精币 -2 枚

  

子程序名	返回值类型	公开	备 注
_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 ()

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 _xtbak_被选择<br /> .局部变量 backname, 文本型<br /> .局部变量 isok, 逻辑型, , , 是否取消<br /> <br /> .如果真 (全_当前登录用户.用户权限 ＝ “游客”)<br />     信息框 (“当前用户为游客身份，无法进行 [数据备份] 操作。”, 0 ＋ #警告图标, “系统提示”, )<br />     返回 ()<br /> .如果真结束<br /> <br /> backname ＝ 到文本 (取年份 (时间_取北京时间 ())) ＋ 到文本 (取月份 (时间_取北京时间 ())) ＋ 到文本 (取日 (时间_取北京时间 ())) ＋ “-” ＋ 到文本 (取小时 (时间_取北京时间 ())) ＋ 到文本 (取分钟 (时间_取北京时间 ())) ＋ 到文本 (取秒 (时间_取北京时间 ()))<br /> <br /> ' 如果 (信息框 (“是否进行数据备份?”, #是否钮 ＋ #询问图标, , ) ＝ #是钮)<br /> 创建目录 (取运行目录 () ＋ “\” ＋ “Databak”)<br /> huifudata.过滤器 ＝ “*.asa”<br /> huifudata.类型 ＝ 1<br /> huifudata.初始目录 ＝ 取运行目录 () ＋ “\Databak\”<br /> huifudata.文件名 ＝ backname<br /> isok ＝ huifudata.打开 ()<br /> .判断开始 (isok ＝ 假)<br />     返回 ()<br /> .默认<br /> <br /> .判断结束<br /> <br /> 复制文件 (取运行目录 () ＋ “\” ＋ “data-final.asa”, huifudata.文件名)<br /> ' 文件_复制 (取运行目录 () ＋ “\” ＋ “data-final.asa”, 取运行目录 () ＋ “\Databak\” ＋ backname ＋ “.asa”, 0)<br /> 信息框 (“数据备份成功！”, 0 ＋ 48, “数据备份：”, )<br /> <br /> <br /> <br /> .子程序 _xtrestore_被选择<br /> .局部变量 isok, 逻辑型<br /> <br /> .如果真 (全_当前登录用户.用户权限 ＝ “游客”)<br />     信息框 (“当前用户为游客身份，无法进行 [数据恢复] 操作。”, 0 ＋ #警告图标, “系统提示”, )<br />     返回 ()<br /> .如果真结束<br /> <br /> <br /> ' 如果 (信息框 (“是否进行数据恢复?”, #是否钮 ＋ #询问图标, , ) ＝ #是钮)<br /> 创建目录 (取运行目录 () ＋ “\” ＋ “Databak”)<br /> huifudata.过滤器 ＝ “*.asa”<br /> huifudata.类型 ＝ 0<br /> huifudata.初始目录 ＝ 取运行目录 () ＋ “\Databak\”<br /> isok ＝ huifudata.打开 ()<br /> .判断开始 (isok ＝ 假)<br />     返回 ()<br /> .默认<br /> <br /> .判断结束<br /> 复制文件 (huifudata.文件名, 取运行目录 () ＋ “\” ＋ “data-final.asa”)<br /> ' 文件_复制 (取运行目录 () ＋ “\Databak\” ＋ “data-final.asa”, 取运行目录 () ＋ “\” ＋ “data-final.asa”, 0)<br /> 信息框 (“数据恢复成功！”, 0 ＋ 48, “数据恢复：”, )<br /> _启动窗口2.超级列表框1.全部删除 ()<br /> _启动窗口2.读取到超级列表框hy ()

renhe2018

kk2apple 发表于 2025-4-5 12:10
有个小建议，关于备份的，比如今天备份，就是2025.04.05备份一个文件，
明天备份，就是2025.04.06备份一个 ...

很好的建议，可以考虑以不同时间段为名称进行备份，就不会覆盖了。谢谢你的提醒。

kk2apple

有个小建议，关于备份的，比如今天备份，就是2025.04.05备份一个文件，
明天备份，就是2025.04.06备份一个文件，，就是备份不能覆盖。
有人会破坏，删除数据等， 这样可以找之前的各个备份资料

renhe2018

神一样的人猫腻 发表于 2025-4-5 10:18
感谢分享，给力

哈哈，使用开心哈。还有一些操作上的小bug,就不折腾它了。

神一样的人猫腻

感谢分享，给力

renhe2018

美味萝卜 发表于 2025-4-5 09:32
6666666666666666666

感谢 你666，我们一起6666

renhe2018

胖子葛格 发表于 2025-4-5 09:56
感谢大神分享~！

哈哈，不客气。大神不敢当，就是爱分享。

胖子葛格

感谢大神分享~！