bomh.dfm

一个以前收集的基于C/S架构的ERP客户端源代码

inherited frmBomh: TfrmBomh
  Left = 4
  Top = 34
  Width = 783
  Height = 546
  Caption = '物料清单(Bom表)'
  OldCreateOrder = True
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Splitter1: TSplitter [0]
    Left = 201
    Top = 39
    Width = 3
    Height = 410
    Cursor = crHSplit
  end
  object FloatPanel3: TFloatPanel [1]
    Left = 0
    Top = 449
    Width = 775
    Height = 29
    Align = alBottom
    Color = clWhite
    Caption = 'FloatPanel3'
    ParentColor = False
    TabOrder = 2
    object Label36: TLabel
      Left = 518
      Top = 6
      Width = 42
      Height = 12
      Caption = '制单人:'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object labBomhUser: TLabel
      Left = 560
      Top = 6
      Width = 48
      Height = 12
      Caption = 'UserCode'
      Font.Charset = GB2312_CHARSET
      Font.Color = clNavy
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label10: TLabel
      Left = 323
      Top = 6
      Width = 54
      Height = 12
      Caption = '制单日期:'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object labSysDate: TLabel
      Left = 377
      Top = 6
      Width = 42
      Height = 12
      Caption = 'SysDate'
      Font.Charset = GB2312_CHARSET
      Font.Color = clNavy
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
  end
  inherited sbBar: TStatusBar
    Top = 478
    Width = 775
  end
  inherited CoolBar1: TCoolBar
    Width = 775
    Bands = <
      item
        Control = tbMainBar
        ImageIndex = -1
        MinHeight = 35
        Width = 775
      end>
    inherited tbMainBar: TToolBar
      Width = 762
    end
  end
  object trBom: TSDTreeView [4]
    Left = 0
    Top = 39
    Width = 201
    Height = 410
    Align = alLeft
    Indent = 19
    ParentColor = False
    TabOrder = 3
    TabStop = True
    OnChange = trGoodsChange
    OnDblClick = tvBomhDblClick
  end
  object SdPanel1: TSdPanel [5]
    Left = 204
    Top = 39
    Width = 571
    Height = 410
    Align = alClient
    Caption = 'SdPanel1'
    TabOrder = 4
    BackDot = True
    object sgBomh: TSDGrid
      Left = 1
      Top = 140
      Width = 569
      Height = 269
      Align = alClient
      Color = clWhite
      ColCount = 9
      Ctl3D = False
      DefaultRowHeight = 18
      FixedColor = clInfoBk
      FixedCols = 0
      Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRowSizing, goColSizing, goRowSelect, goThumbTracking]
      ParentCtl3D = False
      TabOrder = 2
      OnClick = sgBomhClick
      OnDblClick = sgBomhDblClick
      SelectColor = clActiveCaption
      OddGridColor = clWhite
      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
        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 = (
        25
        128
        109
        82
        34
        51
        41
        64
        40)
    end
    object FloatPanel2: TFloatPanel
      Left = 1
      Top = 140
      Width = 569
      Height = 269
      Align = alClient
      Color = clWhite
      Caption = 'FloatPanel2'
      ParentColor = False
      TabOrder = 1
      object Label15: TLabel
        Left = 12
        Top = 17
        Width = 30
        Height = 12
        Caption = '序号:'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Label16: TLabel
        Left = 10
        Top = 43
        Width = 54
        Height = 12
        Caption = '子件编码:'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Label17: TLabel
        Left = 9
        Top = 202
        Width = 54
        Height = 12
        Caption = '定额消耗:'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Label20: TLabel
        Left = 10
        Top = 227
        Width = 42
        Height = 12
        Caption = '损耗率:'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Label28: TLabel
        Left = 288
        Top = 35
        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 = 288
        Top = 64
        Width = 54
        Height = 12
        Caption = '计划策略:'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Label30: TLabel
        Left = 288
        Top = 92
        Width = 54
        Height = 12
        Caption = '配置类型:'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Label32: TLabel
        Left = 288
        Top = 121
        Width = 54
        Height = 12
        Caption = '偏置时间:'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Label21: TLabel
        Left = 288
        Top = 206
        Width = 42
        Height = 12
        Caption = '行备注:'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Label31: TLabel
        Left = 288
        Top = 149
        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 Label25: TLabel
        Left = 288
        Top = 178
        Width = 54
        Height = 12
        Caption = '所在工序:'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Label33: TLabel
        Left = 432
        Top = 120
        Width = 24
        Height = 12
        Caption = '小时'
      end
      object seBomdGoods: TSDEdit
        Left = 66
        Top = 38
        Width = 183
        Height = 18
        Ctl3D = False
        ParentColor = True
        ParentCtl3D = False
        TabOrder = 1
        Text = 'seBomdGoods'
        OnExit = seBomdGoodsExit
        OnButtonClick = seBomdGoodsButtonClick
        ButtonVisible = True
        SplitSymbol = ' | '
      end
      object btnOK: TBitBtn
        Left = 476
        Top = 8
        Width = 79
        Height = 24
        Caption = '确定(&O)'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ModalResult = 1
        ParentFont = False
        TabOrder = 13
        TabStop = False
        OnClick = btnOKClick
        Glyph.Data = {
          DE010000424DDE01000000000000760000002800000024000000120000000100
          0400000000006801000000000000000000001000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333333333333333333330000333333333333333333333333F33333333333
          00003333344333333333333333388F3333333333000033334224333333333333
          338338F3333333330000333422224333333333333833338F3333333300003342
          222224333333333383333338F3333333000034222A22224333333338F338F333
          8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
          33333338F83338F338F33333000033A33333A222433333338333338F338F3333
          0000333333333A222433333333333338F338F33300003333333333A222433333
          333333338F338F33000033333333333A222433333333333338F338F300003333
          33333333A222433333333333338F338F00003333333333333A22433333333333
          3338F38F000033333333333333A223333333333333338F830000333333333333
          333A333333333333333338330000333333333333333333333333333333333333
          0000}
        NumGlyphs = 2
      end
      object btnCancel: TBitBtn
        Left = 476
        Top = 36
        Width = 79
        Height = 24
        Caption = '取消(&C)'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 14
        TabStop = False
        OnClick = btnCancelClick
        Kind = bkCancel
      end
      object seBomdSn: TSDEdit
        Left = 66
        Top = 11
        Width = 101
        Height = 18
        Ctl3D = False