forecasth.dfm

速达开源ERP系统

inherited frmForeCasth: TfrmForeCasth
  Left = 81
  Top = 68
  Width = 636
  Height = 523
  Caption = '预测需求计划'
  OldCreateOrder = True
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object sgForeCasth: TSDGrid [0]
    Left = 0
    Top = 142
    Width = 628
    Height = 288
    Align = alClient
    Color = 16441822
    ColCount = 6
    Ctl3D = False
    DefaultRowHeight = 20
    FixedColor = 8564917
    FixedCols = 0
    RowCount = 4
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRowSizing, goColSizing, goRowSelect]
    ParentCtl3D = False
    TabOrder = 5
    OnDblClick = sgForeCasthDblClick
    OnSelectCell = sgForeCasthSelectCell
    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
      118
      154
      43
      82
      83)
  end
  object ftForeCastDetail: TFloatPanel [1]
    Left = 0
    Top = 142
    Width = 628
    Height = 288
    Color = 16441822
    Caption = 'ftForeCastDetail'
    ParentColor = False
    TabOrder = 3
    object Label3: TLabel
      Left = 11
      Top = 49
      Width = 54
      Height = 12
      Caption = '货物编码:'
    end
    object Label5: TLabel
      Left = 11
      Top = 74
      Width = 54
      Height = 12
      Caption = '货物名称:'
      Enabled = False
    end
    object Label6: TLabel
      Left = 11
      Top = 98
      Width = 54
      Height = 12
      Caption = '计量单位:'
      Enabled = False
    end
    object LabPpt1: TLabel
      Left = 35
      Top = 122
      Width = 30
      Height = 12
      Alignment = taRightJustify
      Caption = '类型:'
      Enabled = False
    end
    object Label10: TLabel
      Left = 296
      Top = 25
      Width = 54
      Height = 12
      Caption = '需求数量:'
    end
    object LabPpt2: TLabel
      Left = 35
      Top = 146
      Width = 30
      Height = 12
      Alignment = taRightJustify
      Caption = '来源:'
      Enabled = False
    end
    object Label11: TLabel
      Left = 296
      Top = 49
      Width = 54
      Height = 12
      Caption = '需求日期:'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label13: TLabel
      Left = 296
      Top = 75
      Width = 54
      Height = 12
      Caption = '生成数量:'
      Enabled = False
    end
    object Label14: TLabel
      Left = 308
      Top = 100
      Width = 42
      Height = 12
      Caption = '行备注:'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label7: TLabel
      Left = 35
      Top = 25
      Width = 30
      Height = 12
      Caption = '行号:'
    end
    object Label12: TLabel
      Left = 11
      Top = 171
      Width = 54
      Height = 12
      Caption = '订货批量:'
      Enabled = False
    end
    object Label16: TLabel
      Left = 11
      Top = 195
      Width = 54
      Height = 12
      Caption = '订货周期:'
      Enabled = False
    end
    object Label18: TLabel
      Left = 11
      Top = 219
      Width = 54
      Height = 12
      Caption = '安全库存:'
      Enabled = False
    end
    object seForeCastdGoods: TSDEdit
      Left = 64
      Top = 46
      Width = 183
      Height = 18
      Ctl3D = False
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowFrame
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentColor = True
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 1
      Text = 'seForeCastdGoods'
      OnKeyDown = seForeCastdGoodsKeyDown
      OnButtonClick = seForeCastdGoodsButtonClick
      ButtonVisible = True
      SplitSymbol = ' | '
    end
    object seForeCastdGoodsName: TSDEdit
      Left = 64
      Top = 69
      Width = 181
      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
      Text = 'seForeCastdGoodsName'
      SplitSymbol = ' | '
    end
    object seForeCastdQty: TSDEdit
      Left = 349
      Top = 19
      Width = 90
      Height = 18
      Ctl3D = False
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowFrame
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentColor = True
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 9
      Text = 'seForeCastdQty'
      CharType = ctNumeric
      SplitSymbol = ' | '
    end
    object scForeCastdUnit: TSDComboBox
      Left = 64
      Top = 91
      Width = 101
      Height = 20
      TabStop = False
      Style = csDropDownList
      Color = 16441822
      Ctl3D = False
      Font.Charset = GB2312_CHARSET
      Font.Color = clNavy
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ItemHeight = 12
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 3
      KeyItem = cbItem2
    end
    object deForeCastdDate: TDateEdit
      Left = 349
      Top = 46
      Width = 90
      Height = 18
      LineOffset = 2
      LineColor = clGreen
      LineVisible = False
      CDate = '2001-04-27'
      InitDate = '2001-04-27'
      ModalResult = 0
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowFrame
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      TabOrder = 10
      Color = 49996254
      Ctl3D = False
      ParentFont = False
      ParentCtl3D = False
    end
    object seForeCastdGQty: TSDEdit
      Left = 349
      Top = 69
      Width = 98
      Height = 18
      TabStop = False
      Ctl3D = False
      ParentColor = True
      ParentCtl3D = False
      TabOrder = 11
      Text = 'seForeCastdGQty'
      CharType = ctNumeric
      SplitSymbol = ' | '
    end
    object memForeCastdDesc: TMemo
      Left = 349
      Top = 99
      Width = 173
      Height = 47
      Color = 16441822
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 12
    end
    object scForeCastdType: TSDComboBox
      Left = 64
      Top = 115
      Width = 147
      Height = 20
      TabStop = False
      Style = csDropDownList
      Color = 16441822
      Ctl3D = False
      Font.Charset = GB2312_CHARSET
      Font.Color = clNavy
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ItemHeight = 12
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 4
      Items.Strings = (
        '1-成品'
        '2-半成品'
        '3-材料'
        '4-备用件'
        '5-虚拟件'
        '6-费用件')
      KeyItem = cbItem2
    end
    object scForeCastdFrom: TSDComboBox
      Left = 64
      Top = 138
      Width = 147
      Height = 20
      TabStop = False
      Style = csDropDownList
      Color = 16441822
      Ctl3D = False
      Font.Charset = GB2312_CHARSET
      Font.Color = clNavy
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ItemHeight = 12
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 5
      Items.Strings = (