Chip 2000 April/Chip_2000-04_cd.bin/sharewar/DBF/DBF2MySQL.exe/0/RCDATA/TMAINFORM/TMAINFORM.txt

Text File | 2000-02-01 | 20KB | 874 lines

object MainForm: TMainForm
  Left = 222
  Top = 106
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsDialog
  Caption = 'DBF2ODBC'
  ClientHeight = 286
  ClientWidth = 487
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  OldCreateOrder = True
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object NB: TNotebook
    Left = 0
    Top = 0
    Width = 487
    Height = 286
    Align = alClient
    TabOrder = 0
    OnPageChanged = NBPageChanged
    object TPage
      Left = 0
      Top = 0
      Caption = 'Intro'
      object lbIntro: TLabel
        Left = 192
        Top = 16
        Width = 277
        Height = 113
        Alignment = taCenter
        AutoSize = False
        Caption = 'lbIntro'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        Layout = tlCenter
      end
      object lbIntro1: TLabel
        Left = 20
        Top = 140
        Width = 449
        Height = 17
        Alignment = taCenter
        AutoSize = False
        Caption = 'lbIntro'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsUnderline]
        ParentFont = False
      end
      object lbIntro2: TLabel
        Left = 68
        Top = 164
        Width = 405
        Height = 73
        AutoSize = False
        Caption = 'lbIntro'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        Layout = tlCenter
      end
      object Image1: TImage
        Left = 36
        Top = 60
        Width = 127
        Height = 60
        AutoSize = True
        Picture.Data = {<image001.bmp>}
        Transparent = True
      end
      object Image2: TImage
        Left = 12
        Top = 36
        Width = 125
        Height = 29
        AutoSize = True
        Picture.Data = {<image002.bmp>}
        Transparent = True
      end
      object Panel1: TPanel
        Left = 0
        Top = 249
        Width = 487
        Height = 37
        Align = alBottom
        BevelOuter = bvNone
        Caption = ' '
        TabOrder = 0
        object Bevel1: TBevel
          Left = 0
          Top = 0
          Width = 487
          Height = 6
          Align = alTop
          Shape = bsTopLine
        end
        object btnClose5: TButton
          Left = 402
          Top = 10
          Width = 75
          Height = 21
          Caption = 'Close'
          ModalResult = 2
          TabOrder = 1
          OnClick = btnClose
        end
        object btnNext: TButton
          Left = 318
          Top = 10
          Width = 75
          Height = 21
          Caption = 'Next >'
          Default = True
          TabOrder = 0
          OnClick = NextPage
        end
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Login'
      object lbLogin: TLabel
        Left = 8
        Top = 43
        Width = 465
        Height = 43
        Alignment = taCenter
        AutoSize = False
        Caption = 'lbIntro'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clTeal
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label3: TLabel
        Left = 71
        Top = 119
        Width = 131
        Height = 17
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'Host name:'
      end
      object Label4: TLabel
        Left = 71
        Top = 143
        Width = 131
        Height = 17
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'Port:'
      end
      object Label1: TLabel
        Left = 71
        Top = 191
        Width = 131
        Height = 17
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'Username:'
      end
      object Label2: TLabel
        Left = 71
        Top = 215
        Width = 131
        Height = 17
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'Password:'
      end
      object Bevel4: TBevel
        Left = 5
        Top = 98
        Width = 477
        Height = 6
        Shape = bsTopLine
      end
      object Label6: TLabel
        Left = 71
        Top = 167
        Width = 131
        Height = 17
        Alignment = taRightJustify
        AutoSize = False
        Caption = 'Database:'
      end
      object Panel2: TPanel
        Left = 0
        Top = 249
        Width = 487
        Height = 37
        Align = alBottom
        BevelOuter = bvNone
        Caption = ' '
        TabOrder = 5
        object Bevel2: TBevel
          Left = 0
          Top = 0
          Width = 487
          Height = 6
          Align = alTop
          Shape = bsTopLine
        end
        object btnClose4: TButton
          Left = 402
          Top = 10
          Width = 75
          Height = 21
          Caption = 'Close'
          ModalResult = 2
          TabOrder = 2
          OnClick = btnClose
        end
        object btnNext1: TButton
          Left = 318
          Top = 10
          Width = 75
          Height = 21
          Caption = 'Next >'
          Default = True
          TabOrder = 1
          OnClick = btnNext1Click
        end
        object btnPrev: TButton
          Left = 234
          Top = 10
          Width = 75
          Height = 21
          Caption = '< Previous'
          TabOrder = 0
          OnClick = PrevPage
        end
      end
      object HostName: TEdit
        Left = 207
        Top = 116
        Width = 180
        Height = 21
        TabOrder = 0
        Text = 'HostName'
        OnChange = HostNameChange
      end
      object Port: TEdit
        Left = 207
        Top = 140
        Width = 180
        Height = 21
        TabOrder = 1
        Text = '3306'
        OnChange = PortChange
      end
      object UserName: TEdit
        Left = 207
        Top = 188
        Width = 180
        Height = 21
        TabOrder = 3
        Text = 'UserName'
        OnChange = UserNameChange
      end
      object Password: TEdit
        Left = 207
        Top = 212
        Width = 180
        Height = 21
        PasswordChar = '*'
        TabOrder = 4
        Text = 'Password'
        OnChange = PasswordChange
      end
      object Database: TEdit
        Left = 207
        Top = 164
        Width = 180
        Height = 21
        TabOrder = 2
        Text = 'Database'
        OnChange = DatabaseChange
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'DBFSelect'
      object lbDrive: TLabel
        Left = 8
        Top = 40
        Width = 25
        Height = 13
        Caption = '&Drive'
        FocusControl = Drive
      end
      object lbDir: TLabel
        Left = 8
        Top = 77
        Width = 42
        Height = 13
        Caption = '&Directory'
        FocusControl = Dir
      end
      object Label5: TLabel
        Left = 236
        Top = 40
        Width = 21
        Height = 13
        Caption = '&Files'
        FocusControl = Drive
      end
      object lbChooseFile: TLabel
        Left = 16
        Top = 16
        Width = 457
        Height = 21
        Alignment = taCenter
        AutoSize = False
        Caption = 'lbIntro'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clTeal
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Drive: TDriveComboBox
        Left = 14
        Top = 55
        Width = 211
        Height = 19
        DirList = Dir
        TabOrder = 0
      end
      object Dir: TDirectoryListBox
        Left = 14
        Top = 92
        Width = 211
        Height = 145
        FileList = Files
        ItemHeight = 16
        TabOrder = 1
      end
      object Files: TFileListBox
        Left = 238
        Top = 55
        Width = 238
        Height = 182
        ItemHeight = 13
        Mask = '*.db*'
        TabOrder = 2
        OnChange = FilesChange
        OnClick = FilesChange
        OnDblClick = btnConnectClick
        OnEnter = FilesChange
      end
      object Panel3: TPanel
        Left = 0
        Top = 249
        Width = 487
        Height = 37
        Align = alBottom
        BevelOuter = bvNone
        Caption = ' '
        TabOrder = 3
        object Bevel3: TBevel
          Left = 0
          Top = 0
          Width = 487
          Height = 6
          Align = alTop
          Shape = bsTopLine
        end
        object btnClose3: TButton
          Left = 402
          Top = 10
          Width = 75
          Height = 21
          Caption = 'Close'
          ModalResult = 2
          TabOrder = 3
          OnClick = btnClose
        end
        object btnConnect: TButton
          Left = 318
          Top = 10
          Width = 75
          Height = 21
          Caption = 'Next >'
          Default = True
          TabOrder = 2
          OnClick = btnConnectClick
        end
        object btnPrev1: TButton
          Left = 150
          Top = 10
          Width = 75
          Height = 21
          Caption = '< Previous'
          TabOrder = 0
          OnClick = PrevPage
        end
        object btnBrow: TButton
          Left = 234
          Top = 10
          Width = 75
          Height = 21
          Caption = 'View data'
          TabOrder = 1
          OnClick = btnBrowClick
        end
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'DBFView'
      object Grid: TDBGrid
        Left = 0
        Top = 0
        Width = 487
        Height = 249
        Align = alClient
        DataSource = DS
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
      end
      object Panel4: TPanel
        Left = 0
        Top = 249
        Width = 487
        Height = 37
        Align = alBottom
        BevelOuter = bvNone
        Caption = ' '
        TabOrder = 1
        object btnCancel: TButton
          Left = 402
          Top = 10
          Width = 75
          Height = 21
          Caption = 'Close'
          ModalResult = 2
          TabOrder = 2
          OnClick = btnClose
        end
        object btnConnect2: TButton
          Left = 318
          Top = 10
          Width = 75
          Height = 21
          Caption = 'Next >'
          Default = True
          ModalResult = 2
          TabOrder = 1
          OnClick = btnConnectClick
        end
        object btnPrev3: TButton
          Left = 234
          Top = 10
          Width = 75
          Height = 21
          Caption = '< Previous'
          ModalResult = 2
          TabOrder = 0
          OnClick = PrevPage
        end
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Params'
      object lbParams: TLabel
        Left = 12
        Top = 12
        Width = 473
        Height = 29
        Alignment = taCenter
        AutoSize = False
        Caption = 'lbParams'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clTeal
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Panel5: TPanel
        Left = 0
        Top = 249
        Width = 487
        Height = 37
        Align = alBottom
        BevelOuter = bvNone
        Caption = ' '
        TabOrder = 0
        object Bevel5: TBevel
          Left = 0
          Top = 0
          Width = 487
          Height = 6
          Align = alTop
          Shape = bsTopLine
        end
        object btnClose1: TButton
          Left = 402
          Top = 10
          Width = 75
          Height = 21
          Caption = 'Close'
          ModalResult = 2
          TabOrder = 2
          OnClick = btnClose
        end
        object btnFinish1: TButton
          Left = 318
          Top = 10
          Width = 75
          Height = 21
          Caption = 'Next >'
          Default = True
          TabOrder = 1
          OnClick = btnFinish1Click
        end
        object btnPrev5: TButton
          Left = 234
          Top = 10
          Width = 75
          Height = 21
          Caption = '< Previous'
          TabOrder = 0
          OnClick = btnPrev5Click
        end
      end
      object Pages: TPageControl
        Left = 0
        Top = 40
        Width = 487
        Height = 209
        ActivePage = TabSheet1
        Align = alBottom
        TabOrder = 1
        object TabSheet1: TTabSheet
          Caption = 'Transfer options'
          object lbTableName: TLabel
            Left = 7
            Top = 42
            Width = 89
            Height = 13
            Caption = 'Target table name:'
            FocusControl = TableName
          end
          object lbTargetCP: TLabel
            Left = 7
            Top = 2
            Width = 88
            Height = 13
            Caption = 'Target codepage::'
            FocusControl = TargetCP
          end
          object Tables: TListBox
            Left = 239
            Top = 18
            Width = 229
            Height = 153
            ItemHeight = 13
            TabOrder = 4
            OnDblClick = TablesDblClick
            OnKeyPress = TablesKeyPress
          end
          object EmptyTable: TCheckBox
            Left = 19
            Top = 118
            Width = 209
            Height = 17
            Caption = 'Empty table before transfering'
            TabOrder = 3
          end
          object ReCreate: TCheckBox
            Left = 19
            Top = 98
            Width = 209
            Height = 17
            Caption = 'Re-Create target table'
            TabOrder = 2
            OnClick = TableNameChange
          end
          object TableName: TEdit
            Left = 19
            Top = 58
            Width = 205
            Height = 21
            TabOrder = 1
            Text = 'TableName'
            OnChange = TableNameChange
          end
          object TargetCP: TComboBox
            Left = 18
            Top = 18
            Width = 206
            Height = 21
            Style = csDropDownList
            ItemHeight = 13
            Items.Strings = (
              'Current Windows codepage'
              'Russian KOI-8-r codepage'
              'Russian MS-DOS (866) codepage'
              'OEM codepage')
            TabOrder = 0
          end
        end
        object TabSheet2: TTabSheet
          Caption = 'Fields'
          object lbfnEdit: TLabel
            Left = 268
            Top = 32
            Width = 115
            Height = 13
            Caption = 'MySQL table field name:'
          end
          object Label7: TLabel
            Left = 276
            Top = 92
            Width = 189
            Height = 65
            Alignment = taCenter
            AutoSize = False
            Caption =
              'An empty table name means "do not copy this column into destinat' +
              'ion table'
            WordWrap = True
          end
          object FieldNames: TListBox
            Left = 10
            Top = 23
            Width = 240
            Height = 149
            ExtendedSelect = False
            ItemHeight = 16
            Style = lbOwnerDrawFixed
            TabOrder = 0
            OnClick = FieldNamesClick
            OnDrawItem = FieldNamesDrawItem
          end
          object fnEdit: TEdit
            Left = 268
            Top = 48
            Width = 197
            Height = 21
            TabOrder = 1
            Text = 'fnEdit'
            OnChange = fnEditChange
          end
          object HeaderControl1: THeaderControl
            Left = 10
            Top = 7
            Width = 240
            Height = 18
            Align = alNone
            Sections = <
              item
                AllowClick = False
                MaxWidth = 120
                MinWidth = 120
                Text = ' DBF Field'
                Width = 120
              end
              item
                AllowClick = False
                MaxWidth = 120
                MinWidth = 120
                Text = 'MySQL Table field'
                Width = 120
              end>
          end
        end
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'QueryView'
      object lbQView: TLabel
        Left = 12
        Top = 17
        Width = 473
        Height = 36
        Alignment = taCenter
        AutoSize = False
        Caption = 'lbQView'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clTeal
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Panel6: TPanel
        Left = 0
        Top = 249
        Width = 487
        Height = 37
        Align = alBottom
        BevelOuter = bvNone
        Caption = ' '
        TabOrder = 0
        object Bevel6: TBevel
          Left = 0
          Top = 0
          Width = 487
          Height = 6
          Align = alTop
          Shape = bsTopLine
        end
        object btnClose6: TButton
          Left = 402
          Top = 10
          Width = 75
          Height = 21
          Caption = 'Close'
          ModalResult = 2
          TabOrder = 2
          OnClick = btnClose
        end
        object btnFinish2: TButton
          Left = 318
          Top = 10
          Width = 75
          Height = 21
          Caption = 'Finish >'
          Default = True
          TabOrder = 1
          OnClick = btnFinish2Click
        end
        object btnPrev4: TButton
          Left = 234
          Top = 10
          Width = 75
          Height = 21
          Caption = '< Previous'
          TabOrder = 0
          OnClick = btnPrev5Click
        end
      end
      object QView: TMemo
        Left = 12
        Top = 56
        Width = 465
        Height = 189
        Lines.Strings = (
          '')
        ScrollBars = ssBoth
        TabOrder = 1
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Export'
      object lbCopy: TLabel
        Left = 8
        Top = 8
        Width = 471
        Height = 15
        Alignment = taCenter
        AutoSize = False
        Caption = 'lbCopy'
        Color = clBtnFace
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clTeal
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentColor = False
        ParentFont = False
        WordWrap = True
      end
      object _Log: TMemo
        Left = 8
        Top = 24
        Width = 471
        Height = 180
        Lines.Strings = (
          'Log')
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 0
      end
      object _Status: TPanel
        Left = 8
        Top = 209
        Width = 471
        Height = 16
        Alignment = taLeftJustify
        BevelOuter = bvLowered
        Caption = '_Status'
        TabOrder = 1
      end
      object _Progress: TProgressBar
        Left = 8
        Top = 228
        Width = 471
        Height = 15
        Min = 0
        Max = 100
        TabOrder = 2
      end
      object Panel7: TPanel
        Left = 0
        Top = 249
        Width = 487
        Height = 37
        Align = alBottom
        BevelOuter = bvNone
        Caption = ' '
        TabOrder = 3
        object Bevel7: TBevel
          Left = 0
          Top = 0
          Width = 487
          Height = 6
          Align = alTop
          Shape = bsTopLine
        end
        object btnFinish: TButton
          Left = 402
          Top = 10
          Width = 75
          Height = 21
          Caption = 'Stop'
          Default = True
          TabOrder = 1
          OnClick = btnFinishClick
        end
        object btnOther: TButton
          Left = 318
          Top = 10
          Width = 75
          Height = 21
          Caption = 'Other table'
          TabOrder = 0
          OnClick = btnPrev5Click
        end
      end
    end
  end
  object DS: TDataSource
    Left = 112
    Top = 240
  end
end