extractresult.~dfm

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

object frmExtractResult: TfrmExtractResult
  Left = 217
  Top = 205
  Width = 708
  Height = 445
  Caption = #25277#21462#32467#26524
  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
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 48
    Top = 40
    Width = 60
    Height = 13
    Caption = #39033#30446#32534#21495#65306
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 48
    Top = 72
    Width = 60
    Height = 13
    Caption = #39033#30446#21517#31216#65306
  end
  object Label3: TLabel
    Left = 256
    Top = 168
    Width = 48
    Height = 13
    Caption = #39033#30446#32534#21495
  end
  object DBGridResult: TDBGrid
    Left = 11
    Top = 96
    Width = 678
    Height = 257
    DataSource = DataSource3
    ReadOnly = True
    TabOrder = 0
    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'
        Title.Alignment = taCenter
        Width = 38
        Visible = True
      end
      item
        Expanded = False
        FieldName = #32452'ID'
        Title.Alignment = taCenter
        Visible = True
      end
      item
        Expanded = False
        FieldName = #22995#21517
        Title.Alignment = taCenter
        Width = 55
        Visible = True
      end
      item
        Expanded = False
        FieldName = #24615#21035
        Visible = True
      end
      item
        Expanded = False
        FieldName = #25163#26426
        Title.Alignment = taCenter
        Width = 82
        Visible = True
      end
      item
        Expanded = False
        FieldName = #30005#35805
        Title.Alignment = taCenter
        Width = 101
        Visible = True
      end
      item
        Expanded = False
        FieldName = #32844#21153
        Title.Alignment = taCenter
        Width = 186
        Visible = True
      end
      item
        Expanded = False
        FieldName = #32844#31216
        Title.Alignment = taCenter
        Width = 111
        Visible = True
      end
      item
        Expanded = False
        FieldName = #21333#20301#21517#31216
        Title.Alignment = taCenter
        Width = 177
        Visible = True
      end>
  end
  object CheckBox1: TCheckBox
    Left = 344
    Top = 40
    Width = 81
    Height = 17
    Caption = #35780#26631#26102#38388
    TabOrder = 1
  end
  object CheckBox2: TCheckBox
    Left = 344
    Top = 72
    Width = 81
    Height = 17
    Caption = #35780#26631#22320#28857
    TabOrder = 2
  end
  object DateTimePicker1: TDateTimePicker
    Left = 432
    Top = 40
    Width = 113
    Height = 21
    CalAlignment = dtaLeft
    Date = 38786.525527338
    Time = 38786.525527338
    DateFormat = dfLong
    DateMode = dmComboBox
    Kind = dtkDate
    ParseInput = False
    TabOrder = 3
  end
  object DateTimePicker2: TDateTimePicker
    Left = 552
    Top = 40
    Width = 89
    Height = 21
    CalAlignment = dtaLeft
    Date = 38786.5262313657
    Time = 38786.5262313657
    DateFormat = dfLong
    DateMode = dmComboBox
    Kind = dtkTime
    ParseInput = False
    TabOrder = 4
  end
  object btnToWord: TButton
    Left = 32
    Top = 372
    Width = 97
    Height = 25
    Caption = #23548#20986'->Word'
    TabOrder = 5
    OnClick = btnToWordClick
  end
  object btnToExcel: TButton
    Left = 152
    Top = 372
    Width = 97
    Height = 25
    Caption = #23548#20986'->Excel'
    TabOrder = 6
    OnClick = btnToExcelClick
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 700
    Height = 35
    ButtonHeight = 31
    ButtonWidth = 97
    Caption = 'ToolBar1'
    TabOrder = 7
    object BitBtnSave: TBitBtn
      Left = 0
      Top = 2
      Width = 97
      Height = 31
      Caption = #20445#23384#39033#30446
      TabOrder = 0
      OnClick = BitBtnSaveClick
      Glyph.Data = {
        96010000424D9601000000000000760000002800000018000000180000000100
        0400000000002001000000000000000000001000000000000000000000008000
        00000080000080800000000080008000800000808000C0C0C000C0DCC000A6CA
        F000FFFBF000A0A0A40080808000FF00000000FF0000FFFF0000777777777777
        77777777777770000000000000000000000070C0898898988989889890C070C0
        7A9A7A7A7A7A7A7A80C070C0A000A0A0AA0AA000A0C070C0AAA0A0A0A0A0A0AA
        A0C070C0A000A000A0A0A000A0C070C0A0AAA0A0A0A0A0AAA0C070C0A000A000
        A0A0A000A0C070C0AAAAAAAAAAAAAAAAA0C070C0AAAAAAAAAAAAAAAAA0C070C0
        AAAAAAAAAAAAAAAAA0C070C0AAAAAAAAAAAAAAAAA0C070CC0000000000000000
        0CC070CCCCCCCCCCCCCCCCCCCCC070CC00000000000000CC0CC070C0CCCC0777
        B77B7B0CCCC070C0C0C07B777000070CCCC070C0CCC077B770CC0B0CC0C070C0
        C0C0777B703C070CCCC070C0CCC077777000070CCCC070C02CC077777777B70C
        CCC0700000000000000000000000777777777777777777777777}
    end
    object ToolButton3: TToolButton
      Left = 97
      Top = 2
      Width = 8
      Caption = 'ToolButton3'
      ImageIndex = 2
      Style = tbsSeparator
    end
    object BitBtnCancel: TBitBtn
      Left = 105
      Top = 2
      Width = 96
      Height = 31
      Caption = #21462'    '#28040
      TabOrder = 1
      OnClick = BitBtnCancelClick
      Glyph.Data = {
        F6060000424DF606000000000000360000002800000018000000180000000100
        180000000000C006000000000000000000000000000000000000C4C4C4C1C1C1
        D5D5D59191911111110303030303030202030505060505060202020202020303
        03020202020202060607040406020202040404020202505050CDCDCDC8C8C8C3
        C3C3BFBFBFCDCDCD8E8E8E0F0F0F020202010101030303010101010101020202
        02020509090F0B0B1108080E0101030202020101010101010303030202020404
        04484848C8C8C8C3C3C3BFBFBFCFCFCF32323202020204040401010102020205
        050A29293F54547870709C7F7FAD8383B07F7FAC6E6E98505071232336010104
        020202010101020202020202A1A1A1CCCCCCBFBFBFD0D0D06565650303030202
        0202020227273A6566879394BCAAABD6B4B4E0B9B9E3BBBBE5B9B9E3B4B4E1AB
        ABD99393BF616186202032020202020202181818BCBCBCC6C6C6C3C3C3C5C5C5
        C2C2C26B6B691B1B2033335B7578939498A5A4A6B6ACACC7B0B0DAB1B1E6B1B1
        E9B1B1E8B0B0E6ACADD7A4A5BD9697AF7677A029294C3C3C3DA8A8A7CACACAC2
        C2C2C4C4C4C2C2C2CACAC9C0C0C44545805B5D9282919B8F9FA4909CA49098A5
        9193B19393D19494E59393E59393D69293B68F99A38B979F81869B595B966262
        90CACAC9C4C4C4C3C3C4C3C3C3C4C4C4C5C5C33B3B722D2C8C5D6CA873AEBD7F
        B2C07DA7B277949E6E808D6F72997272C07172BF6E709D6F7D8C7A929B77A1AA
        6C9BAF6065AF2828825A5A82CECECAC2C2C3BEBEC0D1D1CC66668806076A3734
        AD475BBF7FC6DC9DE0E679C9DB62ADC05689964964764A4C76484D74495F7058
        859161A8BB6FC7D4569DCE4547BE3636A70A0A6488889DCFCFCBCACAC9B6B6BA
        10105E0E0E8A2222B62C2CCA424FCE7796D49DD5E166C9DB41A6BC377B8B2A53
        652F58693F79873CA2B856C6D96FC3DD364DC82A26C72324B108087D2B2B69C7
        C7C5DFDFD67777920202600F0F9E1212BB1616CA1412CE110FCB445FC775C5D9
        3DBBD2329EB637879C36869B2398B038BAD26BC7DD3158C61512CA1617C91212
        B60D0E9504045C9999A7DBDBD24242750101700B0BA70A0ABF0B0BC90D0ECA0B
        0CCD0704C1306ABE38B8D31EAEC927A5BF1DA5BE38BCD359C2DF1B53A90404A6
        0C0CC10B0BC70A0ABB0C0CA1010165676788C9C9C424246701017D0909AB0808
        C10909C80909C80809C90805C70C2BAA1495C90DACC906ADC83EB9D247A9C808
        4B7C010C4C040B5D07098F0909BF0808BE0A0AA7010170454576C9C9C326266A
        0202820A0AAF0909C10A0AC60B0BC7090AC70907C9091EAB0987C309A8C904AD
        C60BACC70392B30D75900B5D7302374F051860090BB30909C10B0BA902027546
        4678C9C9C326266A0101800909AD0707C00808C50909C50909C60908C80911B3
        0D77BF10A2C90EABC411ABC432B1C747B5CB36A3BD159BAF035D9F0706B50809
        C00B0BA8010175464679C7C7C323236601017D0909AA0808BE0808C40808C408
        08C4090AC60806BE1E5DBA3FACCE249AC03CACC779C3D586C1D48DCCD472CAD4
        154CC00601C0090ABB0A0AA5010170434375D5D5CD36366D0202710A0AA40808
        B90A0AC20A0AC30909C30A0AC30907C41020B95BA2C87BC4D86AB5D32F519C1E
        269F3F50BE465CC20E0EC00908C10809B60B0B9E02026458587FE2E2D7646485
        01015F0A0A990606B20707BE0808C10707C10707C2090AC20401C2192AB85079
        A9265B8501296402106501019C0101C10707C10607BD0606AD08089101015887
        879BD2D2CEA3A3AE0303550606850707A60D0DBA0E0EC00D0DC20D0DC20F0FC2
        0F0FC50B07B1042A781C74942B748D12536C0B1B7C0F0FBF0F0FC00C0CB70707
        A103037916165BBCBCBEC0C0C1CFCFCB4848750303621B1B9E2F2FBA2F2FC32E
        2EC72E2EC82F30C82F2FCB2E2DB62E82B247AABB4E8AA2398E9C2952982E2AC2
        2F30C32E2EB61414950303586B6B8AD1D1CDC1C1C2C9C9C7B4B4B80C0C532424
        876161BF5656C65959CF5959D15959D2595AD45856CC5E9CD070C7D77AC3D368
        C3D65A7DC75955CC5657C46060BC0E0E7423235FC7C7C5C4C4C4C4C4C4C1C1C2
        D0D0CC8A8A9E0D0D5A8787C08E8ED08484D28989D98A8ADC898ADD8786DD96A1
        DABFD7E3CBE0E4B2C9DF8B91D68382D09595D27272AE0E0E56AAAAB1CBCBC9C2
        C2C3C4C4C4C4C4C4C0C0C2D4D4CE8080973C3C75B9B9D7C7C7E8B7B7E0B5B5E1
        B5B5E3B5B5E5B6B5E5C0C2E3C7CAE3BBBBDFB8B7E1CBCBE9A6A6C832326C9E9E
        AAD0D0CCC1C1C2C4C4C4C4C4C4C4C4C4C4C4C4C1C1C2D2D2CD8B8B9E52527FA1
        A1BEE1E1EEF0F0FAF0F0FAEEEEF9EDEEF9ECECF9EDEDFAEEEEF9DADBE98F8FB1
        50507CA1A1ACD0D0CCC0C0C1C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4C1C1
        C2D0D0CCB7B7BB68688867678B8E8EABAEAEC4BFBFD2C4C4D5BEBED0A9A9C086
        86A561618673738FC4C4C3CDCDCAC1C1C2C4C4C4C4C4C4C4C4C4}
    end
  end
  object btnAdd: TButton
    Left = 272
    Top = 372
    Width = 97
    Height = 25
    Caption = #22686'  '#21152'(&A)'
    Enabled = False
    TabOrder = 8
    Visible = False
    OnClick = btnAddClick
  end
  object EditProID: TEdit
    Left = 112
    Top = 40
    Width = 185
    Height = 21
    TabOrder = 9
  end
  object EditProName: TEdit
    Left = 112
    Top = 72
    Width = 185
    Height = 21
    TabOrder = 10
  end
  object ComBoxAddr: TComboBox
    Left = 432
    Top = 72
    Width = 257
    Height = 21
    ItemHeight = 13
    TabOrder = 11
  end
  object ADOQryResult: TADOQuery
    Connection = frmMain.ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from Expert order by '#32452'ID asc,'#19987#23478'ID asc')
    Left = 8
    Top = 220
    object ADOQryResultID: TWideStringField
      DisplayWidth = 7
      FieldName = #19987#23478'ID'
      ReadOnly = True
      Size = 4
    end
    object ADOQryResultDSDesigner6: TWideStringField
      FieldName = #29366#24577
      ReadOnly = True
      Size = 50
    end
    object ADOQryResultID2: TWideStringField
      DisplayWidth = 5
      FieldName = #32452'ID'
      ReadOnly = True
      Size = 2
    end
    object ADOQryResultDSDesigner: TWideStringField
      DisplayWidth = 13
      FieldName = #22995#21517
      ReadOnly = True
      Size = 50
    end
    object ADOQryResultDSDesigner2: TWideStringField
      FieldName = #24615#21035
      Size = 2
    end
    object ADOQryResultDSDesigner4: TWideStringField
      DisplayWidth = 60
      FieldName = #25163#26426
      ReadOnly = True
      Size = 50
    end
    object ADOQryResultDSDesigner3: TWideStringField
      FieldName = #30005#35805
      Size = 50
    end
    object ADOQryResultDSDesigner5: TWideStringField
      FieldName = #32844#21153
      Size = 50
    end
    object ADOQryResultDSDesigner7: TWideStringField
      DisplayWidth = 60
      FieldName = #32844#31216
      ReadOnly = True
      Size = 50
    end
    object ADOQryResultDSDesigner8: TWideStringField
      DisplayWidth = 60
      FieldName = #21333#20301#21517#31216
      ReadOnly = True
      Size = 50
    end
  end
  object DataSource2: TDataSource
    DataSet = ADOQryProDetail
    Left = 16
    Top = 68
  end
  object ADOQryPro: TADOQuery
    Connection = frmMain.ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from ExtractPro order by '#39033#30446#32534#21495' asc')
    Top = 32
    object ADOQryProDSDesigner: TWideStringField
      FieldName = #39033#30446#32534#21495
      Size = 12
    end
    object ADOQryProDSDesigner2: TWideStringField
      FieldName = #39033#30446#21517#31216
      Size = 50
    end
    object ADOQryProDSDesigner3: TWideStringField
      FieldName = #35780#26631#22320#28857
      Size = 50
    end
    object ADOQryProDSDesigner4: TDateTimeField
      FieldName = #35780#26631#26102#38388
    end
    object ADOQryProDSDesigner5: TWideStringField
      FieldName = #25277#31614#20154
      Size = 50
    end
    object ADOQryProDSDesigner6: TDateTimeField
      FieldName = #25277#31614#26102#38388
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOQryPro
    Left = 16
    Top = 32
  end
  object ADOQryProDetail: TADOQuery
    Active = True
    Connection = frmMain.ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from ProDetail Order by '#39033#30446#32534#21495' asc, '#19987#23478'ID asc')
    Top = 64
    object ADOQryProDetailDSDesigner: TWideStringField
      FieldName = #39033#30446#32534#21495
      Size = 12
    end
    object ADOQryProDetailID: TWideStringField
      FieldName = #19987#23478'ID'
      Size = 5
    end
    object ADOQryProDetailID2: TWideStringField
      FieldName = #32452'ID'
      Size = 2
    end
    object ADOQryProDetailDSDesigner2: TWideStringField
      FieldName = #22995#21517
      Size = 50
    end
    object ADOQryProDetailDSDesigner3: TWideStringField
      FieldName = #24615#21035
      Size = 2
    end
    object ADOQryProDetailDSDesigner4: TWideStringField
      FieldName = #25163#26426
      Size = 50
    end
    object ADOQryProDetailDSDesigner5: TWideStringField
      FieldName = #30005#35805
      Size = 50
    end
    object ADOQryProDetailDSDesigner6: TWideStringField
      FieldName = #32844#21153
      Size = 50
    end
    object ADOQryProDetailDSDesigner7: TWideStringField
      FieldName = #32844#31216
      Size = 50
    end
    object ADOQryProDetailDSDesigner8: TWideStringField
      FieldName = #21333#20301#21517#31216
      Size = 50
    end
  end
  object DataSource3: TDataSource
    DataSet = ADOQryResult
    Left = 40
    Top = 224
  end
end