bom_qry_nocomponentproduct.dfm

一个MRPII系统源代码版本

inherited Frm_Bom_Qry_NoComponentProduct: TFrm_Bom_Qry_NoComponentProduct
  Left = 276
  Top = 105
  Caption = #26410#25346#23376#39033#30340#20135#21697#21015#34920#26410#25346#23376#39033#30340#20135#21697#21015#34920
  ClientHeight = 553
  ClientWidth = 800
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Width = 800
  end
  inherited Pnl_Title: TPanel
    Width = 800
    Caption = #26410#25346#23376#39033#30340#20135#21697#21015#34920
    inherited Image2: TImage
      Width = 800
    end
  end
  inherited Pnl_Head: TPanel
    Width = 800
    inherited Image1: TImage
      Width = 800
    end
    inherited Lbl_Condition: TLabel
      Width = 24
      Caption = #20840#37096
    end
    inherited Lbl_Order: TLabel
      Width = 48
      Caption = #29289#26009#20195#30721
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 527
    Width = 800
    inherited Image4: TImage
      Width = 800
    end
  end
  inherited Pnl_Body: TPanel
    Width = 800
    Height = 430
    inherited Image3: TImage
      Width = 800
      Height = 430
    end
    inherited DBGridEh: TDBGridEh
      Width = 800
      Height = 430
      FrozenCols = 2
      Columns = <
        Item
          EditButtons = <>
          FieldName = 'ItemCode'
          Footers = <>
          Title.Caption = #29289#26009#20195#30721
          Width = 125
        end
        Item
          EditButtons = <>
          FieldName = 'ItemName'
          Footers = <>
          Title.Caption = #29289#26009#25551#36848
          Width = 250
        end
        Item
          EditButtons = <>
          FieldName = 'UomName'
          Footers = <>
          Title.Caption = #35745#37327#21333#20301
          Width = 51
        end
        Item
          EditButtons = <>
          FieldName = 'PmCode'
          Footers = <>
          KeyList.Strings = (
            '0'
            '1'
            '2'
            '3')
          PickList.Strings = (
            '0  '#21046#36896
            '1  '#37319#36141
            '2  '#22996#22806#21152#24037
            '3  '#26082#21046#36896#21448#22996#22806)
          Title.Caption = #21046#36141#30721
          Width = 56
        end
        Item
          EditButtons = <>
          FieldName = 'ItemType'
          Footers = <>
          KeyList.Strings = (
            '0'
            '1'
            '2'
            '3'
            '4'
            '5'
            '6'
            '7')
          PickList.Strings = (
            '0 '#26222#36890#29289#26009
            '1 '#24037#20316#20013#24515
            '2 '#24037#20855
            '3 '#21442#32771
            '4 '#32467#26500#34394#39033
            '5 '#21171#21153
            '6 '#25104#26412#20013#24515
            '7 '#26367#20195#34394#39033)
          Title.Caption = #29289#26009#31867#21035
          Width = 58
        end
        Item
          EditButtons = <>
          FieldName = 'DESIGNNO'
          Footers = <>
          Title.Caption = #22270#21495
          Width = 51
        end
        Item
          EditButtons = <>
          FieldName = 'ItemUsable'
          Footers = <>
          KeyList.Strings = (
            '0'
            '1')
          PickList.Strings = (
            #26080#25928
            #26377#25928)
          Title.Caption = #26159#21542#26377#25928
          Width = 59
        end
        Item
          EditButtons = <>
          FieldName = 'PrepareLT'
          Footers = <>
          Title.Caption = #20934#22791#25552#21069#26399
          Width = 68
        end
        Item
          EditButtons = <>
          FieldName = 'RunLT'
          Footers = <>
          Title.Caption = #36816#34892#25552#21069#26399
          Width = 69
        end
        Item
          EditButtons = <>
          FieldName = 'QcLT'
          Footers = <>
          Title.Caption = #36136#26816#25552#21069#26399
          Width = 71
        end
        Item
          EditButtons = <>
          FieldName = 'EmployeeB'
          Footers = <>
          Title.Caption = #37319#36141#21592#26631#35782
          Width = 77
        end
        Item
          EditButtons = <>
          FieldName = 'Pla_EmployeeB'
          Footers = <>
          Title.Caption = #35745#21010#21592#26631#35782
          Width = 78
        end>
    end
  end
  inherited ActionList: TActionList
    Left = 208
    Top = 128
  end
  inherited AdoQry_Main: TAdoQuery
    ConnectionString = ''
    CurSorType = ctStatic
    SQL.Strings = (
      'select Item.*,'
      #9'Uom.UomName,'
      #9'Item.EmployeeCode+'#39' '#39'+Employee.EmployeeName as EmployeeB,'
      #9'Item.Pla_EmployeeCode+'#39' '#39'+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'
      'where PmCode in(0,2) and'
      '      ItemCode not in '
      #9#9'(select distinct ite_ItemCode '
      #9#9' from Bom where (ite_ItemCode is not null) '
      #9#9' and (ItemCode is not null)'
      #9#9')')
    Top = 185
    object AdoQry_MainItemCode: TStringField
      FieldName = 'ItemCode'
      Origin = 'Item'
      Size = 16
    end
    object AdoQry_MainItemName: TStringField
      FieldName = 'ItemName'
      Origin = 'Item'
      Size = 80
    end
    object AdoQry_MainItemSHORTName: TStringField
      FieldName = 'ItemSHORTName'
      Origin = 'Item'
      Size = 40
    end
    object AdoQry_MainUomCode: TStringField
      FieldName = 'UomCode'
      Origin = 'Item'
      Size = 4
    end
    object AdoQry_MainItemType: TIntegerField
      FieldName = 'ItemType'
      Origin = 'Item'
    end
    object AdoQry_MainDESIGNNO: TStringField
      FieldName = 'DESIGNNO'
      Origin = 'Item'
      Size = 40
    end
    object AdoQry_MainItemUsable: TIntegerField
      FieldName = 'ItemUsable'
      Origin = 'Item'
    end
    object AdoQry_MainEmployeeCode: TStringField
      FieldName = 'EmployeeCode'
      Origin = 'Item'
      Size = 30
    end
    object AdoQry_MainWHCode: TStringField
      FieldName = 'WHCode'
      Origin = 'Item'
      Size = 4
    end
    object AdoQry_MainPla_EmployeeCode: TStringField
      FieldName = 'Pla_EmployeeCode'
      Origin = 'Item'
      Size = 30
    end
    object AdoQry_MainONLYDEFAULTWH: TIntegerField
      FieldName = 'ONLYDEFAULTWH'
      Origin = 'Item'
    end
    object AdoQry_MainCanSale: TIntegerField
      FieldName = 'CanSale'
      Origin = 'Item'
    end
    object AdoQry_MainLIMITOUT: TIntegerField
      FieldName = 'LIMITOUT'
      Origin = 'Item'
    end
    object AdoQry_MainGREATEOUT: TIntegerField
      FieldName = 'GREATEOUT'
      Origin = 'Item'
    end
    object AdoQry_MainPmCode: TIntegerField
      FieldName = 'PmCode'
      Origin = 'Item'
    end
    object AdoQry_MainABC: TStringField
      FieldName = 'ABC'
      Origin = 'Item'
      FixedChAr = True
      Size = 1
    end
    object AdoQry_MainBarCode: TStringField
      FieldName = 'BarCode'
      Origin = 'Item'
    end
    object AdoQry_MainItemCode2: TStringField
      FieldName = 'ItemCode2'
      Origin = 'Item'
      Size = 16
    end
    object AdoQry_MainLowlevelCode: TIntegerField
      FieldName = 'LowlevelCode'
      Origin = 'Item'
    end
    object AdoQry_MainItemCREATETIME: TDateTimeField
      FieldName = 'ItemCREATETIME'
      Origin = 'Item'
    end
    object AdoQry_MainItemDISABLETIME: TDateTimeField
      FieldName = 'ItemDISABLETIME'
      Origin = 'Item'
    end
    object AdoQry_MainItemMODIFYTIME: TDateTimeField
      FieldName = 'ItemMODIFYTIME'
      Origin = 'Item'
    end
    object AdoQry_MainItemClass1: TStringField
      FieldName = 'ItemClass1'
      Origin = 'Item'
      Size = 40
    end
    object AdoQry_MainItemClass2: TStringField
      FieldName = 'ItemClass2'
      Origin = 'Item'
      Size = 40
    end
    object AdoQry_MainItemClass3: TStringField
      FieldName = 'ItemClass3'
      Origin = 'Item'
      Size = 40
    end
    object AdoQry_MainItemClass4: TStringField
      FieldName = 'ItemClass4'
      Origin = 'Item'
      Size = 40
    end
    object AdoQry_MainItemClass5: TStringField
      FieldName = 'ItemClass5'
      Origin = 'Item'
      Size = 40
    end
    object AdoQry_MainCurrentOnHandInv: TFloatField
      FieldName = 'CurrentOnHandInv'
      Origin = 'Item'
    end
    object AdoQry_MainCurrentOnCheckInv: TFloatField
      FieldName = 'CurrentOnCheckInv'
      Origin = 'Item'
    end
    object AdoQry_MainCurrentFreezeInv: TFloatField
      FieldName = 'CurrentFreezeInv'
      Origin = 'Item'
    end
    object AdoQry_MainCurrentWasterInv: TFloatField
      FieldName = 'CurrentWasterInv'
      Origin = 'Item'
    end
    object AdoQry_MainCurrentOnShipInv: TFloatField
      FieldName = 'CurrentOnShipInv'
      Origin = 'Item'
    end
    object AdoQry_MainBatchStrat: TIntegerField
      FieldName = 'BatchStrat'
      Origin = 'Item'
    end
    object AdoQry_MainBatchCtrl: TIntegerField
      FieldName = 'BatchCtrl'
      Origin = 'Item'
    end
    object AdoQry_MainPmBatch: TIntegerField
      FieldName = 'PmBatch'
      Origin = 'Item'
    end
    object AdoQry_MainDeptCode: TStringField
      FieldName = 'DeptCode'
      Origin = 'Item'
      Size = 8
    end
    object AdoQry_Mainwh_EmployeeCode: TStringField
      FieldName = 'wh_EmployeeCode'
      Origin = 'Item'
      Size = 30
    end
    object AdoQry_MainLongPurchLT: TIntegerField
      FieldName = 'LongPurchLT'
      Origin = 'Item'
    end
    object AdoQry_MainPrepareLT: TIntegerField
      FieldName = 'PrepareLT'
      Origin = 'Item'
    end
    object AdoQry_MainRunLT: TIntegerField
      FieldName = 'RunLT'
      Origin = 'Item'
    end
    object AdoQry_MainQcLT: TIntegerField
      FieldName = 'QcLT'
      Origin = 'Item'
    end
    object AdoQry_MainRemArk: TStringField
      FieldName = 'RemArk'
      Origin = 'Item'
      Size = 60
    end
    object AdoQry_MainBackFlushAllocInv: TFloatField
      FieldName = 'BackFlushAllocInv'
      Origin = 'Item'
    end
    object AdoQry_MainProductClass: TStringField
      FieldName = 'ProductClass'
      Origin = 'Item'
      Size = 40
    end
    object AdoQry_MainQcClass: TStringField
      FieldName = 'QcClass'
      Origin = 'Item'
      Size = 40
    end
    object AdoQry_MainClassCode: TStringField
      FieldName = 'ClassCode'
      Origin = 'Item'
      Size = 16
    end
    object AdoQry_MainMaxQty: TFloatField
      FieldName = 'MaxQty'
      Origin = 'Item'
    end
    object AdoQry_MainMinQty: TFloatField
      FieldName = 'MinQty'
      Origin = 'Item'
    end
    object AdoQry_MainPurchLDTime: TFloatField
      FieldName = 'PurchLDTime'
      Origin = 'Item'
    end
    object AdoQry_MainMNLDTime: TFloatField
      FieldName = 'MNLDTime'
      Origin = 'Item'
    end
    object AdoQry_MainCapacityHours: TFloatField
      FieldName = 'CapacityHours'
      Origin = 'Item'
    end
    object AdoQry_MainMaterialExp: TFloatField
      FieldName = 'MaterialExp'
      Origin = 'Item'
    end
    object AdoQry_MainHumanExp: TFloatField
      FieldName = 'HumanExp'
      Origin = 'Item'
    end
    object AdoQry_MainMNExp: TFloatField
      FieldName = 'MNExp'
      Origin = 'Item'
    end
    object AdoQry_MainMaterial: TStringField
      FieldName = 'Material'
      Origin = 'Item'
      Size = 30
    end
    object AdoQry_MainIScheck: TIntegerField
      FieldName = 'IScheck'
      Origin = 'Item'
    end
    object AdoQry_MainUomName: TStringField
      FieldName = 'UomName'
      LookupResultField = 'Uom'
      Origin = 'Uom'
      Size = 10
    end
    object AdoQry_MainEmployeeB: TStringField
      FieldName = 'EmployeeB'
      ReadOnly = True
      Size = 91
    end
    object AdoQry_MainPla_EmployeeB: TStringField
      FieldName = 'Pla_EmployeeB'
      ReadOnly = True
      Size = 91
    end
  end
end