2,507
社区成员




procedure Tform1.button1onclick(sender:Tobject);
begin
with adoquery1 do
begin
sql.clear;
if combobox1.Items.Text='全部' then
sql.add('select spdm,sum(sl) as sl from spkcb')
else
sql.add('select spdm,sum(sl) as sl from spkcb where ckdm=' +
QuotedStr(combobox1.Items.Text)+' group by spdm');
end;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
with adoquery1 do
begin
sql.clear;
if combobox1.ItemIndex>=0 then
sql.add('select spdm,sum(sl) as sl from spkcb')
else
sql.add('select spdm,sum(sl) as sl from spkcb where ckdm='''+combobox1.Items.Text+''' group by spdm');
end;
end;