sfc_monthsumqrybcp_d1.pas

一个MRPII系统源代码版本

unit Sfc_MonthSumQrybcp_D1;

Interface

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

Type
  TFrm_Sfc_MonthSumQrybcp_D1 = Class(TFrm_Base_Entry_Body)
    AdoQry_BodyItemCode: TStringField;
    AdoQry_BodyItemName: TStringField;
    AdoQry_BodyInvoutqty: TFloatField;
    AdoQry_BodyInvoutAmount: TFloatField;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    lbl_filter: TLabel;
    procedure FormShow(Sender: TObject);
    procedure AdoQueryAfterOpen(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure showfilter(lb:string);
  end;

var
  Frm_Sfc_MonthSumQrybcp_D1: TFrm_Sfc_MonthSumQrybcp_D1;

implementation

{$R *.DFM}

procedure TFrm_Sfc_MonthSumQrybcp_D1.Showfilter(lb:string);
begin
  lbl_filter.Caption:=lb;
end;

procedure TFrm_Sfc_MonthSumQrybcp_D1.FormShow(Sender: TObject);
begin
  AmountFields:='InvoutAmount,';
  inherited;
  with AdoQry_Body do
  begin
    Close;
    sql.text:='select #MonthSumQry1.ItemCode,Item.ItemName,#MonthSumQry1.Invoutqty, '+
              'round(#MonthSumQry1.InvoutAmount,2) as InvoutAmount from #MonthSumQry1 '+
              'left join Item on Item.ItemCode=#MonthSumQry1.ItemCode '+
              'where #MonthSumQry1.ItemCode not in (select ItemCode from #sonqty)';
    open;
  end;

end;

procedure TFrm_Sfc_MonthSumQrybcp_D1.AdoQueryAfterOpen(DataSet: TDataSet);
var
  sql_txt:string;
  i:integer;
  sumAmounts,sumAmountr:real;
begin
  sumAmounts:=0;
  sumAmountr:=0;
  //计算汇总金额
  If Not AdoQry_Body.IsEmpty then
  begin
    AdoQry_Body.DisableControls;
    AdoQry_Body.First;
    for I:=0 to AdoQry_Body.RecordCount-1 do
    begin
      SumAmounts:=SumAmounts+AdoQry_Body.fieldbyname('Invoutqty').asFloat;
      SumAmountr:=SumAmountr+AdoQry_Body.fieldbyname('InvoutAmount').asFloat;
      AdoQry_Body.next;
    end;
    AdoQry_Body.First;
    AdoQry_Body.enableControls;
  end;
  edit1.text:=FormatFloat('#.##',SumAmounts);
  edit2.text:=FormatFloat('#.##',SumAmountr);
end;

end.