updateaccessdavid.~dfm

来自「ACCESSE和Excel之间的数据互换」· ~DFM 代码 · 共 124 行

object UpdateData: TUpdateData
  Left = 306
  Top = 238
  Width = 715
  Height = 307
  Caption = #23558'Excel'#25968#25454#23548#20837'Access'
  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 = 488
    Top = 72
    Width = 84
    Height = 13
    Caption = #26356'    '#26032'    '#23383'    '#27573
  end
  object btnOpenDataSourceXsl: TButton
    Left = 24
    Top = 72
    Width = 97
    Height = 25
    Caption = #25171#24320'Excel'#25991#20214
    TabOrder = 0
    OnClick = btnOpenDataSourceXslClick
  end
  object btnOpenTargetBataSourceMdb: TButton
    Left = 24
    Top = 136
    Width = 97
    Height = 25
    Caption = #36873#25321#30446#26631#25968#25454#24211
    TabOrder = 1
    OnClick = btnOpenTargetBataSourceMdbClick
  end
  object EdiDataSourcePathXsl: TEdit
    Left = 136
    Top = 72
    Width = 121
    Height = 21
    TabOrder = 2
    Text = 'DataSourcePath[*.xsl]'
  end
  object EdiTargetDataPath: TEdit
    Left = 136
    Top = 136
    Width = 121
    Height = 21
    TabOrder = 3
    Text = 'DataDestination[*.mdb]'
  end
  object CmbDataSourceXsl: TComboBox
    Left = 296
    Top = 72
    Width = 145
    Height = 21
    ItemHeight = 13
    TabOrder = 4
    Text = 'TableNameList'
  end
  object CbmDataTargerMdb: TComboBox
    Left = 296
    Top = 136
    Width = 145
    Height = 21
    ItemHeight = 13
    TabOrder = 5
    Text = 'TableNameList'
  end
  object ListBoxFields: TListBox
    Left = 488
    Top = 104
    Width = 121
    Height = 57
    ItemHeight = 13
    TabOrder = 6
  end
  object BtnExcUpdate: TButton
    Left = 488
    Top = 184
    Width = 105
    Height = 25
    Caption = ' '#24320#35774#25191#34892#26356#26032
    TabOrder = 7
    OnClick = BtnExcUpdateClick
  end
  object ProgressBarUpdate: TProgressBar
    Left = 32
    Top = 192
    Width = 409
    Height = 16
    Min = 0
    Max = 100
    TabOrder = 8
  end
  object ADOConDataSourceXsl: TADOConnection
    Left = 600
    Top = 72
  end
  object ADOConTargetDataMdb: TADOConnection
    Left = 600
    Top = 128
  end
  object ADOQueryDataSourceXsl: TADOQuery
    Parameters = <>
    Left = 648
    Top = 72
  end
  object ADOQueryTargetDataMdb: TADOQuery
    Parameters = <>
    Left = 648
    Top = 128
  end
  object OpenDialog: TOpenDialog
    Left = 496
    Top = 24
  end
end