比如:
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;
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;
',sum(Num) as 库存数量 from stocks group by Name' +
' union all select Name as 库存名称,sum(Num) as' +
' 出库数量,0 as 库存数量 from OutStocks group by Name)');