buyereva.dfm

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

inherited frmBuyerEva: TfrmBuyerEva
  Left = 29
  Top = 0
  Width = 800
  Height = 575
  Caption = '采购员、供应商评估'
  OldCreateOrder = True
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  inherited sbBar: TStatusBar
    Top = 504
    Width = 792
  end
  inherited CoolBar1: TCoolBar
    Width = 792
    Bands = <
      item
        Control = tbMainBar
        ImageIndex = -1
        MinHeight = 35
        Width = 792
      end>
    inherited tbMainBar: TToolBar
      Width = 779
    end
  end
  object FloatPanel2: TFloatPanel [2]
    Left = 0
    Top = 39
    Width = 792
    Height = 36
    Align = alTop
    Color = clWhite
    ParentColor = False
    TabOrder = 2
    object Label9: TLabel
      Left = 8
      Top = 12
      Width = 54
      Height = 12
      Caption = '评估年度:'
    end
    object Label6: TLabel
      Left = 183
      Top = 12
      Width = 30
      Height = 12
      Caption = '月份:'
    end
    object lblPeriodDate: TLabel
      Left = 511
      Top = 12
      Width = 6
      Height = 12
    end
    object Label1: TLabel
      Left = 296
      Top = 12
      Width = 42
      Height = 12
      Caption = '采购员:'
    end
    object Label2: TLabel
      Left = 470
      Top = 12
      Width = 42
      Height = 12
      Caption = '供应商:'
    end
    object scYear: TSDComboBox
      Left = 67
      Top = 8
      Width = 108
      Height = 20
      Style = csDropDownList
      Color = clWhite
      Ctl3D = False
      ItemHeight = 12
      ParentCtl3D = False
      TabOrder = 0
    end
    object scMonth: TSDComboBox
      Left = 217
      Top = 8
      Width = 64
      Height = 20
      Style = csDropDownList
      Color = clWhite
      Ctl3D = False
      ItemHeight = 12
      ParentCtl3D = False
      TabOrder = 1
      Items.Strings = (
        '天'
        '周'
        '旬'
        '半月'
        '月'
        '季'
        '半年'
        '年')
    end
    object scBuyer: TSDComboBox
      Left = 341
      Top = 8
      Width = 120
      Height = 20
      Style = csDropDownList
      Color = clWhite
      Ctl3D = False
      ItemHeight = 12
      ParentCtl3D = False
      TabOrder = 2
      Items.Strings = (
        '天'
        '周'
        '旬'
        '半月'
        '月'
        '季'
        '半年'
        '年')
    end
    object seSupply: TSDEdit
      Left = 505
      Top = 8
      Width = 199
      Height = 18
      Ctl3D = False
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentColor = True
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 3
      ButtonVisible = True
      SplitSymbol = ' | '
    end
    object bbOK: TBitBtn
      Left = 710
      Top = 3
      Width = 74
      Height = 25
      Caption = '开始(&O)'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 4
      OnClick = bbOKClick
      Kind = bkOK
    end
  end
  object PageMain: TPageControl [3]
    Left = 0
    Top = 75
    Width = 792
    Height = 429
    ActivePage = TabBuyer
    Align = alClient
    Font.Charset = GB2312_CHARSET
    Font.Color = clNavy
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    Images = ImageList1
    MultiLine = True
    ParentFont = False
    TabOrder = 3
    object TabBuyer: TTabSheet
      Caption = '采购员评估'
      Font.Charset = GB2312_CHARSET
      Font.Color = clNavy
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ImageIndex = 15
      ParentFont = False
      object PageCBuyer: TPageControl
        Left = 0
        Top = 0
        Width = 784
        Height = 400
        ActivePage = TabSheetGoods
        Align = alClient
        Style = tsButtons
        TabOrder = 0
        OnChange = PageCBuyerChange
        object TabSheetGoods: TTabSheet
          Caption = '采购物品明细'
          object sgBuyerGoods: TSDGrid
            Left = 0
            Top = 0
            Width = 776
            Height = 370
            ColCount = 9
            DefaultRowHeight = 18
            FixedColor = 8564917
            Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRowSizing, goColSizing, goAlwaysShowEditor]
            TabOrder = 0
            Columns = <
              item
                ColumnFont.Charset = DEFAULT_CHARSET
                ColumnFont.Color = clWindowText
                ColumnFont.Height = -11
                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 = []
                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 = clNavy
                ColumnFont.Height = -12
                ColumnFont.Name = '宋体'
                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 = 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 = (
              8
              64
              94
              58
              51
              56