inv_mnoutsumqry.pas

一个MRPII系统源代码版本

unit Inv_MnOutSumQry;
//程序员：
Interface

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

Type
  TFrm_Inv_MnOutSumQry = 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_MnOutSumQry: TFrm_Inv_MnOutSumQry;

implementation
uses Inv_MnOutSumQry_C;
{$R *.DFM}
procedure TFrm_Inv_MnOutSumQry.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_MnOutSumQry.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_MnOutSumQry_C.Create(Self);
  TFrm_Inv_MnOutSumQry_C(Frm_Sys_Condition).InitForm(UserCode,ModuleCode,LoginDate);
  Act_Filter.Execute;
end;

procedure TFrm_Inv_MnOutSumQry.InitReport;
var
  userName:string;
begin//定义表头
  inherited;
  with AdoQry_tmp do
  begin
    Close;
    sql.Text:='select * from Employee where EmployeeCode='''+userCode+'''';
    open;
    userName:=fieldbyname('EmployeeName').asstring;
  end;
  ExtprintReport.Foot1:=' 制　表：'+userName+'      　审核：   ';
  if ShowExtend then
  begin
    ExtprintReport.Headers.Items[ExtprintReport.Headers.indexof('InvBillNoTaxAmount')].sum:=True;
  end;
//  ExtprintReport.PAperType:=ptwide;
//  ExtprintReport.Headers.Items[ExtprintReport.Headers.indexof('AInvBillAmount')].sum:=True;

end;

procedure TFrm_Inv_MnOutSumQry.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.