unit1.dfm

delphi 读 excel ,并生成各种文件。

object frmmain: Tfrmmain
  Left = 208
  Top = 196
  Width = 481
  Height = 371
  Caption = 'frmmain'
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object dxpage: TdxPageControl
    Left = 0
    Top = 0
    Width = 473
    Height = 264
    Align = alClient
    HideButtons = False
    HotTrack = False
    MultiLine = False
    OwnerDraw = False
    RaggedRight = False
    ScrollOpposite = False
    TabHeight = 0
    TabOrder = 0
    TabPosition = dxtpTop
    TabWidth = 0
  end
  object GroupBox1: TGroupBox
    Left = 0
    Top = 264
    Width = 473
    Height = 80
    Align = alBottom
    TabOrder = 1
    DesignSize = (
      473
      80)
    object Label1: TLabel
      Left = 120
      Top = 56
      Width = 24
      Height = 12
      Caption = #26684#24335
    end
    object Label2: TLabel
      Left = 256
      Top = 56
      Width = 24
      Height = 12
      Caption = #26679#24335
    end
    object btnReadExcel: TButton
      Left = 16
      Top = 16
      Width = 89
      Height = 25
      Caption = #35835#21462'Excel'
      TabOrder = 0
      OnClick = btnReadExcelClick
    end
    object btnQuit: TButton
      Left = 384
      Top = 16
      Width = 75
      Height = 25
      Anchors = [akTop, akRight]
      Caption = #36864#20986
      TabOrder = 1
      OnClick = btnQuitClick
    end
    object chk: TCheckBox
      Left = 120
      Top = 22
      Width = 233
      Height = 17
      Caption = 'First row has column title'
      Checked = True
      State = cbChecked
      TabOrder = 2
    end
    object btnExportWord: TButton
      Left = 16
      Top = 48
      Width = 89
      Height = 25
      Caption = #20445#23384#21040'Word'
      TabOrder = 3
      OnClick = btnExportWordClick
    end
    object cbSaveFormat: TComboBox
      Left = 152
      Top = 52
      Width = 97
      Height = 20
      Style = csDropDownList
      ItemHeight = 12
      TabOrder = 4
    end
    object cbstyle: TComboBox
      Left = 296
      Top = 52
      Width = 161
      Height = 20
      Style = csDropDownList
      ItemHeight = 12
      TabOrder = 5
    end
  end
  object OpenDialog1: TOpenDialog
    Filter = 'Excel|*.xls;*.csv|All|*.*'
    Left = 280
    Top = 32
  end
end