sueval.dfm

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

inherited frmSueval: TfrmSueval
  Left = -4
  Top = -7
  Width = 808
  Height = 577
  Caption = '供应商评估'
  OldCreateOrder = True
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Splitter1: TSplitter [0]
    Left = 169
    Top = 0
    Width = 5
    Height = 506
    Cursor = crHSplit
    Beveled = True
  end
  inherited sbBar: TStatusBar
    Top = 506
    Width = 800
  end
  inherited CoolBar1: TCoolBar
    Left = -16
    Top = -40
    Width = 785
    Align = alNone
    Bands = <
      item
        Control = tbMainBar
        ImageIndex = -1
        MinHeight = 35
        Visible = False
        Width = 785
      end>
    inherited tbMainBar: TToolBar
      Align = alNone
      Visible = False
      inherited tbAddHead: TToolButton
        Visible = False
      end
      inherited tbEditHead: TToolButton
        Visible = False
      end
      inherited tbDeleteHead: TToolButton
        Visible = False
      end
      inherited tbCancel: TToolButton
        Visible = False
      end
      inherited tbSave: TToolButton
        Visible = False
      end
      inherited tbFirst: TToolButton
        Visible = False
      end
      inherited tbPrevious: TToolButton
        Visible = False
      end
      inherited tbNext: TToolButton
        Visible = False
      end
      inherited tbQuery: TToolButton
        Visible = False
      end
      inherited tbPrint: TToolButton
        Visible = False
      end
      inherited tbExport: TToolButton
        Visible = False
      end
      inherited tbHelp: TToolButton
        Visible = False
      end
      inherited tbControl: TToolButton
        Visible = False
      end
    end
  end
  object ClientPanel: TPanel [3]
    Left = 0
    Top = 0
    Width = 169
    Height = 506
    Align = alLeft
    Caption = 'ClientPanel'
    TabOrder = 2
    object Splitter2: TSplitter
      Left = 1
      Top = 263
      Width = 167
      Height = 5
      Cursor = crVSplit
      Align = alTop
      Beveled = True
    end
    object Label1: TLabel
      Left = 1
      Top = 1
      Width = 167
      Height = 12
      Align = alTop
      Caption = ' 物品资料'
      Font.Charset = GB2312_CHARSET
      Font.Color = clNavy
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 1
      Top = 268
      Width = 167
      Height = 12
      Align = alTop
      Caption = ' 供应商资料'
      Font.Charset = GB2312_CHARSET
      Font.Color = clNavy
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object tvTree: TTreeView
      Left = 1
      Top = 13
      Width = 167
      Height = 250
      Align = alTop
      Color = clWhite
      Ctl3D = False
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      HideSelection = False
      Indent = 19
      ParentCtl3D = False
      ParentFont = False
      ParentShowHint = False
      ReadOnly = True
      ShowHint = True
      TabOrder = 0
      OnChange = tvTreeChange
      OnDblClick = tvTreeDblClick
    end
    object tvSupply: TSDTreeView
      Left = 1
      Top = 280
      Width = 167
      Height = 225
      Align = alClient
      Indent = 19
      ParentColor = False
      ReadOnly = True
      TabOrder = 1
      TabStop = True
      OnChange = tvSupplyChange
    end
  end
  object PageControl1: TPageControl [4]
    Left = 174
    Top = 0
    Width = 626
    Height = 506
    ActivePage = TabSheet1
    Align = alClient
    Font.Charset = GB2312_CHARSET
    Font.Color = clNavy
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    OnChange = PageControl1Change
    object TabSheet1: TTabSheet
      Caption = '供 应 商 物 品'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      object SDGrid_goods: TSDGrid
        Left = 0
        Top = 36
        Width = 617
        Height = 443
        ColCount = 37
        Ctl3D = False
        DefaultRowHeight = 18
        FixedColor = 8564917
        RowCount = 2
        Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRowSizing, goColSizing, goAlwaysShowEditor]
        ParentCtl3D = False
        TabOrder = 0
        Columns = <
          item
            ColumnFont.Charset = DEFAULT_CHARSET
            ColumnFont.Color = clWindowText
            ColumnFont.Height = -11
            ColumnFont.Name = 'MS Sans Serif'
            ColumnFont.Style = []
            ColumnWidth = 1
          end
          item
            ColumnFont.Charset = DEFAULT_CHARSET
            ColumnFont.Color = clWindowText
            ColumnFont.Height = -11
            ColumnFont.Name = 'MS Sans Serif'
            ColumnFont.Style = []
            TitleString = '供应商编码'
            ColumnWidth = 0
          end
          item
            ColumnFont.Charset = DEFAULT_CHARSET
            ColumnFont.Color = clWindowText
            ColumnFont.Height = -11
            ColumnFont.Name = 'MS Sans Serif'
            ColumnFont.Style = []
            TitleString = '供应商名称'
            ColumnWidth = 0
          end
          item
            ColumnFont.Charset = DEFAULT_CHARSET
            ColumnFont.Color = clWindowText
            ColumnFont.Height = -11
            ColumnFont.Name = 'MS Sans Serif'
            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
          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