uiwflexcel.dfm

Delphi/BCB 各种版本都支持的Excel 读写控件.一成功应用在N个项目中 .

object IWForm1: TIWForm1
  Left = 0
  Top = 0
  Width = 555
  Height = 438
  SupportedBrowsers = [brIE, brNetscape6, brOpera]
  Background.Fixed = False
  HandleTabs = False
  DesignLeft = 184
  DesignTop = 181
  object IWButton1: TIWButton
    Left = 16
    Top = 14
    Width = 169
    Height = 25
    Cursor = crAuto
    IW50Hint = False
    ParentShowHint = False
    ShowHint = True
    ZIndex = 0
    ButtonType = btButton
    Caption = 'See Report'
    Color = clBtnFace
    DoSubmitValidation = True
    Font.BackColor = clNone
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    ScriptEvents = <>
    TabOrder = 0
    OnClick = IWButton1Click
  end
  object IWButton2: TIWButton
    Left = 16
    Top = 78
    Width = 169
    Height = 25
    Cursor = crAuto
    IW50Hint = False
    ParentShowHint = False
    ShowHint = True
    ZIndex = 0
    ButtonType = btButton
    Caption = 'Download Report'
    Color = clBtnFace
    DoSubmitValidation = True
    Font.BackColor = clNone
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    ScriptEvents = <>
    TabOrder = 1
    OnClick = IWButton2Click
  end
  object IWLabel2: TIWLabel
    Left = 16
    Top = 110
    Width = 297
    Height = 16
    Cursor = crAuto
    IW50Hint = False
    ParentShowHint = False
    ShowHint = True
    ZIndex = 0
    Alignment = taLeftJustify
    Color = clNone
    Font.BackColor = clNone
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    NoWrap = False
    Caption = 'This will download the report to your computer'
  end
  object IWText1: TIWText
    Left = 16
    Top = 46
    Width = 449
    Height = 19
    Cursor = crAuto
    IW50Hint = False
    ParentShowHint = False
    ShowHint = True
    ZIndex = 0
    ConvertSpaces = False
    Font.BackColor = clNone
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    Lines.Strings = (
      
        'This will show the report on the browser, if you have Excel inst' +
        'alled')
    RawText = False
    UseFrame = False
    WantReturns = True
  end
  object IWButton3: TIWButton
    Left = 16
    Top = 192
    Width = 121
    Height = 25
    Cursor = crAuto
    IW50Hint = False
    ParentShowHint = False
    ShowHint = True
    ZIndex = 0
    ButtonType = btButton
    Caption = 'Show Cell A1'
    Color = clBtnFace
    DoSubmitValidation = True
    Font.BackColor = clNone
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    ScriptEvents = <>
    TabOrder = 2
    OnClick = IWButton3Click
  end
  object IWFile1: TIWFile
    Left = 16
    Top = 168
    Width = 177
    Height = 21
    Cursor = crAuto
    IW50Hint = False
    ParentShowHint = False
    ShowHint = True
    ZIndex = 0
    Alignment = taLeftJustify
    BGColor = clNone
    FocusColor = clNone
    DoSubmitValidation = True
    Editable = True
    Font.BackColor = clNone
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    FriendlyName = 'IWFile1'
    MaxLength = 0
    ReadOnly = False
    Required = False
    ScriptEvents = <>
    TabOrder = 3
  end
  object IWLabel1: TIWLabel
    Left = 16
    Top = 222
    Width = 448
    Height = 16
    Cursor = crAuto
    IW50Hint = False
    ParentShowHint = False
    ShowHint = True
    ZIndex = 0
    Alignment = taLeftJustify
    Color = clNone
    Font.BackColor = clNone
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    NoWrap = False
    Caption = 
      'Select an Excel file and press this button to see the contents o' +
      'f cell A1'
  end
  object Report: TFlexCelReport
    Template = 'IWTemplate.xls'
    AutoClose = False
    Adapter = XLSAdapter
    DateTimeFormat = 'mm/dd/yyyy hh:mm'
    DataModule = Owner
    Left = 280
    Top = 72
  end
  object XLSAdapter: TXLSAdapter
    Left = 248
    Top = 72
  end
  object Cust: TTable
    DatabaseName = 'DBDEMOS'
    TableName = 'customer.db'
    Left = 312
    Top = 72
  end
  object DataSource1: TDataSource
    DataSet = Cust
    Left = 344
    Top = 72
  end
  object FlexCelImport: TFlexCelImport
    Adapter = XLSAdapter
    Left = 280
    Top = 104
  end
end