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

object MainForm: TMainForm 
  Left = 276 
  Top = 107 
  Width = 548 
  Height = 532 
  Caption = 'Excel Via ADO' 
  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 = 540 
    Height = 505 
    ActivePage = ViewSheet 
    Align = alClient 
    TabIndex = 0 
    TabOrder = 0 
    object ViewSheet: TTabSheet 
      Caption = 'View && Edit' 
      object Panel1: TPanel 
        Left = 0 
        Top = 0 
        Width = 532 
        Height = 41 
        Align = alTop 
        BevelOuter = bvNone 
        TabOrder = 0 
        object DBNavigator1: TDBNavigator 
          Left = 288 
          Top = 8 
          Width = 225 
          Height = 25 
          DataSource = MainDm.ExcelSrc 
          VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbEdit, nbPost, nbCancel] 
          TabOrder = 0 
        end 
        object RefreshBtn: TButton 
          Left = 204 
          Top = 8 
          Width = 75 
          Height = 25 
          Caption = 'Refresh' 
          TabOrder = 1 
          OnClick = RefreshBtnClick 
        end 
        object LoadBtn: TButton 
          Left = 105 
          Top = 8 
          Width = 75 
          Height = 25 
          Caption = 'Load Recs' 
          TabOrder = 2 
          OnClick = LoadBtnClick 
        end 
        object CreateBtn: TButton 
          Left = 8 
          Top = 8 
          Width = 75 
          Height = 25 
          Caption = 'Create' 
          TabOrder = 3 
          OnClick = CreateBtnClick 
        end 
      end 
      object ExcelGrid: TDBGrid 
        Left = 0 
        Top = 41 
        Width = 532 
        Height = 417 
        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 = 458 
        Width = 532 
        Height = 19 
        Panels = <> 
        SimplePanel = False 
      end 
    end 
    object SQLSheet: TTabSheet 
      Caption = 'SQL' 
      ImageIndex = 1 
      object InsertBtn: TButton 
        Left = 96 
        Top = 44 
        Width = 141 
        Height = 25 
        Caption = 'Insert Query' 
        TabOrder = 0 
        OnClick = InsertBtnClick 
      end 
      object UpdateBtn: TButton 
        Left = 276 
        Top = 44 
        Width = 141 
        Height = 25 
        Caption = 'Update Query' 
        TabOrder = 1 
        OnClick = UpdateBtnClick 
      end 
    end 
  end 
end