dimain.dfm

导从文本文件或Excel导入数据到SQL SERVER中,自动匹配字段

object frmDIMain: TfrmDIMain
  Left = 296
  Top = 144
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsDialog
  Caption = #23548#20837#21521#23548
  ClientHeight = 373
  ClientWidth = 619
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 619
    Height = 326
    ActivePage = TabSheet4
    Align = alClient
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = #23548#20837#26041#24335
      object Label1: TLabel
        Left = 8
        Top = 56
        Width = 67
        Height = 16
        AutoSize = False
        Caption = #36873#25321#25991#20214
      end
      object RG_SourceType: TRadioGroup
        Left = 8
        Top = 8
        Width = 593
        Height = 38
        Caption = #23548#20837#36884#24452
        Columns = 2
        ItemIndex = 0
        Items.Strings = (
          #20174#25991#20214#23548#20837
          #39640#32423#23548#20837)
        TabOrder = 0
        OnClick = RG_SourceTypeClick
      end
      object dxBtnSelectFile: TdxButtonEdit
        Left = 80
        Top = 56
        Width = 521
        TabOrder = 1
        ReadOnly = True
        Buttons = <
          item
            Default = True
          end>
        OnButtonClick = dxBtnSelectFileButtonClick
        StoredValues = 64
        ExistButtons = True
      end
      object Panel2: TPanel
        Left = 0
        Top = 88
        Width = 611
        Height = 210
        Align = alBottom
        TabOrder = 2
        object Splitter1: TSplitter
          Left = 152
          Top = 1
          Height = 208
        end
        object DBGrid1: TDBGrid
          Left = 155
          Top = 1
          Width = 455
          Height = 208
          Align = alClient
          DataSource = DS_Table
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          OnDrawColumnCell = DBGrid1DrawColumnCell
        end
        object TV_DB: TTreeView
          Left = 1
          Top = 1
          Width = 151
          Height = 208
          Align = alLeft
          HideSelection = False
          Indent = 19
          TabOrder = 1
          OnChange = TV_DBChange
        end
      end
    end
    object TabSheet2: TTabSheet
      Caption = #21305#37197#21015
      ImageIndex = 1
      object DBGrid2: TDBGrid
        Left = 0
        Top = 0
        Width = 611
        Height = 298
        Align = alClient
        DataSource = DS_Match
        ImeName = #20013#25991' ('#31616#20307') - '#29579#30721#20116#31508#22411'86'#29256
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Color = clMoneyGreen
            Expanded = False
            FieldName = 'FieldCaption'
            ReadOnly = True
            Title.Caption = #30446#26631#25968#25454#24211#20013#30340#21015
            Width = 170
            Visible = True
          end
          item
            Color = clMoneyGreen
            Expanded = False
            FieldName = 'DataType'
            ReadOnly = True
            Title.Caption = #25968#25454#31867#22411
            Width = 127
            Visible = True
          end
          item
            Color = clMoneyGreen
            Expanded = False
            FieldName = 'DataSize'
            Title.Caption = #25968#25454#22823#23567
            Width = 100
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'SourceField'
            Title.Caption = #28304#25968#25454#24211#20013#30340#21015
            Width = 170
            Visible = True
          end>
      end
    end
    object TabSheet3: TTabSheet
      Caption = #23548#20837#36873#39033
      ImageIndex = 2
      object Label2: TLabel
        Left = 274
        Top = 16
        Width = 27
        Height = 21
        AutoSize = False
        Caption = #20174
      end
      object Label3: TLabel
        Left = 435
        Top = 16
        Width = 27
        Height = 21
        AutoSize = False
        Caption = #34892
      end
      object Label4: TLabel
        Left = 274
        Top = 49
        Width = 27
        Height = 21
        AutoSize = False
        Caption = #21040
      end
      object Label5: TLabel
        Left = 435
        Top = 49
        Width = 27
        Height = 21
        AutoSize = False
        Caption = #34892
      end
      object RadioGroup2: TRadioGroup
        Left = 16
        Top = 9
        Width = 212
        Height = 64
        Caption = #23548#20837#33539#22260
        ItemIndex = 0
        Items.Strings = (
          #20840#37096#35760#24405
          #37096#20998#35760#24405)
        TabOrder = 0
        OnClick = RadioGroup2Click
      end
      object dxSpinEdit1: TdxSpinEdit
        Left = 307
        Top = 16
        Width = 121
        Enabled = False
        TabOrder = 1
      end
      object dxSpinEdit2: TdxSpinEdit
        Left = 307
        Top = 49
        Width = 121
        Enabled = False
        TabOrder = 2
      end
      object GroupBox2: TGroupBox
        Left = 16
        Top = 86
        Width = 580
        Height = 180
        TabOrder = 3
        object Label8: TLabel
          Left = 16
          Top = 27
          Width = 131
          Height = 17
          AutoSize = False
          Caption = #35760#24405#21807#19968#24615#21028#26029#20381#25454
        end
        object RadioGroup4: TRadioGroup
          Left = 344
          Top = 18
          Width = 219
          Height = 147
          Caption = #26377#37325#22797#35760#24405#26102
          Enabled = False
          ItemIndex = 0
          Items.Strings = (
            #29992#26032#35760#24405#35206#30422#21407#35760#24405
            #19981#23548#20837#26032#35760#24405
            #20801#35768#23384#22312#37325#22797#35760#24405
            #32473#20986#25552#31034','#35753#29992#25143#36873#25321#25805#20316)
          TabOrder = 0
        end
        object CheckBox1: TCheckBox
          Left = 8
          Top = 1
          Width = 121
          Height = 17
          Caption = #35760#24405#21807#19968#24615#26816#26597
          TabOrder = 1
          OnClick = CheckBox1Click
        end
        object DBGrid3: TDBGrid
          Left = 16
          Top = 48
          Width = 312
          Height = 117
          DataSource = DS_RecCheck
          TabOrder = 2
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          OnCellClick = DBGrid3CellClick
          OnColEnter = DBGrid3ColEnter
          OnColExit = DBGrid3ColExit
          OnDrawColumnCell = DBGrid3DrawColumnCell
          Columns = <
            item
              Expanded = False
              FieldName = 'Selected'
              Title.Caption = #36873#25321
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'TargetField'
              Title.Caption = #23383#27573
              Width = 211
              Visible = True
            end>
        end
      end
    end
    object TabSheet4: TTabSheet
      Caption = #24320#22987#23548#20837
      ImageIndex = 3
      object Label6: TLabel
        Left = 12
        Top = 26
        Width = 60
        Height = 17
        AutoSize = False
        Caption = #23548#20837#36827#24230
      end
      object Label7: TLabel
        Left = 12
        Top = 51
        Width = 60
        Height = 17
        AutoSize = False
        Caption = #23548#20837#26085#24535
      end
      object lbMsg: TLabel
        Left = 88
        Top = 8
        Width = 505
        Height = 17
        Alignment = taCenter
        AutoSize = False
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object PB1: TProgressBar
        Left = 88
        Top = 26
        Width = 505
        Height = 17
        TabOrder = 0
      end
      object Memo1: TMemo
        Left = 12
        Top = 75
        Width = 585
        Height = 217
        ScrollBars = ssBoth
        TabOrder = 1
      end
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 326
    Width = 619
    Height = 47
    Align = alBottom
    TabOrder = 1
    object BtnBack: TBitBtn
      Left = 107
      Top = 11
      Width = 75
      Height = 25
      Caption = #19978#19968#27493
      TabOrder = 0
      OnClick = BtnBackClick
    end
    object BtnGo: TBitBtn
      Left = 291
      Top = 11
      Width = 75
      Height = 25
      Caption = #19979#19968#27493
      TabOrder = 1
      OnClick = BtnGoClick
    end
    object BtnCancel: TBitBtn
      Left = 475
      Top = 11
      Width = 75
      Height = 25
      Caption = #21462#28040
      TabOrder = 2
      OnClick = BtnCancelClick
    end
  end
  object ADODB: TADOConnection
    LoginPrompt = False
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 434
    Top = 104
  end
  object AQ_Table: TADOQuery
    Connection = ADODB
    AfterOpen = AQ_TableAfterOpen
    Parameters = <>
    Left = 466
    Top = 104
  end
  object DS_Table: TDataSource
    DataSet = AQ_Table
    Left = 494
    Top = 104
  end
  object OD: TOpenDialog
    Left = 402
    Top = 104
  end
  object DS_Match: TDataSource
    Left = 524
    Top = 104
  end
  object DS_RecCheck: TDataSource
    Left = 556
    Top = 104
  end
end