frm_exp.dfm

查詢oracle數據表導出為excel表

object Form1: TForm1
  Left = 219
  Top = 114
  Width = 544
  Height = 375
  Caption = 'Form1'
  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 Label1: TLabel
    Left = 24
    Top = 216
    Width = 60
    Height = 13
    Caption = #21729#24037#32232#34399#65306
  end
  object Label2: TLabel
    Left = 27
    Top = 248
    Width = 57
    Height = 13
    Caption = '   '#22995'    '#21517#65306
  end
  object Label3: TLabel
    Left = 24
    Top = 280
    Width = 60
    Height = 13
    Caption = #20986#29983#26085#26399#65306
  end
  object DBGrid1: TDBGrid
    Left = 80
    Top = 64
    Width = 329
    Height = 129
    DataSource = DataSource1
    FixedColor = clGradientActiveCaption
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Color = clTeal
        Expanded = False
        FieldName = 'EMPNO'
        Title.Caption = #21729#24037#32232#34399
        Visible = True
      end
      item
        Color = clOlive
        Expanded = False
        FieldName = 'ENAME'
        Title.Caption = #22995#21517
        Visible = True
      end
      item
        Color = clYellow
        Expanded = False
        FieldName = 'HIREDATE'
        Title.Caption = #20986#29983#26085#26399
        Width = 90
        Visible = True
      end>
  end
  object Button1: TButton
    Left = 432
    Top = 304
    Width = 75
    Height = 25
    Caption = 'exp'
    TabOrder = 1
    OnClick = Button1Click
  end
  object edt_emplno: TEdit
    Left = 85
    Top = 216
    Width = 97
    Height = 21
    TabOrder = 2
  end
  object edt_name: TEdit
    Left = 85
    Top = 248
    Width = 97
    Height = 21
    TabOrder = 3
  end
  object edt_birth: TEdit
    Left = 85
    Top = 280
    Width = 97
    Height = 21
    TabOrder = 4
  end
  object Button2: TButton
    Left = 280
    Top = 256
    Width = 73
    Height = 33
    Caption = 'Search'
    TabOrder = 5
    OnClick = Button2Click
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 34
    Top = 16
  end
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=MSDAORA.1;Password=tiger;User ID=scott;Data Source=wang' +
      'db;Persist Security Info=True'
    LoginPrompt = False
    Provider = 'MSDAORA.1'
    Left = 8
    Top = 16
  end
  object ADOQuery1: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    Left = 64
    Top = 16
  end
end