purcheva.dfm

科思ERP部分源码及控件

inherited frmPurchEva: TfrmPurchEva
  Left = 1
  Top = 3
  Width = 800
  Height = 575
  Caption = '采购评估'
  Menu = MainMenu1
  OldCreateOrder = True
  Position = poDesktopCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  inherited sbBar: TStatusBar
    Top = 504
    Width = 792
  end
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 792
    Height = 39
    AutoSize = True
    Bands = <
      item
        Control = tbMainBar
        ImageIndex = -1
        MinHeight = 35
        Width = 792
      end>
    EdgeBorders = [ebTop, ebBottom]
    object tbMainBar: TToolBar
      Left = 9
      Top = 0
      Width = 779
      Height = 35
      AutoSize = True
      ButtonHeight = 35
      ButtonWidth = 31
      Caption = 'tbMainBar'
      EdgeBorders = []
      EdgeInner = esNone
      EdgeOuter = esNone
      Flat = True
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      Images = ImageList1
      ParentFont = False
      ShowCaptions = True
      TabOrder = 0
      object tbQuery: TToolButton
        Left = 0
        Top = 0
        AutoSize = True
        Caption = '查询'
        ImageIndex = 9
      end
      object tbGenDetail: TToolButton
        Left = 35
        Top = 0
        AutoSize = True
        Caption = '生成'
        ImageIndex = 19
      end
      object ToolButton3: TToolButton
        Left = 70
        Top = 0
        Width = 4
        Caption = 'ToolButton3'
        ImageIndex = 14
        Style = tbsSeparator
      end
      object ToolButton5: TToolButton
        Left = 74
        Top = 0
        Caption = '取消'
        ImageIndex = 3
      end
      object ToolButton2: TToolButton
        Left = 105
        Top = 0
        Caption = '存盘'
        ImageIndex = 4
      end
      object ToolButton6: TToolButton
        Left = 136
        Top = 0
        Width = 4
        Caption = 'ToolButton6'
        ImageIndex = 18
        Style = tbsSeparator
      end
      object tbPrint: TToolButton
        Left = 140
        Top = 0
        AutoSize = True
        Caption = '打印'
        ImageIndex = 10
      end
      object tbExport: TToolButton
        Left = 175
        Top = 0
        AutoSize = True
        Caption = '导出'
        ImageIndex = 18
      end
      object ToolButton4: TToolButton
        Left = 210
        Top = 0
        Width = 4
        Caption = 'ToolButton4'
        ImageIndex = 13
        Style = tbsSeparator
      end
      object tbFirst: TToolButton
        Left = 214
        Top = 0
        AutoSize = True
        Caption = '首项'
        ImageIndex = 5
      end
      object tbPrevious: TToolButton
        Left = 249
        Top = 0
        AutoSize = True
        Caption = '向上'
        ImageIndex = 6
      end
      object tbNext: TToolButton
        Left = 284
        Top = 0
        AutoSize = True
        Caption = '向下'
        ImageIndex = 7
      end
      object tbLast: TToolButton
        Left = 319
        Top = 0
        AutoSize = True
        Caption = '末项'
        ImageIndex = 8
      end
      object ToolButton1: TToolButton
        Left = 354
        Top = 0
        Width = 2
        Caption = 'ToolButton1'
        ImageIndex = 14
        Style = tbsSeparator
      end
      object tbHelp: TToolButton
        Left = 356
        Top = 0
        AutoSize = True
        Caption = '帮助'
        ImageIndex = 11
      end
      object tbControl: TToolButton
        Left = 391
        Top = 0
        AutoSize = True
        Caption = '导航'
        ImageIndex = 17
      end
    end
  end
  object FloatPanel2: TFloatPanel
    Left = 0
    Top = 39
    Width = 792
    Height = 34
    Align = alTop
    Color = clWhite
    ParentColor = False
    TabOrder = 2
    object Label9: TLabel
      Left = 8
      Top = 8
      Width = 54
      Height = 12
      Caption = '评估年度:'
    end
    object labLgLocName: TLabel
      Left = 256
      Top = 7
      Width = 6
      Height = 11
      Font.Charset = GB2312_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label6: TLabel
      Left = 183
      Top = 8
      Width = 30
      Height = 12
      Caption = '月份:'
    end
    object Label1: TLabel
      Left = 282
      Top = 8
      Width = 42
      Height = 12
      Caption = '采购员:'
    end
    object lblUnit: TLabel
      Left = 415
      Top = 11
      Width = 6
      Height = 12
    end
    object Label2: TLabel
      Left = 458
      Top = 8
      Width = 66
      Height = 12
      Caption = '供应商名称:'
    end
    object scYear: TSDComboBox
      Left = 67
      Top = 4
      Width = 109
      Height = 20
      Style = csDropDownList
      Color = clWhite
      Ctl3D = False
      ItemHeight = 12
      ParentCtl3D = False
      TabOrder = 0
      OnChange = scYearChange
      KeyItem = cbItem2
    end
    object scMonth: TSDComboBox
      Left = 216
      Top = 4
      Width = 55
      Height = 20
      Style = csDropDownList
      Color = clWhite
      Ctl3D = False
      ItemHeight = 12
      ParentCtl3D = False
      TabOrder = 1
    end
    object scBuyer: TSDComboBox
      Left = 328
      Top = 4
      Width = 118
      Height = 20
      Style = csDropDownList
      Color = clWhite
      Ctl3D = False
      ItemHeight = 12
      ParentCtl3D = False
      TabOrder = 2
      Items.Strings = (
        '')
    end
    object seSupply: TSDEdit
      Left = 527
      Top = 5
      Width = 242
      Height = 18
      Ctl3D = False
      ParentColor = True
      ParentCtl3D = False
      ReadOnly = True
      TabOrder = 3
      OnButtonClick = seSupplyButtonClick
      ButtonVisible = True
      KeyItem = cbItem2
      SplitSymbol = ' | '
    end
  end
  object PageControl1: TPageControl
    Left = 0
    Top = 73
    Width = 792
    Height = 431
    ActivePage = tsBuyer
    Align = alClient
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    Images = ImageList1
    ParentFont = False
    TabOrder = 3
    object tsBuyer: TTabSheet
      Caption = '采购员评估'
      ImageIndex = 15
      object PageControl2: TPageControl
        Left = 0
        Top = 0
        Width = 784
        Height = 402
        ActivePage = TabSheet1
        Align = alClient
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        Style = tsButtons
        TabOrder = 0
        object TabSheet1: TTabSheet
          Caption = '物料采购明细'
          object sgGoods: TSDGrid
            Left = 0
            Top = 0
            Width = 776
            Height = 372
            Align = alClient
            ColCount = 12
            DefaultRowHeight = 18
            FixedColor = 8564917
            Font.Charset = GB2312_CHARSET
            Font.Color = clBlack
            Font.Height = -12
            Font.Name = '宋体'
            Font.Style = []
            Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRowSizing, goColSizing, goAlwaysShowEditor]
            ParentFont = False
            TabOrder = 0
            Columns = <
              item