pm_enter_sspoinfo2.dfm

一个MRPII系统源代码版本

inherited Frm_Pm_Enter_SsPoInfo2: TFrm_Pm_Enter_SsPoInfo2
  Left = 4
  Top = 124
  Caption = '确认分配-全部列示'
  ClientWidth = 804
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Width = 804
    inherited ToolBar: TToolBar
      inherited TlBtn_Copy: TToolButton
        Hint = '全选'
        Caption = '全选'
      end
      inherited TlBtn_Modify: TToolButton
        Visible = False
      end
      inherited TlBtn_Delete: TToolButton
        Visible = False
      end
      inherited ToolButton6: TToolButton
        Hint = '父项需求追溯'
        Caption = '父项需求追溯'
      end
    end
  end
  inherited Pnl_Title: TPanel
    Width = 804
    Caption = '确认分配-全部列示'
    inherited Image2: TImage
      Width = 804
    end
  end
  inherited Pnl_Head: TPanel
    Width = 804
    Height = 76
    inherited Image1: TImage
      Width = 804
      Height = 76
    end
    inherited Lbl_Condition: TLabel
      Left = 87
      Top = 31
    end
    inherited Lbl_ConditionTitle: TLabel
      Top = 31
    end
    inherited Lbl_OrderTitle: TLabel
      Top = 46
    end
    inherited Lbl_Order: TLabel
      Top = 46
      Width = 114
      Caption = '物料代码/约定交货日'
    end
    object Label6: TLabel
      Left = 17
      Top = 61
      Width = 126
      Height = 12
      Caption = 'Mrp展开运算开始时间：'
    end
    object Lab_RunMrpDate: TLabel
      Left = 154
      Top = 61
      Width = 6
      Height = 12
    end
    object btn_Item: TButton
      Left = 19
      Top = 2
      Width = 102
      Height = 25
      Caption = '物料主文件联查'
      TabOrder = 0
      OnClick = btn_ItemClick
    end
    object btn_Vendor: TButton
      Left = 150
      Top = 2
      Width = 102
      Height = 25
      Caption = '供应商主文件联查'
      TabOrder = 1
      OnClick = btn_VendorClick
    end
    object btn_ite_Item: TButton
      Left = 281
      Top = 2
      Width = 102
      Height = 25
      Caption = '父项物料反查'
      TabOrder = 2
      OnClick = btn_ite_ItemClick
    end
    object btn_Order: TButton
      Left = 544
      Top = 2
      Width = 102
      Height = 25
      Caption = '订单联查'
      TabOrder = 3
      OnClick = btn_OrderClick
    end
    object Button1: TButton
      Left = 413
      Top = 2
      Width = 102
      Height = 25
      Caption = '父项需求追溯'
      TabOrder = 4
      OnClick = Button1Click
    end
    object Button4: TButton
      Left = 675
      Top = 2
      Width = 102
      Height = 25
      Caption = '替代件建议分配'
      TabOrder = 5
      OnClick = Button4Click
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 392
    Width = 804
    Height = 37
    inherited Image4: TImage
      Width = 804
      Height = 37
    end
    object DBText2: TDBText
      Left = 710
      Top = 8
      Width = 42
      Height = 12
      AutoSize = True
      DataField = 'SSQty'
      DataSource = DataSource
    end
    object Label2: TLabel
      Left = 637
      Top = 8
      Width = 72
      Height = 12
      Caption = '约定交货量：'
    end
    object Label3: TLabel
      Left = 638
      Top = 24
      Width = 72
      Height = 12
      Caption = '约定交货日：'
    end
    object DBText3: TDBText
      Left = 710
      Top = 24
      Width = 42
      Height = 12
      AutoSize = True
      DataField = 'SSDate'
      DataSource = DataSource
    end
    object Label4: TLabel
      Left = 3
      Top = 5
      Width = 72
      Height = 12
      Caption = '采购员标识：'
    end
    object DBText4: TDBText
      Left = 80
      Top = 5
      Width = 42
      Height = 12
      AutoSize = True
      DataField = 'EmployeeFlag'
      DataSource = DataSource
    end
    object Label1: TLabel
      Left = 235
      Top = 5
      Width = 60
      Height = 12
      Caption = '物料标识：'
    end
    object DBText1: TDBText
      Left = 299
      Top = 5
      Width = 42
      Height = 12
      AutoSize = True
      DataField = 'Itemflag'
      DataSource = DataSource
    end
    object Label5: TLabel
      Left = 3
      Top = 22
      Width = 72
      Height = 12
      Caption = '供应商名称：'
    end
    object DBText5: TDBText
      Left = 80
      Top = 22
      Width = 42
      Height = 12
      AutoSize = True
      DataField = 'VendorName'
      DataSource = DataSource
    end
  end
  inherited Pnl_Body: TPanel
    Top = 133
    Width = 804
    Height = 259
    inherited Image3: TImage
      Width = 804
      Height = 259
    end
    inherited DBGridEh: TDBGridEh
      Width = 804
      Height = 259
      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 = '标记'
          Width = 40
          KeyList.Strings = (
            '1'
            '0')
          NotInKeyListIndex = 0
          Checkboxes = True
        end
        Item
          FieldName = 'EmployeeCode'
          PickList.Strings = ()
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '采购员代码'
          Width = 70
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'EmployeeName'
          PickList.Strings = ()
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '采购员姓名'
          Width = 70
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'EmployeeFlag'
          PickList.Strings = ()
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '采购员ID'
          Width = 55
          KeyList.Strings = ()
        end
        Item
          FieldName = 'VendorCode'
          PickList.Strings = ()
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '供应商代码'
          Width = 70
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'VendorName'
          PickList.Strings = ()
          ReadOnly = True
          Title.Caption = '供应商名称'
          Width = 70
          Visible = False
          KeyList.Strings = ()
        end
        Item
          Alignment = taCenter
          FieldName = 'VendorFlag'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '供应商标识'
          Width = 100
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PcNo'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '合同号'
          Width = 55
          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