ecoh.dfm

速达开源ERP系统

inherited frmEcoh: TfrmEcoh
  Left = 136
  Top = 151
  Width = 670
  Height = 513
  Caption = '工程更改单'
  OldCreateOrder = True
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object sgEcoh: TSDGrid [0]
    Left = 1
    Top = 141
    Width = 658
    Height = 274
    Color = clWhite
    ColCount = 6
    Ctl3D = False
    DefaultRowHeight = 21
    FixedColor = 8564917
    FixedCols = 0
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRowSizing, goColSizing, goThumbTracking]
    ParentCtl3D = False
    TabOrder = 4
    OnDblClick = sgEcohDblClick
    OnSelectCell = sgEcohSelectCell
    Columns = <
      item
        ColumnFont.Charset = GB2312_CHARSET
        ColumnFont.Color = clNavy
        ColumnFont.Height = -12
        ColumnFont.Name = '宋体'
        ColumnFont.Style = []
        TitleString = '序号'
        ColumnWidth = 0
      end
      item
        ColumnFont.Charset = GB2312_CHARSET
        ColumnFont.Color = clNavy
        ColumnFont.Height = -12
        ColumnFont.Name = '宋体'
        ColumnFont.Style = []
        TitleString = '原物料编码'
        ColumnWidth = 0
      end
      item
        ColumnFont.Charset = GB2312_CHARSET
        ColumnFont.Color = clNavy
        ColumnFont.Height = -12
        ColumnFont.Name = '宋体'
        ColumnFont.Style = []
        TitleString = '新物料编码'
        ColumnWidth = 0
      end
      item
        ColumnFont.Charset = GB2312_CHARSET
        ColumnFont.Color = clNavy
        ColumnFont.Height = -12
        ColumnFont.Name = '宋体'
        ColumnFont.Style = []
        TitleString = '单位用量'
        ColumnWidth = 0
      end
      item
        ColumnFont.Charset = GB2312_CHARSET
        ColumnFont.Color = clNavy
        ColumnFont.Height = -12
        ColumnFont.Name = '宋体'
        ColumnFont.Style = []
        TitleString = '损耗率'
        ColumnWidth = 0
      end
      item
        ColumnFont.Charset = GB2312_CHARSET
        ColumnFont.Color = clNavy
        ColumnFont.Height = -12
        ColumnFont.Name = '宋体'
        ColumnFont.Style = []
        TitleString = '所在工序 '
        ColumnWidth = 0
      end>
    ColWidths = (
      37
      143
      146
      54
      49
      119)
  end
  object FloatPanel2: TFloatPanel [1]
    Left = 0
    Top = 141
    Width = 662
    Height = 275
    Align = alClient
    Color = clWhite
    Caption = 'FloatPanel2'
    ParentColor = False
    TabOrder = 3
    object Label9: TLabel
      Left = 304
      Top = 8
      Width = 78
      Height = 12
      Caption = '工程更改原因:'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object GroupBox1: TGroupBox
      Left = 302
      Top = 75
      Width = 221
      Height = 58
      TabOrder = 2
      object Label28: TLabel
        Left = 5
        Top = 15
        Width = 54
        Height = 12
        Caption = '订货策略:'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Label29: TLabel
        Left = 5
        Top = 36
        Width = 54
        Height = 12
        Caption = '计划策略:'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object scEcodPp: TSDComboBox
        Left = 58
        Top = 29
        Width = 144
        Height = 20
        Style = csDropDownList
        Color = clWhite
        Ctl3D = False
        ItemHeight = 12
        ParentCtl3D = False
        TabOrder = 1
        Items.Strings = (
          '1-MRP'
          '2-MPS'
          '3-订货点'
          '4-预测'
          '5-成套件'
          '6-自定义')
      end
      object scEcodOp: TSDComboBox
        Left = 58
        Top = 8
        Width = 144
        Height = 20
        Style = csDropDownList
        Color = clWhite
        Ctl3D = False
        ItemHeight = 12
        ParentCtl3D = False
        TabOrder = 0
        Items.Strings = (
          '1-无策略'
          '2-订货点策略'
          '3-订货上限策略'
          '4-定期订货策略'
          '5-定量订货策略'
          '6-手工订货策略')
      end
    end
    object GroupBox2: TGroupBox
      Left = 4
      Top = 2
      Width = 297
      Height = 265
      TabOrder = 0
      object Label20: TLabel
        Left = 6
        Top = 240
        Width = 42
        Height = 12
        Caption = '损耗率:'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Label17: TLabel
        Left = 5
        Top = 218
        Width = 54
        Height = 12
        Caption = '单位用量:'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Label16: TLabel
        Left = 6
        Top = 86
        Width = 66
        Height = 12
        Caption = '新物料编码:'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Label15: TLabel
        Left = 6
        Top = 16
        Width = 30
        Height = 12
        Caption = '行号:'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Label11: TLabel
        Left = 6
        Top = 39
        Width = 66
        Height = 12
        Caption = '原物料编码:'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Label13: TLabel
        Left = 6
        Top = 63
        Width = 66
        Height = 12
        Caption = '原物料名称:'
        Enabled = False
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object seEcodShl: TSDEdit
        Left = 72
        Top = 235
        Width = 111
        Height = 18
        Ctl3D = False
        MaxLength = 5
        ParentColor = True
        ParentCtl3D = False
        TabOrder = 6
        Text = '0'
        DigLen = 2
        DataType = dtNumber
        CharType = ctMathematic
        SplitSymbol = ' | '
        DefaultValue = '0'
      end
      object seEcodQty: TSDEdit
        Left = 72
        Top = 212
        Width = 110
        Height = 18
        Ctl3D = False
        MaxLength = 12
        ParentColor = True
        ParentCtl3D = False
        TabOrder = 5
        Text = '0'
        DigLen = 2
        DataType = dtNumber
        CharType = ctMathematic
        SplitSymbol = ' | '
        DefaultValue = '0'
      end
      object seEcodLine: TSDEdit
        Left = 74
        Top = 11
        Width = 101
        Height = 18
        Ctl3D = False
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentColor = True
        ParentCtl3D = False
        ParentFont = False
        TabOrder = 0
        Text = 'seEcodLine'
        SplitSymbol = ' | '
      end
      object seEcodBgoodsName: TSDEdit
        Left = 74
        Top = 56
        Width = 209
        Height = 18
        TabStop = False
        Ctl3D = False
        Font.Charset = GB2312_CHARSET
        Font.Color = clNavy
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentColor = True
        ParentCtl3D = False
        ParentFont = False
        TabOrder = 2
        SplitSymbol = ' | '
      end
      object scEcodBgoods: TSDComboBox
        Left = 74
        Top = 32
        Width = 211
        Height = 20
        Color = clWhite
        Ctl3D = False
        ItemHeight = 12
        ParentCtl3D = False
        TabOrder = 1
        OnClick = scEcodBgoodsClick
        KeyItem = cbItem2
      end
      object seEcodAgoods: TSDEdit
        Left = 74
        Top = 78
        Width = 211
        Height = 18
        Ctl3D = False
        ParentColor = True
        ParentCtl3D = False
        TabOrder = 3
        OnExit = seEcodAgoodsExit
        OnButtonClick = seEcodAgoodsButtonClick
        ButtonVisible = True
        SplitSymbol = ' | '
      end
      object Panel1: TPanel
        Left = 3
        Top = 100
        Width = 290
        Height = 111
        BevelOuter = bvNone
        Color = clWhite
        TabOrder = 4
        object Label5: TLabel
          Left = 3
          Top = 8
          Width = 66
          Height = 12
          Caption = '新物料名称:'
          Enabled = False
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
        end
        object Label22: TLabel
          Left = 3
          Top = 30
          Width = 30
          Height = 12
          Caption = '规格:'
          Enabled = False
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
        end
        object Label18: TLabel
          Left = 3
          Top = 51
          Width = 30
          Height = 12
          Caption = '类型:'
          Enabled = False
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
        end
        object Label24: TLabel
          Left = 3
          Top = 73
          Width = 30
          Height = 12
          Caption = '来源:'
          Enabled = False
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
        end
        object Label23: TLabel
          Left = 3
          Top = 94
          Width = 54
          Height = 12
          Caption = '计量单位:'
          Enabled = False
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
        end
        object seEcodAgoodsName: TSDEdit
          Left = 70
          Top = 3
          Width = 208
          Height = 18
          TabStop = False
          Ctl3D = False
          Font.Charset = GB2312_CHARSET
          Font.Color = clNavy
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ParentColor = True
          ParentCtl3D = False
          ParentFont = False
          TabOrder = 0
          SplitSymbol = ' | '
        end
        object seEcodModel: TSDEdit
          Left = 70
          Top = 24
          Width = 208
          Height = 18
          TabStop = False
          Ctl3D = False
          Font.Charset = GB2312_CHARSET
          Font.Color = clNavy
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ParentColor = True
          ParentCtl3D = False
          ParentFont = False
          TabOrder = 1
          SplitSymbol = ' | '
        end
        object scEcodType: TSDComboBox
          Left = 70
          Top = 44
          Width = 138
          Height = 20
          TabStop = False
          Color = clWhite
          Ctl3D = False
          Font.Charset = GB2312_CHARSET
          Font.Color = clNavy
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ItemHeight = 12
          ParentCtl3D = False
          ParentFont = False
          TabOrder = 2
          Text = 'scEcodType'
          Items.Strings = (
            '1-成品'
            '2-半成品'
            '3-材料'
            '4-备用件'
            '5-虚拟件'
            '6-费用件'
            '')
        end
        object scEcodFrom: TSDComboBox
          Left = 70
          Top = 65
          Width = 138
          Height = 20
          TabStop = False
          Color = clWhite
          Ctl3D = False
          Font.Charset = GB2312_CHARSET
          Font.Color = clNavy
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ItemHeight = 12
          ParentCtl3D = False
          ParentFont = False
          TabOrder = 3
          Text = 'scEcodFrom'
          Items.Strings = (
            '1-采购'
            '2-制造'
            '3-外加工')
        end
        object scEcodUnit: TSDComboBox
          Left = 70
          Top = 87
          Width = 109
          Height = 20
          TabStop = False
          Color = clWhite
          Ctl3D = False
          Font.Charset = GB2312_CHARSET
          Font.Color = clNavy
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ItemHeight = 12
          ParentCtl3D = False
          ParentFont = False
          TabOrder = 4
          KeyItem = cbItem2
        end
      end
    end
    object GroupBox3: TGroupBox
      Left = 302
      Top = 132
      Width = 242
      Height = 135
      TabOrder = 3
      object Label21: TLabel
        Left = 9
        Top = 78
        Width = 30
        Height = 12
        Caption = '备注:'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []