www.pudn.com > Excel.zip > MainD.dfm

object MainDm: TMainDm 
  OldCreateOrder = False 
  OnDestroy = DataModuleDestroy 
  Left = 266 
  Top = 107 
  Height = 260 
  Width = 301 
  object ExcelApp: TExcelApplication 
    AutoConnect = False 
    ConnectKind = ckRunningOrNew 
    AutoQuit = True 
    Left = 32 
    Top = 28 
  end 
  object ExcelBook: TExcelWorkbook 
    AutoConnect = False 
    ConnectKind = ckRunningOrNew 
    Left = 100 
    Top = 28 
  end 
  object ExcelSheet: TExcelWorksheet 
    AutoConnect = False 
    ConnectKind = ckRunningOrNew 
    Left = 176 
    Top = 28 
  end 
  object DemoDb: TDatabase 
    AliasName = 'DBDemos' 
    Connected = True 
    DatabaseName = 'DemoData' 
    LoginPrompt = False 
    SessionName = 'Default' 
    Left = 32 
    Top = 104 
  end 
  object ItemsTable: TTable 
    DatabaseName = 'DemoData' 
    TableName = 'items.db' 
    Left = 100 
    Top = 104 
  end 
  object ExcelCds: TClientDataSet 
    Aggregates = <> 
    FieldDefs = < 
      item 
        Name = 'OrderNo' 
        DataType = ftInteger 
      end 
      item 
        Name = 'ItemNo' 
        DataType = ftInteger 
      end 
      item 
        Name = 'PartNo' 
        DataType = ftInteger 
      end 
      item 
        Name = 'Qty' 
        DataType = ftInteger 
      end 
      item 
        Name = 'Discount' 
        DataType = ftInteger 
      end> 
    IndexDefs = <> 
    Params = <> 
    ReadOnly = True 
    StoreDefs = True 
    Left = 32 
    Top = 160 
  end 
  object ExcelSrc: TDataSource 
    DataSet = ExcelCds 
    Left = 100 
    Top = 160 
  end 
end