inv_whsumqry.pas

来自「一个MRPII系统源代码版本」· PAS 代码 · 共 51 行

unit Inv_WhSumQry;


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_WhSumQry = Class(TFrm_Base_Qry)
  private
    { Private declarations }
  public
    { Public declarations }
    procedure InitForm(AdOConnection:TAdOConnection;ShowExtendColumn:Boolean);Override;
  end;

var
  Frm_Inv_WhSumQry: TFrm_Inv_WhSumQry;

implementation

uses Inv_WhSumQry_C;

{$R *.DFM}

{ TFrm_Inv_WhSumQry }

procedure TFrm_Inv_WhSumQry.InitForm(AdOConnection: TAdOConnection;
  ShowExtendColumn: Boolean);
begin
  inherited;
  AmountFields:='AInvLMAmount,AInvInAmount,AInvOutAmount,AInvBlncAmount,';
  SelectFromSQL:='Select InvMonthSum.WHCode'
    +',Warehouse.WHName'
    +',InvMonthSum.WHCode+'' ''+Warehouse.WHName As WHCodeName'
    +',Sum(InvMonthSum.InvLMAmount) As AInvLMAmount'
    +',Sum(InvMonthSum.InvInAmount) As AInvInAmount'
    +',Sum(InvMonthSum.InvOutAmount) As AInvOutAmount'
    +',Sum(InvMonthSum.InvBlncAmount) As AInvBlncAmount'
    +' From InvMonthSum Join Warehouse On InvMonthSum.WHCode=Warehouse.WHCode';
  OrderByFields:='WHCodeName';
  GroupByFields:='InvMonthSum.WHCode,Warehouse.WHName';
  Frm_Sys_Condition:=TFrm_Inv_WhSumQry_C.Create(Self);
  Act_Filter.Execute;
end;

end.