inv_monthclasssumqry.pas

一个MRPII系统源代码版本

unit Inv_MonthClassSumQry;

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_MonthClassSumQry = Class(TFrm_Base_Qry)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    Edit4: TEdit;
    procedure AdoQueryAfterOpen(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure InitForm(AdOConnection:TAdOConnection;ShowExtendColumn:Boolean);Override;
    procedure GetData; Override;
    procedure initReport;Override;
  end;

var
  Frm_Inv_MonthClassSumQry: TFrm_Inv_MonthClassSumQry;

implementation

uses Inv_MonthClassSumQry_C;

{$R *.DFM}

procedure TFrm_Inv_MonthClassSumQry.GetData;
begin
  inherited;
  AdoQry_Main.Close;
  AdoQry_Main.SQL.Text:=Condition;
  AdoQry_Main.Open;
  AdoQry_Main.Sort:=OrderByFields;
end;

procedure TFrm_Inv_MonthClassSumQry.InitForm(AdOConnection: TAdOConnection;
  ShowExtendColumn: Boolean);
begin
  inherited;
  AmountFields:='SInvLMAmount,SInvInAmount,SInvOutAmount,SInvBlncAmount,';
  if Param1='Inv' then
  begin
    DBGridEh.Columns.Delete(9);
    DBGridEh.Columns.Delete(8);
    DBGridEh.Columns.Delete(7);
    DBGridEh.Columns.Delete(6);
  end
  else if Param1='Stk' then
  begin
    DBGridEh.Columns.Delete(5);
    DBGridEh.Columns.Delete(4);
    DBGridEh.Columns.Delete(3);
    DBGridEh.Columns.Delete(2);
  end;
  OrderByFields:='WHName,ItemClass';
  Frm_Sys_Condition:=TFrm_Inv_MonthClassSumQry_C.Create(Self);
  Act_Filter.Execute;
end;

procedure TFrm_Inv_MonthClassSumQry.initReport;
begin
  inherited;
  if Param1='Inv' then
  begin
    ExtprintReport.Headers.Items[ExtprintReport.Headers.indexof('SInvLMQty')].sum:=True;
    ExtprintReport.Headers.Items[ExtprintReport.Headers.indexof('SInvInQty')].sum:=True;
    ExtprintReport.Headers.Items[ExtprintReport.Headers.indexof('SInvOutQty')].sum:=True;
    ExtprintReport.Headers.Items[ExtprintReport.Headers.indexof('SInvBlncQty')].sum:=True;
  end
  else if Param1='Stk' then
  begin
    ExtprintReport.Headers.Items[ExtprintReport.Headers.indexof('SInvLMAmount')].sum:=True;
    ExtprintReport.Headers.Items[ExtprintReport.Headers.indexof('SInvInAmount')].sum:=True;
    ExtprintReport.Headers.Items[ExtprintReport.Headers.indexof('SInvOutAmount')].sum:=True;
    ExtprintReport.Headers.Items[ExtprintReport.Headers.indexof('SInvBlncAmount')].sum:=True;
  end;
end;

procedure TFrm_Inv_MonthClassSumQry.AdoQueryAfterOpen(DataSet: TDataSet);
var
 sq,bi,bo,bc:real;
begin
  inherited;
  sq:=0;
  bi:=0;
  bo:=0;
  bc:=0;
  with AdoQry_Main do
  begin
    DisableControls;
    First;
    while not eof do
    begin
      sq:=sq+fieldbyname('SInvLMAmount').AsFloat;
      bi:=bi+fieldbyname('SInvInAmount').AsFloat;
      bo:=bo+fieldbyname('SInvOutAmount').AsFloat;
      bc:=bc+fieldbyname('SInvBlncAmount').AsFloat;
      next;
    end;
    EnableControls;
  end;
  edit1.Text:=FloatToStr(sq);
  edit2.Text:=FloatToStr(bi);
  edit3.Text:=FloatToStr(bo);
  edit4.Text:=FloatToStr(bc);
end;

end.