unitexportexcel.dfm

此程序是可以将数据库表中的数据导出转为EXCEL、也可将EXCEL中的数据导入至数据库的表中。

object FrmExportExcel: TFrmExportExcel
  Left = 141
  Top = 182
  Width = 749
  Height = 480
  Caption = 'FrmExportExcel'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 741
    Height = 41
    Align = alTop
    TabOrder = 0
    object Label1: TLabel
      Left = 184
      Top = 15
      Width = 24
      Height = 13
      Caption = #34920#21517
    end
    object Button1: TButton
      Left = 22
      Top = 6
      Width = 123
      Height = 29
      Caption = #25171#24320'Excel'#25991#20214
      TabOrder = 0
      OnClick = Button1Click
    end
    object ComboBox1: TComboBox
      Left = 217
      Top = 11
      Width = 128
      Height = 21
      ItemHeight = 13
      TabOrder = 1
      OnChange = ComboBox1Change
      OnKeyPress = ComboBox1KeyPress
    end
    object Button2: TButton
      Left = 376
      Top = 8
      Width = 137
      Height = 25
      Caption = #23548#20837#25968#25454
      TabOrder = 2
      OnClick = Button2Click
    end
  end
  object PageControl1: TPageControl
    Left = 0
    Top = 41
    Width = 741
    Height = 405
    ActivePage = TabSheet1
    Align = alClient
    TabOrder = 1
    TabPosition = tpBottom
    object TabSheet1: TTabSheet
      Caption = #36716#25442#37197#32622
      object Splitter1: TSplitter
        Left = 0
        Top = 203
        Width = 733
        Height = 6
        Cursor = crVSplit
        Align = alBottom
      end
      object Panel2: TPanel
        Left = 0
        Top = 209
        Width = 733
        Height = 170
        Align = alBottom
        Caption = 'Panel2'
        TabOrder = 0
        object GroupBox1: TGroupBox
          Left = 1
          Top = 1
          Width = 255
          Height = 168
          Align = alLeft
          Caption = #25968#25454#36716#25442#23545#24212
          TabOrder = 0
          object Panel3: TPanel
            Left = 113
            Top = 15
            Width = 24
            Height = 151
            Align = alLeft
            BevelOuter = bvNone
            Caption = '=>'
            TabOrder = 0
          end
          object DFIeldValue: TDBMemo
            Left = 137
            Top = 15
            Width = 116
            Height = 151
            Align = alClient
            DataField = 'DFIeldValue'
            DataSource = DS_PZ
            TabOrder = 1
          end
          object SFIeldValue: TDBMemo
            Left = 2
            Top = 15
            Width = 111
            Height = 151
            Align = alLeft
            DataField = 'SFIeldValue'
            DataSource = DS_PZ
            TabOrder = 2
          end
        end
        object DG_PZ: TDBGridEh
          Left = 256
          Top = 1
          Width = 476
          Height = 168
          Align = alClient
          DataSource = DS_PZ
          Flat = True
          FooterColor = clWindow
          FooterFont.Charset = DEFAULT_CHARSET
          FooterFont.Color = clWindowText
          FooterFont.Height = -11
          FooterFont.Name = 'MS Sans Serif'
          FooterFont.Style = []
          PopupMenu = PopupMenu1
          TabOrder = 1
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          UseMultiTitle = True
          Columns = <
            item
              EditButtons = <>
              FieldName = 'SFieldName'
              Footers = <>
              Title.Caption = 'Excel'#23383#27573
              Width = 102
            end
            item
              EditButtons = <>
              FieldName = 'DFieldName'
              Footers = <>
              Title.Caption = #34920#23383#27573
              Width = 105
            end
            item
              EditButtons = <>
              FieldName = 'DataType'
              Footers = <>
              Title.Caption = #25968#25454#31867#22411
              Width = 109
            end
            item
              EditButtons = <>
              FieldName = 'IsKey'
              Footers = <>
              Title.Caption = #26159#21542#26159#20851#38190#23383
              Width = 132
            end>
        end
      end
      object DBGridEh1: TDBGridEh
        Left = 0
        Top = 0
        Width = 733
        Height = 203
        Align = alClient
        DataSource = DataSource1
        Flat = True
        FooterColor = clWindow
        FooterFont.Charset = DEFAULT_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -11
        FooterFont.Name = 'MS Sans Serif'
        FooterFont.Style = []
        TabOrder = 1
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
      end
    end
    object TabSheet3: TTabSheet
      Caption = #36716#25442#20449#24687
      ImageIndex = 2
      object MEMO_Info: TMemo
        Left = 0
        Top = 0
        Width = 733
        Height = 363
        Align = alClient
        Lines.Strings = (
          'Memo3')
        TabOrder = 0
      end
      object Pbar: TProgressBar
        Left = 0
        Top = 363
        Width = 733
        Height = 16
        Align = alBottom
        TabOrder = 1
      end
    end
  end
  object OpenDialog1: TOpenDialog
    DefaultExt = 'XLS'
    Filter = '*.XLS|*.XLS'
    Left = 544
    Top = 168
  end
  object ClientDataSet1: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 96
    Top = 136
  end
  object DataSource1: TDataSource
    DataSet = ClientDataSet1
    Left = 128
    Top = 136
  end
  object CDS_PZ: TClientDataSet
    Aggregates = <>
    Params = <>
    BeforePost = CDS_PZBeforePost
    OnNewRecord = CDS_PZNewRecord
    Left = 96
    Top = 172
  end
  object DS_PZ: TDataSource
    DataSet = CDS_PZ
    Left = 128
    Top = 172
  end
  object ADO_Data: TADOQuery
    Connection = DM.ADOConnection1
    AfterOpen = ADO_DataAfterOpen
    OnPostError = ADO_DataPostError
    Parameters = <>
    Left = 96
    Top = 208
  end
  object PopupMenu1: TPopupMenu
    Left = 128
    Top = 208
    object N1: TMenuItem
      Caption = #20445#23384#37197#32622#20449#24687
      OnClick = N1Click
    end
    object N2: TMenuItem
      Caption = #25171#24320#37197#32622#20449#24687
      OnClick = N2Click
    end
  end
end