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

renhe2018

在V2.0的基础上，处理了如下bug及功能优化：

1. 在消费记录的分页中，解决了点击 尾页 按钮后，
无法达到最后分页记录的问题



2. 解决了数据库文件时间对比问题，从而实现3天后，
提醒备份数据。



3. 对界面部分元素进行了调整。如图所示：



4. 加入了系统操作员及登陆时间的提示(上图)

5. 可查阅过往登陆人员及时间的记录。



——————————————————————
以下是源码链接：

https://renhepc.lanzoue.com/iXrkn2sqludg

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

查过 发表于 2025-4-5 07:10
感谢分享，很给力！~

小改进，使用过程中发现了问题。哈哈

renhe2018

豆豆灰常开心 发表于 2025-4-5 07:06
下个学习一下

豆豆学习开心呦。

happyweeks365

6666666666666666666

renhe2018

happyweeks365 发表于 2025-4-5 08:31
6666666666666666666

感谢你的6666，使用愉快。哈哈

美味萝卜

6666666666666666666

胖子葛格

感谢大神分享~！

renhe2018

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

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