main.~dfm

专家抽取系统1.0 是用Delphi6.0 开发的一款用于招投标,评审过程中从专家库中抽取专家的软件。可以将抽取结果导入到Excel或Word文档中

object frmMain: TfrmMain
  Left = 218
  Top = 93
  Width = 773
  Height = 614
  Caption = #19987#23478#25277#21462#31995#32479
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poDesktopCenter
  OnActivate = FormActivate
  OnCanResize = FormCanResize
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 97
    Top = 33
    Width = 8
    Height = 505
    Cursor = crHSplit
  end
  object DBGrid1: TDBGrid
    Left = 105
    Top = 33
    Width = 660
    Height = 505
    Align = alClient
    DataSource = DataSource1
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = #19987#23478'ID'
        Visible = True
      end
      item
        Expanded = False
        FieldName = #22995#21517
        Title.Alignment = taCenter
        Width = 51
        Visible = True
      end
      item
        Expanded = False
        FieldName = #29366#24577
        Width = 34
        Visible = True
      end
      item
        Expanded = False
        FieldName = #24615#21035
        Title.Alignment = taCenter
        Visible = True
      end
      item
        Expanded = False
        FieldName = #20986#29983#26085#26399
        Title.Alignment = taCenter
        Width = 82
        Visible = True
      end
      item
        Expanded = False
        FieldName = #25163#26426
        Title.Alignment = taCenter
        Width = 107
        Visible = True
      end
      item
        Expanded = False
        FieldName = #30005#35805
        Title.Alignment = taCenter
        Width = 165
        Visible = True
      end
      item
        Expanded = False
        FieldName = #32844#21153
        Title.Alignment = taCenter
        Width = 259
        Visible = True
      end
      item
        Expanded = False
        FieldName = #32844#31216
        Title.Alignment = taCenter
        Width = 108
        Visible = True
      end
      item
        Expanded = False
        FieldName = #21333#20301#21517#31216
        Title.Alignment = taCenter
        Width = 147
        Visible = True
      end
      item
        Expanded = False
        FieldName = #21333#20301#22320#22336
        Title.Alignment = taCenter
        Width = 136
        Visible = True
      end>
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 538
    Width = 765
    Height = 22
    Panels = <
      item
        Width = 100
      end
      item
        Width = 250
      end
      item
        Width = 200
      end
      item
        Alignment = taCenter
        Width = 100
      end
      item
        Alignment = taCenter
        Width = 100
      end
      item
        Width = 100
      end
      item
        Width = 100
      end>
    SimplePanel = False
    SimpleText = 'aaa'
  end
  object ListView1: TListView
    Left = 0
    Top = 33
    Width = 97
    Height = 505
    Align = alLeft
    Columns = <>
    HideSelection = False
    LargeImages = ImageList1
    ReadOnly = True
    TabOrder = 2
    OnSelectItem = ListView1SelectItem
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 765
    Height = 33
    AutoSize = True
    ButtonHeight = 31
    ButtonWidth = 31
    Caption = 'ToolBar1'
    Flat = True
    Images = imgLstTBar24
    ParentShowHint = False
    ShowHint = True
    TabOrder = 3
    Transparent = True
    object ToolButton3: TToolButton
      Left = 0
      Top = 0
      Hint = #22686#21152#19987#23478
      Caption = 'ToolButton3'
      ImageIndex = 1
      OnClick = mExpertAddClick
    end
    object ToolButton4: TToolButton
      Left = 31
      Top = 0
      Hint = #20462#25913#19987#23478
      Caption = 'ToolButton4'
      ImageIndex = 2
      OnClick = mExpertUpdateClick
    end
    object ToolButton5: TToolButton
      Left = 62
      Top = 0
      Hint = #21024#38500#19987#23478
      Caption = 'ToolButton5'
      ImageIndex = 3
      OnClick = mExpertDelClick
    end
    object ToolButton2: TToolButton
      Left = 93
      Top = 0
      Width = 18
      Caption = 'ToolButton2'
      ImageIndex = 1
      Style = tbsSeparator
    end
    object ToolButton7: TToolButton
      Left = 111
      Top = 0
      Hint = #38543#26426#25277#21462
      Caption = 'ToolButton7'
      ImageIndex = 4
      OnClick = mExtract1Click
    end
    object ToolButton6: TToolButton
      Left = 142
      Top = 0
      Width = 19
      Caption = 'ToolButton6'
      ImageIndex = 4