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

object MainForm: TMainForm 
  Left = 302 
  Top = 117 
  Width = 728 
  Height = 512 
  Caption = 'Excel Automation' 
  Color = clBtnFace 
  Font.Charset = DEFAULT_CHARSET 
  Font.Color = clWindowText 
  Font.Height = -11 
  Font.Name = 'MS Sans Serif' 
  Font.Style = [] 
  OldCreateOrder = False 
  PixelsPerInch = 96 
  TextHeight = 13 
  object PageControl1: TPageControl 
    Left = 0 
    Top = 0 
    Width = 720 
    Height = 485 
    ActivePage = TabSheet1 
    Align = alClient 
    TabIndex = 0 
    TabOrder = 0 
    object TabSheet1: TTabSheet 
      Caption = 'Automation' 
      object Panel1: TPanel 
        Left = 0 
        Top = 0 
        Width = 712 
        Height = 41 
        Align = alTop 
        BevelInner = bvLowered 
        TabOrder = 0 
        object CreateBtn: TButton 
          Left = 96 
          Top = 8 
          Width = 75 
          Height = 25 
          Caption = 'Create' 
          TabOrder = 0 
          OnClick = CreateBtnClick 
        end 
        object ConnectBtn: TButton 
          Left = 8 
          Top = 8 
          Width = 75 
          Height = 25 
          Caption = 'Connect' 
          TabOrder = 1 
          OnClick = ConnectBtnClick 
        end 
        object OpenBtn: TButton 
          Left = 272 
          Top = 8 
          Width = 75 
          Height = 25 
          Caption = 'Open' 
          TabOrder = 2 
          OnClick = OpenBtnClick 
        end 
        object LoadBtn: TButton 
          Left = 184 
          Top = 8 
          Width = 75 
          Height = 25 
          Caption = 'Load' 
          TabOrder = 3 
          OnClick = LoadBtnClick 
        end 
        object DBNavigator1: TDBNavigator 
          Left = 588 
          Top = 8 
          Width = 116 
          Height = 25 
          DataSource = MainDm.ExcelSrc 
          VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast] 
          TabOrder = 4 
        end 
      end 
      object DBGrid1: TDBGrid 
        Left = 0 
        Top = 41 
        Width = 712 
        Height = 397 
        Align = alClient 
        DataSource = MainDm.ExcelSrc 
        TabOrder = 1 
        TitleFont.Charset = DEFAULT_CHARSET 
        TitleFont.Color = clWindowText 
        TitleFont.Height = -11 
        TitleFont.Name = 'MS Sans Serif' 
        TitleFont.Style = [] 
      end 
      object StatusBar: TStatusBar 
        Left = 0 
        Top = 438 
        Width = 712 
        Height = 19 
        Panels = <> 
        SimplePanel = False 
      end 
    end 
  end 
end