那位大佬能在这里加3个功能

是可可吖

白小川 发表于 2025-4-10 22:23

  

[/quote]
[e=2].版本 2

子程序名	返回值类型	公开	备 注
检查今日到期

变量名	类 型	静态	数组	备 注
i	整数型
到期时间	文本型
取出年	整数型
取出月	整数型
取出日	整数型
年	整数型
月	整数型
日	整数型

年 ＝ 取年份 (取现行时间 ())
月 ＝ 取月份 (取现行时间 ())
日 ＝ 取日 (取现行时间 ())
计次循环首 (超级列表框1.取表项数 (), i)
到期时间 ＝ 超级列表框1.取标题 (i － 1, 6)
取出年 ＝ 到整数 (文本_取左边 (到期时间, “年”, , ))
取出月 ＝ 到整数 (文本_取出中间文本 (到期时间, “年”, “月”, , ))
取出日 ＝ 到整数 (文本_取出中间文本 (到期时间, “月”, “日”, , ))
判断 (取出年 ＝ 年 且 取出月 ＝ 月 且 取出日 ＝ 日)
超级列表框1.置表项文本颜色 (i － 1, -1, , #红色 )
超级列表框1.置表项文本颜色 (i － 1, -1, , #黑色 )

计次循环尾 ()

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

.版本 2<br /> .支持库 iext</blockquote></div><br /> [e=2].版本 2<br /> .支持库 iext<br /> <br /> .子程序 检查今日到期<br /> .局部变量 i, 整数型<br /> .局部变量 到期时间, 文本型<br /> .局部变量 取出年, 整数型<br /> .局部变量 取出月, 整数型<br /> .局部变量 取出日, 整数型<br /> .局部变量 年, 整数型<br /> .局部变量 月, 整数型<br /> .局部变量 日, 整数型<br /> <br /> 年 ＝ 取年份 (取现行时间 ())<br /> 月 ＝ 取月份 (取现行时间 ())<br /> 日 ＝ 取日 (取现行时间 ())<br /> .计次循环首 (超级列表框1.取表项数 (), i)<br />     到期时间 ＝ 超级列表框1.取标题 (i － 1, 6)<br />     取出年 ＝ 到整数 (文本_取左边 (到期时间, “年”, , ))<br />     取出月 ＝ 到整数 (文本_取出中间文本 (到期时间, “年”, “月”, , ))<br />     取出日 ＝ 到整数 (文本_取出中间文本 (到期时间, “月”, “日”, , ))<br />     .判断开始 (取出年 ＝ 年 且 取出月 ＝ 月 且 取出日 ＝ 日)<br />         超级列表框1.置表项文本颜色 (i － 1, -1, , #红色)<br />     .默认<br />         超级列表框1.置表项文本颜色 (i － 1, -1, , #黑色)<br />     .判断结束<br /> <br /> .计次循环尾 ()

还是直接给你改了吧

白小川

是可可吖 发表于 2025-4-10 22:17
写好了，你自己换模块调试一下，我没有你的数据库

大佬我也没有数据库，这是论坛那个离线版授权啊

q838210720

你这3个问题其实就是1个问题，如何取选中行的某一列。超级列表框1.取标题（超级列表框1.现行选中项，列索引从0开始自己数），完毕！

是可可吖

白小川 发表于 2025-4-10 22:27
大佬我也没有数据库，这是论坛那个离线版授权啊

你那个6.mdb不就是吗？

是可可吖

  

子程序名	返回值类型	公开	备 注
检查今日到期

变量名	类 型	静态	数组	备 注
i	整数型
到期时间	文本型
取出年	整数型
取出月	整数型
取出日	整数型
年	整数型
月	整数型
日	整数型
期限日	整数型

年 ＝ 取年份 (取现行时间 ())
月 ＝ 取月份 (取现行时间 ())
日 ＝ 取日 (取现行时间 ())
期限日 ＝ 日 ＋ 5
计次循环首 (超级列表框1.取表项数 (), i)
到期时间 ＝ 超级列表框1.取标题 (i － 1, 6)
取出年 ＝ 到整数 (文本_取左边 (到期时间, “年”, , ))
取出月 ＝ 到整数 (文本_取出中间文本 (到期时间, “年”, “月”, , ))
取出日 ＝ 到整数 (文本_取出中间文本 (到期时间, “月”, “日”, , ))
如果真 (取出年 ＝ 年 且 取出月 ＝ 月 且 取出日 ＝ 日)  ' 当日到期
超级列表框1.置表项文本颜色 (i － 1, -1, , #红色 )
如果真 (取出年 ＝ 年 且 取出月 ＝ 月 且 取出日 ≤ 期限日 且 取出日 ＞ 日)  ' 5日内到期
超级列表框1.置表项文本颜色 (i － 1, -1, , #紫色 )
如果真 (取出年 ＝ 年 且 取出月 ＝ 月 且 取出日 ＜ 日)  ' 已过期
超级列表框1.置表项文本颜色 (i － 1, -1, , #绿色 )
如果真 (取出年 ＞ 年 或 取出年 ＝ 年 且 取出月 ＝ 月 且 取出日 ＞ 期限日)  ' 当前未到期
超级列表框1.置表项文本颜色 (i － 1, -1, , #白色 )

计次循环尾 ()

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

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 检查今日到期<br /> .局部变量 i, 整数型<br /> .局部变量 到期时间, 文本型<br /> .局部变量 取出年, 整数型<br /> .局部变量 取出月, 整数型<br /> .局部变量 取出日, 整数型<br /> .局部变量 年, 整数型<br /> .局部变量 月, 整数型<br /> .局部变量 日, 整数型<br /> .局部变量 期限日, 整数型<br /> <br /> 年 ＝ 取年份 (取现行时间 ())<br /> 月 ＝ 取月份 (取现行时间 ())<br /> 日 ＝ 取日 (取现行时间 ())<br /> 期限日 ＝ 日 ＋ 5<br /> .计次循环首 (超级列表框1.取表项数 (), i)<br />     到期时间 ＝ 超级列表框1.取标题 (i － 1, 6)<br />     取出年 ＝ 到整数 (文本_取左边 (到期时间, “年”, , ))<br />     取出月 ＝ 到整数 (文本_取出中间文本 (到期时间, “年”, “月”, , ))<br />     取出日 ＝ 到整数 (文本_取出中间文本 (到期时间, “月”, “日”, , ))<br />     .如果真 (取出年 ＝ 年 且 取出月 ＝ 月 且 取出日 ＝ 日)  ' 当日到期<br />         超级列表框1.置表项文本颜色 (i － 1, -1, , #红色)<br />     .如果真结束<br />     .如果真 (取出年 ＝ 年 且 取出月 ＝ 月 且 取出日 ≤ 期限日 且 取出日 ＞ 日)  ' 5日内到期<br />         超级列表框1.置表项文本颜色 (i － 1, -1, , #紫色)<br />     .如果真结束<br />     .如果真 (取出年 ＝ 年 且 取出月 ＝ 月 且 取出日 ＜ 日)  ' 已过期<br />         超级列表框1.置表项文本颜色 (i － 1, -1, , #绿色)<br />     .如果真结束<br />     .如果真 (取出年 ＞ 年 或 取出年 ＝ 年 且 取出月 ＝ 月 且 取出日 ＞ 期限日)  ' 当前未到期<br />         超级列表框1.置表项文本颜色 (i － 1, -1, , #白色)<br />     .如果真结束<br /> <br /> .计次循环尾 ()

这样应该就没什么问题了

a47785788

你有不会的可以问
你这家伙把大佬当牛马了

还要有你

你问的这些 论坛都可以查得到！ 你就是不用心 ，你自己查查，自己改写 比较加深概念

白小川

是可可吖 发表于 2025-4-10 22:48
[e=2].版本 2
.支持库 iext

到期了也没变红啊

aipca

  

子程序名	返回值类型	公开	备 注
_删除_被选择

变量名	类 型	静态	数组	备 注
id	整数型
记录集句柄	整数型

超级列表框1.删除表项 (超级列表框1.现行选中项)
记录集句柄 ＝ access.cha询 (“select * from 授权信息 where ID = ” ＋ 超级列表框1.取标题 (超级列表框1.现行选中项, 0))
判断 (记录集句柄 ≠ 0)
外部数据库1.执行 (“DELETE FROM 授权信息 WHERE ID = ” ＋ 超级列表框1.取标题 (超级列表框1.现行选中项, 0), )

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

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 _删除_被选择<br /> .局部变量 id, 整数型<br /> .局部变量 记录集句柄, 整数型<br /> <br /> 超级列表框1.删除表项 (超级列表框1.现行选中项)<br /> 记录集句柄 ＝ access.cha询 (“select * from 授权信息 where ID = ” ＋ 超级列表框1.取标题 (超级列表框1.现行选中项, 0))<br /> .判断开始 (记录集句柄 ≠ 0)<br />     外部数据库1.执行 (“DELETE FROM 授权信息 WHERE ID = ” ＋ 超级列表框1.取标题 (超级列表框1.现行选中项, 0), )<br /> .默认

将删除这里修改一下，把ASS数据库里面的记录也删除掉。

是可可吖

白小川 发表于 2025-4-10 22:55
到期了也没变红啊

过期好几年的还保留着？例子写的是当年的，那你再加一个判断，取出年＜年