procedure TForm18.BitBtn1Click(Sender:TObject);beginwith ADOQuery3 dobeginClose;SQL.Clear ;SQL.Add('select c.类别,(a.入库数量-b.出库数量)as 当前库存 from OUTStock b ,INStock a,GoodsInform c where (a.商品条码=b.商品条码)and (a.
来源：学生作业帮助网 编辑：六六作业网 时间：2024/11/24 00:50:43
procedure TForm18.BitBtn1Click(Sender:TObject);beginwith ADOQuery3 dobeginClose;SQL.Clear ;SQL.Add('select c.类别,(a.入库数量-b.出库数量)as 当前库存 from OUTStock b ,INStock a,GoodsInform c where (a.商品条码=b.商品条码)and (a.
procedure TForm18.BitBtn1Click(Sender:TObject);
begin
with ADOQuery3 do
begin
Close;
SQL.Clear ;
SQL.Add('select c.类别,(a.入库数量-b.出库数量)as 当前库存 from OUTStock b ,INStock a,GoodsInform c where (a.商品条码=b.商品条码)and (a.商品条码=c.商品条码) and 日期 between :m and :n group by c.类别');
Parameters.ParamByName('m').Value:=Trunc(DateTimePicker1.Date);
Parameters.ParamByName('n').Value:=Trunc(DateTimePicker2.Date);
open;
end;
Series3.DataSource:=ADOQuery3;
Series3.YValues.ValueSource:='日用品' ;
Series3.XLabelsSource:='日期'
Series4.DataSource:=ADOQuery3;
Series4.YValues.ValueSource:='厨具类' ;
Series5.DataSource:=ADOQuery3;
Series5.YValues.ValueSource:='护肤类' ;
Series6.DataSource:=ADOQuery3;
Series6.YValues.ValueSource:='电器类' ;
Series7.DataSource:=ADOQuery3;
Series7.YValues.ValueSource:='书刊类' ;
end;
procedure TForm18.BitBtn1Click(Sender:TObject);beginwith ADOQuery3 dobeginClose;SQL.Clear ;SQL.Add('select c.类别,(a.入库数量-b.出库数量)as 当前库存 from OUTStock b ,INStock a,GoodsInform c where (a.商品条码=b.商品条码)and (a.
什么东西?