统计原码,请高手看看!

[liulhj]

表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;

[sankis]

你这段代码是有错误还是怎么地？？

[kl2000]

楼主: 你的参数付值有误;改为如下应该可以!
Params[1].DataType := ftdate;
Params[1].ParamType:= ptInput;
Params[1].value:=MaskEdit1.Text;

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

Params[0].DataType := ftstring;
Params[0].ParamType:= ptInput;
Params[0].value:=DBlookupcombobox1.keyvalue;
觉得以上的方式不是很好;
ParamByName('dgroup').Value := DBlookupcombobox1.keyvalue;
ParamByName('date1').Value := MaskEdit1.Text;
ParamByName('date2').Value := MaskEdit2.Text;