inv_mnoutsumqrydept.pas

一个MRPII系统源代码版本

unit Inv_MnOutSumQryDept;
//程序员：
Interface

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

Type
  TFrm_Inv_MnOutSumQryDept = Class(TFrm_Base_Qry)
    Lab_Amount: TLabel;
    edt_Amount: TEdit;
    procedure AdoQueryAfterOpen(DataSet: TDataSet);
  private
    ShowExtend:boolean;
    { Private declarations }
  public
    procedure getData;Override;
    procedure InitReport;Override;
    procedure InitForm(AdOConnection:TAdOConnection;ShowExtendColumn:Boolean);Override;
    { Public declarations }
  end;

var
  Frm_Inv_MnOutSumQryDept: TFrm_Inv_MnOutSumQryDept;

implementation
uses Inv_MnOutSumQryDept_C;
{$R *.DFM}
procedure TFrm_Inv_MnOutSumQryDept.getData;
begin
  AdoQry_Main.Close;
  AdoQry_Main.sql.clear;
  AdoQry_Main.sql.text:=condition;
  AdoQry_Main.Open;
  AdoQry_Main.Sort:='ItemCode';
end;

procedure TFrm_Inv_MnOutSumQryDept.InitForm(AdOConnection:TAdOConnection;ShowExtendColumn:Boolean);
begin
  inherited;
  AmountFields:='InvBillnotaxAmount,';
  PriceFields:='Price,';
  if(not ShowExtendColumn)then
  begin
    DBGridEh.Columns.Delete(4);
    DBGridEh.Columns.Delete(3);
    showextend:=False;
  end
  else
  begin
    ShowExtend:=True;
    Param1:='Amount';
  end;
  lbl_Order.Caption:='物料代码';
  Frm_Sys_Condition:=TFrm_Inv_MnOutSumQryDept_C.Create(Self);
  TFrm_Inv_MnOutSumQryDept_C(Frm_Sys_Condition).InitForm(UserCode,ModuleCode,LoginDate);
  Act_Filter.Execute;
end;

procedure TFrm_Inv_MnOutSumQryDept.InitReport;
begin//定义表头
  inherited;    
  ExtprintReport.Headers.Items[ExtprintReport.Headers.indexof('InvBillqty')].sum:=True;
  ExtprintReport.Headers.Items[ExtprintReport.Headers.indexof('InvBillnotaxAmount')].sum:=True;
end;

procedure TFrm_Inv_MnOutSumQryDept.AdoQueryAfterOpen(DataSet: TDataSet);
var
  sql_txt:string;
  i:integer;
  sumAmount:real;
begin
  inherited;
  if ShowExtend then
  begin
    lab_Amount.Visible:=True;
    edt_Amount.Visible:=True;    
    sumAmount:=0;
    //计算汇总金额
    AdoQry_Main.DisableControls;
    If Not AdoQry_Main.IsEmpty then
    begin
      AdoQry_Main.First;
      for I:=0 to AdoQry_Main.RecordCount-1 do
      begin
        SumAmount:=SumAmount+AdoQry_Main.fieldbyname('InvBillnotaxAmount').asFloat;
        AdoQry_Main.next;
      end;
      AdoQry_Main.First;
    end;
    AdoQry_Main.EnableControls;
    edt_Amount.text:=FormatFloat('#.##',SumAmount);
  end;
end;

end.