sueval.dfm

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

            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
          63
          62
          53
          42
          61
          59
          53
          40
          41
          49
          45
          39
          51
          46
          39
          47
          39
          38
          50
          41
          41
          45
          41
          42
          45
          45
          45
          45
          45
          45
          48
          45
          41
          45
          38
          36)
        RowHeights = (
          18
          18)
      end
      object GroupBox2: TGroupBox
        Left = 0
        Top = 0
        Width = 618
        Height = 36
        Align = alTop
        Font.Charset = GB2312_CHARSET
        Font.Color = clNavy
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        object Label3: TLabel
          Left = 11
          Top = 14
          Width = 60
          Height = 12
          Caption = '所选内容：'
        end
        object SDEdit1: TSDEdit
          Left = 76
          Top = 10
          Width = 161
          Height = 20
          ParentColor = True
          ReadOnly = True
          TabOrder = 0
          SplitSymbol = ' | '
        end
      end
    end
    object TabSheet2: TTabSheet
      Caption = '供 应 商 评 估'
      ImageIndex = 1
      object Grid_pf: TSDGrid
        Left = 0
        Top = 36
        Width = 618
        Height = 443
        Align = alClient
        Color = clWhite
        ColCount = 9
        Ctl3D = False
        DefaultRowHeight = 18
        FixedColor = 8564917
        RowCount = 2
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRowSizing, goColSizing, goAlwaysShowEditor]
        ParentCtl3D = False
        ParentFont = False
        ParentShowHint = False
        ShowHint = False
        TabOrder = 0
        OnClick = Grid_pfClick
        OddGridColor = clWhite
        Columns = <
          item
            ColumnFont.Charset = DEFAULT_CHARSET
            ColumnFont.Color = clWindowText
            ColumnFont.Height = -11
            ColumnFont.Name = 'MS Sans Serif'
            ColumnFont.Style = []
            ColSort = csAsc
            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
            EditType = sdEdit
            ColumnFont.Charset = DEFAULT_CHARSET
            ColumnFont.Color = clWindowText
            ColumnFont.Height = -11
            ColumnFont.Name = 'MS Sans Serif'
            ColumnFont.Style = []
            CharType = gtNumeric
            TitleString = '能力分'
            ColumnWidth = 0
          end
          item
            EditType = sdEdit
            ColumnFont.Charset = DEFAULT_CHARSET
            ColumnFont.Color = clWindowText
            ColumnFont.Height = -11
            ColumnFont.Name = 'MS Sans Serif'
            ColumnFont.Style = []
            CharType = gtNumeric
            TitleString = '价格分'
            ColumnWidth = 0
          end
          item
            EditType = sdEdit
            ColumnFont.Charset = GB2312_CHARSET
            ColumnFont.Color = clWindowText
            ColumnFont.Height = -12
            ColumnFont.Name = '宋体'
            ColumnFont.Style = []
            CharType = gtNumeric
            TitleString = '信誉分'
            ColumnWidth = 0
          end
          item
            EditType = sdEdit
            ColumnFont.Charset = GB2312_CHARSET
            ColumnFont.Color = clWindowText
            ColumnFont.Height = -12
            ColumnFont.Name = '宋体'
            ColumnFont.Style = []
            CharType = gtNumeric
            TitleString = '质量分'
            ColumnWidth = 0
          end
          item
            ColumnFont.Charset = GB2312_CHARSET
            ColumnFont.Color = clWindowText
            ColumnFont.Height = -12
            ColumnFont.Name = '宋体'
            ColumnFont.Style = []
            ColSort = csAsc
            TitleString = '总分'
            ColumnWidth = 0
          end
          item
            ColumnFont.Charset = GB2312_CHARSET
            ColumnFont.Color = clWindowText
            ColumnFont.Height = -12
            ColumnFont.Name = '宋体'
            ColumnFont.Style = []
            ColumnWidth = 0
          end>
        ReadOnly = False
        ColWidths = (
          4
          72
          184
          54
          55
          54
          53
          40
          41)
      end
      object GroupBox1: TGroupBox
        Left = 0
        Top = 0
        Width = 618
        Height = 36
        Align = alTop
        Font.Charset = GB2312_CHARSET
        Font.Color = clNavy
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        object Label4: TLabel
          Left = 11
          Top = 12
          Width = 60
          Height = 12
          Caption = '所选内容：'
        end
        object SDEdit2: TSDEdit
          Left = 78
          Top = 10
          Width = 162
          Height = 20
          ParentColor = True
          ReadOnly = True
          TabOrder = 0
          SplitSymbol = ' | '
        end
        object Bt_Save: TBitBtn
          Left = 384
          Top = 10
          Width = 65
          Height = 22
          Caption = '保 存(&S)'
          TabOrder = 1
          OnClick = Bt_SaveClick
        end
      end
    end
    object TabSheet3: TTabSheet
      Caption = '供 应 商 选 择'
      ImageIndex = 2
      object GroupBox3: TGroupBox
        Left = 0
        Top = 0
        Width = 618
        Height = 35
        Align = alTop
        TabOrder = 0
        object Label5: TLabel
          Left = 11
          Top = 14
          Width = 60
          Height = 12
          Caption = '所选内容：'
        end
        object SDEdit3: TSDEdit
          Left = 77
          Top = 10
          Width = 163
          Height = 20
          ParentColor = True
          ReadOnly = True
          TabOrder = 0
          SplitSymbol = ' | '
        end
      end
      object Panel3: TPanel
        Left = 0
        Top = 35
        Width = 618
        Height = 444
        Align = alClient
        Caption = 'Panel3'
        TabOrder = 1
        object Grid_pfxz1: TSDGrid
          Left = 1
          Top = 1
          Width = 252
          Height = 442
          Align = alLeft
          Color = clWhite
          Ctl3D = False
          DefaultRowHeight = 18
          FixedColor = 8564917
          RowCount = 2
          Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRowSizing, goColSizing, goAlwaysShowEditor]
          ParentCtl3D = False
          TabOrder = 1
          Columns = <
            item
              ColumnFont.Charset = DEFAULT_CHARSET
              ColumnFont.Color = clWindowText
              ColumnFont.Height = 1
              ColumnFont.Name = 'MS Sans Serif'
              ColumnFont.Style = []
              ColumnWidth = 0
            end
            item
              ColumnFont.Charset = DEFAULT_CHARSET
              ColumnFont.Color = clWindowText
              ColumnFont.Height = -11
              ColumnFont.Name = 'MS Sans Serif'
              ColumnFont.Style = []
              ColSort = csAsc
              TitleString = '评分'
              ColumnWidth = 0
            end
            item
              ColumnFont.Charset = DEFAULT_CHARSET
              ColumnFont.Color = clWindowText