mrp_enter_newmrpinfo.dfm

一个MRPII系统源代码版本

inherited Frm_Mrp_Enter_NewMrpInfo: TFrm_Mrp_Enter_NewMrpInfo
  Left = 31
  Top = 69
  Caption = '生产建议--全部列示'
  ClientHeight = 449
  ClientWidth = 736
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Width = 736
    inherited ToolBar: TToolBar
      inherited TlBtn_Modify: TToolButton
        Visible = False
      end
      inherited ToolButton6: TToolButton
        Hint = '父项需求追溯'
        Caption = '父项需求追溯'
      end
    end
  end
  inherited Pnl_Title: TPanel
    Width = 736
    Caption = '生产建议--全部列示'
    inherited Image2: TImage
      Width = 736
    end
  end
  inherited Pnl_Head: TPanel
    Width = 736
    Height = 118
    inherited Image1: TImage
      Width = 736
      Height = 118
    end
    inherited Lbl_Condition: TLabel
      Top = 65
    end
    inherited Lbl_ConditionTitle: TLabel
      Top = 65
    end
    inherited Lbl_OrderTitle: TLabel
      Top = 83
    end
    inherited Lbl_Order: TLabel
      Top = 83
      Width = 114
      Caption = '物料代码/约定交货日'
    end
    object lbl_RunMrpdate: TLabel
      Left = 147
      Top = 100
      Width = 6
      Height = 12
      TransParent = True
    end
    object Label5: TLabel
      Left = 17
      Top = 100
      Width = 126
      Height = 12
      Caption = 'Mrp展开运算开始时间：'
      TransParent = True
    end
    object btn_Item: TButton
      Left = 16
      Top = 2
      Width = 89
      Height = 25
      Caption = '物料主文件联查'
      TabOrder = 0
      OnClick = btn_ItemClick
    end
    object btn_ite_Item: TButton
      Left = 16
      Top = 34
      Width = 89
      Height = 25
      Caption = '父项物料反查'
      TabOrder = 1
      OnClick = btn_ite_ItemClick
    end
    object btn_Order: TButton
      Left = 163
      Top = 2
      Width = 89
      Height = 25
      Caption = '订单联查'
      TabOrder = 2
      OnClick = btn_OrderClick
    end
    object btn_uPMrp: TButton
      Left = 340
      Top = 34
      Width = 89
      Height = 25
      Caption = 'Mrp竖式报表'
      TabOrder = 3
      OnClick = btn_uPMrpClick
    end
    object btn_OblongMrp: TButton
      Left = 516
      Top = 34
      Width = 89
      Height = 25
      Caption = 'Mrp横式报表'
      TabOrder = 4
      OnClick = btn_OblongMrpClick
    end
    object Button1: TButton
      Left = 340
      Top = 2
      Width = 89
      Height = 25
      Caption = '父项需求追溯'
      TabOrder = 5
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 516
      Top = 2
      Width = 89
      Height = 25
      Caption = '关闭/取消订单'
      TabOrder = 6
      OnClick = Button2Click
    end
    object Button3: TButton
      Left = 163
      Top = 34
      Width = 89
      Height = 25
      Caption = '多层Bom反查'
      TabOrder = 7
      OnClick = Button3Click
    end
    object Button4: TButton
      Left = 692
      Top = 2
      Width = 89
      Height = 25
      Caption = '订单修改'
      TabOrder = 8
      OnClick = Button4Click
    end
    object Button5: TButton
      Left = 692
      Top = 34
      Width = 89
      Height = 25
      Caption = 'Bom子项联查'
      TabOrder = 9
      OnClick = Button5Click
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 400
    Width = 736
    Height = 49
    inherited Image4: TImage
      Width = 736
      Height = 49
    end
    object Label1: TLabel
      Left = 422
      Top = 1
      Width = 60
      Height = 12
      Caption = '物料标识：'
      TransParent = True
    end
    object DBText1: TDBText
      Left = 495
      Top = 1
      Width = 42
      Height = 12
      AutoSize = True
      DataField = 'ItemFlag'
      DataSource = DataSource
      TransParent = True
    end
    object Label4: TLabel
      Left = 5
      Top = 3
      Width = 72
      Height = 12
      Caption = '计划员标识：'
      TransParent = True
    end
    object DBText4: TDBText
      Left = 79
      Top = 2
      Width = 42
      Height = 12
      AutoSize = True
      DataField = 'EmployeeFlag'
      DataSource = DataSource
      TransParent = True
    end
    object Label2: TLabel
      Left = 189
      Top = 3
      Width = 60
      Height = 12
      Caption = '部门标识：'
      TransParent = True
    end
    object DBText2: TDBText
      Left = 247
      Top = 2
      Width = 42
      Height = 12
      AutoSize = True
      DataField = 'DeptFlag'
      DataSource = DataSource
      TransParent = True
    end
    object Label3: TLabel
      Left = 5
      Top = 18
      Width = 6
      Height = 12
      TransParent = True
    end
    object Label6: TLabel
      Left = 5
      Top = 35
      Width = 84
      Height = 12
      Caption = '工作中心标识：'
      TransParent = True
    end
    object DBText3: TDBText
      Left = 87
      Top = 34
      Width = 42
      Height = 12
      AutoSize = True
      DataField = 'wcflag'
      DataSource = DataSource
      TransParent = True
    end
  end
  inherited Pnl_Body: TPanel
    Top = 175
    Width = 736
    Height = 225
    inherited Image3: TImage
      Width = 736
      Height = 225
    end
    inherited DBGridEh: TDBGridEh
      Width = 736
      Height = 225
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      ReadOnly = False
      OnDblClick = nil
      OnTitleClick = DBGridEhTitleClick
      FrozenCols = 6
      Columns = <
        Item
          FieldName = 'SScheck'
          PickList.Strings = (
            '1'
            '0')
          Title.Alignment = taCenter
          Title.Caption = '标记'
          Title.Font.ChArset = GB2312_CHArSET
          Title.Font.Color = clBlue
          Title.Font.Height = -12
          Title.Font.Name = '宋体'
          Title.Font.Style = []
          Width = 36
          KeyList.Strings = (
            '1'
            '0')
          NotInKeyListIndex = 0
          Checkboxes = True
        end
        Item
          FieldName = 'EmployeeCode'
          PickList.Strings = ()
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '计划员代码'
          Width = 60
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'EmployeeName'
          PickList.Strings = ()
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '计划员姓名'
          Width = 60
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'EmployeeFlag'
          PickList.Strings = ()
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '计划员ID'
          Width = 54
          KeyList.Strings = ()
        end
        Item
          FieldName = 'DeptCode'
          PickList.Strings = ()
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '部门代码'
          Width = 50
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'DeptName'
          PickList.Strings = ()
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '部门名称'
          Width = 90
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemCode'
          PickList.Strings = ()
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '物料代码'
          Width = 90
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemName'
          PickList.Strings = ()
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '物料描述'
          Width = 200
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemFlag'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '物料标识'
          Width = 200
          KeyList.Strings = ()
        end
        Item
          Alignment = taCenter
          FieldName = 'UomName'