srctab.dfm

jvcl driver development envionment

object SrcTableDlg: TSrcTableDlg
  Left = 279
  Top = 161
  BorderStyle = bsDialog
  Caption = 'Import to %s'
  ClientHeight = 284
  ClientWidth = 420
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = True
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Expanded: TBevel
    Left = 412
    Top = 0
    Width = 8
    Height = 280
    Shape = bsLeftLine
    Visible = False
  end
  object TopPanel: TPanel
    Left = 0
    Top = 0
    Width = 420
    Height = 153
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 0
    object Label1: TLabel
      Left = 8
      Top = 8
      Width = 94
      Height = 13
      Caption = '&Select source table:'
      FocusControl = SrcNameEdit
    end
    object Label4: TLabel
      Left = 8
      Top = 104
      Width = 61
      Height = 13
      Caption = 'Import &mode:'
      FocusControl = ModeCombo
    end
    object RecordCountBox: TGroupBox
      Left = 8
      Top = 53
      Width = 315
      Height = 44
      Caption = ' &Record count to import '
      TabOrder = 0
      object Label2: TLabel
        Left = 268
        Top = 20
        Width = 38
        Height = 13
        Caption = 'records '
        FocusControl = RecordCntEdit
      end
      object FirstRecsBtn: TRadioButton
        Left = 153
        Top = 18
        Width = 48
        Height = 17
        Caption = ' &First '
        TabOrder = 1
        OnClick = AllRecsBtnClick
      end
      object AllRecsBtn: TRadioButton
        Left = 17
        Top = 18
        Width = 96
        Height = 17
        Caption = ' &All records'
        Checked = True
        TabOrder = 0
        TabStop = True
        OnClick = AllRecsBtnClick
      end
      object RecordCntEdit: TJvValidateEdit
        Left = 204
        Top = 17
        Width = 55
        Height = 21
        CheckChars = '01234567890'
        CriticalPoints.CheckPoints = cpNone
        CriticalPoints.ColorAbove = clBlue
        CriticalPoints.ColorBelow = clRed
        Enabled = False
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBtnFace
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        MaxValue = 2147483647.000000000000000000
        ParentColor = True
        ParentFont = False
        PasswordChar = #0
        TabOrder = 2
        Text = '0'
        Value = 0
      end
    end
    object ModeCombo: TComboBox
      Left = 8
      Top = 120
      Width = 161
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      TabOrder = 1
      Items.Strings = (
        'Append'
        'Update'
        'AppendUpdate')
    end
    object SrcNameEdit: TJvFilenameEdit
      Left = 8
      Top = 24
      Width = 315
      Height = 21
      AddQuotes = False
      DefaultExt = 'DB'
      Filter = 
        'Paradox or DBase files (*.db; *.dbf)|*.DB;*.DBF|ASCII files (*.t' +
        'xt)|*.TXT|All files (*.*)|*.*'
      DialogOptions = [ofHideReadOnly, ofPathMustExist, ofFileMustExist]
      DialogTitle = 'Browse files'
      ButtonHint = 'Browse tables|'
      ButtonFlat = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      OnChange = SrcNameEditChange
    end
    object OkBtn: TButton
      Left = 335
      Top = 13
      Width = 77
      Height = 25
      Caption = 'OK'
      Default = True
      Enabled = False
      TabOrder = 3
      OnClick = OkBtnClick
    end
    object CancelBtn: TButton
      Left = 335
      Top = 45
      Width = 77
      Height = 25
      Cancel = True
      Caption = 'Cancel'
      ModalResult = 2
      TabOrder = 4
    end
    object MapBtn: TButton
      Left = 335
      Top = 80
      Width = 77
      Height = 25
      Enabled = False
      TabOrder = 5
      OnClick = MapBtnClick
    end
  end
  object BottomPanel: TPanel
    Left = 0
    Top = 153
    Width = 420
    Height = 131
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 1
    object Label3: TLabel
      Left = 8
      Top = 2
      Width = 73
      Height = 13
      Caption = '&Field mappings:'
    end
    object MapGrid: TJvDBGrid
      Left = 8
      Top = 18
      Width = 315
      Height = 105
      DataSource = dsMappings
      Options = [dgEditing, dgTitles, dgColLines, dgRowLines, dgCancelOnExit]
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'SRC_NAME'
          ReadOnly = True
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'DST_NAME'
          Visible = True
        end>
    end
  end
  object FormStorage: TJvFormStorage
    Options = []
    StoredProps.Strings = (
      'SrcNameEdit.InitialDir'
      'RecordCntEdit.Value')
    StoredValues = <>
    Left = 344
    Top = 124
  end
  object TableFields: TJvTableItems
    Left = 344
    Top = 152
  end
  object MappingsTab: TJvBDEMemoryTable
    TableName = 'MAPTAB'
    Left = 344
    Top = 180
    object MappingsTabSRC_NAME: TStringField
      DisplayLabel = 'Source'
      DisplayWidth = 23
      FieldName = 'SRC_NAME'
      Size = 50
    end
    object MappingsTabDST_NAME: TStringField
      DisplayLabel = 'Destination'
      DisplayWidth = 24
      FieldName = 'DST_NAME'
      OnGetText = MappingsTabDST_NAMEGetText
      OnSetText = MappingsTabDST_NAMESetText
      Size = 50
    end
  end
  object dsMappings: TDataSource
    DataSet = MappingsTab
    Left = 372
    Top = 180
  end
end