比如:
procedure TForm1.Button9Click(Sender: TObject);
begin
  with DM2.ADOQuery3 do
    begin
      Close;
      SQL.Clear;
      SQL.Add('select 库存名称,sum(出库数量) as 出库总数,sum(库存数量) as 库存总数');
      SQL.Add('from(select Name as 库存名称,0 as 出库数量,sum(Num) as 库存数量 from stocks group by Name union all select Name as 库存名称,sum(Num) as 出库数量,0 as 库存数量 from OutStocks group by Name)');
      //第二个SQL.Add在Delphi中是一行书写的,如何才能分为多行书写
      SQL.Add('group by 库存名称');
      Open;
    end;
end;