超级列表框统计重复次数

easonchou

sqlite数据库“data.db”中数据表"saomiao"的内容为：
yymm        time        number        name
20230416        18:04:03        6445316515         小胖
20230506        18:08:18        563543543         小胖
20230417        10:07:11        453534453         小土
20230317        10:52:02        453453543         小黑
20230416        10:58:21        4531234534         小胖
20230506        10:58:40        453132123         小胖
20230315        11:13:37        2343354554         小黑
20230416        11:13:41        434534543         小土
20230417        11:14:01        856374333         小黑
20230416        11:14:38        45247854214         小黑
20230417        11:14:42        434735453         小胖
20230315        11:14:45        2023043584         小胖
20230416        11:16:15        3453543354         小土
20230417        11:25:18        42332787485         小胖
20230417        11:27:44        5274274522         小胖

在sqlite数据表“saomiao”的“yymm”列和“number”列中模糊查找“搜索文本”中的数据，如果“搜索文本”为空，就查找今天的数据，把查找到的数据通过“超级列表框”展示出来，在“状态条1”中统计一共查到了多少条数据，不同的“name”分别有多少条，“name”列的数据是不确定的。

举例1：
搜索文本=“202304”
超级列表框输出的内容为：
20230416        18:04:03        6445316515         小胖
20230417        10:07:11        453534453         小土
20230416        10:58:21        4531234534         小胖
20230416        11:13:41        434534543         小土
20230417        11:14:01        856374333         小黑
20230416        11:14:38        45247854214         小黑
20230417        11:14:42        434735453         小胖
20230315        11:14:45        42023043584         小胖
20230416        11:16:15        3453543354         小土
20230417        11:25:18        42332787485         小胖
20230417        11:27:44        5274274522         小胖
“状态条1”输出内容为"共11条：小胖6，小黑2，小土3。"

举例2：
搜索文本=“”
超级列表框输出的内容为：
20230506        18:08:18        563543543         小胖
20230506        10:58:40        453132123         小胖
“状态条1”输出内容为"共2条：小胖2。"

举例3：
搜索文本=“4735”
超级列表框输出的内容为：
20230417        11:14:42        434735453         小胖
“状态条1”输出内容为"共1条：小胖1条。"

钥匙key

  

子程序名	返回值类型	公开	备 注
刷新列表
参数名	类 型	参考	可空	数组	备 注
搜索文本	文本型

变量名	类 型	静态	数组	备 注
局部_索引	整数型
局部_ID	整数型
输出	文本型
数据数组	文本型		3
n	整数型

如果真 (sqlite.打开 (数据库路径, 真) ＝ 假)
信息框 (“数据库打开失败”, 0, , )

如果 (搜索文本 ≠ “”)
记录集 ＝ sqlite.取记录集 (“SELECT * FROM saomiao WHERE number LIKE '%” ＋ 搜索文本 ＋ “%' or yymm LIKE '%” ＋ 搜索文本 ＋ “%'”)
记录集 ＝ sqlite.取记录集 (“SELECT * FROM saomiao WHERE yymm = strftime('%Y%m%d', date('now'))”)

如果真 (记录集.打开 () ＝ 假)
信息框 (“记录集没打开！”, #错误图标, “提示”, )
返回 ()
超级列表框.全部删除 ()
记录集.到下一记录 ()
判断循环首 (记录集.尾记录后 () ＝ 假)
局部_索引 ＝ 超级列表框.插入表项 (, 到文本 (局部_ID), , , , )
' 使用数组来存储数据，避免多个变量
数据数组 [1] ＝ 记录集.读字段文本值 (“yymm”, ) ＋ “ ” ＋ 记录集.读字段文本值 (“time”, )
数据数组 [2] ＝ 记录集.读字段文本值 (“number”, )
数据数组 [3] ＝ 记录集.读字段文本值 (“name”, )
超级列表框.置标题 (局部_索引, 1, 数据数组 [1])
超级列表框.置标题 (局部_索引, 2, 数据数组 [2])
超级列表框.置标题 (局部_索引, 3, 数据数组 [3])
记录集.到下一记录 ()
处理事件 ()
判断循环尾 ()
n = 记录集.取记录个数 ()
调试输出 (n)
如果真 (n ＞ 0)
如果 (搜索文本 ≠ “”)
记录集 ＝ sqlite.取记录集 (“SELECT name,count(name) as count FROM saomiao WHERE number LIKE '%” ＋ 搜索文本 ＋ “%' or yymm LIKE '%” ＋ 搜索文本 ＋ “%' group by name ORDER BY COUNT(name) DESC”)
记录集 ＝ sqlite.取记录集 (“select name,count(name) as count from saomiao WHERE yymm = strftime('%Y%m%d', date('now')) group by name ORDER BY COUNT(name) DESC”)

如果真 (记录集.到下一记录 ())
输出 ＝ 记录集.读字段文本值 (“name”, ) ＋ “” ＋ 记录集.读字段文本值 (“count”, ) ＋ “个”
判断循环首 (记录集.到下一记录 ())
输出 ＝ 输出 ＋ “，” ＋ 记录集.读字段文本值 (“name”, ) ＋ “” ＋ 记录集.读字段文本值 (“count”, ) ＋ “个”
判断循环尾 ()
输出 ＝ “一共打了” ＋ 到文本 (n) ＋ “个包：” ＋ 输出 ＋ “。”
状态条1.置文本 (0, 输出)

记录集.关闭 ()
如果 (n ＞ 13)
超级列表框.置列宽 (1, 170)
超级列表框.置列宽 (2, 180)
超级列表框.置列宽 (3, 120)
超级列表框.置列宽 (1, 170)
超级列表框.置列宽 (2, 180)
超级列表框.置列宽 (3, 140)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 刷新列表<br /> .参数 搜索文本, 文本型, 可空<br /> .局部变量 局部_索引, 整数型<br /> .局部变量 局部_ID, 整数型<br /> .局部变量 输出, 文本型<br /> .局部变量 数据数组, 文本型, , "3"<br /> .局部变量 n, 整数型<br /> <br /> .如果真 (sqlite.打开 (数据库路径, 真) ＝ 假)<br />     信息框 (“数据库打开失败”, 0, , )<br /> .如果真结束<br /> <br /> .如果 (搜索文本 ≠ “”)<br />     记录集 ＝ sqlite.取记录集 (“SELECT * FROM saomiao WHERE number LIKE '%” ＋ 搜索文本 ＋ “%' or yymm LIKE '%” ＋ 搜索文本 ＋ “%'”)<br /> .否则<br />     记录集 ＝ sqlite.取记录集 (“SELECT * FROM saomiao WHERE yymm = strftime('%Y%m%d', date('now'))”)<br /> .如果结束<br /> <br /> .如果真 (记录集.打开 () ＝ 假)<br />     信息框 (“记录集没打开！”, #错误图标, “提示”, )<br />     返回 ()<br /> .如果真结束<br /> 超级列表框.全部删除 ()<br /> 记录集.到下一记录 ()<br /> .判断循环首 (记录集.尾记录后 () ＝ 假)<br />     局部_索引 ＝ 超级列表框.插入表项 (, 到文本 (局部_ID), , , , )<br />     ' 使用数组来存储数据，避免多个变量<br />     数据数组 [1] ＝ 记录集.读字段文本值 (“yymm”, ) ＋ “ ” ＋ 记录集.读字段文本值 (“time”, )<br />     数据数组 [2] ＝ 记录集.读字段文本值 (“number”, )<br />     数据数组 [3] ＝ 记录集.读字段文本值 (“name”, )<br /> <br />     超级列表框.置标题 (局部_索引, 1, 数据数组 [1])<br />     超级列表框.置标题 (局部_索引, 2, 数据数组 [2])<br />     超级列表框.置标题 (局部_索引, 3, 数据数组 [3])<br />     记录集.到下一记录 ()<br />     处理事件 ()<br /> .判断循环尾 ()<br /> n = 记录集.取记录个数 ()<br /> 调试输出 (n)<br /> .如果真 (n ＞ 0)<br />     .如果 (搜索文本 ≠ “”)<br />         记录集 ＝ sqlite.取记录集 (“SELECT name,count(name) as count FROM saomiao WHERE number LIKE '%” ＋ 搜索文本 ＋ “%' or yymm LIKE '%” ＋ 搜索文本 ＋ “%' group by name ORDER BY COUNT(name) DESC”)<br />     .否则<br />         记录集 ＝ sqlite.取记录集 (“select name,count(name) as count from saomiao WHERE yymm = strftime('%Y%m%d', date('now')) group by name ORDER BY COUNT(name) DESC”)<br />     .如果结束<br /> <br />     .如果真(记录集.到下一记录 ())<br />         输出 ＝ 记录集.读字段文本值 (“name”, ) ＋ “” ＋ 记录集.读字段文本值 (“count”, ) ＋ “个”<br />         .判断循环首 (记录集.到下一记录 ())<br />             输出 ＝ 输出 ＋ “，” ＋ 记录集.读字段文本值 (“name”, ) ＋ “” ＋ 记录集.读字段文本值 (“count”, ) ＋ “个”<br />         .判断循环尾 ()<br />         输出 ＝ “一共打了” ＋ 到文本 (n) ＋ “个包：” ＋ 输出 ＋ “。”<br /> <br />         状态条1.置文本 (0, 输出)<br />     .如果真结束<br /> <br /> .如果真结束<br /> 记录集.关闭 ()<br /> <br /> .如果 (n ＞ 13)<br />     超级列表框.置列宽 (1, 170)<br />     超级列表框.置列宽 (2, 180)<br />     超级列表框.置列宽 (3, 120)<br /> .否则<br />     超级列表框.置列宽 (1, 170)<br />     超级列表框.置列宽 (2, 180)<br />     超级列表框.置列宽 (3, 140)<br /> .如果结束

这样试试？

easonchou

下面是我目前写的代码，超级列表框中的内容已经可以正常展示了，但是不知道怎么统计不同姓名出现的次数，请大神帮忙写一下，谢谢

  

子程序名	返回值类型	公开	备 注
刷新列表
参数名	类 型	参考	可空	数组	备 注
搜索文本	文本型

变量名	类 型	静态	数组	备 注
局部_索引	整数型
局部_ID	整数型
数据数组	文本型		3

如果真 (sqlite.打开 (数据库路径, 真) ＝ 假)
信息框 (“数据库打开失败”, 0, , )

如果 (搜索文本 ≠ “”)
记录集 ＝ sqlite.取记录集 (“SELECT * FROM saomiao WHERE number LIKE '%” ＋ 搜索文本 ＋ “%' or yymm LIKE '%” ＋ 搜索文本 ＋ “%'”)
记录集 ＝ sqlite.取记录集 (“SELECT * FROM saomiao WHERE yymm = strftime('%Y%m%d', date('now'))”)

如果真 (记录集.打开 () ＝ 假)
信息框 (“记录集没打开！”, #错误图标, “提示”, )
返回 ()
超级列表框.全部删除 ()
记录集.到下一记录 ()
判断循环首 (记录集.尾记录后 () ＝ 假)
局部_索引 ＝ 超级列表框.插入表项 (, 到文本 (局部_ID), , , , )
' 使用数组来存储数据，避免多个变量
数据数组 [1] ＝ 记录集.读字段文本值 (“yymm”, ) ＋ “ ” ＋ 记录集.读字段文本值 (“time”, )
数据数组 [2] ＝ 记录集.读字段文本值 (“number”, )
数据数组 [3] ＝ 记录集.读字段文本值 (“name”, )
超级列表框.置标题 (局部_索引, 1, 数据数组 [1])
超级列表框.置标题 (局部_索引, 2, 数据数组 [2])
超级列表框.置标题 (局部_索引, 3, 数据数组 [3])
记录集.到下一记录 ()
处理事件 ()
判断循环尾 ()
记录集.关闭 ()

i支持库列表	支持库注释
sqlite3	(未知支持库)
iext	扩展界面支持库一

.版本 2<br /> .支持库 sqlite3<br /> .支持库 iext<br /> <br /> .子程序 刷新列表<br /> .参数 搜索文本, 文本型, 可空<br /> .局部变量 局部_索引, 整数型<br /> .局部变量 局部_ID, 整数型<br /> .局部变量 数据数组, 文本型, , "3"<br /> <br /> .如果真 (sqlite.打开 (数据库路径, 真) ＝ 假)<br />     信息框 (“数据库打开失败”, 0, , )<br /> .如果真结束<br /> <br /> .如果 (搜索文本 ≠ “”)<br />     记录集 ＝ sqlite.取记录集 (“SELECT * FROM saomiao WHERE number LIKE '%” ＋ 搜索文本 ＋ “%' or yymm LIKE '%” ＋ 搜索文本 ＋ “%'”)<br /> .否则<br />     记录集 ＝ sqlite.取记录集 (“SELECT * FROM saomiao WHERE yymm = strftime('%Y%m%d', date('now'))”)<br /> .如果结束<br /> <br /> .如果真 (记录集.打开 () ＝ 假)<br />     信息框 (“记录集没打开！”, #错误图标, “提示”, )<br />     返回 ()<br /> .如果真结束<br /> 超级列表框.全部删除 ()<br /> 记录集.到下一记录 ()<br /> .判断循环首 (记录集.尾记录后 () ＝ 假)<br />     局部_索引 ＝ 超级列表框.插入表项 (, 到文本 (局部_ID), , , , )<br />     ' 使用数组来存储数据，避免多个变量<br />     数据数组 [1] ＝ 记录集.读字段文本值 (“yymm”, ) ＋ “ ” ＋ 记录集.读字段文本值 (“time”, )<br />     数据数组 [2] ＝ 记录集.读字段文本值 (“number”, )<br />     数据数组 [3] ＝ 记录集.读字段文本值 (“name”, )<br /> <br />     超级列表框.置标题 (局部_索引, 1, 数据数组 [1])<br />     超级列表框.置标题 (局部_索引, 2, 数据数组 [2])<br />     超级列表框.置标题 (局部_索引, 3, 数据数组 [3])<br />     记录集.到下一记录 ()<br />     处理事件 ()<br /> .判断循环尾 ()<br /> 记录集.关闭 ()

钥匙key

select name ,count(name) from saomiao group by name

直接用sqlcha询呗 where的自行添加

补充内容 (2023-5-6 14:31):
用sql进行分组cha询效率更好。

补充内容 (2023-5-6 14:35):
select name ,count(name) from saomiao WHERE number LIKE '%” ＋ 搜索文本 ＋ “%' or yymm LIKE '%” ＋ 搜索文本 ＋ “%'” group by name

补充内容 (2023-5-6 14:35):
select name ,count(name) from saomiao WHERE yymm = strftime('%Y%m%d', date('now')) group by name

easonchou

钥匙key 发表于 2023-5-6 14:31
select name ,count(name) from saomiao group by name

直接用sqlcha询呗 where的自行添加

不知道怎么在前面cha询出来的结果上再继续cha询人名出现的次数，可以帮我写一下吗

钥匙key

自己适配一下。。没有原始代码。。

easonchou

钥匙key 发表于 2023-5-6 14:44
自己适配一下。。没有原始代码。。

你的意思是前面cha询一次数据，把这些数据加入超级列表框，然后再继续cha询一次人名出现的次数吗？

钥匙key

easonchou 发表于 2023-5-6 14:57
你的意思是前面cha询一次数据，把这些数据加入超级列表框，然后再继续cha询一次人名出现的次数吗？ ...

对。分别cha询。同样的条件就可以了。。

easonchou

钥匙key 发表于 2023-5-6 14:57
对。分别cha询。同样的条件就可以了。。

参考你的代码写的，有时候列表框有数据但是状态条是空的，比如输入202305状态栏是空的，但是再输入一个0变成了2023050，再删除这个0又变成了202305，状态栏又有数据了。帮忙再看一下是不是那里写的不对，谢谢！

  

子程序名	返回值类型	公开	备 注
刷新列表
参数名	类 型	参考	可空	数组	备 注
搜索文本	文本型

变量名	类 型	静态	数组	备 注
局部_索引	整数型
局部_ID	整数型
输出	文本型
数据数组	文本型		3
n	整数型

如果真 (sqlite.打开 (数据库路径, 真) ＝ 假)
信息框 (“数据库打开失败”, 0, , )

如果 (搜索文本 ≠ “”)
记录集 ＝ sqlite.取记录集 (“SELECT * FROM saomiao WHERE number LIKE '%” ＋ 搜索文本 ＋ “%' or yymm LIKE '%” ＋ 搜索文本 ＋ “%'”)
记录集 ＝ sqlite.取记录集 (“SELECT * FROM saomiao WHERE yymm = strftime('%Y%m%d', date('now'))”)

如果真 (记录集.打开 () ＝ 假)
信息框 (“记录集没打开！”, #错误图标, “提示”, )
返回 ()
超级列表框.全部删除 ()
记录集.到下一记录 ()
判断循环首 (记录集.尾记录后 () ＝ 假)
局部_索引 ＝ 超级列表框.插入表项 (, 到文本 (局部_ID), , , , )
' 使用数组来存储数据，避免多个变量
数据数组 [1] ＝ 记录集.读字段文本值 (“yymm”, ) ＋ “ ” ＋ 记录集.读字段文本值 (“time”, )
数据数组 [2] ＝ 记录集.读字段文本值 (“number”, )
数据数组 [3] ＝ 记录集.读字段文本值 (“name”, )
超级列表框.置标题 (局部_索引, 1, 数据数组 [1])
超级列表框.置标题 (局部_索引, 2, 数据数组 [2])
超级列表框.置标题 (局部_索引, 3, 数据数组 [3])
记录集.到下一记录 ()
处理事件 ()
判断循环尾 ()
n ＝ 记录集.取记录个数 ()
如果 (搜索文本 ≠ “”)
记录集 ＝ sqlite.取记录集 (“SELECT name,count(name) as count FROM saomiao WHERE number LIKE '%” ＋ 搜索文本 ＋ “%' or yymm LIKE '%” ＋ 搜索文本 ＋ “%' group by name ORDER BY COUNT(name) DESC”)
记录集 ＝ sqlite.取记录集 (“select name,count(name) as count from saomiao WHERE yymm = strftime('%Y%m%d', date('now')) group by name ORDER BY COUNT(name) DESC”)
记录集.到下一记录 ()
输出 ＝ 记录集.读字段文本值 (“name”, ) ＋ “” ＋ 记录集.读字段文本值 (“count”, ) ＋ “个”
判断循环首 (记录集.到下一记录 ())
输出 ＝ 输出 ＋ “，” ＋ 记录集.读字段文本值 (“name”, ) ＋ “” ＋ 记录集.读字段文本值 (“count”, ) ＋ “个”
判断循环尾 ()
如果 (n ＝ 0)
输出 ＝ “”
输出 ＝ “一共打了” ＋ 到文本 (n) ＋ “个包：” ＋ 输出 ＋ “。”
状态条1.置文本 (0, 输出)
记录集.关闭 ()
调试输出 (n)
如果 (n ＞ 13)
超级列表框.置列宽 (1, 170)
超级列表框.置列宽 (2, 180)
超级列表框.置列宽 (3, 120)
超级列表框.置列宽 (1, 170)
超级列表框.置列宽 (2, 180)
超级列表框.置列宽 (3, 140)

i支持库列表	支持库注释
sqlite3	(未知支持库)
iext	扩展界面支持库一
spec	特殊功能支持库

.版本 2<br /> .支持库 sqlite3<br /> .支持库 iext<br /> .支持库 spec<br /> <br /> .子程序 刷新列表<br /> .参数 搜索文本, 文本型, 可空<br /> .局部变量 局部_索引, 整数型<br /> .局部变量 局部_ID, 整数型<br /> .局部变量 输出, 文本型<br /> .局部变量 数据数组, 文本型, , "3"<br /> .局部变量 n, 整数型<br /> <br /> .如果真 (sqlite.打开 (数据库路径, 真) ＝ 假)<br />     信息框 (“数据库打开失败”, 0, , )<br /> .如果真结束<br /> <br /> .如果 (搜索文本 ≠ “”)<br />     记录集 ＝ sqlite.取记录集 (“SELECT * FROM saomiao WHERE number LIKE '%” ＋ 搜索文本 ＋ “%' or yymm LIKE '%” ＋ 搜索文本 ＋ “%'”)<br /> .否则<br />     记录集 ＝ sqlite.取记录集 (“SELECT * FROM saomiao WHERE yymm = strftime('%Y%m%d', date('now'))”)<br /> .如果结束<br /> <br /> .如果真 (记录集.打开 () ＝ 假)<br />     信息框 (“记录集没打开！”, #错误图标, “提示”, )<br />     返回 ()<br /> .如果真结束<br /> 超级列表框.全部删除 ()<br /> 记录集.到下一记录 ()<br /> .判断循环首 (记录集.尾记录后 () ＝ 假)<br />     局部_索引 ＝ 超级列表框.插入表项 (, 到文本 (局部_ID), , , , )<br />     ' 使用数组来存储数据，避免多个变量<br />     数据数组 [1] ＝ 记录集.读字段文本值 (“yymm”, ) ＋ “ ” ＋ 记录集.读字段文本值 (“time”, )<br />     数据数组 [2] ＝ 记录集.读字段文本值 (“number”, )<br />     数据数组 [3] ＝ 记录集.读字段文本值 (“name”, )<br /> <br />     超级列表框.置标题 (局部_索引, 1, 数据数组 [1])<br />     超级列表框.置标题 (局部_索引, 2, 数据数组 [2])<br />     超级列表框.置标题 (局部_索引, 3, 数据数组 [3])<br />     记录集.到下一记录 ()<br />     处理事件 ()<br /> .判断循环尾 ()<br /> n ＝ 记录集.取记录个数 ()<br /> <br /> .如果 (搜索文本 ≠ “”)<br />     记录集 ＝ sqlite.取记录集 (“SELECT name,count(name) as count FROM saomiao WHERE number LIKE '%” ＋ 搜索文本 ＋ “%' or yymm LIKE '%” ＋ 搜索文本 ＋ “%' group by name ORDER BY COUNT(name) DESC”)<br /> .否则<br />     记录集 ＝ sqlite.取记录集 (“select name,count(name) as count from saomiao WHERE yymm = strftime('%Y%m%d', date('now')) group by name ORDER BY COUNT(name) DESC”)<br /> .如果结束<br /> 记录集.到下一记录 ()<br /> 输出 ＝ 记录集.读字段文本值 (“name”, ) ＋ “” ＋ 记录集.读字段文本值 (“count”, ) ＋ “个”<br /> .判断循环首 (记录集.到下一记录 ())<br />     输出 ＝ 输出 ＋ “，” ＋ 记录集.读字段文本值 (“name”, ) ＋ “” ＋ 记录集.读字段文本值 (“count”, ) ＋ “个”<br /> .判断循环尾 ()<br /> .如果 (n ＝ 0)<br />     输出 ＝ “”<br /> .否则<br />     输出 ＝ “一共打了” ＋ 到文本 (n) ＋ “个包：” ＋ 输出 ＋ “。”<br /> .如果结束<br /> 状态条1.置文本 (0, 输出)<br /> 记录集.关闭 ()<br /> 调试输出 (n)<br /> .如果 (n ＞ 13)<br />     超级列表框.置列宽 (1, 170)<br />     超级列表框.置列宽 (2, 180)<br />     超级列表框.置列宽 (3, 120)<br /> .否则<br />     超级列表框.置列宽 (1, 170)<br />     超级列表框.置列宽 (2, 180)<br />     超级列表框.置列宽 (3, 140)<br /> .如果结束

钥匙key

easonchou 发表于 2023-5-6 15:30
参考你的代码写的，有时候列表框有数据但是状态条是空的，比如输入202305状态栏是空的，但是再输入一个0 ...

不太容易看。要不你把数据库和demo一起传上来？