purchinf.dfm

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

inherited frmPurchInf: TfrmPurchInf
  Left = 36
  Top = 38
  Width = 803
  Height = 566
  Caption = '供应商信息中心'
  OldCreateOrder = True
  PopupMenu = PopMenuSave
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 12
  object PageControl1: TPageControl [0]
    Left = 0
    Top = 0
    Width = 795
    Height = 514
    ActivePage = TabGoodBase
    Align = alClient
    TabOrder = 2
    OnChange = PageControl1Change
    object TabGoodBase: TTabSheet
      Caption = '浏 览'
      object sgSupply: TSDGrid
        Left = 0
        Top = 69
        Width = 787
        Height = 418
        Anchors = [akLeft, akTop, akRight, akBottom]
        Color = clWhite
        ColCount = 12
        Ctl3D = False
        DefaultRowHeight = 18
        FixedColor = 8564917
        FixedCols = 2
        RowCount = 3
        Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRowSizing, goColSizing, goRowSelect]
        ParentCtl3D = False
        ParentShowHint = False
        ShowHint = False
        TabOrder = 0
        OnClick = sgSupplyClick
        Columns = <
          item
            ColumnFont.Charset = GB2312_CHARSET
            ColumnFont.Color = clWindowText
            ColumnFont.Height = -12
            ColumnFont.Name = '宋体'
            ColumnFont.Style = []
            ColumnWidth = 0
          end
          item
            ColumnFont.Charset = GB2312_CHARSET
            ColumnFont.Color = clWindowText
            ColumnFont.Height = -12
            ColumnFont.Name = '宋体'
            ColumnFont.Style = []
            TitleString = '供应商代码'
            ColumnWidth = 0
          end
          item
            ColumnFont.Charset = GB2312_CHARSET
            ColumnFont.Color = clWindowText
            ColumnFont.Height = -12
            ColumnFont.Name = '宋体'
            ColumnFont.Style = []
            TitleString = '供应商名称'
            ColumnWidth = 0
          end
          item
            ColumnFont.Charset = GB2312_CHARSET
            ColumnFont.Color = clWindowText
            ColumnFont.Height = -12
            ColumnFont.Name = '宋体'
            ColumnFont.Style = []
            TitleString = '法人代表'
            ColumnWidth = 0
          end
          item
            ColumnFont.Charset = GB2312_CHARSET
            ColumnFont.Color = clWindowText
            ColumnFont.Height = -12
            ColumnFont.Name = '宋体'
            ColumnFont.Style = []
            TitleString = '联系人'
            ColumnWidth = 0
          end
          item
            ColumnFont.Charset = GB2312_CHARSET
            ColumnFont.Color = clWindowText
            ColumnFont.Height = -12
            ColumnFont.Name = '宋体'
            ColumnFont.Style = []
            TitleString = '联系电话'
            ColumnWidth = 0
          end
          item
            ColumnFont.Charset = GB2312_CHARSET
            ColumnFont.Color = clWindowText
            ColumnFont.Height = -12
            ColumnFont.Name = '宋体'
            ColumnFont.Style = []
            TitleString = '地址'
            ColumnWidth = 0
          end
          item
            ColumnFont.Charset = GB2312_CHARSET
            ColumnFont.Color = clWindowText
            ColumnFont.Height = -12
            ColumnFont.Name = '宋体'
            ColumnFont.Style = []
            TitleString = '传真'
            ColumnWidth = 0
          end
          item
            ColumnFont.Charset = GB2312_CHARSET
            ColumnFont.Color = clWindowText
            ColumnFont.Height = -12
            ColumnFont.Name = '宋体'
            ColumnFont.Style = []
            TitleString = '货币'
            ColumnWidth = 0
          end
          item
            EditType = sdEdit
            ColumnFont.Charset = GB2312_CHARSET
            ColumnFont.Color = clBlack
            ColumnFont.Height = -12
            ColumnFont.Name = '宋体'
            ColumnFont.Style = []
            CharType = gtNumeric
            TitleString = '行业代码'
            ColumnWidth = 0
          end
          item
            EditType = sdEdit
            ColumnFont.Charset = GB2312_CHARSET
            ColumnFont.Color = clBlack
            ColumnFont.Height = -12
            ColumnFont.Name = '宋体'
            ColumnFont.Style = []
            CharType = gtNumeric
            TitleString = '信誉等级'
            ColumnWidth = 0
          end
          item
            EditType = sdEdit
            ColumnFont.Charset = GB2312_CHARSET
            ColumnFont.Color = clBlack
            ColumnFont.Height = -12
            ColumnFont.Name = '宋体'
            ColumnFont.Style = []
            CharType = gtNumeric
            TitleString = '创建日期'
            ColumnWidth = 0
          end>
        ColWidths = (
          4
          109
          120
          73
          71
          81
          139
          90
          45
          91
          85
          60)
        RowHeights = (
          18
          18
          18)
      end
    end
    object TabTshbase: TTabSheet
      Caption = '物料资料'
      ImageIndex = 1
      object sgGoods: TSDGrid
        Left = 0
        Top = 70
        Width = 787
        Height = 417
        Color = clWhite
        ColCount = 7
        Ctl3D = False
        DefaultRowHeight = 18
        FixedColor = 8564917
        FixedCols = 2
        RowCount = 3
        Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRowSizing, goColSizing, goRowSelect]
        ParentCtl3D = False
        ParentShowHint = False
        ShowHint = False
        TabOrder = 0
        Columns = <
          item
            ColumnFont.Charset = GB2312_CHARSET
            ColumnFont.Color = clWindowText
            ColumnFont.Height = -12
            ColumnFont.Name = '宋体'
            ColumnFont.Style = []
            ColumnWidth = 0
          end
          item
            ColumnFont.Charset = GB2312_CHARSET
            ColumnFont.Color = clWindowText
            ColumnFont.Height = -12
            ColumnFont.Name = '宋体'
            ColumnFont.Style = []
            TitleString = '物料编码'
            ColumnWidth = 0
          end
          item
            ColumnFont.Charset = GB2312_CHARSET
            ColumnFont.Color = clWindowText
            ColumnFont.Height = -12
            ColumnFont.Name = '宋体'
            ColumnFont.Style = []
            TitleString = '物料名称'
            ColumnWidth = 0
          end
          item
            ColumnFont.Charset = GB2312_CHARSET
            ColumnFont.Color = clWindowText
            ColumnFont.Height = -12
            ColumnFont.Name = '宋体'
            ColumnFont.Style = []
            TitleString = '规格型号'
            ColumnWidth = 0
          end
          item
            ColumnFont.Charset = GB2312_CHARSET
            ColumnFont.Color = clWindowText
            ColumnFont.Height = -12
            ColumnFont.Name = '宋体'
            ColumnFont.Style = []
            TitleString = '货物类型'
            ColumnWidth = 0
          end
          item
            ColumnFont.Charset = GB2312_CHARSET
            ColumnFont.Color = clWindowText
            ColumnFont.Height = -12
            ColumnFont.Name = '宋体'
            ColumnFont.Style = []
            TitleString = '货物来源'
            ColumnWidth = 0
          end
          item
            ColumnFont.Charset = GB2312_CHARSET
            ColumnFont.Color = clWindowText
            ColumnFont.Height = -12
            ColumnFont.Name = '宋体'
            ColumnFont.Style = []
            TitleString = 'ABC码'
            ColumnWidth = 0
          end>
        ColWidths = (
          4
          111
          103
          98
          69
          81
          64)
      end
    end
    object TabBatch: TTabSheet
      Caption = '请购单'
      ImageIndex = 2
      object sgRpod: TSDGrid
        Left = 0
        Top = 70
        Width = 787
        Height = 417
        Color = clWhite
        ColCount = 15
        Ctl3D = False
        DefaultRowHeight = 18
        FixedColor = 8564917
        FixedCols = 2
        RowCount = 3
        Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRowSizing, goColSizing, goRowSelect]
        ParentCtl3D = False
        ParentShowHint = False
        ShowHint = False
        TabOrder = 0
        Columns = <
          item
            ColumnFont.Charset = GB2312_CHARSET
            ColumnFont.Color = clWindowText
            ColumnFont.Height = -12
            ColumnFont.Name = '宋体'
            ColumnFont.Style = []
            ColumnWidth = 0
          end
          item
            ColumnFont.Charset = GB2312_CHARSET
            ColumnFont.Color = clWindowText
            ColumnFont.Height = -12
            ColumnFont.Name = '宋体'
            ColumnFont.Style = []
            TitleString = '请购单号'
            ColumnWidth = 0
          end
          item
            ColumnFont.Charset = GB2312_CHARSET
            ColumnFont.Color = clWindowText
            ColumnFont.Height = -12
            ColumnFont.Name = '宋体'
            ColumnFont.Style = []
            TitleString = '请购单行号'
            ColumnWidth = 0
          end
          item
            ColumnFont.Charset = GB2312_CHARSET
            ColumnFont.Color = clWindowText
            ColumnFont.Height = -12
            ColumnFont.Name = '宋体'
            ColumnFont.Style = []
            TitleString = '物料编码'
            ColumnWidth = 0
          end
          item
            ColumnFont.Charset = GB2312_CHARSET
            ColumnFont.Color = clWindowText
            ColumnFont.Height = -12
            ColumnFont.Name = '宋体'
            ColumnFont.Style = []
            TitleString = '物料名称'
            ColumnWidth = 0
          end
          item
            ColumnFont.Charset = GB2312_CHARSET
            ColumnFont.Color = clWindowText
            ColumnFont.Height = -12
            ColumnFont.Name = '宋体'
            ColumnFont.Style = []
            TitleString = '规格型号'
            ColumnWidth = 0
          end
          item
            ColumnFont.Charset = GB2312_CHARSET
            ColumnFont.Color = clWindowText
            ColumnFont.Height = -12
            ColumnFont.Name = '宋体'
            ColumnFont.Style = []
            TitleString = '单位'
            ColumnWidth = 0
          end
          item
            ColumnFont.Charset = GB2312_CHARSET
            ColumnFont.Color = clWindowText
            ColumnFont.Height = -12
            ColumnFont.Name = '宋体'
            ColumnFont.Style = []
            TitleString = '请购数量'
            ColumnWidth = 0
          end
          item
            ColumnFont.Charset = GB2312_CHARSET
            ColumnFont.Color = clWindowText
            ColumnFont.Height = -12
            ColumnFont.Name = '宋体'
            ColumnFont.Style = []
            TitleString = '单价'
            ColumnWidth = 0
          end
          item
            ColumnFont.Charset = GB2312_CHARSET
            ColumnFont.Color = clWindowText
            ColumnFont.Height = -12
            ColumnFont.Name = '宋体'
            ColumnFont.Style = []
            TitleString = '金额'
            ColumnWidth = 0
          end
          item
            ColumnFont.Charset = GB2312_CHARSET
            ColumnFont.Color = clWindowText
            ColumnFont.Height = -12
            ColumnFont.Name = '宋体'
            ColumnFont.Style = []
            TitleString = '需求来源'
            ColumnWidth = 0
          end
          item
            ColumnFont.Charset = GB2312_CHARSET
            ColumnFont.Color = clWindowText
            ColumnFont.Height = -12
            ColumnFont.Name = '宋体'
            ColumnFont.Style = []
            TitleString = '需求日期'
            ColumnWidth = 0
          end
          item
            ColumnFont.Charset = GB2312_CHARSET
            ColumnFont.Color = clWindowText
            ColumnFont.Height = -12
            ColumnFont.Name = '宋体'
            ColumnFont.Style = []
            TitleString = '交货日期'
            ColumnWidth = 0
          end
          item
            ColumnFont.Charset = GB2312_CHARSET
            ColumnFont.Color = clWindowText
            ColumnFont.Height = -12
            ColumnFont.Name = '宋体'
            ColumnFont.Style = []
            TitleString = '审核'
            ColumnWidth = 0
          end
          item
            ColumnFont.Charset = GB2312_CHARSET
            ColumnFont.Color = clWindowText
            ColumnFont.Height = -12
            ColumnFont.Name = '宋体'
            ColumnFont.Style = []
            TitleString = '结清'
            ColumnWidth = 0
          end>
        ColWidths = (
          4
          116
          69
          85
          98
          107
          49
          75
          86
          64
          64
          64