procedure Tf_stat.ListBox2Click(Sender: TObject);
var s,i,j:integer;
begin
for i:=0 to (listbox2.Items.Count-1) do //行
begin
if listbox2.Selected then //选中那行了？
begin
f_stat.ADOQuery1.Active:=false;
f_stat.ADOQuery1.SQL.Clear;
f_stat.ADOQuery1.SQL.Add('select 销售日期,销售专员,数量,产品名称,销售价格 from d_pen where 销售专员=:s_r');
f_stat.ADOQuery1.Parameters.ParamByName('s_r').Value:=listbox2.Items.Strings;//选中的行
f_stat.ADOQuery1.ExecSQL;
f_stat.ADOQuery1.Active:=true;
Label2.Caption:=listbox2.Items.Strings;//显示list中的名字
with f_stat.ADOQuery1 do
begin
first; //第一条
while not Eof do //最后
begin
j :=j+ dbgrid1.Fields[2].AsInteger;//加
s :=s+ dbgrid1.Fields[4].AsInteger;//加
next; //下一条
end;
Label4.Caption:=intTOstr(j); //结果
Label6.Caption:=intTOstr(s); //结果
end; //加...完
with DBGrid1 do
begin
Columns[0].Width:=80; //日期
Columns[1].Width:=65; //人员
Columns[2].Width:=65; //数量
Columns[3].Width:=115; //名称
Columns[4].Width:=65; //零售价格
end;
end;
end;
end;
完成！
谢谢大家.....
