统计原码,请高手看看!

2004-07-10 05:01:16 131 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

别再到处找离线包了！Visual Studio 2022 企业版/社区版离线安装保姆级教程（含工作负载选择指南）本文提供Visual Studio 2022企业版/社区版离线安装的详细教程，包括工作负载选择指南和批量安装优化策略。针对网络隔离或带宽受限环境，介绍如何制作离线安装包、选择合适的工作负载组合，并分享高级技巧如增量更新和自动化部署，帮助团队高效统一开发环境配置。阅读详情

表1:employee的字段:
dept_name (部门)
dgroup (科组)
name (员工姓名)
work_number(工号)
表2:pay_detail的字段:
work_number(工号)
name (员工姓名)
total(工资)

选好科组,再选一个时间段(一个月),统计月工资. date(日期)

procedure TForm1.Button1Click(Sender: TObject);
begin
with Query1 do
begin
Close;
SQL.Clear;
SQL.Add('select a1.dept_name, a1.dgroup,a1.name,a1.work_number,sum(a2.total) as stotal from pay_detail a2,employee a1 where a2.work_number=a1.work_number and a1.dgroup=:dgroup and a2.date between :date1 and :date1 group by a1.dgroup,a1.name,a1.work_number ');
Params[0].DataType := ftdate;
Params[0].ParamType:= ptInput;
Params[0].value:=MaskEdit1.Text;

Params[1].DataType := ftdate;
Params[1].ParamType:= ptInput;
Params[1].value:=MaskEdit2.Text;

Params[2].DataType := ftstring;
Params[2].ParamType:= ptInput;
Params[2].value:=DBlookupcombobox1.keyvalue;
Prepare;
Open;
end;
end;

...全文