mrp_qry_newinformaltotalmrp.dfm

一个MRPII系统源代码版本

inherited Frm_Mrp_Qry_NewInformalTotalMrp: TFrm_Mrp_Qry_NewInformalTotalMrp
  Left = 78
  Top = 79
  Caption = '模拟Mrp汇总表'
  PixelsPerInch = 96
  TextHeight = 12
  inherited Pnl_Title: TPanel
    Caption = '模拟Mrp汇总表'
  end
  inherited Pnl_Head: TPanel
    Height = 93
    inherited Image1: TImage
      Height = 93
    end
    inherited Lbl_OrderTitle: TLabel
      Top = 59
    end
    inherited Lbl_ConditionTitle: TLabel
      Top = 44
    end
    inherited Lbl_Condition: TLabel
      Top = 44
      Width = 48
      Caption = '非制造件'
    end
    inherited Lbl_Order: TLabel
      Top = 59
      Width = 90
      Caption = '制购码/物料代码'
    end
    object Label1: TLabel
      Left = 17
      Top = 75
      Width = 96
      Height = 12
      Caption = '主计划展望天数：'
      TransParent = True
    end
    object lbl_DayCount: TLabel
      Left = 113
      Top = 75
      Width = 48
      Height = 12
      Caption = '        '
      TransParent = True
    end
    object Label2: TLabel
      Left = 201
      Top = 75
      Width = 120
      Height = 12
      Caption = '主计划展望起止日期：'
      TransParent = True
    end
    object lbl_Sedate: TLabel
      Left = 321
      Top = 75
      Width = 48
      Height = 12
      Caption = '        '
      TransParent = True
    end
    object Label3: TLabel
      Left = 480
      Top = 75
      Width = 150
      Height = 12
      Caption = '模拟Mrp展开运算开始时间：'
      TransParent = True
    end
    object lbl_rundate: TLabel
      Left = 629
      Top = 75
      Width = 6
      Height = 12
      TransParent = True
    end
    object btn_Item: TButton
      Left = 16
      Top = 8
      Width = 113
      Height = 25
      Caption = '物料主文件联查'
      TabOrder = 0
      OnClick = btn_ItemClick
    end
    object btn_Vendor: TButton
      Left = 144
      Top = 8
      Width = 113
      Height = 25
      Caption = '供应商主文件联查'
      TabOrder = 1
      OnClick = btn_VendorClick
    end
    object btn_ite_Item: TButton
      Left = 272
      Top = 8
      Width = 113
      Height = 25
      Caption = '父项物料反查'
      TabOrder = 2
      OnClick = btn_ite_ItemClick
    end
    object btn_iteItem_Pegging: TButton
      Left = 400
      Top = 8
      Width = 113
      Height = 25
      Caption = '父项需求追溯'
      TabOrder = 3
      OnClick = btn_iteItem_PeggingClick
    end
    object btn_Sys: TButton
      Left = 528
      Top = 8
      Width = 113
      Height = 25
      Caption = '系统建议联查'
      TabOrder = 4
      OnClick = btn_SySclick
    end
    object btn_Order: TButton
      Left = 656
      Top = 8
      Width = 113
      Height = 25
      Caption = '订单联查'
      TabOrder = 5
      OnClick = btn_OrderClick
    end
  end
  inherited Pnl_Body: TPanel
    Top = 150
    Height = 253
    inherited Image3: TImage
      Height = 253
    end
    inherited DBGridEh: TDBGridEh
      Height = 253
      OnDblClick = Act_LookExecute
      FrozenCols = 3
      Columns = <
        Item
          FieldName = 'Itemflag'
          PickList.Strings = ()
          Width = 200
          KeyList.Strings = ()
        end
        Item
          FieldName = 'UomName'
          PickList.Strings = ()
          Width = 28
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PmCode'
          PickList.Strings = (
            '0 制造'
            '1 采购'
            '2 委外'
            '3 既自制又委外')
          Title.Caption = '制购标识'
          Width = 57
          KeyList.Strings = (
            '0'
            '1'
            '2'
            '3')
        end
        Item
          FieldName = 'CurrentonCheckInv'
          PickList.Strings = ()
          Width = 56
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CurrentonhandInv'
          PickList.Strings = ()
          Width = 55
          KeyList.Strings = ()
        end
        Item
          FieldName = 'MrpInv'
          PickList.Strings = ()
          Title.Caption = '当前库存量|Mrp可用量'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'grossqty'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'lessqty'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'minqty'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Sysqty'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Orderpreqty'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Orderxdqty'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'OrderFinishqty'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'OrdernoFinishqty'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemCode'
          PickList.Strings = ()
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemName'
          PickList.Strings = ()
          Visible = False
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 165
    Top = 235
  end
  inherited ActionList: TActionList
    Left = 280
    Top = 240
    inherited Act_Look: TAction
      Enabled = True
      Visible = True
      OnExecute = Act_LookExecute
    end
  end
  inherited AdoQry_Main: TAdoQuery
    CurSorType = ctStatic
    SQL.Strings = (
      'select ItemCode,'
      '       ItemName,'
      '       Item.Qclt,'
      '       Itemflag=ItemCode+'#39' '#39'+ItemName,'
      '       UomName='#39'fdfdsds'#39','
      '       PmCode=0,'
      '       Item.Batchstrat,'
      '       Item.PmBatch,'
      '       CurrentonCheckInv=convert(float,0),'
      '       Assignedqty=convert(float,0),'
      '       CurrentonhandInv=convert(float,0),'
      '       MrpInv=convert(float,0),'
      '       grossqty=convert(float,0),'
      '       lessqty=convert(float,0),'
      '       minqty=convert(float,0),'
      '       Sysqty=convert(float,0),'
      '       Orderpreqty=convert(float,0),'
      '       Orderxdqty=convert(float,0),'
      '       OrderFinishqty=convert(float,0),'
      '       OrdernoFinishqty=convert(float,0)'
      'from Item'
      'where 1=2'
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      '')
    Left = 400
    Top = 273
    object AdoQry_MainItemCode: TStringField
      DisplayLabel = '物料代码'
      FieldName = 'ItemCode'
      Origin = '#tmPMrpTotalResult'
      Size = 16
    end
    object AdoQry_MainItemName: TStringField
      DisplayLabel = '物料名称'
      FieldName = 'ItemName'
      Origin = '#tmPMrpTotalResult'
      Size = 60
    end
    object AdoQry_MainItemflag: TStringField
      DisplayLabel = '物料标识'
      FieldName = 'Itemflag'
      ReadOnly = True
      Size = 77
    end
    object AdoQry_MainUomName: TStringField
      DisplayLabel = '单位'
      FieldName = 'UomName'
      Origin = '#tmPMrpTotalResult'
      ReadOnly = True
      Size = 7
    end
    object AdoQry_MainCurrentonCheckInv: TFloatField
      DisplayLabel = '当前库存量|待检量'
      FieldName = 'CurrentonCheckInv'
      Origin = '#tmPMrpTotalResult'
      ReadOnly = True
    end
    object AdoQry_MainCurrentonhandInv: TFloatField
      DisplayLabel = '当前库存量|可用量'
      FieldName = 'CurrentonhandInv'
      Origin = '#tmPMrpTotalResult'
      ReadOnly = True
    end
    object AdoQry_MainMrpInv: TFloatField
      DisplayLabel = 'Mrp可用量'
      FieldName = 'MrpInv'
      Origin = '#tmPMrpTotalResult'
      ReadOnly = True
    end
    object AdoQry_Maingrossqty: TFloatField
      DisplayLabel = '毛需求量'
      FieldName = 'grossqty'
      Origin = '#tmPMrpTotalResult'
      ReadOnly = True
    end
    object AdoQry_Mainlessqty: TFloatField
      DisplayLabel = '差异量'
      FieldName = 'lessqty'
      Origin = '#tmPMrpTotalResult'
      ReadOnly = True
    end
    object AdoQry_Mainminqty: TFloatField
      DisplayLabel = '安全库存'
      FieldName = 'minqty'
      Origin = '#tmPMrpTotalResult'
      ReadOnly = True
    end
    object AdoQry_MainSysqty: TFloatField
      DisplayLabel = '系统建议'
      FieldName = 'Sysqty'
      Origin = '#tmPMrpTotalResult'
      ReadOnly = True
    end
    object AdoQry_MaInOrderpreqty: TFloatField
      DisplayLabel = '订单准备'
      FieldName = 'Orderpreqty'
      Origin = '#tmPMrpTotalResult'
      ReadOnly = True
    end
    object AdoQry_MaInOrderxdqty: TFloatField
      DisplayLabel = '订单下达'
      FieldName = 'Orderxdqty'
      Origin = '#tmPMrpTotalResult'
      ReadOnly = True
    end
    object AdoQry_MaInOrderFinishqty: TFloatField
      DisplayLabel = '订单已结'
      FieldName = 'OrderFinishqty'
      Origin = '#tmPMrpTotalResult'
      ReadOnly = True
    end
    object AdoQry_MaInOrdernoFinishqty: TFloatField
      DisplayLabel = '订单未结'
      FieldName = 'OrdernoFinishqty'
      Origin = '#tmPMrpTotalResult'
      ReadOnly = True
    end
    object AdoQry_MainPmCode: TIntegerField
      DisplayLabel = '制购码'
      FieldName = 'PmCode'
      Origin = '#tmPMrpTotalResult'
      ReadOnly = True
    end
    object AdoQry_MainBatchstrat: TIntegerField
      FieldName = 'Batchstrat'
      Origin = '#tmPMrpTotalResult'
    end
    object AdoQry_MainQclt: TIntegerField
      FieldName = 'Qclt'
    end
    object AdoQry_MainPmBatch: TIntegerField
      FieldName = 'PmBatch'
    end
  end
  inherited DataSource: TDataSource
    Left = 312
    Top = 249
  end
  inherited ExtPrintReport: TExtPrintReport
    Left = 96
    Top = 265
  end
  inherited PopuPmenu: TPopuPmenu
    Left = 272
    Top = 297
  end
end