inv_yearsumqry.pas

一个MRPII系统源代码版本

unit Inv_YearSumQry;


Interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Base_Qry, Menus, ExtPrintReport, Db, ActnList, AdODB, Grids, DBGridEh,
  StdCtrls, ExtCtrls, ComCtrls, ToolWin, DBCtrls;

Type
  TFrm_Inv_YearSumQry = Class(TFrm_Base_Qry)
    Label1: TLabel;
    DBText1: TDBText;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure InitForm(AdOConnection:TAdOConnection;ShowExtendColumn:Boolean);Override;
  end;

var
  Frm_Inv_YearSumQry: TFrm_Inv_YearSumQry;

implementation

uses Inv_YearSumQry_C;

{$R *.DFM}

procedure TFrm_Inv_YearSumQry.InitForm(AdOConnection: TAdOConnection;
  ShowExtendColumn: Boolean);
begin
  inherited;
  AmountFields:='InvLMAmount,InvInAmount,InvOutAmount,InvBlncAmount,';
  PriceFields:='InvLMPrice,InvInPrice,InvOutPrice,InvBlncPrice,';
  Caption:='多月物料收发存汇总表';
  Pnl_Title.Caption:='多月物料收发存汇总表';
  if Param1='Inv' then
  begin
    DBGridEh.Columns.Delete(15);
    DBGridEh.Columns.Delete(14);
    DBGridEh.Columns.Delete(12);
    DBGridEh.Columns.Delete(11);
    DBGridEh.Columns.Delete(9);
    DBGridEh.Columns.Delete(8);
    DBGridEh.Columns.Delete(6);
    DBGridEh.Columns.Delete(5);
  end;
  try
    AdoQry_Tmp.Close;
    AdoQry_Tmp.SQL.Text:='Drop TABLE #YearSumQry';
    AdoQry_Tmp.ExecSQL;
  except
  end;
  AdoQry_Tmp.Close;
  AdoQry_Tmp.SQL.Text:='Create Table #YearSumQry('
    +' [ItemCode] [varchAr] (16) NULL'
    +',[InvLMQty] [float] NULL'
    +',[InvLMAmount] [decimal](14, 2) NULL'
    +',[InvInQty] [float] NULL'
    +',[InvInAmount] [decimal](14, 2) NULL'
    +',[InvOUTQty] [float] NULL'
    +',[InvOUTAmount] [decimal](14, 2) NULL'
    +',[InvBLNCQty] [float] NULL'
    +',[InvBLNCAmount] [float] NULL'
    +',[InvLMPrice] [float] NULL'
    +',[InvInPrice] [float] NULL'
    +',[InvOutPrice] [float] NULL'
    +',[InvBlncPrice] [float] NULL'
    +')';
  AdoQry_Tmp.ExecSQL;

  OrderByFields:='ItemCodeName';
  SelectFromSQL:='Select #YearSumQry.ItemCode'
    +',Item.ItemName'
    +',#YearSumQry.ItemCode+'' ''+Item.ItemName As ItemCodeName'
    +',Uom.UomName'
    +',#YearSumQry.InvLMQty'
    +',#YearSumQry.InvLMPrice'
    +',#YearSumQry.InvLMAmount'
    +',#YearSumQry.InvInQty'
    +',#YearSumQry.InvInPrice'
    +',#YearSumQry.InvInAmount'
    +',#YearSumQry.InvOutQty'
    +',#YearSumQry.InvOutPrice'
    +',#YearSumQry.InvOutAmount'
    +',#YearSumQry.InvBlncQty'
    +',#YearSumQry.InvBlncPrice'
    +',#YearSumQry.InvBlncAmount'
    +' From #YearSumQry Join Item On #YearSumQry.ItemCode=Item.ItemCode'
    +' Join Uom On Item.UomCode=Uom.UomCode';

  Frm_Sys_Condition:=TFrm_Inv_YearSumQry_C.Create(Self);
  Act_Filter.Execute;
end;

procedure TFrm_Inv_YearSumQry.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  AdoQry_Tmp.Close;
  AdoQry_Tmp.SQL.Text:='Drop TABLE #YearSumQry';
  AdoQry_Tmp.ExecSQL;
end;

end.