dbtxtimp.dfm

从文本文件象Oracle数据库导入数据

object frmDBTxtImp: TfrmDBTxtImp
  Left = 228
  Top = 123
  Width = 734
  Height = 539
  Caption = '数据库文本导入'
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 726
    Height = 129
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 0
    object Label1: TLabel
      Left = 344
      Top = 100
      Width = 72
      Height = 12
      Caption = '数据库表名称'
      Transparent = True
    end
    object Label8: TLabel
      Left = 16
      Top = 101
      Width = 72
      Height = 12
      Caption = '文本文件名称'
      Transparent = True
    end
    object Label2: TLabel
      Left = 560
      Top = 16
      Width = 72
      Height = 12
      Caption = '批量提交数：'
    end
    object Label3: TLabel
      Left = 560
      Top = 67
      Width = 60
      Height = 12
      Caption = '日期格式：'
    end
    object GroupBox1: TGroupBox
      Left = 115
      Top = 16
      Width = 294
      Height = 73
      Caption = '分隔符：'
      TabOrder = 0
      object rbTab: TRadioButton
        Left = 16
        Top = 21
        Width = 113
        Height = 17
        Caption = '制表符(Tab)'
        Checked = True
        TabOrder = 0
        TabStop = True
      end
      object rbSep: TRadioButton
        Left = 120
        Top = 21
        Width = 49
        Height = 17
        Caption = '分号'
        TabOrder = 1
      end
      object rbOther: TRadioButton
        Left = 16
        Top = 45
        Width = 79
        Height = 17
        Caption = '其他字符：'
        TabOrder = 2
      end
      object rbComma: TRadioButton
        Left = 176
        Top = 21
        Width = 49
        Height = 17
        Caption = '逗号'
        TabOrder = 3
      end
      object edtSeparator: TEdit
        Left = 96
        Top = 43
        Width = 177
        Height = 20
        TabOrder = 4
      end
      object rbSpace: TRadioButton
        Left = 232
        Top = 21
        Width = 49
        Height = 17
        Caption = '空格'
        TabOrder = 5
      end
    end
    object GroupBox2: TGroupBox
      Left = 15
      Top = 16
      Width = 90
      Height = 73
      Caption = '首行属性：'
      TabOrder = 1
      object rbFirstData: TRadioButton
        Left = 16
        Top = 21
        Width = 49
        Height = 17
        Caption = '数据'
        Checked = True
        TabOrder = 0
        TabStop = True
      end
      object rbFirstName: TRadioButton
        Left = 16
        Top = 45
        Width = 65
        Height = 17
        Caption = '字段名称'
        TabOrder = 1
      end
    end
    object cmbedtFileName: TComboEdit
      Left = 96
      Top = 98
      Width = 225
      Height = 21
      GlyphKind = gkEllipsis
      ButtonWidth = 16
      NumGlyphs = 1
      TabOrder = 2
      OnButtonClick = cmbedtFileNameButtonClick
      OnKeyPress = cmbedtTableNameKeyPress
    end
    object Button1: TButton
      Left = 576
      Top = 93
      Width = 97
      Height = 29
      Caption = '开始'
      TabOrder = 3
      OnClick = Button1Click
    end
    object cmbedtTableName: TComboEdit
      Left = 424
      Top = 100
      Width = 145
      Height = 21
      GlyphKind = gkDropDown
      NumGlyphs = 1
      TabOrder = 4
      OnButtonClick = cmbedtTableNameButtonClick
      OnKeyPress = cmbedtTableNameKeyPress
    end
    object spinCmtCnt: TRxSpinEdit
      Left = 640
      Top = 12
      Width = 73
      Height = 20
      MaxValue = 1000
      MinValue = 1
      Value = 100
      TabOrder = 5
    end
    object cbIgnoreCoute: TCheckBox
      Left = 560
      Top = 41
      Width = 137
      Height = 17
      Caption = '忽略数据两端引号'
      TabOrder = 6
    end
    object edtDateFormat: TEdit
      Left = 624
      Top = 64
      Width = 89
      Height = 20
      CharCase = ecUpperCase
      TabOrder = 7
      Text = 'YYYY-MM-DD'
    end
    object cbForceDefFields: TCheckBox
      Left = 440
      Top = 40
      Width = 97
      Height = 17
      Caption = '强制定义字段'
      Checked = True
      State = cbChecked
      TabOrder = 8
    end
    object cbAdjustFlag: TCheckBox
      Left = 440
      Top = 16
      Width = 97
      Height = 17
      Caption = '主键校验'
      Checked = True
      State = cbChecked
      TabOrder = 9
    end
  end
  object dgrdFields: TDBGrid
    Left = 0
    Top = 129
    Width = 726
    Height = 376
    Align = alClient
    DataSource = dsFields
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clBlack
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Color = 16776176
        Expanded = False
        FieldName = 'TABLE_NAME'
        ReadOnly = True
        Title.Alignment = taCenter
        Visible = False
      end
      item
        Color = 16776176
        Expanded = False
        FieldName = 'COLUMN_ID'
        ReadOnly = True
        Title.Alignment = taCenter
        Width = 54
        Visible = True
      end
      item
        Color = 16776176
        Expanded = False
        FieldName = 'COLUMN_NAME'
        ReadOnly = True
        Title.Alignment = taCenter
        Width = 112
        Visible = True
      end
      item
        Color = 16776176
        Expanded = False
        FieldName = 'DATA_LENGTH'
        ReadOnly = True
        Title.Alignment = taCenter
        Width = 59
        Visible = True
      end
      item
        Color = 16776176
        Expanded = False
        FieldName = 'NULLABLE'
        ReadOnly = True
        Title.Alignment = taCenter
        Width = 60
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ADJUST_TYPE'
        PickList.Strings = (
          '不校验'
          '主键校验')
        Title.Alignment = taCenter
        Width = 60
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'UPDATE_MODE'
        PickList.Strings = (
          '不更新'
          '替换'
          '累加'
          '合并')
        Title.Alignment = taCenter
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'DATA_FROM'
        PickList.Strings = (
          '文件导入'
          '系统默认'
          '自增字段')
        Title.Alignment = taCenter
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'DEFAULT_VALUE'
        Title.Alignment = taCenter
        Width = 65
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'FILE_INDEX'
        Title.Alignment = taCenter
        Width = 56
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'DATE_FORMAT'
        Title.Alignment = taRightJustify
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'IGNORE_COUTE'
        PickList.Strings = (
          '否'
          '是')
        Title.Alignment = taRightJustify
        Visible = True
      end>
  end
  object OraDsFields: TOracleDataSet
    SQL.Strings = (
      'select table_name'
      '      ,column_name'
      '      ,column_id'
      '      ,data_length'
      '      ,nullable'
      '  from cols t'
      ' where table_name = '#39'A'#39
      ' order by column_id')
    ReadBuffer = 25
    Optimize = True
    Debug = False
    StringFieldsOnly = False
    SequenceField.ApplyMoment = amOnPost
    OracleDictionary.EnforceConstraints = False
    OracleDictionary.UseMessageTable = False
    OracleDictionary.DefaultValues = False
    OracleDictionary.DynamicDefaults = False
    OracleDictionary.FieldKinds = False
    OracleDictionary.DisplayFormats = False
    OracleDictionary.RangeValues = False
    OracleDictionary.RequiredFields = True
    QBEDefinition.SaveQBEValues = True
    QBEDefinition.AllowFileWildCards = True
    QBEDefinition.QBEFontColor = clNone
    QBEDefinition.QBEBackgroundColor = clNone
    QBEDefinition.QBEFieldDefs = {
      03000000050000000A0000005441424C455F4E414D4501000000000B00000043
      4F4C554D4E5F4E414D45010000000009000000434F4C554D4E5F494401000000
      000B000000444154415F4C454E4754480100000000080000004E554C4C41424C
      450100000000}
    Cursor = crDefault
    ReadOnly = False
    LockingMode = lmCheckImmediate
    QueryAllRecords = True
    CountAllRecords = False
    RefreshOptions = []
    CommitOnPost = True
    CachedUpdates = False
    QBEMode = False
    Session = dmData.OraSessionScm
    DesignActivation = False
    Active = False
    Left = 40
    Top = 128
  end
  object dsFields: TDataSource
    DataSet = rxmtblFields
    Left = 40
    Top = 168
  end
  object rxmtblFields: TRxMemoryData
    FieldDefs = <>
    Left = 40
    Top = 208
    object rxmtblFieldsTABLE_NAME: TStringField
      DisplayLabel = '表名称'
      DisplayWidth = 10
      FieldName = 'TABLE_NAME'
      Required = True
      Size = 30
    end
    object rxmtblFieldsCOLUMN_NAME: TStringField
      DisplayLabel = '字段名称'
      DisplayWidth = 10
      FieldName = 'COLUMN_NAME'
      Required = True
      Size = 30
    end
    object rxmtblFieldsCOLUMN_ID: TFloatField
      DisplayLabel = '字段序号'
      FieldName = 'COLUMN_ID'
      Required = True
    end
    object rxmtblFieldsDATA_LENGTH: TFloatField
      DisplayLabel = '字段长度'
      FieldName = 'DATA_LENGTH'
      Required = True
    end
    object rxmtblFieldsNULLABLE: TStringField
      DisplayLabel = '是否为空'
      DisplayWidth = 10
      FieldName = 'NULLABLE'
      Size = 1
    end
    object rxmtblFieldsADJUST_TYPE: TStringField
      DisplayLabel = '校验方式'
      DisplayWidth = 10
      FieldName = 'ADJUST_TYPE'
      OnGetText = rxmtblFieldsADJUST_TYPEGetText
      OnSetText = rxmtblFieldsADJUST_TYPESetText
      Size = 2
    end
    object rxmtblFieldsUPDATE_MODE: TStringField
      DisplayLabel = '更新方式'
      DisplayWidth = 10
      FieldName = 'UPDATE_MODE'
      OnGetText = rxmtblFieldsUPDATE_MODEGetText
      OnSetText = rxmtblFieldsUPDATE_MODESetText
      Size = 2
    end
    object rxmtblFieldsDATA_FROM: TStringField
      DisplayLabel = '数据来源'
      DisplayWidth = 10
      FieldName = 'DATA_FROM'
      OnGetText = rxmtblFieldsDATA_FROMGetText
      OnSetText = rxmtblFieldsDATA_FROMSetText
      Size = 2
    end
    object rxmtblFieldsDEFAULT_VALUE: TStringField
      DisplayLabel = '默认值'
      DisplayWidth = 10
      FieldName = 'DEFAULT_VALUE'
      Size = 100
    end
    object rxmtblFieldsFILE_INDEX: TFloatField
      DisplayLabel = '文件索引'
      FieldName = 'FILE_INDEX'
    end
    object rxmtblFieldsDATE_FORMAT: TStringField
      DisplayLabel = '日期格式'
      FieldName = 'DATE_FORMAT'
      Size = 30
    end
    object rxmtblFieldsIGNORE_COUTE: TStringField
      DisplayLabel = '忽略引号'
      FieldName = 'IGNORE_COUTE'
      OnGetText = rxmtblFieldsIGNORE_COUTEGetText
      OnSetText = rxmtblFieldsIGNORE_COUTESetText
      Size = 10
    end
  end
  object OpenDialog1: TOpenDialog
    DefaultExt = '*.txt'
    Filter = '文本文件(*.txt)|*.txt|所有文件(*.*)|*.*'
    Left = 370
    Top = 91
  end
end