expertadd.~dfm

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

object frmExpertAdd: TfrmExpertAdd
  Left = 354
  Top = 189
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = #22686#21152#19987#23478
  ClientHeight = 384
  ClientWidth = 384
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 33
    Top = 27
    Width = 35
    Height = 13
    Caption = #19987#23478'ID'
    FocusControl = DBEdit1
  end
  object Label3: TLabel
    Left = 32
    Top = 93
    Width = 36
    Height = 13
    Caption = #24615'    '#21035
  end
  object Label4: TLabel
    Left = 32
    Top = 59
    Width = 36
    Height = 13
    Caption = #22995'    '#21517
    FocusControl = DBEdit4
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label5: TLabel
    Left = 177
    Top = 93
    Width = 48
    Height = 13
    Caption = #20986#29983#26085#26399
  end
  object Label6: TLabel
    Left = 32
    Top = 127
    Width = 36
    Height = 13
    Caption = #25163'    '#26426
    FocusControl = DBEdit6
  end
  object Label7: TLabel
    Left = 32
    Top = 161
    Width = 36
    Height = 13
    Caption = #30005'    '#35805
    FocusControl = DBEdit7
  end
  object Label8: TLabel
    Left = 32
    Top = 196
    Width = 36
    Height = 13
    Caption = #32844'    '#21153
    FocusControl = DBEdit8
  end
  object Label9: TLabel
    Left = 32
    Top = 230
    Width = 36
    Height = 13
    Caption = #32844'    '#31216
    FocusControl = DBEdit9
  end
  object Label10: TLabel
    Left = 21
    Top = 264
    Width = 48
    Height = 13
    Caption = #21333#20301#21517#31216
    FocusControl = DBEdit10
  end
  object Label11: TLabel
    Left = 21
    Top = 299
    Width = 48
    Height = 13
    Caption = #21333#20301#22320#22336
    FocusControl = DBEdit11
  end
  object Label12: TLabel
    Left = 189
    Top = 59
    Width = 36
    Height = 13
    Caption = #29366'    '#24577
  end
  object Label2: TLabel
    Left = 198
    Top = 27
    Width = 35
    Height = 13
    Caption = #32452'    ID'
    Enabled = False
    Visible = False
  end
  object DBComboBox3: TDBComboBox
    Left = 280
    Top = 88
    Width = 105
    Height = 19
    Style = csOwnerDrawFixed
    DataField = #20986#29983#26085#26399
    DataSource = DataSource1
    ItemHeight = 13
    TabOrder = 16
    Visible = False
  end
  object DatTimePicker: TDateTimePicker
    Left = 248
    Top = 88
    Width = 105
    Height = 21
    CalAlignment = dtaLeft
    Date = 38732
    Time = 38732
    ShowCheckbox = True
    Checked = False
    DateFormat = dfShort
    DateMode = dmComboBox
    Kind = dtkDate
    ParseInput = False
    TabOrder = 6
  end
  object DBComboBox1: TDBComboBox
    Left = 88
    Top = 89
    Width = 81
    Height = 21
    Style = csDropDownList
    DataField = #24615#21035
    DataSource = DataSource1
    ItemHeight = 13
    Items.Strings = (
      #30007
      #22899)
    TabOrder = 5
  end
  object DBEdit1: TDBEdit
    Left = 88
    Top = 23
    Width = 81
    Height = 21
    DataField = #19987#23478'ID'
    DataSource = DataSource1
    Enabled = False
    TabOrder = 2
  end
  object DBCheckBox1: TDBCheckBox
    Left = 240
    Top = 0
    Width = 49
    Height = 17
    Caption = #36873#20013
    DataField = #36873#20013
    DataSource = DataSource1
    Enabled = False
    TabOrder = 1
    ValueChecked = 'True'
    ValueUnchecked = 'False'
    Visible = False
  end
  object DBEdit2: TDBEdit
    Left = 248
    Top = 24
    Width = 105
    Height = 21
    DataField = #32452'ID'
    DataSource = DataSource1
    Enabled = False
    TabOrder = 0
    Visible = False
  end
  object DBEdit4: TDBEdit
    Left = 88
    Top = 55
    Width = 81
    Height = 21
    DataField = #22995#21517
    DataSource = DataSource1
    TabOrder = 3
  end
  object DBEdit6: TDBEdit
    Left = 88
    Top = 123
    Width = 265
    Height = 21
    DataField = #25163#26426
    DataSource = DataSource1
    TabOrder = 7
  end
  object DBEdit7: TDBEdit
    Left = 88
    Top = 157
    Width = 265
    Height = 21
    DataField = #30005#35805
    DataSource = DataSource1
    TabOrder = 8
  end
  object DBEdit8: TDBEdit
    Left = 88
    Top = 192
    Width = 265
    Height = 21
    DataField = #32844#21153
    DataSource = DataSource1
    TabOrder = 9
  end
  object DBEdit9: TDBEdit
    Left = 88
    Top = 226
    Width = 265
    Height = 21
    DataField = #32844#31216
    DataSource = DataSource1
    TabOrder = 10
  end
  object DBEdit10: TDBEdit
    Left = 88
    Top = 260
    Width = 265
    Height = 21
    DataField = #21333#20301#21517#31216
    DataSource = DataSource1
    TabOrder = 11
  end
  object DBEdit11: TDBEdit
    Left = 88
    Top = 295
    Width = 265
    Height = 21
    DataField = #21333#20301#22320#22336
    DataSource = DataSource1
    TabOrder = 12
  end
  object btnSave: TButton
    Left = 176
    Top = 336
    Width = 75
    Height = 25
    Caption = #20445'  '#23384'(&S)'
    TabOrder = 13
    OnClick = btnSaveClick
  end
  object btnCancel: TButton
    Left = 272
    Top = 336
    Width = 75
    Height = 25
    Caption = #21462'  '#28040'(&C)'
    TabOrder = 14
    OnClick = btnCancelClick
  end
  object btnAdd: TButton
    Left = 80
    Top = 336
    Width = 75
    Height = 25
    Caption = #22686'  '#21152'(&A)'
    Enabled = False
    TabOrder = 15
    Visible = False
    OnClick = btnAddClick
  end
  object DBComboBox2: TDBComboBox
    Left = 248
    Top = 56
    Width = 105
    Height = 21
    Style = csDropDownList
    DataField = #29366#24577
    DataSource = DataSource1
    ItemHeight = 13
    Items.Strings = (
      #27491#24120
      #26242#20572)
    TabOrder = 4
  end
  object DataSource1: TDataSource
    DataSet = ADOQryExpert
    Left = 32
    Top = 328
  end
  object ADOQryExpert: TADOQuery
    Connection = frmMain.ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from Expert')
    Top = 328
    object ADOQryExpertID: TWideStringField
      FieldName = #19987#23478'ID'
      Required = True
      Size = 4
    end
    object ADOQryExpertDSDesigner: TBooleanField
      FieldName = #36873#20013
    end
    object ADOQryExpertID2: TWideStringField
      FieldName = #32452'ID'
      Required = True
      Size = 2
    end
    object ADOQryExpertDSDesigner2: TWideStringField
      FieldName = #22995#21517
      Required = True
      Size = 50
    end
    object ADOQryExpertDSDesigner11: TWideStringField
      FieldName = #29366#24577
      Size = 50
    end
    object ADOQryExpertDSDesigner3: TWideStringField
      FieldName = #24615#21035
      Required = True
      Size = 2
    end
    object ADOQryExpertDSDesigner4: TDateTimeField
      FieldName = #20986#29983#26085#26399
      EditMask = '!9999/99/00;1;_'
    end
    object ADOQryExpertDSDesigner5: TWideStringField
      FieldName = #25163#26426
      Size = 50
    end
    object ADOQryExpertDSDesigner6: TWideStringField
      FieldName = #30005#35805
      Size = 50
    end
    object ADOQryExpertDSDesigner7: TWideStringField
      FieldName = #32844#21153
      Size = 50
    end
    object ADOQryExpertDSDesigner8: TWideStringField
      FieldName = #32844#31216
      Size = 50
    end
    object ADOQryExpertDSDesigner9: TWideStringField
      FieldName = #21333#20301#21517#31216
      Size = 50
    end
    object ADOQryExpertDSDesigner10: TWideStringField
      FieldName = #21333#20301#22320#22336
      Size = 50
    end
  end
  object ADOQryMaxID: TADOQuery
    Parameters = <>
  end
end