goodsinfocenter.dfm

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

inherited frmGoodsInfoCenter: TfrmGoodsInfoCenter
  Left = 6
  Top = -1
  Width = 800
  Height = 567
  Caption = '物料信息中心'
  OldCreateOrder = True
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object PageControlGoods: TPageControl [0]
    Left = 0
    Top = 0
    Width = 792
    Height = 517
    ActivePage = TabBase
    Align = alClient
    Font.Charset = GB2312_CHARSET
    Font.Color = clNavy
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    OnChange = PageControlGoodsChange
    object TabGoodSee: TTabSheet
      Caption = ' 浏览'
      object sgGoodsGrid: TSDGrid
        Left = 0
        Top = 66
        Width = 784
        Height = 424
        Align = alBottom
        Anchors = [akLeft, akTop, akRight, akBottom]
        ColCount = 20
        Ctl3D = False
        DefaultRowHeight = 18
        FixedColor = 8564917
        FixedCols = 0
        Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRowSizing, goColSizing, goRowSelect]
        ParentCtl3D = False
        TabOrder = 0
        OnClick = sgGoodsGridClick
        Columns = <
          item
            ColumnFont.Charset = DEFAULT_CHARSET
            ColumnFont.Color = clNavy
            ColumnFont.Height = -11
            ColumnFont.Name = 'MS Sans Serif'
            ColumnFont.Style = []
            ColSort = csAsc
            TitleString = '物料编码'
            ColumnWidth = 10
            Merged = True
          end
          item
            ColumnFont.Charset = DEFAULT_CHARSET
            ColumnFont.Color = clNavy
            ColumnFont.Height = -11
            ColumnFont.Name = 'MS Sans Serif'
            ColumnFont.Style = []
            TitleString = '物料名称'
            ColumnWidth = 0
          end
          item
            ColumnFont.Charset = DEFAULT_CHARSET
            ColumnFont.Color = clNavy
            ColumnFont.Height = -11
            ColumnFont.Name = 'MS Sans Serif'
            ColumnFont.Style = []
            TitleString = '物料分类'
            ColumnWidth = 0
          end
          item
            ColumnFont.Charset = DEFAULT_CHARSET
            ColumnFont.Color = clNavy
            ColumnFont.Height = -11
            ColumnFont.Name = 'MS Sans Serif'
            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
          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>
        HighLight = True
        ColWidths = (
          82
          108
          66
          55
          60
          62
          86
          71
          64
          61
          64
          64
          64
          67
          122
          199
          64
          64
          64
          64)
        RowHeights = (
          18
          18
          18
          18
          18)
      end
    end
    object TabTshbase: TTabSheet
      Caption = ' 仓库'
      ImageIndex = 1
      object sgSthState: TSDGrid
        Left = 0
        Top = 66
        Width = 784
        Height = 424
        Align = alBottom
        Anchors = [akLeft, akTop, akRight, akBottom]
        ColCount = 11
        Ctl3D = False
        DefaultRowHeight = 18
        FixedColor = 8564917
        FixedCols = 0
        Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRowSizing, goColSizing, goRowSelect]
        ParentCtl3D = False
        TabOrder = 0
        Columns = <
          item
            ColumnFont.Charset = DEFAULT_CHARSET
            ColumnFont.Color = clNavy
            ColumnFont.Height = -11
            ColumnFont.Name = 'MS Sans Serif'
            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 = DEFAULT_CHARSET
            ColumnFont.Color = clNavy
            ColumnFont.Height = -11
            ColumnFont.Name = 'MS Sans Serif'
            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 = DEFAULT_CHARSET
            ColumnFont.Color = clNavy
            ColumnFont.Height = -11
            ColumnFont.Name = 'MS Sans Serif'
            ColumnFont.Style = []
            TitleString = '期初数'
            ColumnWidth = 0
          end
          item
            ColumnFont.Charset = DEFAULT_CHARSET
            ColumnFont.Color = clNavy
            ColumnFont.Height = -11
            ColumnFont.Name = 'MS Sans Serif'
            ColumnFont.Style = []
            TitleString = '入库数量'
            ColumnWidth = 0
          end
          item
            ColumnFont.Charset = DEFAULT_CHARSET
            ColumnFont.Color = clNavy
            ColumnFont.Height = -11
            ColumnFont.Name = 'MS Sans Serif'
            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 = (
          76
          89
          70
          72
          69
          84
          64
          64
          64
          77
          60)
        RowHeights = (
          18
          18
          18
          18
          18)
      end
    end
    object TabDeptbase: TTabSheet
      Caption = ' 部门'
      ImageIndex = 2
      object sgDeptGrid: TSDGrid
        Left = 0
        Top = 65
        Width = 784
        Height = 425
        Align = alBottom
        Anchors = [akLeft, akTop, akRight, akBottom]
        ColCount = 10
        Ctl3D = False
        DefaultRowHeight = 18
        FixedColor = 8564917
        FixedCols = 0
        Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRowSizing, goColSizing, goRowSelect]
        ParentCtl3D = False
        TabOrder = 0
        Columns = <
          item
            ColumnFont.Charset = DEFAULT_CHARSET
            ColumnFont.Color = clNavy
            ColumnFont.Height = -11
            ColumnFont.Name = 'MS Sans Serif'
            ColumnFont.Style = []
            TitleString = '财务月份'
            ColumnWidth = 0
          end
          item
            ColumnFont.Charset = DEFAULT_CHARSET
            ColumnFont.Color = clNavy
            ColumnFont.Height = -11
            ColumnFont.Name = 'MS Sans Serif'
            ColumnFont.Style = []
            TitleString = '部门代码'
            ColumnWidth = 0
          end
          item
            ColumnFont.Charset = DEFAULT_CHARSET
            ColumnFont.Color = clNavy
            ColumnFont.Height = -11
            ColumnFont.Name = 'MS Sans Serif'
            ColumnFont.Style = []
            TitleString = '部门名称'
            ColumnWidth = 0
          end
          item
            ColumnFont.Charset = DEFAULT_CHARSET
            ColumnFont.Color = clNavy
            ColumnFont.Height = -11
            ColumnFont.Name = 'MS Sans Serif'
            ColumnFont.Style = []
            TitleString = '货位编码'
            ColumnWidth = 0
          end
          item
            ColumnFont.Charset = DEFAULT_CHARSET
            ColumnFont.Color = clNavy
            ColumnFont.Height = -11
            ColumnFont.Name = 'MS Sans Serif'
            ColumnFont.Style = []
            TitleString = '货位名称'
            ColumnWidth = 0
          end
          item
            ColumnFont.Charset = DEFAULT_CHARSET
            ColumnFont.Color = clNavy
            ColumnFont.Height = -11
            ColumnFont.Name = 'MS Sans Serif'
            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 = '宋体'