bom_qry_nocomponentproduct.pas

一个MRPII系统源代码版本

unit Bom_Qry_NoComponentProduct;

Interface

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

Type
  TFrm_Bom_Qry_NoComponentProduct = Class(TFrm_Base_Qry)
    AdoQry_MainItemCode: TStringField;
    AdoQry_MainItemName: TStringField;
    AdoQry_MainItemSHORTName: TStringField;
    AdoQry_MainUomCode: TStringField;
    AdoQry_MainItemType: TIntegerField;
    AdoQry_MainDESIGNNO: TStringField;
    AdoQry_MainItemUsable: TIntegerField;
    AdoQry_MainEmployeeCode: TStringField;
    AdoQry_MainWHCode: TStringField;
    AdoQry_MainPla_EmployeeCode: TStringField;
    AdoQry_MainONLYDEFAULTWH: TIntegerField;
    AdoQry_MainCanSale: TIntegerField;
    AdoQry_MainLIMITOUT: TIntegerField;
    AdoQry_MainGREATEOUT: TIntegerField;
    AdoQry_MainPmCode: TIntegerField;
    AdoQry_MainABC: TStringField;
    AdoQry_MainBarCode: TStringField;
    AdoQry_MainItemCode2: TStringField;
    AdoQry_MainLowlevelCode: TIntegerField;
    AdoQry_MainItemCREATETIME: TDateTimeField;
    AdoQry_MainItemDISABLETIME: TDateTimeField;
    AdoQry_MainItemMODIFYTIME: TDateTimeField;
    AdoQry_MainItemClass1: TStringField;
    AdoQry_MainItemClass2: TStringField;
    AdoQry_MainItemClass3: TStringField;
    AdoQry_MainItemClass4: TStringField;
    AdoQry_MainItemClass5: TStringField;
    AdoQry_MainCurrentOnHandInv: TFloatField;
    AdoQry_MainCurrentOnCheckInv: TFloatField;
    AdoQry_MainCurrentFreezeInv: TFloatField;
    AdoQry_MainCurrentWasterInv: TFloatField;
    AdoQry_MainCurrentOnShipInv: TFloatField;
    AdoQry_MainBatchStrat: TIntegerField;
    AdoQry_MainBatchCtrl: TIntegerField;
    AdoQry_MainPmBatch: TIntegerField;
    AdoQry_MainDeptCode: TStringField;
    AdoQry_Mainwh_EmployeeCode: TStringField;
    AdoQry_MainLongPurchLT: TIntegerField;
    AdoQry_MainPrepareLT: TIntegerField;
    AdoQry_MainRunLT: TIntegerField;
    AdoQry_MainQcLT: TIntegerField;
    AdoQry_MainRemArk: TStringField;
    AdoQry_MainBackFlushAllocInv: TFloatField;
    AdoQry_MainProductClass: TStringField;
    AdoQry_MainQcClass: TStringField;
    AdoQry_MainClassCode: TStringField;
    AdoQry_MainMaxQty: TFloatField;
    AdoQry_MainMinQty: TFloatField;
    AdoQry_MainPurchLDTime: TFloatField;
    AdoQry_MainMNLDTime: TFloatField;
    AdoQry_MainCapacityHours: TFloatField;
    AdoQry_MainMaterialExp: TFloatField;
    AdoQry_MainHumanExp: TFloatField;
    AdoQry_MainMNExp: TFloatField;
    AdoQry_MainMaterial: TStringField;
    AdoQry_MainIScheck: TIntegerField;
    AdoQry_MainUomName: TStringField;
    AdoQry_MainEmployeeB: TStringField;
    AdoQry_MainPla_EmployeeB: TStringField;
  private
    { Private declarations }
  public
    { Public declarations }
    procedure initform(AdOConnection:TAdOConnection;ReadOnly:boolean);Override;
  end;

var
  Frm_Bom_Qry_NoComponentProduct: TFrm_Bom_Qry_NoComponentProduct;

implementation

{$R *.DFM}
procedure TFrm_Bom_Qry_NoComponentProduct.initform(AdOConnection:TAdOConnection;ReadOnly:boolean);
begin
  inherited;
  SelectFromSQL:=' select Item.*,'+
                 '         Uom.UomName,'+
                 '         Item.EmployeeCode+'' ''+Employee.EmployeeName as EmployeeB,'+
                 '         Item.Pla_EmployeeCode+'' ''+E.EmployeeName as Pla_EmployeeB'+
                 ' from Item'+
                 ' left join Uom on Item.UomCode=Uom.UomCode'+
                 ' left join Employee on Item.EmployeeCode=Employee.EmployeeCode'+
                 ' left join Employee E on Item.Pla_EmployeeCode=E.EmployeeCode';

  Condition:=    '       PmCode in(0,2) and'+
                 '       ItemCode not in'+
                 '                 (select distinct ite_ItemCode'+
                 '                  from Bom where (ite_ItemCode is not null)'+
                 '                  and (ItemCode is not null)'+
                 '                 )';

  OrderByFields:=' ItemCode';
  getdata;
end;

end.