数据库操作补全代码

难以启齿的私念

需要大神们帮忙补全一段代码 万分感谢！！
添加或者修改一段按编辑框内容搜索统计对应的数据（当前只统计全部客户的平方数 需要单独统计指定客户的平方数）

XS-002.e (1.29 MB, 下载次数: 4)

2025-1-8 00:17 上传

点击文件名下载附件
源码

增加一个搜索条件

数据库结构

  

子程序名	返回值类型	公开	备 注
按月统计金额

变量名	类 型	静态	数组	备 注
s	双精度小数型
sum	双精度小数型		0
i	整数型
时段	文本型

柱状图控件.标题文字 ＝ 取文本左边 (_启动窗口.组合框_月份cha询.内容, 4) ＋ “年每月金额统计表”
柱状图控件.X轴单位 ＝ “月份”
柱状图控件.Y轴单位 ＝ “元”
_启动窗口.记录集_DATA.打开 (“select * from 数据清单”, #SQL语句, )
柱状图控件.X轴标注数量 ＝ 12
计次循环首 (12, i)
柱状图控件.当前X轴标注索引 ＝ i － 1
柱状图控件.当前X轴标注文字 ＝ 到文本 (i) ＋ “月”
如果 (取文本长度 (到文本 (i)) ＜ 2)
时段 ＝ 取文本左边 (_启动窗口.组合框_月份cha询.内容, 4) ＋ “-0” ＋ 到文本 (i) ＋ “-01' and '” ＋ 取文本左边 (_启动窗口.组合框_月份cha询.内容, 4) ＋ “-0” ＋ 到文本 (i) ＋ “-31'”
时段 ＝ 取文本左边 (_启动窗口.组合框_月份cha询.内容, 4) ＋ “-” ＋ 到文本 (i) ＋ “-01' and '” ＋ 取文本左边 (_启动窗口.组合框_月份cha询.内容, 4) ＋ “-” ＋ 到文本 (i) ＋ “-31'”

如果 (_启动窗口.记录集_DATA.打开 (“SELECT SUM(金额) as  Total FROM 数据清单 where 登记日期 between '” ＋ 时段, #SQL语句, ))  [u] ' 是不是此处修改代码 麻烦大神帮忙修改下[/u]
_启动窗口.记录集_DATA.读双精度 (“Total”, s)  ' '字段值求和
柱状图控件.当前数据值 ＝ s
加入成员 (sum, s)
信息框 (到文本 (i) ＋ “月份数据cha询失败”, 0, , )

计次循环尾 ()
数组排序 (sum, 假)
柱状图控件.Y轴最大值 ＝ 四舍五入 (sum [1], -3) ＋ 2000

i支持库列表	支持库注释
EChartBar	数据图表支持库
eDB	数据库操作支持库

.版本 2<br /> .支持库 EChartBar<br /> .支持库 eDB<br /> <br /> .子程序 按月统计金额<br /> .局部变量 s, 双精度小数型<br /> .局部变量 sum, 双精度小数型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 时段, 文本型<br /> <br /> 柱状图控件.标题文字 ＝ 取文本左边 (_启动窗口.组合框_月份cha询.内容, 4) ＋ “年每月金额统计表”<br /> 柱状图控件.X轴单位 ＝ “月份”<br /> 柱状图控件.Y轴单位 ＝ “元”<br /> <br /> _启动窗口.记录集_DATA.打开 (“select * from 数据清单”, #SQL语句, )<br /> <br /> 柱状图控件.X轴标注数量 ＝ 12<br /> .计次循环首 (12, i)<br />     柱状图控件.当前X轴标注索引 ＝ i － 1<br />     柱状图控件.当前X轴标注文字 ＝ 到文本 (i) ＋ “月”<br />     .如果 (取文本长度 (到文本 (i)) ＜ 2)<br />         时段 ＝ 取文本左边 (_启动窗口.组合框_月份cha询.内容, 4) ＋ “-0” ＋ 到文本 (i) ＋ “-01' and '” ＋ 取文本左边 (_启动窗口.组合框_月份cha询.内容, 4) ＋ “-0” ＋ 到文本 (i) ＋ “-31'”<br />     .否则<br />         时段 ＝ 取文本左边 (_启动窗口.组合框_月份cha询.内容, 4) ＋ “-” ＋ 到文本 (i) ＋ “-01' and '” ＋ 取文本左边 (_启动窗口.组合框_月份cha询.内容, 4) ＋ “-” ＋ 到文本 (i) ＋ “-31'”<br />     .如果结束<br /> <br />     .如果 (_启动窗口.记录集_DATA.打开 (“SELECT SUM(金额) as  Total FROM 数据清单 where 登记日期 between '” ＋ 时段, #SQL语句, ))  <u> '是不是此处修改代码 麻烦大神帮忙修改下</u><br />         _启动窗口.记录集_DATA.读双精度 (“Total”, s)  ' '字段值求和<br />         柱状图控件.当前数据值 ＝ s<br />         加入成员 (sum, s)<br />     .否则<br />         信息框 (到文本 (i) ＋ “月份数据cha询失败”, 0, , )<br />     .如果结束<br /> <br /> .计次循环尾 ()<br /> 数组排序 (sum, 假)<br /> 柱状图控件.Y轴最大值 ＝ 四舍五入 (sum [1], -3) ＋ 2000

辽阳小哲

难以启齿的私念 发表于 2025-1-8 15:32
(_启动窗口.记录集_DATA.打开 (“SELECT month(登记日期) 客户名称 SUM(平方数) as  Total FROM 数据清单 w ...

between是where中的条件，而group by是where后的分组统计，不知道你使用的是什么数据库，我写的语句适用于sqlserver，如果是其他数据库，可能需要有小改动。方便的话，最好提供一下所用的数据库

补充内容 (2025-1-8 16:33):
month(登记日期) 这个是取月份的函数，如果因为这个报错，替换成你相应数据库的取月份函数，where语句后跟条件，最后再group by

辽阳小哲

按客户统计：
SELECT 客户名称,SUM(金额) as  Total FROM 数据清单 where 登记日期 >'自定义cha询时间' and 登记日期<'自定义cha询时间' group by 客户名称

按月份统计：
SELECT month(登记日期) as 月份,SUM(金额) as  Total FROM 数据清单 where 登记日期 >'自定义cha询时间' and 登记日期<'自定义cha询时间' group by month(登记日期)

按客户和月份统计：
SELECT month(登记日期) as 月份,客户名称,SUM(金额) as  Total FROM 数据清单 where 登记日期 >'自定义cha询时间' and 登记日期<'自定义cha询时间' group by month(登记日期),客户名称

补充内容 (2025-1-8 10:04):
‘客户名称’为列名，如果你的列名不叫客户名称就改成客户名称对应的列名。
如果想统计单用户就在where后加条件 and 客户名称='张三'

补充内容 (2025-1-8 10:40):
SUM()中的内容为统计内容，如果统计平方数，就SUM(平方数)

难以启齿的私念

辽阳小哲 发表于 2025-1-8 10:01
按客户统计：
SELECT 客户名称,SUM(金额) as  Total FROM 数据清单 where 登记日期 >'自定义cha询时间' and ...

SELECT month(登记日期) as 月份,客户名称,SUM(金额) as  Total FROM 数据清单 where and 客户名称='门店名' 登记日期 >'自定义cha询时间' and 登记日期<'自定义cha询时间' group by month(登记日期),客户名称

大佬这个还是不行运行出错  （,）这个分隔号是不是要替换别的显示？ 然后我的cha询月份就是登记时段 时段已经有定义了

难以启齿的私念

帮忙再看下什么问题

难以启齿的私念

(_启动窗口.记录集_DATA.打开 (“SELECT month(登记日期) 客户名称 SUM(平方数) as  Total FROM 数据清单 where and 客户名称='” ＋ 门店名 ＋ “' group by month(登记日期) between” ＋ 时段, #SQL语句, ))

难以启齿的私念

源码以及数据库都在这里

难以启齿的私念

辽阳小哲 发表于 2025-1-8 16:18
between是where中的条件，而group by是where后的分组统计，不知道你使用的是什么数据库，我写的语句适用 ...

源码和数据库都放到下面了

难以启齿的私念

辽阳小哲 发表于 2025-1-8 16:18
between是where中的条件，而group by是where后的分组统计，不知道你使用的是什么数据库，我写的语句适用 ...

Access数据库

难以启齿的私念

辽阳小哲 发表于 2025-1-8 16:18
between是where中的条件，而group by是where后的分组统计，不知道你使用的是什么数据库，我写的语句适用 ...

感谢 解决了！按下面代码即可实现了 谢谢！


如果 (_启动窗口.记录集_DATA.打开 (“SELECT  SUM(平方数) AS Total FROM 数据清单 WHERE 门店名称='” ＋ 客户名.内容 ＋ “' AND 登记日期 BETWEEN '” ＋ 时段, #SQL语句, ))