mrp_qry_materialmo.dfm

一个MRPII系统源代码版本

inherited Frm_Mrp_Qry_MaterialMo: TFrm_Mrp_Qry_MaterialMo
  Left = 51
  Top = 105
  Caption = '物料订单法'
  Windowstate = wsMaximized
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    inherited ToolBar: TToolBar
      inherited TlBtn_Filter: TToolButton
        Visible = False
      end
    end
  end
  inherited Pnl_Title: TPanel
    Caption = '物料订单法'
  end
  inherited Pnl_Head: TPanel
    inherited Lbl_OrderTitle: TLabel
      Visible = False
    end
    inherited Lbl_ConditionTitle: TLabel
      Visible = False
    end
    object Label1: TLabel
      Left = 17
      Top = 6
      Width = 120
      Height = 12
      Caption = '请输入采购物料代码：'
    end
    object Label6: TLabel
      Left = 265
      Top = 6
      Width = 6
      Height = 12
    end
    object Label7: TLabel
      Left = 73
      Top = 25
      Width = 60
      Height = 12
      Caption = '计量单位：'
    end
    object Label8: TLabel
      Left = 137
      Top = 25
      Width = 6
      Height = 12
    end
    object lbl_Preparelt: TLabel
      Left = 275
      Top = 25
      Width = 6
      Height = 12
    end
    object Label10: TLabel
      Left = 203
      Top = 25
      Width = 72
      Height = 12
      Caption = '准备提前期：'
    end
    object Label13: TLabel
      Left = 329
      Top = 25
      Width = 72
      Height = 12
      Caption = '运行提前期：'
    end
    object lbl_runlt: TLabel
      Left = 401
      Top = 25
      Width = 16
      Height = 12
    end
    object Label16: TLabel
      Left = 441
      Top = 25
      Width = 72
      Height = 12
      Caption = '质检提前期：'
    end
    object lbl_Qclt: TLabel
      Left = 513
      Top = 25
      Width = 6
      Height = 12
    end
    object edtItemCode: TExtEdit
      Left = 136
      Top = 1
      Width = 121
      Height = 20
      TabOrder = 0
      OnExit = edtItemCodeExit
      OnKeyDown = edtItemCodeKeyDown
      DispLabel = Label6
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 407
    Height = 34
    object Label2: TLabel
      Left = 25
      Top = 5
      Width = 60
      Height = 12
      Caption = '需求总数：'
    end
    object Label3: TLabel
      Left = 25
      Top = 21
      Width = 60
      Height = 12
      Caption = '短缺总数：'
    end
    object Label4: TLabel
      Left = 81
      Top = 5
      Width = 6
      Height = 12
    end
    object Label5: TLabel
      Left = 81
      Top = 21
      Width = 6
      Height = 12
    end
  end
  inherited Pnl_Body: TPanel
    Height = 310
    inherited DBGridEh: TDBGridEh
      Height = 310
      OnDblClick = Act_LookExecute
      FrozenCols = 3
      Columns = <
        Item
          FieldName = 'mostArtworkdate'
          PickList.Strings = ()
          Width = 78
          KeyList.Strings = ()
        end
        Item
          FieldName = 'mono'
          PickList.Strings = ()
          Width = 70
          KeyList.Strings = ()
        end
        Item
          FieldName = 'MoLineno'
          PickList.Strings = ()
          Width = 52
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Itemflag'
          PickList.Strings = ()
          Width = 220
          KeyList.Strings = ()
        end
        Item
          FieldName = 'MoLinestatus'
          PickList.Strings = (
            '5 准备'
            '6 下达'
            '7 关闭')
          Width = 48
          KeyList.Strings = (
            '5'
            '6'
            '7')
        end
        Item
          FieldName = 'onhandqty'
          PickList.Strings = ()
          Width = 57
          KeyList.Strings = ()
        end
        Item
          FieldName = 'onwayqty'
          PickList.Strings = ()
          Width = 52
          KeyList.Strings = ()
        end
        Item
          FieldName = 'beenusedqty'
          PickList.Strings = ()
          Width = 97
          KeyList.Strings = ()
        end
        Item
          FieldName = 'requireqty'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'lessqty'
          PickList.Strings = ()
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Head: TAdoQuery
    CurSorType = ctStatic
    SQL.Strings = (
      'select mostArtworkdate,'
      '       mono,'
      '       MoLineno,'
      '       MoLine.ItemCode,'
      '       Itemflag=MoLine.ItemCode,'
      '       MoLinestatus,'
      '       onhandqty=Item.CurrentonhandInv+Item.CurrentonCheckInv,'
      '       onwayqty=convert(float,0),'
      '       beenusedqty=convert(float,0),'
      '       requireqty=moqty,'
      '       lessqty=convert(float,0)'
      'from MoLine,Item'
      'where '
      ' MoLinestatus<=6'
      ' and  Item.ItemCode='#39'43004131'#39
      'Order by mostArtworkdate')
    Top = 177
    object AdoQry_Headmono: TStringField
      DisplayLabel = '生产订单号'
      FieldName = 'mono'
      Origin = '#tmpres'
      Size = 16
    end
    object AdoQry_HeadMoLineno: TIntegerField
      DisplayLabel = '订单行号'
      FieldName = 'MoLineno'
      Origin = '#tmpres'
    end
    object AdoQry_HeadItemCode: TStringField
      DisplayLabel = '物料代码'
      FieldName = 'ItemCode'
      Origin = '#tmpres'
      Size = 16
    end
    object AdoQry_HeadMoLinestatus: TIntegerField
      DisplayLabel = '行状态'
      FieldName = 'MoLinestatus'
      Origin = '#tmpres'
    end
    object AdoQry_Headonhandqty: TFloatField
      DisplayLabel = '库存量'
      FieldName = 'onhandqty'
      Origin = '#tmpres'
      ReadOnly = True
    end
    object AdoQry_Headrequireqty: TFloatField
      DisplayLabel = '本单需求量'
      FieldName = 'requireqty'
      Origin = '#tmpres'
    end
    object AdoQry_HeadItemflag: TStringField
      DisplayLabel = '父项物料标识'
      FieldName = 'Itemflag'
      Origin = '#tmpres'
      Size = 40
    end
    object AdoQry_Headonwayqty: TFloatField
      DisplayLabel = '在单量'
      FieldName = 'onwayqty'
      Origin = '#tmpres'
      ReadOnly = True
    end
    object AdoQry_Headbeenusedqty: TFloatField
      DisplayLabel = '其他订单已分配量'
      FieldName = 'beenusedqty'
      Origin = '#tmpres'
      ReadOnly = True
    end
    object AdoQry_Headlessqty: TFloatField
      DisplayLabel = '本单短缺量'
      FieldName = 'lessqty'
      Origin = '#tmpres'
      ReadOnly = True
    end
    object AdoQry_HeadmostArtworkdate: TDateTimeField
      DisplayLabel = '约定开工日期'
      FieldName = 'mostArtworkdate'
      Origin = '#tmpres'
    end
  end
  inherited DataSource: TDataSource
    OnDataChange = DataSourceDataChange
    Left = 336
    Top = 249
  end
  inherited PopuPmenu: TPopuPmenu
    Left = 248
    Top = 193
  end
end