inv_opsumout_h.pas

一个MRPII系统源代码版本

unit Inv_OpSumOut_H;

Interface

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

Type
  TFrm_Inv_OpSumOut_H = Class(TFrm_Base_Entry_Head)
    AdoQry_HeadPoNo: TStringField;
    AdoQry_HeadPoLineNo: TIntegerField;
    AdoQry_HeadPoQty: TFloatField;
    AdoQry_HeadPolineDate: TDateTimeField;
    AdoQry_HeadPoSpecial: TIntegerField;
    AdoQry_HeadVendor: TStringField;
    AdoQry_HeadItem: TStringField;
    Label1: TLabel;
    Label2: TLabel;
    DBText1: TDBText;
    DBText2: TDBText;
    AdoQry_HeadVendorName: TStringField;
    AdoQry_HeadItemName: TStringField;
    AdoQry_HeadVendorCode: TStringField;
    AdoQry_HeadItemCode: TStringField;
    procedure Act_LookExecute(Sender: TObject);
    procedure Act_NewExecute(Sender: TObject);
  private
    IsOverPlan:Boolean;  
    { Private declarations }
  public
    procedure InitForm(AdOConnection:TAdOConnection;ReadOnly:Boolean);OverRide;
    { Public declarations }
  end;

var
  Frm_Inv_OpSumOut_H: TFrm_Inv_OpSumOut_H;

implementation
uses Sys_Global,Inv_OpOut_C,Inv_OpSumOut_B;
{$R *.DFM}

{ TFrm_Base_Entry_Head2 }

procedure TFrm_Inv_OpSumOut_H.InitForm(AdOConnection: TAdOConnection;
  ReadOnly: Boolean);
begin
  inherited;
  SelectFromSql:='select '+
                 '  Po.PoNo, '+
                 '  PoLine.PoLineNo,PoLine.ItemCode, '+
                 '  poline.ItemCode+'' ''+Item.ItemName Item,'+
                 '  po.VendorCode+'' ''+Vendor.VendorName Vendor,'+
                 '  Vendor.VendorName,'+
                 '  po.VendorCode,'+
                 '  poline.ItemCode,'+
                 '  Item.ItemName, '+
                 '  PoLine.PoQty,Poline.PolineDate,po.PoSpecial '+
                 'from PoLine '+
                 'join Po  on (Po.PoNo=PoLine.PoNo and po.poType=1) '+
                 '  and Poline.PolineStatus=6  '+
                 'Join Item on Item.ItemCode=PoLine.ItemCode '+
                 'Join Vendor on Vendor.VendorCode=PO.VendorCode ';
  OrderByFields:='VendorCode,PoNo,PoLineNo';
  Frm_Entry_Body:=TFrm_Inv_OpSumOut_B.Create(Self);
  Frm_Sys_Condition:=TFrm_Inv_OpOut_C.Create(Self);
  Act_Filter.Execute;
end;

procedure TFrm_Inv_OpSumOut_H.Act_LookExecute(Sender: TObject);
begin
  If AdoQry_Head.Active then
    Param2:=AdoQry_Head.fieldbyname('PoNo').AsString;
  inherited;

end;

procedure TFrm_Inv_OpSumOut_H.Act_NewExecute(Sender: TObject);
var
  po,polineno:string;
begin
  if not AdoQry_Head.Active then abort;
  po:=AdoQry_Head.fieldbyname('pono').asstring;
  polineno:=AdoQry_Head.fieldbyname('polineno').asstring;
  If AdoQry_Head.Active then
    Param2:=AdoQry_Head.fieldbyname('PoNo').AsString;
   //先把要传的参数设置好，由基类传到BODY窗体
  inherited;
  if not AdoQry_Head.IsEmpty then
  AdoQry_Head.Locate('pono;polineno',varArrayOf([po,polineno]),[loPArtialKey]);
end;

end.