unit1.dfm

DBGridEh多表头输出到Excel.zip

object Form1: TForm1
  Left = 244
  Top = 179
  Width = 696
  Height = 480
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object DBGridEh1: TDBGridEh
    Left = 0
    Top = 49
    Width = 688
    Height = 404
    Align = alClient
    DataSource = DataSource1
    Flat = True
    FooterColor = clWindow
    FooterFont.Charset = DEFAULT_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -11
    FooterFont.Name = 'MS Sans Serif'
    FooterFont.Style = []
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    UseMultiTitle = True
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 688
    Height = 49
    Align = alTop
    BevelInner = bvLowered
    TabOrder = 1
    object ComboBox1: TComboBox
      Left = 8
      Top = 14
      Width = 89
      Height = 21
      ItemHeight = 13
      TabOrder = 0
      Text = 'ComboBox1'
      OnChange = ComboBox1Change
    end
    object Edit1: TEdit
      Left = 108
      Top = 14
      Width = 193
      Height = 21
      TabOrder = 1
    end
    object Button1: TButton
      Left = 308
      Top = 12
      Width = 75
      Height = 25
      Caption = #25913#26631#39064
      TabOrder = 2
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 392
      Top = 12
      Width = 109
      Height = 25
      Caption = #36755#20986#34920#22836#21040'Excel'
      TabOrder = 3
      OnClick = Button2Click
    end
  end
  object ADOConnection1: TADOConnection
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Se' +
      'ttings\administrator\'#26700#38754'\'#32593#21451#27979#35797'\test.mdb;Persist Security Info=Fals' +
      'e'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 28
    Top = 164
  end
  object ADOQuery1: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from aa')
    Left = 56
    Top = 164
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 84
    Top = 164
  end
  object ExcelApplication1: TExcelApplication
    AutoConnect = False
    ConnectKind = ckRunningOrNew
    AutoQuit = False
    Left = 336
    Top = 228
  end
  object ExcelWorksheet1: TExcelWorksheet
    AutoConnect = False
    ConnectKind = ckRunningOrNew
    Left = 348
    Top = 244
  end
  object ExcelWorkbook1: TExcelWorkbook
    AutoConnect = False
    ConnectKind = ckRunningOrNew
    Left = 360
    Top = 252
  end
end