unit_importdata.dfm

delphi开发的中国移动大客户管理系统,后台数据库为oracle

object Frm_ImportData: TFrm_ImportData
  Left = 47
  Top = 95
  Width = 754
  Height = 452
  Caption = '成批数据导入'
  Color = clBtnFace
  DragMode = dmAutomatic
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = '宋体'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poScreenCenter
  Visible = True
  WindowState = wsMaximized
  OnClose = FormClose
  OnDestroy = FormDestroy
  OnDragDrop = FormDragDrop
  OnDragOver = FormDragOver
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 14
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 746
    Height = 425
    ActivePage = TabSheet1
    Align = alClient
    DragMode = dmAutomatic
    Style = tsButtons
    TabOrder = 0
    OnDragDrop = PageControl1DragDrop
    OnDragOver = PageControl1DragOver
    object TabSheet1: TTabSheet
      Caption = '数据导入'
      object Splitter1: TSplitter
        Left = 329
        Top = 0
        Width = 3
        Height = 361
        Cursor = crHSplit
        AutoSnap = False
      end
      object GroupBox1: TGroupBox
        Left = 0
        Top = 0
        Width = 329
        Height = 361
        Align = alLeft
        Caption = '源数据'
        DragMode = dmAutomatic
        TabOrder = 0
        OnDragDrop = GroupBox1DragDrop
        OnDragOver = GroupBox1DragOver
        object Memo1: TMemo
          Left = 2
          Top = 92
          Width = 325
          Height = 267
          Align = alClient
          Lines.Strings = (
            '')
          ReadOnly = True
          ScrollBars = ssBoth
          TabOrder = 0
        end
        object Panel2: TPanel
          Left = 2
          Top = 16
          Width = 325
          Height = 76
          Align = alTop
          BevelOuter = bvNone
          TabOrder = 1
          object Label1: TLabel
            Left = 16
            Top = 28
            Width = 140
            Height = 14
            Caption = '请选择要导入的文件名'
          end
          object Label2: TLabel
            Left = 37
            Top = 5
            Width = 112
            Height = 14
            Caption = '是否存在字段说明'
          end
          object Edit1: TEdit
            Left = 16
            Top = 47
            Width = 209
            Height = 22
            Color = clBtnFace
            ReadOnly = True
            TabOrder = 0
          end
          object Button1: TButton
            Left = 231
            Top = 46
            Width = 25
            Height = 25
            Caption = '...'
            TabOrder = 1
            OnClick = Button1Click
          end
          object CheckBox1: TCheckBox
            Left = 17
            Top = 3
            Width = 17
            Height = 17
            TabOrder = 2
            OnClick = CheckBox1Click
          end
        end
        object ListView1: TListView
          Left = 2
          Top = 92
          Width = 325
          Height = 267
          Align = alClient
          Columns = <>
          GridLines = True
          ReadOnly = True
          RowSelect = True
          TabOrder = 2
          ViewStyle = vsReport
          Visible = False
        end
      end
      object Panel1: TPanel
        Left = 0
        Top = 361
        Width = 738
        Height = 32
        Align = alBottom
        BevelOuter = bvNone
        DragMode = dmAutomatic
        TabOrder = 1
        object Button4: TButton
          Left = 6
          Top = 5
          Width = 110
          Height = 25
          Caption = '请选择对应字段'
          TabOrder = 1
          OnClick = Button4Click
        end
        object Button3: TButton
          Left = 115
          Top = 5
          Width = 75
          Height = 25
          Caption = '执行'
          TabOrder = 0
          OnClick = Button3Click
        end
        object Button2: TButton
          Left = 189
          Top = 5
          Width = 75
          Height = 25
          Caption = '关闭'
          TabOrder = 2
          OnClick = Button2Click
        end
      end
      object GroupBox2: TGroupBox
        Left = 332
        Top = 0
        Width = 406
        Height = 361
        Align = alClient
        Caption = '目标数据'
        DragMode = dmAutomatic
        TabOrder = 2
        OnDragDrop = GroupBox2DragDrop
        OnDragOver = GroupBox2DragOver
        object GroupBox3: TGroupBox
          Left = 2
          Top = 65
          Width = 402
          Height = 294
          Align = alClient
          Caption = '错误日志'
          TabOrder = 0
          object Memo2: TMemo
            Left = 2
            Top = 16
            Width = 398
            Height = 276
            Align = alClient
            Color = clBtnFace
            ReadOnly = True
            ScrollBars = ssBoth
            TabOrder = 0
          end
        end
        object Panel3: TPanel
          Left = 2
          Top = 16
          Width = 402
          Height = 49
          Align = alTop
          BevelOuter = bvNone
          TabOrder = 1
          object Label3: TLabel
            Left = 13
            Top = 17
            Width = 70
            Height = 14
            Caption = '请选择表名'
          end
          object ComboBox: TComboBox
            Left = 88
            Top = 14
            Width = 273
            Height = 22
            Style = csDropDownList
            Color = clBtnFace
            ItemHeight = 14
            TabOrder = 0
          end
        end
      end
    end
  end
  object Panel4: TPanel
    Left = 228
    Top = 110
    Width = 387
    Height = 268
    DragMode = dmAutomatic
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 1
    Visible = False
    OnDragOver = Panel4DragOver
    object Bevel2: TBevel
      Left = 7
      Top = 30
      Width = 373
      Height = 237
      Shape = bsFrame
    end
    object Bevel1: TBevel
      Left = 304
      Top = 46
      Width = 72
      Height = 211
      Shape = bsFrame
    end
    object Label6: TLabel
      Left = 323
      Top = 33
      Width = 21
      Height = 160
      Caption = '数据字段连接设置'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -20
      Font.Name = '宋体'
      Font.Style = [fsBold]
      ParentFont = False
      WordWrap = True
    end
    object SpeedButton1: TSpeedButton
      Left = 138
      Top = 79
      Width = 41
      Height = 22
      Caption = '增加'
      NumGlyphs = 2
      OnClick = SpeedButton1Click
    end
    object SpeedButton2: TSpeedButton
      Left = 138
      Top = 110
      Width = 41
      Height = 22
      Caption = '删除'
      OnClick = SpeedButton2Click
    end
    object SpeedButton3: TSpeedButton
      Left = 138
      Top = 141
      Width = 41
      Height = 22
      Caption = '清空'
      OnClick = SpeedButton3Click
    end
    object SpeedButton4: TSpeedButton
      Left = 314
      Top = 195
      Width = 53
      Height = 22
      Caption = '确定'
      Glyph.Data = {
        DE010000424DDE01000000000000760000002800000024000000120000000100
        0400000000006801000000000000000000001000000010000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333330000333333333333333333333333F33333333333
        00003333344333333333333333388F3333333333000033334224333333333333
        338338F3333333330000333422224333333333333833338F3333333300003342
        222224333333333383333338F3333333000034222A22224333333338F338F333
        8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
        33333338F83338F338F33333000033A33333A222433333338333338F338F3333
        0000333333333A222433333333333338F338F33300003333333333A222433333
        333333338F338F33000033333333333A222433333333333338F338F300003333
        33333333A222433333333333338F338F00003333333333333A22433333333333
        3338F38F000033333333333333A223333333333333338F830000333333333333
        333A333333333333333338330000333333333333333333333333333333333333
        0000}
      NumGlyphs = 2
      OnClick = SpeedButton4Click
    end
    object SpeedButton5: TSpeedButton
      Left = 314
      Top = 230
      Width = 53
      Height = 22
      Caption = '取消'
      Glyph.Data = {
        DE010000424DDE01000000000000760000002800000024000000120000000100
        0400000000006801000000000000000000001000000010000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333333333333333000033338833333333333333333F333333333333
        0000333911833333983333333388F333333F3333000033391118333911833333
        38F38F333F88F33300003339111183911118333338F338F3F8338F3300003333
        911118111118333338F3338F833338F3000033333911111111833333338F3338
        3333F8330000333333911111183333333338F333333F83330000333333311111
        8333333333338F3333383333000033333339111183333333333338F333833333
        00003333339111118333333333333833338F3333000033333911181118333333
        33338333338F333300003333911183911183333333383338F338F33300003333
        9118333911183333338F33838F338F33000033333913333391113333338FF833
        38F338F300003333333333333919333333388333338FFF830000333333333333
        3333333333333333333888330000333333333333333333333333333333333333
        0000}
      NumGlyphs = 2
      OnClick = SpeedButton5Click
    end
    object GroupBox4: TGroupBox
      Left = 16
      Top = 40
      Width = 116
      Height = 137
      Caption = '源数据'
      TabOrder = 0
      object Label7: TLabel
        Left = 6
        Top = 17
        Width = 65
        Height = 12
        Caption = '文体分隔符'
      end
      object Label8: TLabel
        Left = 18
        Top = 37
        Width = 52
        Height = 12
        Caption = '总共列数'
      end
      object yhzd_list: TListBox
        Left = 9
        Top = 56
        Width = 97
        Height = 73
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = '宋体'
        Font.Style = []
        ItemHeight = 14
        Items.Strings = (
          '第1列'
          '第2列')
        ParentFont = False
        Sorted = True
        TabOrder = 0
      end
      object divi_edit: TEdit
        Left = 71
        Top = 13
        Width = 41
        Height = 20
        Color = clInfoBk
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        MaxLength = 1
        ParentFont = False
        TabOrder = 1
      end
      object col_edit: TEdit
        Left = 71
        Top = 34
        Width = 25
        Height = 20
        Color = clInfoBk
        MaxLength = 1
        TabOrder = 2
        Text = '3'
        OnChange = col_editChange
      end
      object UpDown1: TUpDown
        Left = 96
        Top = 34
        Width = 15
        Height = 20
        Associate = col_edit
        Min = 0
        Position = 3
        TabOrder = 3
        Wrap = False
      end
    end
    object GroupBox5: TGroupBox
      Left = 184
      Top = 41
      Width = 116
      Height = 137
      Caption = '目标数据'
      TabOrder = 1
      object xtzd_list: TListBox
        Left = 7
        Top = 16
        Width = 101
        Height = 113
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = '宋体'
        Font.Style = []
        ItemHeight = 14
        Items.Strings = (
          '客户编码'
          '客户姓名'
          '学历'
          '客户条形码'
          '已借册数'
          '可借书册数')
        ParentFont = False
        TabOrder = 0
        OnDblClick = SpeedButton1Click
      end
    end
    object link_list: TListBox
      Left = 16
      Top = 188
      Width = 283
      Height = 60
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ItemHeight = 12
      ParentFont = False
      TabOrder = 2
      OnDblClick = SpeedButton2Click
    end
    object Panel5: TPanel
      Left = 12
      Top = 5
      Width = 370
      Height = 19
      BevelOuter = bvLowered
      Color = clNavy
      TabOrder = 3
      object SpeedButton6: TSpeedButton
        Left = 352
        Top = 3
        Width = 14
        Height = 14
        Caption = '×'
        OnClick = SpeedButton6Click
      end
      object Label9: TLabel
        Left = 6
        Top = 3
        Width = 91
        Height = 12
        Caption = '数据连接设置窗'
        Color = clWhite
        Font.Charset = GB2312_CHARSET
        Font.Color = clWhite
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = [fsBold]
        ParentColor = False
        ParentFont = False
        Transparent = True
      end
    end
  end
  object PnlPrint: TPanel
    Left = 249
    Top = 160
    Width = 352
    Height = 121
    BevelInner = bvRaised
    TabOrder = 2
    object Label146: TLabel
      Left = 40
      Top = 24
      Width = 255
      Height = 16
      Caption = '正在取数据，这将花一定的时间！'
      Font.Charset = ANSI_CHARSET
      Font.Color = clPurple
      Font.Height = -16
      Font.Name = '宋体'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label147: TLabel
      Left = 111
      Top = 64
      Width = 129
      Height = 16
      Caption = '请您耐心等待...'
      Font.Charset = ANSI_CHARSET
      Font.Color = clPurple
      Font.Height = -16
      Font.Name = '宋体'
      Font.Style = [fsBold]
      ParentFont = False
    end
  end
  object Query1: TQuery
    DatabaseName = 'db_vipdl'
    Left = 557
    Top = 193
  end
  object OpenDialog1: TOpenDialog
    Filter = '*.txt|*.txt|*.xls|*.xls'
    Left = 286
    Top = 9
  end
  object Query2: TQuery
    DatabaseName = 'db_vipdl'
    Left = 599
    Top = 193
  end
end